cdc:nos2.source:opl.opl871:deck:1ta.001
Deck 1TA Part 001
9 Modifications
Listing Sections
- Deck 1TA Start
- Deck 1TA Part 1 (Line 1717)
Source
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
| Line S01766 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01968 M01S01766.271l716 ---| LDN MS2W-MS1W+IN0W-MS2W SET MS1W + MS2W LENGTH
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S01799 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02002 M01S01799.271l716 ---| NJN RJS2 IF NOT AT A CONTROL POINT
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S01802 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02006 M01S01802.271l716 ---| ADN MS1W READ MS1W AND MS2W
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02007 M01S00032.271l716 +++| RJS1.1 ADN MS1W READ *MS1W* AND *MS2W* 02008 M00S01803.1ta +++| CRM CBUF+2+MS1W*5,PW
| Line S01804 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02009 M01S01804.271l716 ---| ADN SRUW-IN0W GET CPA
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02010 M01S00033.271l716 +++| ADN SRUW-IN0W READ *SRUW* 02011 M00S01805.1ta +++| CRM CBUF+2+SRUW*5,ON
| Line S01806 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02012 M01S01806.271l716 ---| UJN RJS3 SET MESSAGE IN POT
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02013 M01S00034.271l716 +++| LJM RJS3 SET MESSAGE IN POT 02014 M00S01807.1ta +++|
| Line S01808 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02015 M01S01808.271l716 ---| RJS2 LMN SWJS*2&EXJS*2
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 02018 M02S00037.273l780 ---| LCPA 0,CN+1
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 02019 M01S00030.273l780 +++| LDD CN+1 SET PCP ADDRESS 02020 M01S00031.273l780 +++| RJM CCA
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S01841 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
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
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S01851 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02068 M01S01851.271l716 ---| UJN RJS5 SET MS2W MESSAGE LENGTH
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02069 M01S00043.271l716 +++| UJN RJS5 SET *MS2W* MESSAGE LENGTH 02070 M00S01852.1ta +++|
| Line S01853 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02071 M01S01853.271l716 ---| RJS4 LDK MS2W-MS1W+1 SET MS1W MESSAGE LENGTH
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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
| Line S01914 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 02133 M01S01914.271l716 ---| RJS11 MONITOR TSEM
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
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.
cdc/nos2.source/opl.opl871/deck/1ta.001.txt · Last modified: by 127.0.0.1