User Tools

Site Tools


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

Deck 1TA Part 001

9 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01727  M01S01525.1ta     +++|*                TERMINAL TABLE SET TO COMPLETION STATUS.
01728  M01S01526.1ta     +++|*
01729  M01S01527.1ta     +++|*         USES   FP, PP, TN, WC, IR - IR+4, CM - CM+4, CN - CN+4,
01730  M01S01528.1ta     +++|*                DF - DF+4.
01731  M01S01529.1ta     +++|*
01732  M01S01530.1ta     +++|*         CALLS  DFM, DPT, SJN, SPA, STA, TWD, UPP.
01733  M01S01531.1ta     +++|
01734  M01S01532.1ta     +++|
01735  M01S01533.1ta     +++|          ENTRY  IAM
01736  M01S01534.1ta     +++|          RJM    STT         SET TERMINAL TABLE ADDRESS
01737  M01S01535.1ta     +++|          ADK    VROT
01738  M01S01536.1ta     +++|          CRD    CN
01739  M01S01537.1ta     +++|          LDD    CN+3        SET FIRST POT
01740  M01S01538.1ta     +++|          STD    FP
01741  M01S01539.1ta     +++|          STD    PP
01742  M01S01540.1ta     +++|          LDN    0
01743  M01S01541.1ta     +++|          STD    WC
01744  M01S01542.1ta     +++|
01745  M01S01543.1ta     +++|*         PROCESS REQUEST POT.
01746  M01S01544.1ta     +++|
01747  M01S01545.1ta     +++| IAM1     RJM    SPA         READ REQUEST WORD
01748  M01S01546.1ta     +++|          ADD    WC
01749  M01S01547.1ta     +++|          CRD    IR
01750  M01S01548.1ta     +++|          LDD    TN          CHECK TERMINAL NUMBER
01751  M01S01549.1ta     +++|          NJN    IAM2        IF NOT TERMINATOR
01752  M01S01550.1ta     +++|          LJM    IAM4        COMPLETE PROCESSING
01753  M01S01551.1ta     +++|
01754  M01S01552.1ta     +++| IAM2     RJM    STA         SET TERMINAL TABLE ADDRESS
01755  M01S01553.1ta     +++|          ADK    VUIT
01756  M01S01554.1ta     +++|          CRD    DF
01757  M01S01555.1ta     +++|          ADK    VFST-VUIT
01758  M01S01556.1ta     +++|          CRD    CM
01759  M01S01557.1ta     +++|          LDD    CM          TRANSFER JSN
01760  M01S01558.1ta     +++|          STM    MSFA
01761  M01S01559.1ta     +++|          LDD    CM+1
01762  M01S01560.1ta     +++|          STM    MSFA+1
01763  M01S01561.1ta     +++|          SFA    EJT,DF+4
01764  M01S01562.1ta     +++|          ADN    SCLE
01765  M01S01563.1ta     +++|          CRD    CM
01766  M01S01564.1ta     +++|          LDD    CM
01767  M01S01565.1ta     +++|          SHN    -6
01768  M01S01566.1ta     +++|          STM    MSFA+4      SET SERVICE CLASS
01769  M01S01567.1ta     +++|          LDD    IR+4        SET RESOURCE TYPE
01770  M01S01568.1ta     +++|          LPN    1
01771  M01S01569.1ta     +++|          STD    T1
01772  M01S01570.1ta     +++|          LDM    TRST,T1
01773  M01S01571.1ta     +++|          STM    MSFB+1
01774  M01S01572.1ta     +++|          LDD    MA          SET OVERFLOW QUANTITY
01775  M01S01573.1ta     +++|          CWM    IAMA,ON
01776  M01S01574.1ta     +++|          SBN    1
01777  M01S01575.1ta     +++|          CRM    MSFC,ON
01778  M01S01576.1ta     +++|          LDC    MSFA+AJNN   ISSUE DAYFILE MESSAGE
01779  M01S01577.1ta     +++|          RJM    DFM
01780  M01S01578.1ta     +++|          LDD    IR+4
01781  M01S01579.1ta     +++|          SHN    21-1
01782  M01S01580.1ta     +++|          PJN    IAM2.1      IF NO COMBINED OVERFLOW
01783  M01S01581.1ta     +++|          LDC    2RCT        SET COMBINED OVERFLOW
01784  M01S01582.1ta     +++|          STM    MSFB+1
01785  M01S01583.1ta     +++|          LDD    MA          SET COMBINED OVERFLOW QUANTITY
01786  M01S01584.1ta     +++|          CWM    IAMB,ON
01787  M01S01585.1ta     +++|          SBN    1
01788  M01S01586.1ta     +++|          CRM    MSFC,ON
01789  M01S01587.1ta     +++|          LDC    MSFA+AJNN   ISSUE DAYFILE MESSAGE
01790  M01S01588.1ta     +++|          RJM    DFM
01791  M01S01589.1ta     +++| IAM2.1   AOD    WC          INCREMENT POT ADDRESS
01792  M01S01590.1ta     +++|          LMN    VCPC
01793  M01S01591.1ta     +++|          NJN    IAM3        IF NOT AT END OF POT
01794  M01S01592.1ta     +++|          STD    WC          RESET TO FWA OF POT
01795  M01S01593.1ta     +++|          RJM    UPP         UPDATE POT POINTER
01796  M01S01594.1ta     +++|          ZJN    IAM4        IF POT NOT LINKED
01797  M01S01595.1ta     +++| IAM3     LJM    IAM1        CONTINUE PROCESSING
01798  M01S01596.1ta     +++|
01799  M01S01597.1ta     +++| IAM4     STD    CN+3        CLEAR POT POINTER
01800  M01S01598.1ta     +++|          LDD    FP          DROP POTS
01801  M01S01599.1ta     +++|          STD    PP
01802  M01S01600.1ta     +++|          RJM    DPT
01803  M01S01601.1ta     +++|          LDN    ACPT        RESET TERMINAL NUMBER
01804  M01S01602.1ta     +++|          STD    TN
01805  M01S01603.1ta     +++|          AOD    CN+4        SET COMPLETE
01806  M01S01604.1ta     +++|          RJM    STA
01807  M01S01605.1ta     +++|          ADK    VROT
01808  M01S01606.1ta     +++|          CWD    CN
01809  M01S01607.1ta     +++|          LJM    ITAX        EXIT
01810  M01S01608.1ta     +++|
01811  M01S01609.1ta     +++| IAMA     DATA   10H     4.096  INPUT OR OUTPUT OVERFLOW QUANTITY
01812  M01S01610.1ta     +++| IAMB     DATA   10H 16777.216  COMBINED INPUT/OUTPUT OVERFLOW QUANTITY
01813  M01S01611.1ta     +++| TRST     SPACE  4,10
01814  M01S01612.1ta     +++|**        TRST - TABLE OF RESOURCE TYPES.
01815  M01S01613.1ta     +++|
01816  M01S01614.1ta     +++|
01817  M01S01615.1ta     +++| TRST     BSS    0
01818  M01S01616.1ta     +++|          DATA   2HCO        CHARACTERS OUT
01819  M01S01617.1ta     +++|          DATA   2HCI        CHARACTERS IN
01820  M01S01618.1ta     +++| MSF      SPACE  4,10
01821  M01S01619.1ta     +++|**        MSF - MESSAGE FORMAT FOR ACCOUNTING MESSAGES.
01822  M01S01620.1ta     +++|
01823  M01S01621.1ta     +++|
01824  M01S01622.1ta     +++| MSFA     DATA   10HJSNA    SC    JOB NAME
01825  M01S01623.1ta     +++| MSFB     DATA   6HUCXX,     RESOURCE TYPE
01826  M01S01624.1ta     +++| MSFC     DATA   10H     Q.QQQ  QUANTITY
01827  M01S01625.1ta     +++|          DATA   6HKCHS.     UNITS
01828  M01S01626.1ta     +++|          CON    0           TERMINATOR
01829  M01S01627.1ta     +++|          SPACE  4,10
01830  M01S01628.1ta     +++|**        TEST FOR OVERFLOW.
01831  M01S01629.1ta     +++|
01832  M01S01630.1ta     +++|
01833  M01S01631.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
01834  M01S01632.1ta     +++| IRL      OVERLAY (INCREMENT RESOURCE LIMIT.)
01835  M01S01633.1ta     +++| IRL      SPACE  4,20
01836  M01S01634.1ta     +++|***       IRL - INCREMENT RESOURCE LIMIT.
01837  M01S01635.1ta     +++|*
01838  M01S01636.1ta     +++|*T,IR     24/ ,12/ FC,12/ TN,12/ PP.
Figure IR

01112232429 PP. TN FC30353659 FC

01839  M01S01637.1ta     +++|*
01840  M01S01638.1ta     +++|*         FC = FUNCTION CODE.
01841  M01S01639.1ta     +++|*         TN = TERMINAL NUMBER.
01842  M01S01640.1ta     +++|*         PP = REQUEST POT POINTER.
01843  M01S01641.1ta     +++|*
01844  M01S01642.1ta     +++|*         REQUEST POT FORMAT -
01845  M01S01643.1ta     +++|*T,       36/ 0,  6/ FC,  18/  SR.
Figure

01718232429 SR. FC 03059 0

01846  M01S01644.1ta     +++|*         FC = *1RI* FUNCTION CODE.
01847  M01S01645.1ta     +++|*         SR = RESOURCE INCREMENT.
01848  M01S01646.1ta     +++|*
01849  M01S01647.1ta     +++|*         INCREMENT SRU LIMIT.
01850  M01S01648.1ta     +++|*
01851  M01S01649.1ta     +++|*         THE REQUESTED SRU INCREMENT IS PLACED IN THE ROLLOUT
01852  M01S01650.1ta     +++|*         FILE SYSTEM SECTOR FOR PROCESSING BY *1RI*, IF NO ERROR
01853  M01S01651.1ta     +++|*         ENCOUNTERED FROM READING/UPDATING THE ROLLOUT FILE.
01854  M01S01652.1ta     +++|*         IF A MASS STORAGE ERROR WAS ENCOUNTERED, AN ERROR CODE
01855  M01S01653.1ta     +++|*         IS RETURNED TO *IAF*.
01856  M01S01654.1ta     +++|
01857  M01S01655.1ta     +++|
01858  M01S01656.1ta     +++|          ENTRY  IRL         ENTRY
01859  M01S01657.1ta     +++|          RJM    STT         SET TERMINAL TABLE ADDRESS
01860  M01S01658.1ta     +++|          ADK    VUIT
01861  M01S01659.1ta     +++|          CRD    CN
01862  M01S01660.1ta     +++|          SFA    EJT,CN+4    SET EJT ENTRY ADDRESS
01863  M01S01661.1ta     +++|          ADN    SCHE
01864  M01S01662.1ta     +++|          CRD    CN
01865  M01S01663.1ta     +++|          LDN    SYSN        SET TO READ SYSTEM SECTOR AND CPA
01866  M01S01664.1ta     +++|          RJM    RRF         READ ROLLOUT FILE
01867  M01S01665.1ta     +++|          NJN    IRL1        IF NO ERROR ON READ
01868  M01S01666.1ta     +++|          LJM    IRL6        RETURN ERROR CODE AND EXIT
01869  M01S01667.1ta     +++|
01870  M01S01668.1ta     +++| IRL1     LDD    IR+4        SET REQUEST POT POINTER
01871  M01S01669.1ta     +++|          STD    PP
01872  M01S01670.1ta     +++|          RJM    SPA         READ REQUEST POT
01873  M01S01671.1ta     +++|          CRD    CM
01874  M01S01672.1ta     +++|          LDD    CM+4        SET REQUEST IN SYSTEM SECTOR
01875  M01S01673.1ta     +++|          STM    SRSS+4
01876  M01S01674.1ta     +++|          LDD    CM+3
01877  M01S01675.1ta     +++|          STM    SRSS+3
01878  M01S01676.1ta     +++|          SHN    -6
01879  M01S01677.1ta     +++|          LMN    RLIT
01880  M01S01678.1ta     +++|          NJN    IRL3        IF NOT TIME LIMIT REQUEST
01881  M01S01679.1ta     +++|          LDM    CBUF+2+SRUW*5  CHECK FOR VALIDATION LIMIT
01882  M01S01680.1ta     +++|          LPC    5777        CLEAR TIME LIMIT EXCEEDED FLAG
01883  M01S01681.1ta     +++|          STM    CBUF+2+SRUW*5
01884  M01S01682.1ta     +++|          SHN    6
01885  M01S01683.1ta     +++|          PJN    IRL3        IF NOT VALIDATION LIMIT
01886  M01S01684.1ta     +++| IRL2     RJM    ERX         ERROR EXIT
01887  M01S01685.1ta     +++| IRL3     LDM    CBUF+2+SRUW*5  CHECK FOR SRU VALIDATION LIMIT
01888  M01S01686.1ta     +++|          LPC    7377        CLEAR SRU LIMIT FLAG
01889  M01S01687.1ta     +++|          STM    CBUF+2+SRUW*5
01890  M01S01688.1ta     +++|          SHN    10
01891  M01S01689.1ta     +++|          MJN    IRL2        IF VALIDATION LIMIT SET
01892  M01S01690.1ta     +++|          SETMS  IO,(RW),BFMS
01893  M01S01691.1ta     +++|          LDN    0           SET SECTOR
01894  M01S01692.1ta     +++|          STD    T7
01895  M01S01693.1ta     +++|          LDC    BFMS+WCSF   REWRITE SYSTEM SECTOR
01896  M01S01694.1ta     +++|          STM    WDSE
01897  M01S01695.1ta     +++|          RJM    WDS
01898  M01S01696.1ta     +++|          MJN    IRL6        IF MASS STORAGE ERROR ENCOUNTERED
01899  M01S01697.1ta     +++|          LDM    CBUF        REWRITE CONTROL POINT AREA
01900  M01S01698.1ta     +++|          SBN    1
01901  M01S01699.1ta     +++|          STD    T7
01902  M01S01700.1ta     +++|          LDC    CBUF+WLSF   WRITE CONTROL POINT AREA SECTOR
01903  M01S01701.1ta     +++|          RJM    WDS
01904  M01S01702.1ta     +++| IRL5     MJN    IRL6        IF MASS STORAGE ERROR ENCOUNTERED
01905  M01S01703.1ta     +++|          ENDMS
01906  M01S01704.1ta     +++|          RJM    STT         SET TERMINAL TABLE COMPLETE
01907  M01S01705.1ta     +++|          ADK    VROT
01908  M01S01706.1ta     +++|          CRD    CN
01909  M01S01707.1ta     +++|          AOD    CN+4
01910  M01S01708.1ta     +++|          RJM    STT
01911  M01S01709.1ta     +++|          ADK    VROT
01912  M01S01710.1ta     +++|          CWD    CN
01913  M01S01711.1ta     +++|          LJM    ITAX        EXIT
01914  M01S01712.1ta     +++|
01915  M01S01713.1ta     +++| IRL6     LDN    20          INDICATE MASS STORAGE ERROR ENCOUNTERED
01916  M01S01714.1ta     +++|          STD    CN+4
01917  M01S01715.1ta     +++|          RJM    SPA
01918  M01S01716.1ta     +++|          ADN    VUTA
01919  M01S01717.1ta     +++|          CWD    CN
01920  M01S01718.1ta     +++|          RJM    ERX         EXIT (TO *ITAX*)
01921  M01S01719.1ta     +++|          SPACE  4,10,10
01922  M01S01720.1ta     +++|**        COMMON DECKS.
01923  M01S01721.1ta     +++|
01924  M01S01722.1ta     +++| TLI$     SET    1           SELECT TIME LIMIT CONVERSION
01925  M01S01723.1ta     +++|*CALL     COMPCVI
01926  M01S01724.1ta     +++|          SPACE  4,10
01927  M01S01725.1ta     +++|**        TEST FOR OVERFLOW.
01928  M01S01726.1ta     +++|
01929  M01S01727.1ta     +++|
01930  M01S01728.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
01931  M01S01729.1ta     +++|
01932  M01S01730.1ta     +++|
01933  M01S01731.1ta     +++|          ERRMI  CBUF-*      OVERFLOW INTO BUFFER AREA
01934  M01S01732.1ta     +++|          SPACE  4,10,10
01935  M01S01733.1ta     +++| RJS      OVERLAY  (RETURN JOB STATUS.)
01936  M01S01734.1ta     +++| RJS      SPACE  4,25
01937  M01S01735.1ta     +++|***       RJS - RETURN JOB STATUS.
01938  M01S01736.1ta     +++|*
01939  M01S01737.1ta     +++|*T,IR     24/ ,12/ FC,12/ TN,12/ PP.
Figure IR

01112232429 PP. TN FC30353659 FC

01940  M01S01738.1ta     +++|*
01941  M01S01739.1ta     +++|*         FC = FUNCTION CODE.
01942  M01S01740.1ta     +++|*         TN = TERMINAL NUMBER.
01943  M01S01741.1ta     +++|*         PP = POT POINTER.
01944  M01S01742.1ta     +++|*
01945  M01S01743.1ta     +++|*         RETURN JOB STATUS.
01946  M01S01744.1ta     +++|*
01947  M01S01745.1ta     +++|*                CALLED TO RETURN THE CURRENT JOB STATUS FOR
01948  M01S01746.1ta     +++|*                THE *ENQUIRE* COMMAND.
01949  M01S01747.1ta     +++|*
01950  M01S01748.1ta     +++|*                IF POSSIBLE THE CONTENTS OF THE CONTROL
01951  M01S01749.1ta     +++|*                POINT MESSAGE BUFFER (MS1W) IS RETURNED.  IF MS2W
01952  M01S01750.1ta     +++|*                IS AVAILABLE, IT IS RETURNED INSTEAD OF MS1W.
01953  M01S01751.1ta     +++|*
01954  M01S01752.1ta     +++|*                IF THE MESSAGE CANNOT BE READ BECAUSE THE
01955  M01S01753.1ta     +++|*                FNT INTERLOCK IS SET AN ERROR STATUS IS
01956  M01S01754.1ta     +++|*                RETURNED.
01957  M01S01755.1ta     +++|*
01958  M01S01756.1ta     +++|*                *VROT* COMPLETION BIT NOT USED.
01959  M01S01757.1ta     +++|*
01960  M01S01758.1ta     +++|*         ENTRY  (CN - CN+4) = TERMINAL TABLE WORD VROT.
01961  M01S01759.1ta     +++|
01962  M01S01760.1ta     +++|
01963  M01S01761.1ta     +++|          ENTRY  RJS
01964  M01S01762.1ta     +++|          LDN    0           CLEAR MESSAGE FLAG
01965  M01S01763.1ta     +++|          STD    MF
01966  M01S01764.1ta     +++|          LDD    IR+4
01967  M01S01765.1ta     +++|          STD    PP
Line S01766 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01968  M02S01766.271l716 ---|          LDN    MS2W-MS1W+IN0W-MS2W  SET MS1W + MS2W LENGTH
01969  M01S00030.271l716 +++|          LDN    MS2W-MS1W+IN0W-MS2W  SET *MS1W* + *MS2W* LENGTH
01970  M01S01767.1ta     +++|          STD    PW
01971  M01S01768.1ta     +++|          RJM    STT         SET TERMINAL TABLE ADDRESS
01972  M01S01769.1ta     +++|          ADK    VUIT
01973  M01S01770.1ta     +++|          CRD    CN
01974  M01S01771.1ta     +++|          SFA    EJT,CN+4
01975  M01S01772.1ta     +++|          STM    RJSD+1
01976  M01S01773.1ta     +++|          STD    CM+4
01977  M01S01774.1ta     +++|          SHN    -14
01978  M01S01775.1ta     +++|          STD    CM+3
01979  M01S01776.1ta     +++|          ADK    LDCI
01980  M01S01777.1ta     +++|          STM    RJSD
01981  M01S01778.1ta     +++|          LDN    0           SET INTERLOCK ON EJT
01982  M01S01779.1ta     +++|          STD    CM+1
01983  M01S01780.1ta     +++|          STD    CM+2
01984  M01S01781.1ta     +++|          MONITOR  UTEM
01985  M01S01782.1ta     +++|          LDD    CM+1
01986  M01S01783.1ta     +++|          ZJN    RJS1        IF INTERLOCKED
01987  M01S01784.1ta     +++|          LDN    0
01988  M01S01785.1ta     +++|          STD    CM+1
01989  M01S01786.1ta     +++|          LJM    RJS10       RETURN ERROR STATUS
01990  M01S01787.1ta     +++|
01991  M01S01788.1ta     +++| RJS1     LDM    RJSD
01992  M01S01789.1ta     +++|          LPN    77
01993  M01S01790.1ta     +++|          SHN    14
01994  M01S01791.1ta     +++|          ADM    RJSD+1
01995  M01S01792.1ta     +++|          ADK    JSNE
01996  M01S01793.1ta     +++|          CRD    CM           READ EJT ENTRY
01997  M01S01794.1ta     +++|          ADN    SCHE-JSNE
01998  M01S01795.1ta     +++|          CRD    CN
01999  M01S01796.1ta     +++|          LDD    CM+4
02000  M01S01797.1ta     +++|          LPN    76
02001  M01S01798.1ta     +++|          LMN    EXJS*2
Line S01799 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02002  M02S01799.271l716 ---|          NJN    RJS2        IF NOT AT A CONTROL POINT
02003  M01S00031.271l716 +++|          NJN    RJS1.2      IF NOT AT A CONTROL POINT
02004  M01S01800.1ta     +++|          LDD    CN+3        CP NUMBER
02005  M01S01801.1ta     +++|          SHN    7           SET CP ADDRESS
Line S01802 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02006  M02S01802.271l716 ---|          ADN    MS1W        READ MS1W AND MS2W
02007  M01S00032.271l716 +++| RJS1.1   ADN    MS1W        READ *MS1W* AND *MS2W*
02008  M01S01803.1ta     +++|          CRM    CBUF+2+MS1W*5,PW
Line S01804 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02009  M02S01804.271l716 ---|          ADN    SRUW-IN0W   GET CPA
02010  M01S00033.271l716 +++|          ADN    SRUW-IN0W   READ *SRUW*
02011  M01S01805.1ta     +++|          CRM    CBUF+2+SRUW*5,ON
Line S01806 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02012  M02S01806.271l716 ---|          UJN    RJS3        SET MESSAGE IN POT
02013  M01S00034.271l716 +++|          LJM    RJS3        SET MESSAGE IN POT
02014  M01S01807.1ta     +++|
Line S01808 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02015  M02S01808.271l716 ---| RJS2     LMN    SWJS*2&EXJS*2
02016  M01S00035.271l716 +++| RJS1.2   LMN    PCJS*2&EXJS*2
02017  M01S00036.271l716 +++|          NJN    RJS2        IF NOT AT A PSEUDO CONTROL POINT
Line S00037 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02018  M02S00037.273l780 ---|          LCPA   0,CN+1
02019  M01S00030.273l780 +++|          LDD    CN+1        SET PCP ADDRESS
02020  M01S00031.273l780 +++|          RJM    CCA
02021  M01S00038.271l716 +++|          UJN    RJS1.1      READ PCPA FIELDS
02022  M01S00039.271l716 +++|
02023  M01S00040.271l716 +++| RJS2     LMN    SWJS*2&PCJS*2
02024  M01S01809.1ta     +++|          NJN    RJS2.1      IF NOT SERVICE WAIT STATUS
02025  M01S01810.1ta     +++|          STM    RJSG
02026  M01S01811.1ta     +++| RJS2.1   LDC    CPSN        READ CP AREA
02027  M01S01812.1ta     +++|          RJM    RRF         READ ROLLOUT FILE
02028  M01S01813.1ta     +++|          NJN    RJS3        IF NO ERROR
02029  M01S01814.1ta     +++|          LDC    CBUF+2+MS2W*5  RETURN ERROR MESSAGE IN *MS2W*
02030  M01S01815.1ta     +++|          STM    RJSC
02031  M01S01816.1ta     +++|          LDN    IN0W-MS2W+1  SET *MS2W* MESSAGE LENGTH
02032  M01S01817.1ta     +++|          STD    PW
02033  M01S01818.1ta     +++|          LDD    MA
02034  M01S01819.1ta     +++|          CWM    RJSF,PW
02035  M01S01820.1ta     +++|          SBD    PW
02036  M01S01821.1ta     +++|          CRM    CBUF+2+MS2W*5,PW  *WAITING - DEVICE INACCESSIBLE.*
02037  M01S01822.1ta     +++|          LDN    ZERL        CLEAR *SRUW* WORD
02038  M01S01823.1ta     +++|          CRM    CBUF+2+SRUW*5,ON
02039  M01S01824.1ta     +++|          LDN    VCPC-1      *SRUW* OFFSET
02040  M01S01825.1ta     +++|          SBD    PW
02041  M01S01826.1ta     +++|          STD    T7
02042  M01S01827.1ta     +++|          LJM    RJS9        PUT MESSAGE IN *MS2W* AND RETURN
02043  M01S01828.1ta     +++|
02044  M01S01829.1ta     +++| RJS3     LDC    *
02045  M01S01830.1ta     +++| RJSG     EQU    *-1
02046  M01S01831.1ta     +++|          NJN    RJS3.1      IF NOT SERVICE WAIT STATUS
02047  M01S01832.1ta     +++|          LDN    IN0W-MS2W+1 SET *MS2W* MESSAGE LENGTH
02048  M01S01833.1ta     +++|          STD    PW
02049  M01S01834.1ta     +++|          LDD    MA
02050  M01S01835.1ta     +++|          CWM    RJSH,PW
02051  M01S01836.1ta     +++|          SBD    PW
02052  M01S01837.1ta     +++|          CRM    CBUF+2+MS2W*5,PW  *WAITING - SERVICE LIMIT.*
02053  M01S01838.1ta     +++|          UJN    RJS3.2      CONTINUE
02054  M01S01839.1ta     +++|
02055  M01S01840.1ta     +++| RJS3.1   LDM    CBUF+2+MS2W*5
Line S01841 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02056  M02S01841.271l716 ---|          ZJN    RJS4        IF NO MS2W MESSAGE
Line S01842 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02057  M02S01842.271l716 ---| RJS3.2   LDC    CBUF+2+MS2W*5  USE MS2W MESSAGE
02058  M01S00041.271l716 +++|          ZJN    RJS4        IF NO *MS2W* MESSAGE
02059  M01S00042.271l716 +++| RJS3.2   LDC    CBUF+2+MS2W*5  USE *MS2W* MESSAGE
02060  M01S01843.1ta     +++|          STM    RJSC
02061  M01S01844.1ta     +++|          SBN    1
02062  M01S01845.1ta     +++|          STM    RJSA
02063  M01S01846.1ta     +++|          LDC    CBUF+2+IN0W*5-1
02064  M01S01847.1ta     +++|          STM    RJSB
02065  M01S01848.1ta     +++|          ADN    1
02066  M01S01849.1ta     +++|          STM    RJSE
02067  M01S01850.1ta     +++|          LDN    IN0W-MS2W+1
Line S01851 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02068  M02S01851.271l716 ---|          UJN    RJS5        SET MS2W MESSAGE LENGTH
02069  M01S00043.271l716 +++|          UJN    RJS5        SET *MS2W* MESSAGE LENGTH
02070  M01S01852.1ta     +++|
Line S01853 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02071  M02S01853.271l716 ---| RJS4     LDK    MS2W-MS1W+1  SET MS1W MESSAGE LENGTH
02072  M01S00044.271l716 +++| RJS4     LDK    MS2W-MS1W+1  SET *MS1W* MESSAGE LENGTH
02073  M01S01854.1ta     +++| RJS5     STD    PW
02074  M01S01855.1ta     +++|          LDN    VCPC-1
02075  M01S01856.1ta     +++|          SBD    PW
02076  M01S01857.1ta     +++|          STD    T7
02077  M01S01858.1ta     +++|          LDK    ZERL        ASSURE EOL IN AREA TO WRITE TO POT
02078  M01S01859.1ta     +++|          CRM    CBUF+2+MS2W*5,ON
02079  M01S01860.1ta     +++| RJSE     EQU    *-1
02080  M01S01861.1ta     +++|*         CRM    CBUF+2+IN0W*5,ON
02081  M01S01862.1ta     +++|          LDC    CBUF+2+MS1W*5-1  SET MESSAGE POINTER
02082  M01S01863.1ta     +++| RJSA     EQU    *-1
02083  M01S01864.1ta     +++|*         LDC    CBUF+2+MS2W*5-1
02084  M01S01865.1ta     +++|          STD    CM
02085  M01S01866.1ta     +++| RJS6     AOD    CM
02086  M01S01867.1ta     +++| RJS7     LDC    CBUF+2+MS2W*5-1
02087  M01S01868.1ta     +++| RJSB     EQU    *-1
02088  M01S01869.1ta     +++|*         LDC    CBUF+2+IN0W*5-1
02089  M01S01870.1ta     +++|          SBD    CM
02090  M01S01871.1ta     +++|          ZJN    RJS8        IF END OF MESSAGE
02091  M01S01872.1ta     +++|          LDI    CM
02092  M01S01873.1ta     +++|          NJN    RJS6        IF NOT TERMINATOR
02093  M01S01874.1ta     +++|          AOD    CM
02094  M01S01875.1ta     +++|          LDN    0
02095  M01S01876.1ta     +++|          STI    CM          CLEAR MESSAGE BUFFER
02096  M01S01877.1ta     +++|          UJN    RJS7        LOOP
02097  M01S01878.1ta     +++|
02098  M01S01879.1ta     +++| RJS8     STM    CBUF+2+SRUW*5  CLEAR NON-ACCUMULATOR BITS
02099  M01S01880.1ta     +++|          LDM    CBUF+2+SRUW*5+1
02100  M01S01881.1ta     +++|          LPN    77
02101  M01S01882.1ta     +++|          STM    CBUF+2+SRUW*5+1
02102  M01S01883.1ta     +++| RJS9     RJM    SPA         SET POT ADDRESS
02103  M01S01884.1ta     +++|          CWM    CBUF+2+MS1W*5,PW  WRITE MESSAGE TO POT
02104  M01S01885.1ta     +++| RJSC     EQU    *-1
02105  M01S01886.1ta     +++|*         CWM    CBUF+2+MS2W*5,PW
02106  M01S01887.1ta     +++|          ADD    T7          WRITE SRU-S TO POT
02107  M01S01888.1ta     +++|          CWM    CBUF+2+SRUW*5,ON
02108  M01S01889.1ta     +++|          AOD    MF          SET MESSAGE FLAG
02109  M01S01890.1ta     +++|          LDN    ZERL
02110  M01S01891.1ta     +++|          CRD    CM
02111  M01S01892.1ta     +++|          LDC    *           CLEAR EJT INTERLOCK
02112  M01S01893.1ta     +++| RJSD     EQU    *-2         (EJT ENTRY ADDRESS)
02113  M01S01894.1ta     +++|          STD    CM+4
02114  M01S01895.1ta     +++|          SHN    -14
02115  M01S01896.1ta     +++|          STD    CM+3
02116  M01S01897.1ta     +++|          LDN    60
02117  M01S01898.1ta     +++|          STD    CM+1
02118  M01S01899.1ta     +++|          MONITOR  UTEM
02119  M01S01900.1ta     +++|          LDD    CM+1
02120  M01S01901.1ta     +++|          ZJN    RJS10       IF INTERLOCK CLEARED
02121  M01S01902.1ta     +++|          LDN    0           SET NO ERROR FLAG
02122  M01S01903.1ta     +++|          RJM    CHG         CONDITIONALLY HANG PP
02123  M01S01904.1ta     +++| RJS10    LDC    VSJS
02124  M01S01905.1ta     +++|          STD    CM
02125  M01S01906.1ta     +++|          LDD    MF          SET MESSAGE FLAG
02126  M01S01907.1ta     +++|          STD    CM+2
02127  M01S01908.1ta     +++|          LDD    PP          SET POT POINTER
02128  M01S01909.1ta     +++|          STD    CM+3
02129  M01S01910.1ta     +++|          LDD    TN          SET TERMINAL NUMBER
02130  M01S01911.1ta     +++|          STD    CM+4
02131  M01S01912.1ta     +++|          LDD    MA
02132  M01S01913.1ta     +++|          CWD    CM
Line S01914 Modification History
M01 (Added by) 1ta
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02133  M02S01914.271l716 ---| RJS11    MONITOR  TSEM
02134  M01S00045.271l716 +++| RJS11    LDK    ZERL
02135  M01S00046.271l716 +++|          CRD    CM
02136  M01S00047.271l716 +++|          MONITOR  TSEM
02137  M01S01915.1ta     +++|          LDD    CM+1
02138  M01S01916.1ta     +++|          ZJN    RJS13       IF *IAF* INACCESSIBLE OR ERROR
02139  M01S01917.1ta     +++|          LMC    7777
02140  M01S01918.1ta     +++|          NJN    RJS13       IF REQUEST COMPLETE
02141  M01S01919.1ta     +++|          PAUSE  ST
02142  M01S01920.1ta     +++|          LDC    3600        *TSEM* QUEUE FULL - DELAY AND RETRY
02143  M01S01921.1ta     +++|          STD    T1
02144  M01S01922.1ta     +++| RJS12    DELAY
02145  M01S01923.1ta     +++|          SOD    T1
02146  M01S01924.1ta     +++|          ZJN    RJS11       IF TIME TO REISSUE REQUEST
02147  M01S01925.1ta     +++|          UJN    RJS12       CONTINUE TO DELAY
02148  M01S01926.1ta     +++|
02149  M01S01927.1ta     +++| RJS13    LJM    ITAX        EXIT
02150  M01S01928.1ta     +++|
02151  M01S01929.1ta     +++| RJSF     DATA   C*WAITING - INACCESSIBLE DEVICE.*
02152  M01S01930.1ta     +++|          CON    0,0,0,0     TERMINATING EOL BYTE
02153  M01S01931.1ta     +++| RJSH     DATA   C*WAITING - SERVICE LIMIT.      *
02154  M01S01932.1ta     +++|          CON    0,0,0,0     TERMINATING EOL BYTE
02155  M01S01933.1ta     +++|          SPACE  4
02156  M01S01934.1ta     +++|**        TEST FOR OVERFLOW.
02157  M01S01935.1ta     +++|
02158  M01S01936.1ta     +++|          OVERFLOW  OVL,EPFW  OVERFLOW INTO DISK ERROR PROCESSOR
02159  M01S01937.1ta     +++|          END    1TA         TIMESHARING AUXILIARY PROCESSOR.
cdc/nos2.source/opl.opl871/deck/1ta.001.txt ยท Last modified: by 127.0.0.1