cdc:nos2.source:opl.opl871:deck:lidou.001
Deck LIDOU Part 001
2 Modifications
Listing Sections
- Deck LIDOU Start
- Deck LIDOU Part 1 (Line 1807)
Source
Seq # *Modification Id* Act ----------------------------+ 01807 M00S01759.lidou +++| SLF SUBR ENTRY/EXIT 01808 M00S01760.lidou +++| MX4 -6 01809 M00S01761.lidou +++| RJ POP GET NEXT PARAMETER 01810 M00S01762.lidou +++| SB2 B0 CLEAR FLAGS 01811 M00S01763.lidou +++| SB3 B0 01812 M00S01764.lidou +++| SB4 B0 01813 M00S01765.lidou +++| SB5 B0 01814 M00S01766.lidou +++| SB7 B0 CLEAR ERROR RESPONSE 01815 M00S01767.lidou +++| SX5 B0 CLEAR ATTRIBUTE MASK 01816 M00S01768.lidou +++| ZR X6,SLF8 IF NO CHARACTERS 01817 M00S01769.lidou +++| SLF1 LX6 6 SHIFT CHARACTER 01818 M00S01770.lidou +++| BX3 -X4*X6 01819 M00S01771.lidou +++| ZR X3,SLF8 IF NO MORE CHARACTERS 01820 M00S01772.lidou +++| SX2 X3-1RE 01821 M00S01773.lidou +++| ZR X2,SLF3 IF *E* 01822 M00S01774.lidou +++| SX7 X3-1RD 01823 M00S01775.lidou +++| ZR X7,SLF3 IF *D* 01824 M00S01776.lidou +++| SX2 X3-1RS 01825 M00S01777.lidou +++| ZR X2,SLF4 IF *S* 01826 M00S01778.lidou +++| SX7 X3-1RB 01827 M00S01779.lidou +++| ZR X7,SLF4 IF *B* 01828 M00S01780.lidou +++| SX2 X3-1RV 01829 M00S01781.lidou +++| ZR X2,SLF6 IF *V* 01830 M00S01782.lidou +++| SX2 X3-1RN 01831 M00S01783.lidou +++| ZR X2,SLF7 IF *N* 01832 M00S01784.lidou +++| SB7 MSIA * INCORRECT ATTTRIBUTE.* 01833 M00S01785.lidou +++| EQ PCM1 PROCESS ERROR 01834 M00S01786.lidou +++| 01835 M00S01787.lidou +++| SLF2 SB7 MSEA * ERROR IN ATTRIBUTE.* 01836 M00S01788.lidou +++| EQ PCM1 PROCESS ERROR 01837 M00S01789.lidou +++| 01838 M00S01790.lidou +++| SLF3 NZ B2,SLF2 IF SPECIFIED TWICE OR *E* AND *D* 01839 M00S01791.lidou +++| SB2 1 01840 M00S01792.lidou +++| NZ X2,SLF1 IF NOT *E* 01841 M00S01793.lidou +++| SB2 2 01842 M00S01794.lidou +++| SX5 X5+20B 01843 M00S01795.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01844 M00S01796.lidou +++| 01845 M00S01797.lidou +++| SLF4 NZ B3,SLF2 IF SPECIFIED TWICE OR *S* AND *B* 01846 M00S01798.lidou +++| SB3 1 01847 M00S01799.lidou +++| NZ X2,SLF5 IF NOT *S* 01848 M00S01800.lidou +++| SB3 2 01849 M00S01801.lidou +++| SX5 X5+10B 01850 M00S01802.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01851 M00S01803.lidou +++| 01852 M00S01804.lidou +++| SLF5 SX5 X5+2 01853 M00S01805.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01854 M00S01806.lidou +++| 01855 M00S01807.lidou +++| SLF6 NZ B4,SLF2 IF SPECIFIED TWICE 01856 M00S01808.lidou +++| SX5 X5+4 01857 M00S01809.lidou +++| SB4 B1+ 01858 M00S01810.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01859 M00S01811.lidou +++| 01860 M00S01812.lidou +++| SLF7 NZ B5,SLF2 IF SPECIFIED TWICE 01861 M00S01813.lidou +++| SX5 X5+1 01862 M00S01814.lidou +++| SB5 B1+ 01863 M00S01815.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01864 M00S01816.lidou +++| 01865 M00S01817.lidou +++| SLF8 SX6 X5 SET ATTRIBUTE MASK 01866 M00S01818.lidou +++| LX6 19 POSITION ATTRIBUTE MASK 01867 M00S01819.lidou +++| EQ SLFX RETURN 01868 M00S01820.lidou +++| SMF SPACE 4,15 01869 M00S01821.lidou +++|** SMF - SET MAINFRAME TYPE. 01870 M00S01822.lidou +++|* 01871 M00S01823.lidou +++|* EXIT TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR. 01872 M00S01824.lidou +++|* TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS. 01873 M00S01825.lidou +++|* (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS. 01874 M00S01826.lidou +++|* (CHDF) = 1, IF THE LID TABLE CHANGED. 01875 M00S01827.lidou +++|* (B7) = ADDRESS OF RESPONSE. 01876 M00S01828.lidou +++|* 01877 M00S01829.lidou +++|* USES X - 1, 4, 5, 6, 7. 01878 M00S01830.lidou +++|* A - 7. 01879 M00S01831.lidou +++|* B - 7. 01880 M00S01832.lidou +++|* 01881 M00S01833.lidou +++|* CALLS POP, SET, SFN. 01882 M00S01834.lidou +++| 01883 M00S01835.lidou +++| 01884 M00S01836.lidou +++| SMF RJ POP GET NEXT PARAMETER 01885 M00S01837.lidou +++| SX5 X1 SAVE SEPARATOR 01886 M00S01838.lidou +++| SB7 MSIM * INCORRECT MAINFRAME.* 01887 M00S01839.lidou +++| SX7 X6 01888 M00S01840.lidou +++| ZR X6,PCM1 IF NO MAINFRAME 01889 M00S01841.lidou +++| NZ X7,PCM1 IF MORE THAN SEVEN CHARACTERS 01890 M00S01842.lidou +++| MX4 42 SPACE FILL MAINFRAME DESCRIPTOR 01891 M00S01843.lidou +++| BX1 X6 01892 M00S01844.lidou +++| RJ SFN 01893 M00S01845.lidou +++| BX6 X4*X6 01894 M00S01846.lidou +++| SX7 20001B SET FUNCTION CODE AND PID COUNT 01895 M00S01847.lidou +++| ERRNZ SMFF-2 ADJUST VALUE IF CHANGED 01896 M00S01848.lidou +++| LX6 -18 POSITION MAINFRAME DESCRIPTOR 01897 M00S01849.lidou +++| RJ SET SET MAINFRAME 01898 M00S01850.lidou +++| SB7 MSMF * MAINFRAME NOT SET.* 01899 M00S01851.lidou +++| NZ X4,PCM1 IF ERROR 01900 M00S01852.lidou +++| SB7 MSCP * COMMAND PROCESSED.* 01901 M00S01853.lidou +++| SX7 B1 SET LID TABLE CHANGED FLAG 01902 M00S01854.lidou +++| SX1 X5 RESTORE SEPARATOR 01903 M00S01855.lidou +++| SA7 CHDF 01904 M00S01856.lidou +++| SX4 X1-1R. CHECK FOR MORE COMMAND 01905 M00S01857.lidou +++| ZR X1,PCM1 IF NO MORE COMMAND 01906 M00S01858.lidou +++| ZR X4,PCM1 IF NO MORE COMMAND 01907 M00S01859.lidou +++| EQ PCM5 CONTINUE PROCESSING COMMAND 01908 M00S01860.lidou +++| SNS SPACE 4,15 01909 M00S01861.lidou +++|** SNS - SET NETWORK STATUS. 01910 M00S01862.lidou +++|* 01911 M00S01863.lidou +++|* EXIT TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR. 01912 M00S01864.lidou +++|* TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS. 01913 M00S01865.lidou +++|* (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS. 01914 M00S01866.lidou +++|* (CHDF) = 1, IF THE LID TABLE CHANGED. 01915 M00S01867.lidou +++|* (B7) = ADDRESS OF RESPONSE. 01916 M00S01868.lidou +++|* 01917 M00S01869.lidou +++|* USES X - 0, 1, 4, 5, 6, 7. 01918 M00S01870.lidou +++|* A - 7. 01919 M00S01871.lidou +++|* B - 7. 01920 M00S01872.lidou +++|* 01921 M00S01873.lidou +++|* CALLS POP, SET. 01922 M00S01874.lidou +++| 01923 M00S01875.lidou +++| 01924 M00S01876.lidou +++| SNS MX0 -42 01925 M00S01877.lidou +++| RJ POP GET NEXT PARAMETER 01926 M00S01878.lidou +++| SB7 MSIP * INCORRECT SEPARATOR.* 01927 M00S01879.lidou +++| SX4 X1-1R, 01928 M00S01880.lidou +++| NZ X4,PCM1 IF SEPARATOR NOT *,* 01929 M00S01881.lidou +++| SB7 MSIN * INCORRECT NETWORK.* 01930 M00S01882.lidou +++| ZR X6,PCM1 IF NO NETWORK 01931 M00S01883.lidou +++| BX7 -X0*X6 01932 M00S01884.lidou +++| NZ X7,PCM1 IF MORE THAN THREE CHARACTERS 01933 M00S01885.lidou +++| LX6 18 POSITION NETWORK 01934 M00S01886.lidou +++| SX4 X6-3RNAM 01935 M00S01887.lidou +++| SX0 NANS 01936 M00S01888.lidou +++| ZR X4,SNS1 IF *NAM* 01937 M00S01889.lidou +++| SX4 X6-3RRHF 01938 M00S01890.lidou +++| SX0 RHNS 01939 M00S01891.lidou +++| ZR X4,SNS1 IF *RHF* 01940 M00S01892.lidou +++| SX4 X6-3RSSF 01941 M00S01893.lidou +++| SX0 SSNS 01942 M00S01894.lidou +++| ZR X4,SNS1 IF *SSF* 01943 M00S01895.lidou +++| SX4 X6-3RALL 01944 M00S01896.lidou +++| SX0 NANS+RHNS+SSNS 01945 M00S01897.lidou +++| ZR X4,SNS1 IF *ALL* 01946 M00S01898.lidou +++| EQ PCM1 PROCESS ERROR 01947 M00S01899.lidou +++| 01948 M00S01900.lidou +++| SNS1 SX4 2RNA CHECK FOR REST OF COMMAND 01949 M00S01901.lidou +++| RJ POP GET NEXT PARAMETER 01950 M00S01902.lidou +++| SB7 MSIP * INCORRECT SEPARATOR.* 01951 M00S01903.lidou +++| SX7 X1-1R= 01952 M00S01904.lidou +++| NZ X7,PCM1 IF SEPARATOR NOT *=* 01953 M00S01905.lidou +++| LX6 12 01954 M00S01906.lidou +++| SB7 MSIC * INCORRECT COMMAND.* 01955 M00S01907.lidou +++| BX4 X6-X4 01956 M00S01908.lidou +++| NZ X4,PCM1 IF PARAMETER NOT *NA* 01957 M00S01909.lidou +++| RJ POP GET NEXT PARAMETER 01958 M00S01910.lidou +++| MX4 -54 CHECK FOR ONLY ONE CHARACTER 01959 M00S01911.lidou +++| BX5 -X4*X6 01960 M00S01912.lidou +++| SB7 MSIS * INCORRECT STATUS.* 01961 M00S01913.lidou +++| NZ X5,PCM1 IF MORE THAN ONE CHARACTER 01962 M00S01914.lidou +++| BX4 X4*X6 01963 M00S01915.lidou +++| SX5 X1 SAVE SEPARATOR 01964 M00S01916.lidou +++| SX7 10001B SET FUNCTION CODE AND PID COUNT 01965 M00S01917.lidou +++| ERRNZ SNSF-1 ADJUST VALUE IF CHANGED 01966 M00S01918.lidou +++| SX6 B1+ SET ENABLE NETWORK STATUS 01967 M00S01919.lidou +++| LX4 6 RIGHT JUSTIFY CHARACTER 01968 M00S01920.lidou +++| LX6 12 01969 M00S01921.lidou +++| SX1 X4-1RE 01970 M00S01922.lidou +++| ZR X1,SNS2 IF ENABLED 01971 M00S01923.lidou +++| SX6 X6+10B SET DISABLE NETWORK STATUS 01972 M00S01924.lidou +++| SX1 X4-1RD 01973 M00S01925.lidou +++| NZ X1,PCM1 IF NOT DISABLED 01974 M00S01926.lidou +++| SNS2 LX0 -12 POSITION NETWORK IDENTIFIER 01975 M00S01927.lidou +++| BX7 X7+X0 ADD IN NETWORK IDENTIFIER 01976 M00S01928.lidou +++| RJ SET SET NETWORK 01977 M00S01929.lidou +++| NZ X4,PCM1 IF ERROR 01978 M00S01930.lidou +++| SB7 MSCP * COMMAND PROCESSED.* 01979 M00S01931.lidou +++| SX7 B1 LID TABLE CHANGED 01980 M00S01932.lidou +++| SX1 X5 RESTORE SEPARATOR 01981 M00S01933.lidou +++| SA7 CHDF 01982 M00S01934.lidou +++| SX4 X1-1R. CHECK FOR MORE COMMAND 01983 M00S01935.lidou +++| ZR X1,PCM1 IF NO MORE COMMAND 01984 M00S01936.lidou +++| ZR X4,PCM1 IF NO MORE COMMAND 01985 M00S01937.lidou +++| EQ PCM5 CONTINUE PROCESSING COMMAND 01986 M00S01938.lidou +++| SPA SPACE 4,20 01987 M00S01939.lidou +++|** SPA - SET PID ATTRIBUTE(S). 01988 M00S01940.lidou +++|* 01989 M00S01941.lidou +++|* EXIT TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR. 01990 M00S01942.lidou +++|* TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS. 01991 M00S01943.lidou +++|* (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS. 01992 M00S01944.lidou +++|* (CHDF) = 1, IF THE LID TABLE CHANGED. 01993 M00S01945.lidou +++|* (B7) = ADDRESS OF RESPONSE. 01994 M00S01946.lidou +++|* 01995 M00S01947.lidou +++|* USES X - ALL. 01996 M00S01948.lidou +++|* A - 1, 7. 01997 M00S01949.lidou +++|* B - 2, 3, 4, 5, 7. 01998 M00S01950.lidou +++|* 01999 M00S01951.lidou +++|* CALLS POP, SET. 02000 M00S01952.lidou +++|* 02001 M00S01953.lidou +++|* NOTE ATTRIBUTES *D* AND *E* CANNOT BE SPECIFIED TOGETHER 02002 M00S01954.lidou +++|* AND IF NEITHER IS SPECIFIED THE PRESENT STATUS WILL 02003 M00S01955.lidou +++|* BE USED. *V* MUST BE SPECIFIED ON THE HOST PID. 02004 M00S01956.lidou +++| 02005 M00S01957.lidou +++| 02006 M00S01958.lidou +++| SPA RJ POP GET NEXT PARAMETER 02007 M00S01959.lidou +++| SX5 X1 SAVE SEPARATOR 02008 M00S01960.lidou +++| BX3 X6 SAVE CHARACTERS 02009 M00S01961.lidou +++| SB2 B0+ CLEAR FLAGS 02010 M00S01962.lidou +++| SB3 B0+ 02011 M00S01963.lidou +++| SB4 B0 02012 M00S01964.lidou +++| SB5 B0 02013 M00S01965.lidou +++| SX6 B0 CLEAR ATTRIBUTE MASK 02014 M00S01966.lidou +++| ZR X3,SPA7 IF NO CHARACTERS 02015 M00S01967.lidou +++| MX0 -6 SET CHARACTER MASK 02016 M00S01968.lidou +++| SPA1 LX3 6 SHIFT CHARACTER 02017 M00S01969.lidou +++| BX1 -X0*X3 02018 M00S01970.lidou +++| ZR X1,SPA7 IF NO MORE CHARACTERS 02019 M00S01971.lidou +++| SX2 X1-1RE 02020 M00S01972.lidou +++| ZR X2,SPA3 IF *E* 02021 M00S01973.lidou +++| SX2 X1-1RD 02022 M00S01974.lidou +++| ZR X2,SPA4 IF *D* 02023 M00S01975.lidou +++| SX2 X1-1RV 02024 M00S01976.lidou +++| ZR X2,SPA5 IF *V* 02025 M00S01977.lidou +++| SX2 X1-1RN 02026 M00S01978.lidou +++| ZR X2,SPA6 IF *N* 02027 M00S01979.lidou +++| SB7 MSIA * INCORRECT ATTTRIBUTE.* 02028 M00S01980.lidou +++| EQ PCM1 PROCESS ERROR 02029 M00S01981.lidou +++| 02030 M00S01982.lidou +++| SPA2 SB7 MSEA * ERROR IN ATTRIBUTE.* 02031 M00S01983.lidou +++| EQ PCM1 PROCESS ERROR 02032 M00S01984.lidou +++| 02033 M00S01985.lidou +++| SPA3 NZ B2,SPA2 IF SPECIFIED TWICE 02034 M00S01986.lidou +++| SX6 X6+4 02035 M00S01987.lidou +++| SB2 B1+ 02036 M00S01988.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02037 M00S01989.lidou +++| 02038 M00S01990.lidou +++| SPA4 NZ B3,SPA2 IF SPECIFIED TWICE 02039 M00S01991.lidou +++| SB3 B1+ 02040 M00S01992.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02041 M00S01993.lidou +++| 02042 M00S01994.lidou +++| SPA5 NZ B4,SPA2 IF SPECIFIED TWICE 02043 M00S01995.lidou +++| SX6 X6+2 02044 M00S01996.lidou +++| SB4 B1+ 02045 M00S01997.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02046 M00S01998.lidou +++| 02047 M00S01999.lidou +++| SPA6 NZ B5,SPA2 IF SPECIFIED TWICE 02048 M00S02000.lidou +++| SX6 X6+1 02049 M00S02001.lidou +++| SB5 B1+ 02050 M00S02002.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02051 M00S02003.lidou +++| 02052 M00S02004.lidou +++| SPA7 SA1 PARB+2 GET PID ATTRIBUTES 02053 M00S02005.lidou +++| SA1 X1 02054 M00S02006.lidou +++| LX1 59-41 02055 M00S02007.lidou +++| NZ B4,SPA8 IF *V* SPECIFIED 02056 M00S02008.lidou +++| NG X1,SPA2 IF *V* NOT SPECIFIED ON HOST 02057 M00S02009.lidou +++| SPA8 SX7 B1 SET FUNCTION CODE AND PID COUNT 02058 M00S02010.lidou +++| ERRNZ SPAF-0 ADJUST VALUE IF CHANGED 02059 M00S02011.lidou +++| SB4 B2+B3 CHECK FOR *D* OR *E* 02060 M00S02012.lidou +++| GT B4,B1,SPA2 IF BOTH SPECIFIED 02061 M00S02013.lidou +++| NZ B4,SPA9 IF EITHER SPECIFIED 02062 M00S02014.lidou +++| LX1 59-40-59+41 02063 M00S02015.lidou +++| SB7 MSNC * PID NOT ALTERED.* 02064 M00S02016.lidou +++| PL X1,SPA9 IF DISABLED 02065 M00S02017.lidou +++| SX6 X6+4 SET ENABLED BIT 02066 M00S02018.lidou +++| SPA9 LX6 9 POSITION ATTRIBUTES 02067 M00S02019.lidou +++| RJ SET 02068 M00S02020.lidou +++| NZ X4,PCM1 IF ERROR 02069 M00S02021.lidou +++| SB7 MSCP * COMMAND PROCESSED.* 02070 M00S02022.lidou +++| SX7 B1 SET LID TABLE CHANGED FLAG 02071 M00S02023.lidou +++| SX1 X5 RESTORE SEPARATOR 02072 M00S02024.lidou +++| SA7 CHDF 02073 M00S02025.lidou +++| SX4 X1-1R. CHECK FOR MORE COMMAND 02074 M00S02026.lidou +++| ZR X1,PCM1 IF NO MORE COMMAND 02075 M00S02027.lidou +++| ZR X4,PCM1 IF NO MORE COMMAND 02076 M00S02028.lidou +++| EQ PCM5 CONTINUE PROCESSING COMMAND 02077 M00S02029.lidou +++| STL SPACE 4,15 02078 M00S02030.lidou +++|** STL - SEARCH TABLE FOR LID. 02079 M00S02031.lidou +++|* 02080 M00S02032.lidou +++|* ENTRY (X6) = LID, LEFT JUSTIFIED. 02081 M00S02033.lidou +++|* (X2) = 42 BIT MASK, LEFT JUSTIFIED. 02082 M00S02034.lidou +++|* (PARB+2) = PID ADDRESS (IN *LIDI*) 02083 M00S02035.lidou +++|* 02084 M00S02036.lidou +++|* 02085 M00S02037.lidou +++|* EXIT (X0) = ZERO, IF LID FOUND IN TABLE. 02086 M00S02038.lidou +++|* = NONZERO, IF LID NOT FOUND. 02087 M00S02039.lidou +++|* (A5) = ADDRESS OF LID ENTRY, IF FOUND. 02088 M00S02040.lidou +++|* (A0) = LID. 02089 M00S02041.lidou +++|*
| Line S02042 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02090 M01S02042.241l630 ---|* USES X - 0, 3, 4, 5.
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02091 M01S00048.241l630 +++|* USES X - 0, 3, 4, 5, 6. 02092 M00S02043.lidou +++|* A - 0, 5. 02093 M00S02044.lidou +++| 02094 M00S02045.lidou +++| 02095 M00S02046.lidou +++| STL SUBR ENTRY/EXIT 02096 M00S02047.lidou +++| SA5 PARB+2 GET PID ADDRESS 02097 M00S02048.lidou +++| SA5 X5+B1 02098 M00S02049.lidou +++| MX3 18 02099 M00S02050.lidou +++| LX6 18 SAVE LID 02100 M00S02051.lidou +++| SA0 X6+ 02101 M00S02052.lidou +++| LX6 -18 02102 M00S02053.lidou +++| STL1 BX5 X3*X5 CHECK FOR MATCH 02103 M00S02054.lidou +++| BX0 X6-X5 02104 M00S02055.lidou +++| ZR X0,STLX IF MATCH 02105 M00S02056.lidou +++| STL2 SA5 A5+B1 GET NEXT ENTRY 02106 M00S02057.lidou +++| ZR X5,STLX IF END OF TABLE 02107 M00S02058.lidou +++| BX4 -X2*X5 CHECK FOR PID 02108 M00S02059.lidou +++| NZ X4,STLX IF PID 02109 M00S02060.lidou +++| EQ STL1 CHECK NEXT LID 02110 M00S02061.lidou +++| STP SPACE 4,10 02111 M00S02062.lidou +++|** STP - SEARCH TABLE FOR PID. 02112 M00S02063.lidou +++|* 02113 M00S02064.lidou +++|* ENTRY (X6) = PID, LEFT JUSTIFIED. 02114 M00S02065.lidou +++|* 02115 M00S02066.lidou +++|* EXIT (X2) = ZERO, IF PID FOUND IN TABLE. 02116 M00S02067.lidou +++|* = NONZERO, IF PID NOT FOUND. 02117 M00S02068.lidou +++|* (A5) = ADDRESS OF PID ENTRY, IF FOUND. 02118 M00S02069.lidou +++|* 02119 M00S02070.lidou +++|* USES X - 0, 2, 3, 4, 5. 02120 M00S02071.lidou +++|* A - 5. 02121 M00S02072.lidou +++| 02122 M00S02073.lidou +++| 02123 M00S02074.lidou +++| STP SUBR ENTRY/EXIT 02124 M00S02075.lidou +++| SA5 LIDI+1 02125 M00S02076.lidou +++| MX0 -18 02126 M00S02077.lidou +++| MX3 18 02127 M00S02078.lidou +++| STP1 BX5 X3*X5 CHECK FOR MATCH 02128 M00S02079.lidou +++| BX2 X6-X5 02129 M00S02080.lidou +++| ZR X2,STPX IF MATCH 02130 M00S02081.lidou +++| STP2 SA5 A5+B1 GET NEXT ENTRY 02131 M00S02082.lidou +++| ZR X5,STPX IF END OF TABLE 02132 M00S02083.lidou +++| BX4 -X0*X5 CHECK FOR PID 02133 M00S02084.lidou +++| NZ X4,STP1 IF PID 02134 M00S02085.lidou +++| EQ STP2 CHECK NEXT ENTRY 02135 M00S02086.lidou +++| THD SPACE 4,15 02136 M00S02087.lidou +++|** THD - TOGGLE TO HELP DISPLAY. 02137 M00S02088.lidou +++|* 02138 M00S02089.lidou +++|* EXIT TO *PCM1* IF *L* DISPLAY NOT ACTIVE. 02139 M00S02090.lidou +++|* TO *PCM3* WITH HELP FLAG SET. 02140 M00S02091.lidou +++|* (B7) = 0, IF DISPLAY ACTIVE. 02141 M00S02092.lidou +++|* 02142 M00S02093.lidou +++|* USES X - 5, 6. 02143 M00S02094.lidou +++|* A - 5, 6. 02144 M00S02095.lidou +++|* B - 7. 02145 M00S02096.lidou +++| 02146 M00S02097.lidou +++| 02147 M00S02098.lidou +++| THD SA5 LDSF CHECK IF *L* DISPLAY ACTIVE 02148 M00S02099.lidou +++| SB7 MSIC * INCORRECT COMMAND.* 02149 M00S02100.lidou +++| ZR X5,PCM1 IF INCORRECT COMMAND FOR INPUT FILE 02150 M00S02101.lidou +++| SX6 B1 SET HELP DISPLAY REQUESTED
| Line S02102 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02151 M01S02102.241l630 ---| SB7 B0 FORMAT DEFAULT MESSAGE
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02152 M01S00049.241l630 +++| SB7 B0 CLEAR ERROR MESSAGE 02153 M00S02103.lidou +++| SA6 HLPF 02154 M00S02104.lidou +++| EQ PCM3 PROCESS NEXT COMMAND 02155 M00S02105.lidou +++| TLD SPACE 4,15 02156 M00S02106.lidou +++|** TLD - TOGGLE TO LID DISPLAY. 02157 M00S02107.lidou +++|* 02158 M00S02108.lidou +++|* EXIT TO *PCM1* IF *L* DISPLAY NOT ACTIVE. 02159 M00S02109.lidou +++|* TO *PCM3* WITH HELP FLAG CLEARED. 02160 M00S02110.lidou +++|* (B7) = 0, IF DISPLAY ACTIVE. 02161 M00S02111.lidou +++|* 02162 M00S02112.lidou +++|* USES X - 5, 6. 02163 M00S02113.lidou +++|* A - 5, 6. 02164 M00S02114.lidou +++|* B - 7. 02165 M00S02115.lidou +++| 02166 M00S02116.lidou +++| 02167 M00S02117.lidou +++| TLD SA5 LDSF CHECK IF *L* DISPLAY ACTIVE 02168 M00S02118.lidou +++| SB7 MSIC * INCORRECT COMMAND.* 02169 M00S02119.lidou +++| ZR X5,PCM1 IF INCORRECT COMMAND FOR INPUT FILE 02170 M00S02120.lidou +++| SX6 B0 CLEAR HELP DISPLAY REQUESTED
| Line S02121 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02171 M01S02121.241l630 ---| SB7 B0 FORMAT DEFAULT MESSAGE
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02172 M01S00050.241l630 +++| SB7 B0 CLEAR ERROR MESSAGE 02173 M00S02122.lidou +++| SA6 HLPF 02174 M00S02123.lidou +++| EQ PCM3 PROCESS NEXT COMMAND 02175 M00S02124.lidou +++| SPACE 4,10 02176 M00S02125.lidou +++|* COMMON DECKS. 02177 M00S02126.lidou +++| 02178 M00S02127.lidou +++|*CALL COMCCIO 02179 M00S02128.lidou +++|*CALL COMCCOD 02180 M00S02129.lidou +++|*CALL COMCCPM 02181 M00S02130.lidou +++|*CALL COMCFLD 02182 M00S02131.lidou +++|*CALL COMCLFM 02183 M00S02132.lidou +++|*CALL COMCPOP 02184 M00S02133.lidou +++|*CALL COMCRDS 02185 M00S02134.lidou +++|*CALL COMCRDW 02186 M00S02135.lidou +++|*CALL COMCSFM 02187 M00S02136.lidou +++|*CALL COMCSFN 02188 M00S02137.lidou +++|*CALL COMCSYS 02189 M00S02138.lidou +++|*CALL COMCUSB 02190 M00S02139.lidou +++|*CALL COMCWOD 02191 M00S02140.lidou +++|*CALL COMCWTC 02192 M00S02141.lidou +++|*CALL COMCWTS 02193 M00S02142.lidou +++|*CALL COMCWTH 02194 M00S02143.lidou +++|*CALL COMCWTO 02195 M00S02144.lidou +++|*CALL COMCWTW 02196 M00S02145.lidou +++|*CALL COMCZTB 02197 M00S02146.lidou +++| TITLE BUFFERS. 02198 M00S02147.lidou +++| SPACE 4,10 02199 M00S02148.lidou +++|** BUFFERS. 02200 M00S02149.lidou +++| 02201 M00S02150.lidou +++| USE BUFFERS 02202 M00S02151.lidou +++| 02203 M00S02152.lidou +++| 02204 M00S02153.lidou +++| LIDI EQU * LID TABLE BUFFER 02205 M00S02154.lidou +++| LIDIE EQU LIDI+LIIL 02206 M00S02155.lidou +++| 02207 M00S02156.lidou +++| LBFO EQU LIDIE OUTPUT *L* DISPLAY BUFFER 02208 M00S02157.lidou +++| LBFOE EQU LBFO+LBOL 02209 M00S02158.lidou +++| 02210 M00S02159.lidou +++| LBFI EQU LBFOE INPUT *L* DISPLAY BUFFER 02211 M00S02160.lidou +++| LBFIE EQU LBFI+LBIL 02212 M00S02161.lidou +++| 02213 M00S02162.lidou +++| INPU EQU LBFIE INPUT BUFFER 02214 M00S02163.lidou +++| INPUE EQU INPU+INPL 02215 M00S02164.lidou +++| 02216 M00S02165.lidou +++| MFTB EQU INPUE MAINFRAME DESCRIPTOR BUFFER 02217 M00S02166.lidou +++| MFTBE EQU MFTB+MFTL 02218 M00S02167.lidou +++| 02219 M00S02168.lidou +++| OUTP EQU MFTBE OUTPUT BUFFER 02220 M00S02169.lidou +++| OUTPE EQU OUTP+OUTL 02221 M00S02170.lidou +++| TITLE PRESET. 02222 M00S02171.lidou +++| PRS SPACE 4,25 02223 M00S02172.lidou +++|** PRS - PRESET. 02224 M00S02173.lidou +++|* 02225 M00S02174.lidou +++|* EXIT SYSTEM ORIGIN CHECKED FOR, ABORT IF JOB IS NOT 02226 M00S02175.lidou +++|* SYSTEM ORIGIN. 02227 M00S02176.lidou +++|* INPUT AND OUTPUT FILES CHECKED IF *L* DISPLAY 02228 M00S02177.lidou +++|* NOT ACTIVE, ABORT IF NOT SPECIFED. 02229 M00S02178.lidou +++|* FILE NAME CONFLICT AND INPUT FILE EXISTENCE 02230 M00S02179.lidou +++|* CHECKED IF *L* DISPLAY NOT ACTIVE, ABORT IF ERROR. 02231 M00S02180.lidou +++|* *L* DISPLAY INPUT/OUTPUT BUFFER FIRST WORDS SET, 02232 M00S02181.lidou +++|* IF *L* DISPLAY IS ACTIVE. 02233 M00S02182.lidou +++|* (LDSF) = 1 IF *L* DISPLAY IS ACTIVE. 02234 M00S02183.lidou +++|* = 0 IF SPECIFIED FILES ARE ACTIVE. 02235 M00S02184.lidou +++|* (LCNT) = LINE COUNT FOR LISTINGS. 02236 M00S02185.lidou +++|* (NMLL) = SET FOR CONSOLE IN USE. 02237 M00S02186.lidou +++|* (CMRO) = SET FOR CONSOLE IN USE. 02238 M00S02187.lidou +++|* (CHDF) = 1. 02239 M00S02188.lidou +++|* (IND1) = 1. 02240 M00S02189.lidou +++|* (HLPF) = 0. 02241 M00S02190.lidou +++|* 02242 M00S02191.lidou +++|* CALLS ARG. 02243 M00S02192.lidou +++|* 02244 M00S02193.lidou +++|* MACROS ABORT, FILINFO, GETJN, GETPP, MESSAGE, SETFS, 02245 M00S02194.lidou +++|* SYSTEM, WRITE. 02246 M00S02195.lidou +++| 02247 M00S02196.lidou +++| 02248 M00S02197.lidou +++| PRS SUBR ENTRY/EXIT 02249 M00S02198.lidou +++| SB1 1 02250 M00S02199.lidou +++| SA1 JOPR CHECK FOR SYSTEM ORIGIN 02251 M00S02200.lidou +++| MX0 -12 02252 M00S02201.lidou +++| LX1 36 02253 M00S02202.lidou +++| BX1 -X0*X1 02254 M00S02203.lidou +++| MX5 42 02255 M00S02204.lidou +++| SX1 X1-SYOT 02256 M00S02205.lidou +++| ZR X1,PRS1 IF SYSTEM ORIGIN 02257 M00S02206.lidou +++| MESSAGE ERIU * INCORRECT USER ACCESS.* 02258 M00S02207.lidou +++| ABORT ABORT NON SYSTEM ORIGIN JOB 02259 M00S02208.lidou +++| 02260 M00S02209.lidou +++| PRS1 GETPP BUFF,PAGC,PDFC GET LINES PER PAGE AND PRINT DENSITY 02261 M00S02210.lidou +++| SA1 PAGC 02262 M00S02211.lidou +++| SX6 X1-6 ENSURE SPACE FOR HEADERS
| Line S02212 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02263 M01S02212.241l630 ---| SX7 B1
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02264 M01S00051.241l630 +++| SX7 B1+ 02265 M00S02213.lidou +++| SA6 LCNT 02266 M00S02214.lidou +++| SA7 CHDF SET LID TABLE CHANGED FLAG 02267 M00S02215.lidou +++| SYSTEM RSB,R,JSNA GET POINTER TO *L* DISPLAY WORD 02268 M00S02216.lidou +++| SA1 JSNB 02269 M00S02217.lidou +++| LX1 6 02270 M00S02218.lidou +++| MX0 -18 02271 M00S02219.lidou +++| LX0 18 02272 M00S02220.lidou +++| BX1 -X0*X1 02273 M00S02221.lidou +++| SA2 A1+B1 02274 M00S02222.lidou +++| BX2 X0*X2 02275 M00S02223.lidou +++| BX6 X2+X1 02276 M00S02224.lidou +++| SA6 A2 02277 M00S02225.lidou +++| SYSTEM RSB,R,JSNC GET JSN OF JOB USING *L* DISPLAY 02278 M00S02226.lidou +++| GETJN JSNB COMPARE TO JSN OF RUNNING JOB 02279 M00S02227.lidou +++| SA1 JSNB 02280 M00S02228.lidou +++| SA2 JSND 02281 M00S02229.lidou +++| BX1 X1-X2 02282 M00S02230.lidou +++| MX0 24 02283 M00S02231.lidou +++| BX1 X0*X1 02284 M00S02232.lidou +++| SX6 B0 02285 M00S02233.lidou +++| ZR X1,PRS6 IF *L* DISPLAY ACTIVE 02286 M00S02234.lidou +++| SA6 LDSP CLEAR *L* DISPLAY ACTIVE FLAG 02287 M00S02235.lidou +++| SA1 ACTR CHECK ARGUMENT COUNT 02288 M00S02236.lidou +++| SB4 X1 02289 M00S02237.lidou +++| R= A4,ARGR PROCESS ARGUMENTS 02290 M00S02238.lidou +++| GT B4,B1,PRS3 IF AT LEAST TWO ARGUMENTS 02291 M00S02239.lidou +++| PRS2 MESSAGE ERFS * NO INPUT/OUTPUT FILE SPECIFIED.* 02292 M00S02240.lidou +++| ABORT FATAL ERROR 02293 M00S02241.lidou +++| 02294 M00S02242.lidou +++| PRS3 SB5 TARG 02295 M00S02243.lidou +++| RJ ARG 02296 M00S02244.lidou +++| NZ X1,PRS2 IF ARGUMENT ERRORS 02297 M00S02245.lidou +++| SA1 TARG 02298 M00S02246.lidou +++| SA2 TARG+1 02299 M00S02247.lidou +++| PL X1,PRS2 IF NO INPUT FILE EQUIVALENCED 02300 M00S02248.lidou +++| PL X2,PRS2 IF NO OUTPUT FILE EQUIVALENCED 02301 M00S02249.lidou +++| SA1 IF 02302 M00S02250.lidou +++| SA2 LF 02303 M00S02251.lidou +++| MX0 42 CHECK FOR FILE CONFLICT 02304 M00S02252.lidou +++| BX6 X0*X2 02305 M00S02253.lidou +++| BX7 X0*X1 02306 M00S02254.lidou +++| BX1 X6-X7 02307 M00S02255.lidou +++| NZ X1,PRS4 IF NO CONFLICT 02308 M00S02256.lidou +++| MESSAGE ERFL * FILE NAME CONFLICT.* 02309 M00S02257.lidou +++| ABORT FATAL ERROR 02310 M00S02258.lidou +++| 02311 M00S02259.lidou +++| PRS4 SA1 FIBK CHECK FOR INPUT FILE EXISTENCE 02312 M00S02260.lidou +++| BX1 -X0*X1 02313 M00S02261.lidou +++| BX7 X7+X1 02314 M00S02262.lidou +++| SA7 FIBK 02315 M00S02263.lidou +++| FILINFO FIBK 02316 M00S02264.lidou +++| SA1 FIBK+1 02317 M00S02265.lidou +++| AX1 48 02318 M00S02266.lidou +++| NZ X1,PRS5 IF INPUT FILE DOES EXIST 02319 M00S02267.lidou +++| MESSAGE ERNF * INPUT FILE NOT FOUND.* 02320 M00S02268.lidou +++| ABORT FATAL ERROR 02321 M00S02269.lidou +++| 02322 M00S02270.lidou +++| PRS5 SETFS OUTPUT,0 PRESERVE OUTPUT FILE 02323 M00S02271.lidou +++| WRITE OUTPUT,* PRESET WRITE FUNCTION 02324 M00S02272.lidou +++| EQ PRSX RETURN 02325 M00S02273.lidou +++| 02326 M00S02274.lidou +++| PRS6 SA1 LDIW STORE *L* DISPLAY BUFFER FIRST WORDS 02327 M00S02275.lidou +++| SA2 LDOW 02328 M00S02276.lidou +++| BX6 X1 02329 M00S02277.lidou +++| BX7 X2 02330 M00S02278.lidou +++| SA6 LBFI 02331 M00S02279.lidou +++| SA7 LBFO 02332 M00S02280.lidou +++| SX6 B1 02333 M00S02281.lidou +++| SX7 B0 02334 M00S02282.lidou +++| SA6 LDSF SET *L* DISPLAY ACTIVE FLAG 02335 M00S02283.lidou +++| SA6 IND1 SET INDEX INTO *LIDI* 02336 M00S02284.lidou +++| SA7 HLPF CLEAR HELP DISPLAY REQUESTED
| Line S02285 Modification History | |
|---|---|
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02337 M01S02285.241l630 ---| SX6 21B SET NUMBER LID LINES 02338 M01S02286.241l630 ---| SX7 170B SET COMMAND RESPONSE OFFSET 02339 M01S02287.241l630 ---| SA6 NMLL 02340 M01S02288.241l630 ---| SA7 CMRO 02341 M00S02289.lidou +++| EQ PRSX RETURN 02342 M00S02290.lidou +++| 02343 M00S02291.lidou +++| ERFL DATA C* FILE NAME CONFLICT.* 02344 M00S02292.lidou +++| ERFS DATA C* NO INPUT/OUTPUT FILE SPECIFIED.* 02345 M00S02293.lidou +++| ERIU DATA C* INCORRECT USER ACCESS.* 02346 M00S02294.lidou +++| ERNF DATA C* INPUT FILE NOT FOUND.* 02347 M00S02295.lidou +++| 02348 M00S02296.lidou +++| FIBK VFD 42/0,6/FIBKL,12/1 *FILINFO* PARAMETER BLOCK 02349 M00S02297.lidou +++| BSS 4 02350 M00S02298.lidou +++| FIBKL EQU *-FIBK 02351 M00S02299.lidou +++| 02352 M00S02300.lidou +++| JSNA VFD 12/0,12/1,18/LDSP,18/JSNB 02353 M00S02301.lidou +++| JSNB CON -1 02354 M00S02302.lidou +++| JSNC VFD 12/0,12/1,18/0,18/JSND 02355 M00S02303.lidou +++| JSND CON -1 02356 M00S02304.lidou +++| 02357 M00S02305.lidou +++| LDIW VFD 12/LBIL,48/0 *L*DISPLAY INPUT BUFFER FIRST WORD 02358 M00S02306.lidou +++| LDOW VFD 12/LBOL,48/0 *L*DISPLAY OUTPUT BUFFER FIRST WORD 02359 M00S02307.lidou +++| 02360 M00S02308.lidou +++| 02361 M00S02309.lidou +++| TARG BSS 0 ARGUMENT LIST FOR *COMCARG* 02362 M00S02310.lidou +++| I ARG IF,IF,400B INPUT FILE NAME 02363 M00S02311.lidou +++| L ARG LF,LF,400B OUTPUT FILE NAME 02364 M00S02312.lidou +++| ARG 02365 M00S02313.lidou +++| SPACE 4 02366 M00S02314.lidou +++|* PRESET COMMON DECKS. 02367 M00S02315.lidou +++| 02368 M00S02316.lidou +++|*CALL COMCARG 02369 M00S02317.lidou +++| SPACE 4,10 02370 M00S02318.lidou +++| LIDOUE EQU * END OF PROGRAM 02371 M00S02319.lidou +++| .RFL= MAX LIDOUE,OUTPE 02372 M00S02320.lidou +++| RFL= EQU .RFL= 02373 M00S02321.lidou +++| SPACE 4,10 02374 M00S02322.lidou +++| END
cdc/nos2.source/opl.opl871/deck/lidou.001.txt · Last modified: by 127.0.0.1