cdc:nos2.source:opl.opl871:deck:lidou.001
Deck LIDOU Part 001
2 Modifications
Listing Sections
- Deck LIDOU Start
- Deck LIDOU Part 1 (Line 1781)
Source
Seq # *Modification Id* Act ----------------------------+ 01781 M01S01735.lidou +++| EQ PCM5 CONTINUE PROCESSING COMMAND 01782 M01S01736.lidou +++| 01783 M01S01737.lidou +++| SLAA VFD 60/6LDELETE 01784 M01S01738.lidou +++| SLF SPACE 4,20 01785 M01S01739.lidou +++|** SLF - SET LID FLAGS. 01786 M01S01740.lidou +++|* 01787 M01S01741.lidou +++|* EXIT (B2) = 1, IF *D* SPECIFIED. 01788 M01S01742.lidou +++|* = 2, IF *E* SPECIFIED. 01789 M01S01743.lidou +++|* (B3) = 1, IF *B* SPECIFIED. 01790 M01S01744.lidou +++|* = 2, IF *S* SPECIFIED. 01791 M01S01745.lidou +++|* (B4) = 1, IF *V* SPECIFIED. 01792 M01S01746.lidou +++|* (B5) = 1, IF *N* SPECIFIED. 01793 M01S01747.lidou +++|* (B7) = ADDRESS OF RESPONSE. 01794 M01S01748.lidou +++|* = 0, IF NO ERROR. 01795 M01S01749.lidou +++|* (X6) = ATTRIBUTE MASK. 01796 M01S01750.lidou +++|* (X1) = SEPARATOR. 01797 M01S01751.lidou +++|* 01798 M01S01752.lidou +++|* USES X - 2, 3, 4, 5, 6, 7. 01799 M01S01753.lidou +++|* B - 2, 3, 4, 5, 7. 01800 M01S00046.241l630 +++|* 01801 M01S00047.241l630 +++|* CALLS POP. 01802 M01S01754.lidou +++|* 01803 M01S01755.lidou +++|* NOTE ATTRIBUTES *D* AND *E* CANNOT BE SPECIFIED TOGETHER. 01804 M01S01756.lidou +++|* ATTRIBUTES *S* AND *B* CANNOT BE SPECIFIED TOGETHER. 01805 M01S01757.lidou +++| 01806 M01S01758.lidou +++| 01807 M01S01759.lidou +++| SLF SUBR ENTRY/EXIT 01808 M01S01760.lidou +++| MX4 -6 01809 M01S01761.lidou +++| RJ POP GET NEXT PARAMETER 01810 M01S01762.lidou +++| SB2 B0 CLEAR FLAGS 01811 M01S01763.lidou +++| SB3 B0 01812 M01S01764.lidou +++| SB4 B0 01813 M01S01765.lidou +++| SB5 B0 01814 M01S01766.lidou +++| SB7 B0 CLEAR ERROR RESPONSE 01815 M01S01767.lidou +++| SX5 B0 CLEAR ATTRIBUTE MASK 01816 M01S01768.lidou +++| ZR X6,SLF8 IF NO CHARACTERS 01817 M01S01769.lidou +++| SLF1 LX6 6 SHIFT CHARACTER 01818 M01S01770.lidou +++| BX3 -X4*X6 01819 M01S01771.lidou +++| ZR X3,SLF8 IF NO MORE CHARACTERS 01820 M01S01772.lidou +++| SX2 X3-1RE 01821 M01S01773.lidou +++| ZR X2,SLF3 IF *E* 01822 M01S01774.lidou +++| SX7 X3-1RD 01823 M01S01775.lidou +++| ZR X7,SLF3 IF *D* 01824 M01S01776.lidou +++| SX2 X3-1RS 01825 M01S01777.lidou +++| ZR X2,SLF4 IF *S* 01826 M01S01778.lidou +++| SX7 X3-1RB 01827 M01S01779.lidou +++| ZR X7,SLF4 IF *B* 01828 M01S01780.lidou +++| SX2 X3-1RV 01829 M01S01781.lidou +++| ZR X2,SLF6 IF *V* 01830 M01S01782.lidou +++| SX2 X3-1RN 01831 M01S01783.lidou +++| ZR X2,SLF7 IF *N* 01832 M01S01784.lidou +++| SB7 MSIA * INCORRECT ATTTRIBUTE.* 01833 M01S01785.lidou +++| EQ PCM1 PROCESS ERROR 01834 M01S01786.lidou +++| 01835 M01S01787.lidou +++| SLF2 SB7 MSEA * ERROR IN ATTRIBUTE.* 01836 M01S01788.lidou +++| EQ PCM1 PROCESS ERROR 01837 M01S01789.lidou +++| 01838 M01S01790.lidou +++| SLF3 NZ B2,SLF2 IF SPECIFIED TWICE OR *E* AND *D* 01839 M01S01791.lidou +++| SB2 1 01840 M01S01792.lidou +++| NZ X2,SLF1 IF NOT *E* 01841 M01S01793.lidou +++| SB2 2 01842 M01S01794.lidou +++| SX5 X5+20B 01843 M01S01795.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01844 M01S01796.lidou +++| 01845 M01S01797.lidou +++| SLF4 NZ B3,SLF2 IF SPECIFIED TWICE OR *S* AND *B* 01846 M01S01798.lidou +++| SB3 1 01847 M01S01799.lidou +++| NZ X2,SLF5 IF NOT *S* 01848 M01S01800.lidou +++| SB3 2 01849 M01S01801.lidou +++| SX5 X5+10B 01850 M01S01802.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01851 M01S01803.lidou +++| 01852 M01S01804.lidou +++| SLF5 SX5 X5+2 01853 M01S01805.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01854 M01S01806.lidou +++| 01855 M01S01807.lidou +++| SLF6 NZ B4,SLF2 IF SPECIFIED TWICE 01856 M01S01808.lidou +++| SX5 X5+4 01857 M01S01809.lidou +++| SB4 B1+ 01858 M01S01810.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01859 M01S01811.lidou +++| 01860 M01S01812.lidou +++| SLF7 NZ B5,SLF2 IF SPECIFIED TWICE 01861 M01S01813.lidou +++| SX5 X5+1 01862 M01S01814.lidou +++| SB5 B1+ 01863 M01S01815.lidou +++| EQ SLF1 PROCESS NEXT CHARACTER 01864 M01S01816.lidou +++| 01865 M01S01817.lidou +++| SLF8 SX6 X5 SET ATTRIBUTE MASK 01866 M01S01818.lidou +++| LX6 19 POSITION ATTRIBUTE MASK 01867 M01S01819.lidou +++| EQ SLFX RETURN 01868 M01S01820.lidou +++| SMF SPACE 4,15 01869 M01S01821.lidou +++|** SMF - SET MAINFRAME TYPE. 01870 M01S01822.lidou +++|* 01871 M01S01823.lidou +++|* EXIT TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR. 01872 M01S01824.lidou +++|* TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS. 01873 M01S01825.lidou +++|* (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS. 01874 M01S01826.lidou +++|* (CHDF) = 1, IF THE LID TABLE CHANGED. 01875 M01S01827.lidou +++|* (B7) = ADDRESS OF RESPONSE. 01876 M01S01828.lidou +++|* 01877 M01S01829.lidou +++|* USES X - 1, 4, 5, 6, 7. 01878 M01S01830.lidou +++|* A - 7. 01879 M01S01831.lidou +++|* B - 7. 01880 M01S01832.lidou +++|* 01881 M01S01833.lidou +++|* CALLS POP, SET, SFN. 01882 M01S01834.lidou +++| 01883 M01S01835.lidou +++| 01884 M01S01836.lidou +++| SMF RJ POP GET NEXT PARAMETER 01885 M01S01837.lidou +++| SX5 X1 SAVE SEPARATOR 01886 M01S01838.lidou +++| SB7 MSIM * INCORRECT MAINFRAME.* 01887 M01S01839.lidou +++| SX7 X6 01888 M01S01840.lidou +++| ZR X6,PCM1 IF NO MAINFRAME 01889 M01S01841.lidou +++| NZ X7,PCM1 IF MORE THAN SEVEN CHARACTERS 01890 M01S01842.lidou +++| MX4 42 SPACE FILL MAINFRAME DESCRIPTOR 01891 M01S01843.lidou +++| BX1 X6 01892 M01S01844.lidou +++| RJ SFN 01893 M01S01845.lidou +++| BX6 X4*X6 01894 M01S01846.lidou +++| SX7 20001B SET FUNCTION CODE AND PID COUNT 01895 M01S01847.lidou +++| ERRNZ SMFF-2 ADJUST VALUE IF CHANGED 01896 M01S01848.lidou +++| LX6 -18 POSITION MAINFRAME DESCRIPTOR 01897 M01S01849.lidou +++| RJ SET SET MAINFRAME 01898 M01S01850.lidou +++| SB7 MSMF * MAINFRAME NOT SET.* 01899 M01S01851.lidou +++| NZ X4,PCM1 IF ERROR 01900 M01S01852.lidou +++| SB7 MSCP * COMMAND PROCESSED.* 01901 M01S01853.lidou +++| SX7 B1 SET LID TABLE CHANGED FLAG 01902 M01S01854.lidou +++| SX1 X5 RESTORE SEPARATOR 01903 M01S01855.lidou +++| SA7 CHDF 01904 M01S01856.lidou +++| SX4 X1-1R. CHECK FOR MORE COMMAND 01905 M01S01857.lidou +++| ZR X1,PCM1 IF NO MORE COMMAND 01906 M01S01858.lidou +++| ZR X4,PCM1 IF NO MORE COMMAND 01907 M01S01859.lidou +++| EQ PCM5 CONTINUE PROCESSING COMMAND 01908 M01S01860.lidou +++| SNS SPACE 4,15 01909 M01S01861.lidou +++|** SNS - SET NETWORK STATUS. 01910 M01S01862.lidou +++|* 01911 M01S01863.lidou +++|* EXIT TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR. 01912 M01S01864.lidou +++|* TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS. 01913 M01S01865.lidou +++|* (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS. 01914 M01S01866.lidou +++|* (CHDF) = 1, IF THE LID TABLE CHANGED. 01915 M01S01867.lidou +++|* (B7) = ADDRESS OF RESPONSE. 01916 M01S01868.lidou +++|* 01917 M01S01869.lidou +++|* USES X - 0, 1, 4, 5, 6, 7. 01918 M01S01870.lidou +++|* A - 7. 01919 M01S01871.lidou +++|* B - 7. 01920 M01S01872.lidou +++|* 01921 M01S01873.lidou +++|* CALLS POP, SET. 01922 M01S01874.lidou +++| 01923 M01S01875.lidou +++| 01924 M01S01876.lidou +++| SNS MX0 -42 01925 M01S01877.lidou +++| RJ POP GET NEXT PARAMETER 01926 M01S01878.lidou +++| SB7 MSIP * INCORRECT SEPARATOR.* 01927 M01S01879.lidou +++| SX4 X1-1R, 01928 M01S01880.lidou +++| NZ X4,PCM1 IF SEPARATOR NOT *,* 01929 M01S01881.lidou +++| SB7 MSIN * INCORRECT NETWORK.* 01930 M01S01882.lidou +++| ZR X6,PCM1 IF NO NETWORK 01931 M01S01883.lidou +++| BX7 -X0*X6 01932 M01S01884.lidou +++| NZ X7,PCM1 IF MORE THAN THREE CHARACTERS 01933 M01S01885.lidou +++| LX6 18 POSITION NETWORK 01934 M01S01886.lidou +++| SX4 X6-3RNAM 01935 M01S01887.lidou +++| SX0 NANS 01936 M01S01888.lidou +++| ZR X4,SNS1 IF *NAM* 01937 M01S01889.lidou +++| SX4 X6-3RRHF 01938 M01S01890.lidou +++| SX0 RHNS 01939 M01S01891.lidou +++| ZR X4,SNS1 IF *RHF* 01940 M01S01892.lidou +++| SX4 X6-3RSSF 01941 M01S01893.lidou +++| SX0 SSNS 01942 M01S01894.lidou +++| ZR X4,SNS1 IF *SSF* 01943 M01S01895.lidou +++| SX4 X6-3RALL 01944 M01S01896.lidou +++| SX0 NANS+RHNS+SSNS 01945 M01S01897.lidou +++| ZR X4,SNS1 IF *ALL* 01946 M01S01898.lidou +++| EQ PCM1 PROCESS ERROR 01947 M01S01899.lidou +++| 01948 M01S01900.lidou +++| SNS1 SX4 2RNA CHECK FOR REST OF COMMAND 01949 M01S01901.lidou +++| RJ POP GET NEXT PARAMETER 01950 M01S01902.lidou +++| SB7 MSIP * INCORRECT SEPARATOR.* 01951 M01S01903.lidou +++| SX7 X1-1R= 01952 M01S01904.lidou +++| NZ X7,PCM1 IF SEPARATOR NOT *=* 01953 M01S01905.lidou +++| LX6 12 01954 M01S01906.lidou +++| SB7 MSIC * INCORRECT COMMAND.* 01955 M01S01907.lidou +++| BX4 X6-X4 01956 M01S01908.lidou +++| NZ X4,PCM1 IF PARAMETER NOT *NA* 01957 M01S01909.lidou +++| RJ POP GET NEXT PARAMETER 01958 M01S01910.lidou +++| MX4 -54 CHECK FOR ONLY ONE CHARACTER 01959 M01S01911.lidou +++| BX5 -X4*X6 01960 M01S01912.lidou +++| SB7 MSIS * INCORRECT STATUS.* 01961 M01S01913.lidou +++| NZ X5,PCM1 IF MORE THAN ONE CHARACTER 01962 M01S01914.lidou +++| BX4 X4*X6 01963 M01S01915.lidou +++| SX5 X1 SAVE SEPARATOR 01964 M01S01916.lidou +++| SX7 10001B SET FUNCTION CODE AND PID COUNT 01965 M01S01917.lidou +++| ERRNZ SNSF-1 ADJUST VALUE IF CHANGED 01966 M01S01918.lidou +++| SX6 B1+ SET ENABLE NETWORK STATUS 01967 M01S01919.lidou +++| LX4 6 RIGHT JUSTIFY CHARACTER 01968 M01S01920.lidou +++| LX6 12 01969 M01S01921.lidou +++| SX1 X4-1RE 01970 M01S01922.lidou +++| ZR X1,SNS2 IF ENABLED 01971 M01S01923.lidou +++| SX6 X6+10B SET DISABLE NETWORK STATUS 01972 M01S01924.lidou +++| SX1 X4-1RD 01973 M01S01925.lidou +++| NZ X1,PCM1 IF NOT DISABLED 01974 M01S01926.lidou +++| SNS2 LX0 -12 POSITION NETWORK IDENTIFIER 01975 M01S01927.lidou +++| BX7 X7+X0 ADD IN NETWORK IDENTIFIER 01976 M01S01928.lidou +++| RJ SET SET NETWORK 01977 M01S01929.lidou +++| NZ X4,PCM1 IF ERROR 01978 M01S01930.lidou +++| SB7 MSCP * COMMAND PROCESSED.* 01979 M01S01931.lidou +++| SX7 B1 LID TABLE CHANGED 01980 M01S01932.lidou +++| SX1 X5 RESTORE SEPARATOR 01981 M01S01933.lidou +++| SA7 CHDF 01982 M01S01934.lidou +++| SX4 X1-1R. CHECK FOR MORE COMMAND 01983 M01S01935.lidou +++| ZR X1,PCM1 IF NO MORE COMMAND 01984 M01S01936.lidou +++| ZR X4,PCM1 IF NO MORE COMMAND 01985 M01S01937.lidou +++| EQ PCM5 CONTINUE PROCESSING COMMAND 01986 M01S01938.lidou +++| SPA SPACE 4,20 01987 M01S01939.lidou +++|** SPA - SET PID ATTRIBUTE(S). 01988 M01S01940.lidou +++|* 01989 M01S01941.lidou +++|* EXIT TO *PCM1* IF NO MORE COMMAND TO PROCESS OR ERROR. 01990 M01S01942.lidou +++|* TO *PCM5* IF NO ERROR AND MORE COMMAND TO PROCESS. 01991 M01S01943.lidou +++|* (X1) = SEPARATOR, IF MORE COMMAND TO PROCESS. 01992 M01S01944.lidou +++|* (CHDF) = 1, IF THE LID TABLE CHANGED. 01993 M01S01945.lidou +++|* (B7) = ADDRESS OF RESPONSE. 01994 M01S01946.lidou +++|* 01995 M01S01947.lidou +++|* USES X - ALL. 01996 M01S01948.lidou +++|* A - 1, 7. 01997 M01S01949.lidou +++|* B - 2, 3, 4, 5, 7. 01998 M01S01950.lidou +++|* 01999 M01S01951.lidou +++|* CALLS POP, SET. 02000 M01S01952.lidou +++|* 02001 M01S01953.lidou +++|* NOTE ATTRIBUTES *D* AND *E* CANNOT BE SPECIFIED TOGETHER 02002 M01S01954.lidou +++|* AND IF NEITHER IS SPECIFIED THE PRESENT STATUS WILL 02003 M01S01955.lidou +++|* BE USED. *V* MUST BE SPECIFIED ON THE HOST PID. 02004 M01S01956.lidou +++| 02005 M01S01957.lidou +++| 02006 M01S01958.lidou +++| SPA RJ POP GET NEXT PARAMETER 02007 M01S01959.lidou +++| SX5 X1 SAVE SEPARATOR 02008 M01S01960.lidou +++| BX3 X6 SAVE CHARACTERS 02009 M01S01961.lidou +++| SB2 B0+ CLEAR FLAGS 02010 M01S01962.lidou +++| SB3 B0+ 02011 M01S01963.lidou +++| SB4 B0 02012 M01S01964.lidou +++| SB5 B0 02013 M01S01965.lidou +++| SX6 B0 CLEAR ATTRIBUTE MASK 02014 M01S01966.lidou +++| ZR X3,SPA7 IF NO CHARACTERS 02015 M01S01967.lidou +++| MX0 -6 SET CHARACTER MASK 02016 M01S01968.lidou +++| SPA1 LX3 6 SHIFT CHARACTER 02017 M01S01969.lidou +++| BX1 -X0*X3 02018 M01S01970.lidou +++| ZR X1,SPA7 IF NO MORE CHARACTERS 02019 M01S01971.lidou +++| SX2 X1-1RE 02020 M01S01972.lidou +++| ZR X2,SPA3 IF *E* 02021 M01S01973.lidou +++| SX2 X1-1RD 02022 M01S01974.lidou +++| ZR X2,SPA4 IF *D* 02023 M01S01975.lidou +++| SX2 X1-1RV 02024 M01S01976.lidou +++| ZR X2,SPA5 IF *V* 02025 M01S01977.lidou +++| SX2 X1-1RN 02026 M01S01978.lidou +++| ZR X2,SPA6 IF *N* 02027 M01S01979.lidou +++| SB7 MSIA * INCORRECT ATTTRIBUTE.* 02028 M01S01980.lidou +++| EQ PCM1 PROCESS ERROR 02029 M01S01981.lidou +++| 02030 M01S01982.lidou +++| SPA2 SB7 MSEA * ERROR IN ATTRIBUTE.* 02031 M01S01983.lidou +++| EQ PCM1 PROCESS ERROR 02032 M01S01984.lidou +++| 02033 M01S01985.lidou +++| SPA3 NZ B2,SPA2 IF SPECIFIED TWICE 02034 M01S01986.lidou +++| SX6 X6+4 02035 M01S01987.lidou +++| SB2 B1+ 02036 M01S01988.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02037 M01S01989.lidou +++| 02038 M01S01990.lidou +++| SPA4 NZ B3,SPA2 IF SPECIFIED TWICE 02039 M01S01991.lidou +++| SB3 B1+ 02040 M01S01992.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02041 M01S01993.lidou +++| 02042 M01S01994.lidou +++| SPA5 NZ B4,SPA2 IF SPECIFIED TWICE 02043 M01S01995.lidou +++| SX6 X6+2 02044 M01S01996.lidou +++| SB4 B1+ 02045 M01S01997.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02046 M01S01998.lidou +++| 02047 M01S01999.lidou +++| SPA6 NZ B5,SPA2 IF SPECIFIED TWICE 02048 M01S02000.lidou +++| SX6 X6+1 02049 M01S02001.lidou +++| SB5 B1+ 02050 M01S02002.lidou +++| EQ SPA1 PROCESS NEXT CHARACTER 02051 M01S02003.lidou +++| 02052 M01S02004.lidou +++| SPA7 SA1 PARB+2 GET PID ATTRIBUTES 02053 M01S02005.lidou +++| SA1 X1 02054 M01S02006.lidou +++| LX1 59-41 02055 M01S02007.lidou +++| NZ B4,SPA8 IF *V* SPECIFIED 02056 M01S02008.lidou +++| NG X1,SPA2 IF *V* NOT SPECIFIED ON HOST 02057 M01S02009.lidou +++| SPA8 SX7 B1 SET FUNCTION CODE AND PID COUNT 02058 M01S02010.lidou +++| ERRNZ SPAF-0 ADJUST VALUE IF CHANGED 02059 M01S02011.lidou +++| SB4 B2+B3 CHECK FOR *D* OR *E* 02060 M01S02012.lidou +++| GT B4,B1,SPA2 IF BOTH SPECIFIED 02061 M01S02013.lidou +++| NZ B4,SPA9 IF EITHER SPECIFIED 02062 M01S02014.lidou +++| LX1 59-40-59+41 02063 M01S02015.lidou +++| SB7 MSNC * PID NOT ALTERED.* 02064 M01S02016.lidou +++| PL X1,SPA9 IF DISABLED 02065 M01S02017.lidou +++| SX6 X6+4 SET ENABLED BIT 02066 M01S02018.lidou +++| SPA9 LX6 9 POSITION ATTRIBUTES 02067 M01S02019.lidou +++| RJ SET 02068 M01S02020.lidou +++| NZ X4,PCM1 IF ERROR 02069 M01S02021.lidou +++| SB7 MSCP * COMMAND PROCESSED.* 02070 M01S02022.lidou +++| SX7 B1 SET LID TABLE CHANGED FLAG 02071 M01S02023.lidou +++| SX1 X5 RESTORE SEPARATOR 02072 M01S02024.lidou +++| SA7 CHDF 02073 M01S02025.lidou +++| SX4 X1-1R. CHECK FOR MORE COMMAND 02074 M01S02026.lidou +++| ZR X1,PCM1 IF NO MORE COMMAND 02075 M01S02027.lidou +++| ZR X4,PCM1 IF NO MORE COMMAND 02076 M01S02028.lidou +++| EQ PCM5 CONTINUE PROCESSING COMMAND 02077 M01S02029.lidou +++| STL SPACE 4,15 02078 M01S02030.lidou +++|** STL - SEARCH TABLE FOR LID. 02079 M01S02031.lidou +++|* 02080 M01S02032.lidou +++|* ENTRY (X6) = LID, LEFT JUSTIFIED. 02081 M01S02033.lidou +++|* (X2) = 42 BIT MASK, LEFT JUSTIFIED. 02082 M01S02034.lidou +++|* (PARB+2) = PID ADDRESS (IN *LIDI*) 02083 M01S02035.lidou +++|* 02084 M01S02036.lidou +++|* 02085 M01S02037.lidou +++|* EXIT (X0) = ZERO, IF LID FOUND IN TABLE. 02086 M01S02038.lidou +++|* = NONZERO, IF LID NOT FOUND. 02087 M01S02039.lidou +++|* (A5) = ADDRESS OF LID ENTRY, IF FOUND. 02088 M01S02040.lidou +++|* (A0) = LID. 02089 M01S02041.lidou +++|*
| Line S02042 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02090 M02S02042.241l630 ---|* USES X - 0, 3, 4, 5. 02091 M01S00048.241l630 +++|* USES X - 0, 3, 4, 5, 6. 02092 M01S02043.lidou +++|* A - 0, 5. 02093 M01S02044.lidou +++| 02094 M01S02045.lidou +++| 02095 M01S02046.lidou +++| STL SUBR ENTRY/EXIT 02096 M01S02047.lidou +++| SA5 PARB+2 GET PID ADDRESS 02097 M01S02048.lidou +++| SA5 X5+B1 02098 M01S02049.lidou +++| MX3 18 02099 M01S02050.lidou +++| LX6 18 SAVE LID 02100 M01S02051.lidou +++| SA0 X6+ 02101 M01S02052.lidou +++| LX6 -18 02102 M01S02053.lidou +++| STL1 BX5 X3*X5 CHECK FOR MATCH 02103 M01S02054.lidou +++| BX0 X6-X5 02104 M01S02055.lidou +++| ZR X0,STLX IF MATCH 02105 M01S02056.lidou +++| STL2 SA5 A5+B1 GET NEXT ENTRY 02106 M01S02057.lidou +++| ZR X5,STLX IF END OF TABLE 02107 M01S02058.lidou +++| BX4 -X2*X5 CHECK FOR PID 02108 M01S02059.lidou +++| NZ X4,STLX IF PID 02109 M01S02060.lidou +++| EQ STL1 CHECK NEXT LID 02110 M01S02061.lidou +++| STP SPACE 4,10 02111 M01S02062.lidou +++|** STP - SEARCH TABLE FOR PID. 02112 M01S02063.lidou +++|* 02113 M01S02064.lidou +++|* ENTRY (X6) = PID, LEFT JUSTIFIED. 02114 M01S02065.lidou +++|* 02115 M01S02066.lidou +++|* EXIT (X2) = ZERO, IF PID FOUND IN TABLE. 02116 M01S02067.lidou +++|* = NONZERO, IF PID NOT FOUND. 02117 M01S02068.lidou +++|* (A5) = ADDRESS OF PID ENTRY, IF FOUND. 02118 M01S02069.lidou +++|* 02119 M01S02070.lidou +++|* USES X - 0, 2, 3, 4, 5. 02120 M01S02071.lidou +++|* A - 5. 02121 M01S02072.lidou +++| 02122 M01S02073.lidou +++| 02123 M01S02074.lidou +++| STP SUBR ENTRY/EXIT 02124 M01S02075.lidou +++| SA5 LIDI+1 02125 M01S02076.lidou +++| MX0 -18 02126 M01S02077.lidou +++| MX3 18 02127 M01S02078.lidou +++| STP1 BX5 X3*X5 CHECK FOR MATCH 02128 M01S02079.lidou +++| BX2 X6-X5 02129 M01S02080.lidou +++| ZR X2,STPX IF MATCH 02130 M01S02081.lidou +++| STP2 SA5 A5+B1 GET NEXT ENTRY 02131 M01S02082.lidou +++| ZR X5,STPX IF END OF TABLE 02132 M01S02083.lidou +++| BX4 -X0*X5 CHECK FOR PID 02133 M01S02084.lidou +++| NZ X4,STP1 IF PID 02134 M01S02085.lidou +++| EQ STP2 CHECK NEXT ENTRY 02135 M01S02086.lidou +++| THD SPACE 4,15 02136 M01S02087.lidou +++|** THD - TOGGLE TO HELP DISPLAY. 02137 M01S02088.lidou +++|* 02138 M01S02089.lidou +++|* EXIT TO *PCM1* IF *L* DISPLAY NOT ACTIVE. 02139 M01S02090.lidou +++|* TO *PCM3* WITH HELP FLAG SET. 02140 M01S02091.lidou +++|* (B7) = 0, IF DISPLAY ACTIVE. 02141 M01S02092.lidou +++|* 02142 M01S02093.lidou +++|* USES X - 5, 6. 02143 M01S02094.lidou +++|* A - 5, 6. 02144 M01S02095.lidou +++|* B - 7. 02145 M01S02096.lidou +++| 02146 M01S02097.lidou +++| 02147 M01S02098.lidou +++| THD SA5 LDSF CHECK IF *L* DISPLAY ACTIVE 02148 M01S02099.lidou +++| SB7 MSIC * INCORRECT COMMAND.* 02149 M01S02100.lidou +++| ZR X5,PCM1 IF INCORRECT COMMAND FOR INPUT FILE 02150 M01S02101.lidou +++| SX6 B1 SET HELP DISPLAY REQUESTED
| Line S02102 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02151 M02S02102.241l630 ---| SB7 B0 FORMAT DEFAULT MESSAGE 02152 M01S00049.241l630 +++| SB7 B0 CLEAR ERROR MESSAGE 02153 M01S02103.lidou +++| SA6 HLPF 02154 M01S02104.lidou +++| EQ PCM3 PROCESS NEXT COMMAND 02155 M01S02105.lidou +++| TLD SPACE 4,15 02156 M01S02106.lidou +++|** TLD - TOGGLE TO LID DISPLAY. 02157 M01S02107.lidou +++|* 02158 M01S02108.lidou +++|* EXIT TO *PCM1* IF *L* DISPLAY NOT ACTIVE. 02159 M01S02109.lidou +++|* TO *PCM3* WITH HELP FLAG CLEARED. 02160 M01S02110.lidou +++|* (B7) = 0, IF DISPLAY ACTIVE. 02161 M01S02111.lidou +++|* 02162 M01S02112.lidou +++|* USES X - 5, 6. 02163 M01S02113.lidou +++|* A - 5, 6. 02164 M01S02114.lidou +++|* B - 7. 02165 M01S02115.lidou +++| 02166 M01S02116.lidou +++| 02167 M01S02117.lidou +++| TLD SA5 LDSF CHECK IF *L* DISPLAY ACTIVE 02168 M01S02118.lidou +++| SB7 MSIC * INCORRECT COMMAND.* 02169 M01S02119.lidou +++| ZR X5,PCM1 IF INCORRECT COMMAND FOR INPUT FILE 02170 M01S02120.lidou +++| SX6 B0 CLEAR HELP DISPLAY REQUESTED
| Line S02121 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02171 M02S02121.241l630 ---| SB7 B0 FORMAT DEFAULT MESSAGE 02172 M01S00050.241l630 +++| SB7 B0 CLEAR ERROR MESSAGE 02173 M01S02122.lidou +++| SA6 HLPF 02174 M01S02123.lidou +++| EQ PCM3 PROCESS NEXT COMMAND 02175 M01S02124.lidou +++| SPACE 4,10 02176 M01S02125.lidou +++|* COMMON DECKS. 02177 M01S02126.lidou +++| 02178 M01S02127.lidou +++|*CALL COMCCIO 02179 M01S02128.lidou +++|*CALL COMCCOD 02180 M01S02129.lidou +++|*CALL COMCCPM 02181 M01S02130.lidou +++|*CALL COMCFLD 02182 M01S02131.lidou +++|*CALL COMCLFM 02183 M01S02132.lidou +++|*CALL COMCPOP 02184 M01S02133.lidou +++|*CALL COMCRDS 02185 M01S02134.lidou +++|*CALL COMCRDW 02186 M01S02135.lidou +++|*CALL COMCSFM 02187 M01S02136.lidou +++|*CALL COMCSFN 02188 M01S02137.lidou +++|*CALL COMCSYS 02189 M01S02138.lidou +++|*CALL COMCUSB 02190 M01S02139.lidou +++|*CALL COMCWOD 02191 M01S02140.lidou +++|*CALL COMCWTC 02192 M01S02141.lidou +++|*CALL COMCWTS 02193 M01S02142.lidou +++|*CALL COMCWTH 02194 M01S02143.lidou +++|*CALL COMCWTO 02195 M01S02144.lidou +++|*CALL COMCWTW 02196 M01S02145.lidou +++|*CALL COMCZTB 02197 M01S02146.lidou +++| TITLE BUFFERS. 02198 M01S02147.lidou +++| SPACE 4,10 02199 M01S02148.lidou +++|** BUFFERS. 02200 M01S02149.lidou +++| 02201 M01S02150.lidou +++| USE BUFFERS 02202 M01S02151.lidou +++| 02203 M01S02152.lidou +++| 02204 M01S02153.lidou +++| LIDI EQU * LID TABLE BUFFER 02205 M01S02154.lidou +++| LIDIE EQU LIDI+LIIL 02206 M01S02155.lidou +++| 02207 M01S02156.lidou +++| LBFO EQU LIDIE OUTPUT *L* DISPLAY BUFFER 02208 M01S02157.lidou +++| LBFOE EQU LBFO+LBOL 02209 M01S02158.lidou +++| 02210 M01S02159.lidou +++| LBFI EQU LBFOE INPUT *L* DISPLAY BUFFER 02211 M01S02160.lidou +++| LBFIE EQU LBFI+LBIL 02212 M01S02161.lidou +++| 02213 M01S02162.lidou +++| INPU EQU LBFIE INPUT BUFFER 02214 M01S02163.lidou +++| INPUE EQU INPU+INPL 02215 M01S02164.lidou +++| 02216 M01S02165.lidou +++| MFTB EQU INPUE MAINFRAME DESCRIPTOR BUFFER 02217 M01S02166.lidou +++| MFTBE EQU MFTB+MFTL 02218 M01S02167.lidou +++| 02219 M01S02168.lidou +++| OUTP EQU MFTBE OUTPUT BUFFER 02220 M01S02169.lidou +++| OUTPE EQU OUTP+OUTL 02221 M01S02170.lidou +++| TITLE PRESET. 02222 M01S02171.lidou +++| PRS SPACE 4,25 02223 M01S02172.lidou +++|** PRS - PRESET. 02224 M01S02173.lidou +++|* 02225 M01S02174.lidou +++|* EXIT SYSTEM ORIGIN CHECKED FOR, ABORT IF JOB IS NOT 02226 M01S02175.lidou +++|* SYSTEM ORIGIN. 02227 M01S02176.lidou +++|* INPUT AND OUTPUT FILES CHECKED IF *L* DISPLAY 02228 M01S02177.lidou +++|* NOT ACTIVE, ABORT IF NOT SPECIFED. 02229 M01S02178.lidou +++|* FILE NAME CONFLICT AND INPUT FILE EXISTENCE 02230 M01S02179.lidou +++|* CHECKED IF *L* DISPLAY NOT ACTIVE, ABORT IF ERROR. 02231 M01S02180.lidou +++|* *L* DISPLAY INPUT/OUTPUT BUFFER FIRST WORDS SET, 02232 M01S02181.lidou +++|* IF *L* DISPLAY IS ACTIVE. 02233 M01S02182.lidou +++|* (LDSF) = 1 IF *L* DISPLAY IS ACTIVE. 02234 M01S02183.lidou +++|* = 0 IF SPECIFIED FILES ARE ACTIVE. 02235 M01S02184.lidou +++|* (LCNT) = LINE COUNT FOR LISTINGS. 02236 M01S02185.lidou +++|* (NMLL) = SET FOR CONSOLE IN USE. 02237 M01S02186.lidou +++|* (CMRO) = SET FOR CONSOLE IN USE. 02238 M01S02187.lidou +++|* (CHDF) = 1. 02239 M01S02188.lidou +++|* (IND1) = 1. 02240 M01S02189.lidou +++|* (HLPF) = 0. 02241 M01S02190.lidou +++|* 02242 M01S02191.lidou +++|* CALLS ARG. 02243 M01S02192.lidou +++|* 02244 M01S02193.lidou +++|* MACROS ABORT, FILINFO, GETJN, GETPP, MESSAGE, SETFS, 02245 M01S02194.lidou +++|* SYSTEM, WRITE. 02246 M01S02195.lidou +++| 02247 M01S02196.lidou +++| 02248 M01S02197.lidou +++| PRS SUBR ENTRY/EXIT 02249 M01S02198.lidou +++| SB1 1 02250 M01S02199.lidou +++| SA1 JOPR CHECK FOR SYSTEM ORIGIN 02251 M01S02200.lidou +++| MX0 -12 02252 M01S02201.lidou +++| LX1 36 02253 M01S02202.lidou +++| BX1 -X0*X1 02254 M01S02203.lidou +++| MX5 42 02255 M01S02204.lidou +++| SX1 X1-SYOT 02256 M01S02205.lidou +++| ZR X1,PRS1 IF SYSTEM ORIGIN 02257 M01S02206.lidou +++| MESSAGE ERIU * INCORRECT USER ACCESS.* 02258 M01S02207.lidou +++| ABORT ABORT NON SYSTEM ORIGIN JOB 02259 M01S02208.lidou +++| 02260 M01S02209.lidou +++| PRS1 GETPP BUFF,PAGC,PDFC GET LINES PER PAGE AND PRINT DENSITY 02261 M01S02210.lidou +++| SA1 PAGC 02262 M01S02211.lidou +++| SX6 X1-6 ENSURE SPACE FOR HEADERS
| Line S02212 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02263 M02S02212.241l630 ---| SX7 B1 02264 M01S00051.241l630 +++| SX7 B1+ 02265 M01S02213.lidou +++| SA6 LCNT 02266 M01S02214.lidou +++| SA7 CHDF SET LID TABLE CHANGED FLAG 02267 M01S02215.lidou +++| SYSTEM RSB,R,JSNA GET POINTER TO *L* DISPLAY WORD 02268 M01S02216.lidou +++| SA1 JSNB 02269 M01S02217.lidou +++| LX1 6 02270 M01S02218.lidou +++| MX0 -18 02271 M01S02219.lidou +++| LX0 18 02272 M01S02220.lidou +++| BX1 -X0*X1 02273 M01S02221.lidou +++| SA2 A1+B1 02274 M01S02222.lidou +++| BX2 X0*X2 02275 M01S02223.lidou +++| BX6 X2+X1 02276 M01S02224.lidou +++| SA6 A2 02277 M01S02225.lidou +++| SYSTEM RSB,R,JSNC GET JSN OF JOB USING *L* DISPLAY 02278 M01S02226.lidou +++| GETJN JSNB COMPARE TO JSN OF RUNNING JOB 02279 M01S02227.lidou +++| SA1 JSNB 02280 M01S02228.lidou +++| SA2 JSND 02281 M01S02229.lidou +++| BX1 X1-X2 02282 M01S02230.lidou +++| MX0 24 02283 M01S02231.lidou +++| BX1 X0*X1 02284 M01S02232.lidou +++| SX6 B0 02285 M01S02233.lidou +++| ZR X1,PRS6 IF *L* DISPLAY ACTIVE 02286 M01S02234.lidou +++| SA6 LDSP CLEAR *L* DISPLAY ACTIVE FLAG 02287 M01S02235.lidou +++| SA1 ACTR CHECK ARGUMENT COUNT 02288 M01S02236.lidou +++| SB4 X1 02289 M01S02237.lidou +++| R= A4,ARGR PROCESS ARGUMENTS 02290 M01S02238.lidou +++| GT B4,B1,PRS3 IF AT LEAST TWO ARGUMENTS 02291 M01S02239.lidou +++| PRS2 MESSAGE ERFS * NO INPUT/OUTPUT FILE SPECIFIED.* 02292 M01S02240.lidou +++| ABORT FATAL ERROR 02293 M01S02241.lidou +++| 02294 M01S02242.lidou +++| PRS3 SB5 TARG 02295 M01S02243.lidou +++| RJ ARG 02296 M01S02244.lidou +++| NZ X1,PRS2 IF ARGUMENT ERRORS 02297 M01S02245.lidou +++| SA1 TARG 02298 M01S02246.lidou +++| SA2 TARG+1 02299 M01S02247.lidou +++| PL X1,PRS2 IF NO INPUT FILE EQUIVALENCED 02300 M01S02248.lidou +++| PL X2,PRS2 IF NO OUTPUT FILE EQUIVALENCED 02301 M01S02249.lidou +++| SA1 IF 02302 M01S02250.lidou +++| SA2 LF 02303 M01S02251.lidou +++| MX0 42 CHECK FOR FILE CONFLICT 02304 M01S02252.lidou +++| BX6 X0*X2 02305 M01S02253.lidou +++| BX7 X0*X1 02306 M01S02254.lidou +++| BX1 X6-X7 02307 M01S02255.lidou +++| NZ X1,PRS4 IF NO CONFLICT 02308 M01S02256.lidou +++| MESSAGE ERFL * FILE NAME CONFLICT.* 02309 M01S02257.lidou +++| ABORT FATAL ERROR 02310 M01S02258.lidou +++| 02311 M01S02259.lidou +++| PRS4 SA1 FIBK CHECK FOR INPUT FILE EXISTENCE 02312 M01S02260.lidou +++| BX1 -X0*X1 02313 M01S02261.lidou +++| BX7 X7+X1 02314 M01S02262.lidou +++| SA7 FIBK 02315 M01S02263.lidou +++| FILINFO FIBK 02316 M01S02264.lidou +++| SA1 FIBK+1 02317 M01S02265.lidou +++| AX1 48 02318 M01S02266.lidou +++| NZ X1,PRS5 IF INPUT FILE DOES EXIST 02319 M01S02267.lidou +++| MESSAGE ERNF * INPUT FILE NOT FOUND.* 02320 M01S02268.lidou +++| ABORT FATAL ERROR 02321 M01S02269.lidou +++| 02322 M01S02270.lidou +++| PRS5 SETFS OUTPUT,0 PRESERVE OUTPUT FILE 02323 M01S02271.lidou +++| WRITE OUTPUT,* PRESET WRITE FUNCTION 02324 M01S02272.lidou +++| EQ PRSX RETURN 02325 M01S02273.lidou +++| 02326 M01S02274.lidou +++| PRS6 SA1 LDIW STORE *L* DISPLAY BUFFER FIRST WORDS 02327 M01S02275.lidou +++| SA2 LDOW 02328 M01S02276.lidou +++| BX6 X1 02329 M01S02277.lidou +++| BX7 X2 02330 M01S02278.lidou +++| SA6 LBFI 02331 M01S02279.lidou +++| SA7 LBFO 02332 M01S02280.lidou +++| SX6 B1 02333 M01S02281.lidou +++| SX7 B0 02334 M01S02282.lidou +++| SA6 LDSF SET *L* DISPLAY ACTIVE FLAG 02335 M01S02283.lidou +++| SA6 IND1 SET INDEX INTO *LIDI* 02336 M01S02284.lidou +++| SA7 HLPF CLEAR HELP DISPLAY REQUESTED
| Line S02285 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02337 M02S02285.241l630 ---| SX6 21B SET NUMBER LID LINES
| Line S02286 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02338 M02S02286.241l630 ---| SX7 170B SET COMMAND RESPONSE OFFSET
| Line S02287 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02339 M02S02287.241l630 ---| SA6 NMLL
| Line S02288 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02340 M02S02288.241l630 ---| SA7 CMRO 02341 M01S02289.lidou +++| EQ PRSX RETURN 02342 M01S02290.lidou +++| 02343 M01S02291.lidou +++| ERFL DATA C* FILE NAME CONFLICT.* 02344 M01S02292.lidou +++| ERFS DATA C* NO INPUT/OUTPUT FILE SPECIFIED.* 02345 M01S02293.lidou +++| ERIU DATA C* INCORRECT USER ACCESS.* 02346 M01S02294.lidou +++| ERNF DATA C* INPUT FILE NOT FOUND.* 02347 M01S02295.lidou +++| 02348 M01S02296.lidou +++| FIBK VFD 42/0,6/FIBKL,12/1 *FILINFO* PARAMETER BLOCK 02349 M01S02297.lidou +++| BSS 4 02350 M01S02298.lidou +++| FIBKL EQU *-FIBK 02351 M01S02299.lidou +++| 02352 M01S02300.lidou +++| JSNA VFD 12/0,12/1,18/LDSP,18/JSNB 02353 M01S02301.lidou +++| JSNB CON -1 02354 M01S02302.lidou +++| JSNC VFD 12/0,12/1,18/0,18/JSND 02355 M01S02303.lidou +++| JSND CON -1 02356 M01S02304.lidou +++| 02357 M01S02305.lidou +++| LDIW VFD 12/LBIL,48/0 *L*DISPLAY INPUT BUFFER FIRST WORD 02358 M01S02306.lidou +++| LDOW VFD 12/LBOL,48/0 *L*DISPLAY OUTPUT BUFFER FIRST WORD 02359 M01S02307.lidou +++| 02360 M01S02308.lidou +++| 02361 M01S02309.lidou +++| TARG BSS 0 ARGUMENT LIST FOR *COMCARG* 02362 M01S02310.lidou +++| I ARG IF,IF,400B INPUT FILE NAME 02363 M01S02311.lidou +++| L ARG LF,LF,400B OUTPUT FILE NAME 02364 M01S02312.lidou +++| ARG 02365 M01S02313.lidou +++| SPACE 4 02366 M01S02314.lidou +++|* PRESET COMMON DECKS. 02367 M01S02315.lidou +++| 02368 M01S02316.lidou +++|*CALL COMCARG 02369 M01S02317.lidou +++| SPACE 4,10 02370 M01S02318.lidou +++| LIDOUE EQU * END OF PROGRAM 02371 M01S02319.lidou +++| .RFL= MAX LIDOUE,OUTPE 02372 M01S02320.lidou +++| RFL= EQU .RFL= 02373 M01S02321.lidou +++| SPACE 4,10 02374 M01S02322.lidou +++| END 02375 M01S00014.lidou +++|LISTLB 02376 M01S00005.lidou +++| ENTRY ARG= 02377 M01S00006.lidou +++| SYSCOM B1 02378 M01S00007.lidou +++|*COMMENT LISTLB - LIST MAGNETIC TAPE LABELS.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 02379 M02S00008.@000003 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1974. 02380 M01S00001.@000003 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02381 M01S00009.lidou +++| TITLE LISTLB - LIST MAGNETIC TAPE LABELS. 02382 M01S00010.lidou +++| SPACE 4 02383 M01S00011.lidou +++|*** LISTLB - LIST MAGNETIC TAPE LABELS. 02384 M01S00012.lidou +++|* W. E. GOEBEL. 74/01/21. 02385 M01S00013.lidou +++|* R. L. MUELLER. 75/10/15. 02386 M01S00014.lidou +++|* L. C. HAAS. 76/09/21. RESEQUENCE. 02387 M01S00015.lidou +++| SPACE 4 02388 M01S00016.lidou +++|*** LISTLB READS ANSI LABELS ON A SPECIFIED TAPE FILE 02389 M01S00017.lidou +++|* AND LISTS THE DESIRED LABELS ON AN OUTPUT FILE. 02390 M01S00001.@000002 +++|* 02391 M01S00002.@000002 +++|* IF LISTLB IS ABORTED, THE OUTPUT BUFFER IS FLUSHED. 02392 M01S00018.lidou +++|*
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02393 M02S00019.281l803 ---|* CONTROL CARD CALL. 02394 M01S00001.281l803 +++|* THE COMMAND. 02395 M01S00020.lidou +++|* 02396 M01S00021.lidou +++|* LISTLB(LFN,P1=VAL1,P2=VAL2,...,PN=VALN) 02397 M01S00022.lidou +++|* 02398 M01S00023.lidou +++|* ARGUMENT PARAMETERS. 02399 M01S00024.lidou +++|* 02400 M01S00025.lidou +++|* LFN NAME OF THE TAPE FILE. 02401 M01S00026.lidou +++|* 02402 M01S00027.lidou +++|* SI=SETID OR MULTI-FILE TAPE PARAMETER AND USED IN 02403 M01S00028.lidou +++|* M=SETID CONJUNCTION WITH THE QN(OR P) PARAMETER 02404 M01S00029.lidou +++|* AS FOLLOWS- 02405 M01S00030.lidou +++|* 1. SI .NE. 0 AND QN = 0 - LIST THE LABELS 02406 M01S00031.lidou +++|* OF ALL FILES IN THE MULTI-FILE SET 02407 M01S00032.lidou +++|* WITH SET IDENTIFIER = *SETID*. 02408 M01S00033.lidou +++|* 2. SI .NE. 0 AND QN = N - LIST ONLY THE 02409 M01S00034.lidou +++|* LABELS FOR FILE N OF THE MULTI-FILE SET.
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02410 M02S00035.281l803 ---|* 3. SI = 0 AND QN .NE. 0 - ILLEGAL COM- 02411 M01S00002.281l803 +++|* 3. SI = 0 AND QN .NE. 0 - INCORRECT COM- 02412 M01S00036.lidou +++|* BINATION - JOB WILL BE ABORTED. 02413 M01S00037.lidou +++|* 02414 M01S00038.lidou +++|* QN=SEQNO OR MULTI-FILE TAPE PARAMETER AND USED IN 02415 M01S00039.lidou +++|* P=SEQNO CONJUNCTION WITH THE SI(OR M) PARAMETER. 02416 M01S00040.lidou +++|* (SEE ABOVE) 02417 M01S00041.lidou +++|* 02418 M01S00042.lidou +++|* LO=AROVHFEU A - LIST ALL LABELS. 02419 M01S00043.lidou +++|* R - LIST ALL REQUIRED LABELS. 02420 M01S00044.lidou +++|* VOL1,HDR1,EOF1,EOV1. 02421 M01S00045.lidou +++|* O - LIST ALL OPTIONAL LABELS. 02422 M01S00046.lidou +++|* VOL2-9,HDR2-9,EOF2-9,EOV2-9, 02423 M01S00047.lidou +++|* UVLN,UHLX,UTLX. 02424 M01S00048.lidou +++|* V - LIST ALL VOLN LABELS. 02425 M01S00049.lidou +++|* H - LIST ALL HDRN LABELS. 02426 M01S00050.lidou +++|* F - LIST ALL EOFN LABELS. 02427 M01S00051.lidou +++|* E - LIST ALL EOVN LABELS. 02428 M01S00052.lidou +++|* U - LIST ALL UVL,UHL,UTL LABELS. 02429 M01S00053.lidou +++|* 02430 M01S00054.lidou +++|* L=FILENAM LIST LABELS ON FILE FILENAM. 02431 M01S00055.lidou +++|* 02432 M01S00056.lidou +++|* DEFAULTS LFN = TAPE 02433 M01S00057.lidou +++|* LO = A 02434 M01S00058.lidou +++|* L = OUTPUT 02435 M01S00059.lidou +++| SPACE 10 02436 M01S00060.lidou +++|*** DAYFILE MESSAGES. 02437 M01S00061.lidou +++|*
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02438 M02S00062.281l803 ---|* * CONTROL CARD ERROR.* = UNABLE TO INTERPRET CONTROL CARD. 02439 M01S00003.281l803 +++|* * COMMAND ERROR.* = UNABLE TO INTERPRET COMMAND. 02440 M01S00063.lidou +++|* 02441 M01S00064.lidou +++|* * FILE NAME ERROR.* = FILE NAME IS TOO LONG. 02442 M01S00065.lidou +++|*
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02443 M02S00066.281l803 ---|* * ILLEGAL PARAMETER.* = PARAMETER IS IN ERROR. 02444 M01S00004.281l803 +++|* * INCORRECT PARAMETER.* = PARAMETER IS IN ERROR. 02445 M01S00067.lidou +++|*
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02446 M02S00068.281l803 ---|* * ILLEGAL COMBINATION OF QN/SI.* = PLEASE SPECIFY A *SETID*. 02447 M01S00005.281l803 +++|* * INCORRECT COMBINATION OF QN/SI.* = PLEASE SPECIFY *SETID*. 02448 M01S00069.lidou +++|* 02449 M01S00070.lidou +++|* * LISTLB ABORT.* = CHECK DAYFILE FOR REASON. 02450 M01S00071.lidou +++|* 02451 M01S00072.lidou +++|* * NO HDR1 LABEL RETURNED ON OPEN.* = NOTIFY CDC ANALYST. 02452 M01S00073.lidou +++|* 02453 M01S00074.lidou +++|* * LISTLB COMPLETE.* 02454 M01S00075.lidou +++| TITLE ASSEMBLY CONSTANTS AND FETS. 02455 M01S00076.lidou +++| 02456 M01S00077.lidou +++|*CALL COMCMAC 02457 M01S00001.241l630 +++|*CALL COMCCMD 02458 M01S00078.lidou +++| 02459 M01S00079.lidou +++|**** ASSEMBLY CONSTANTS. 02460 M01S00080.lidou +++| 02461 M01S00081.lidou +++| 02462 M01S00082.lidou +++| TBUFL EQU 1*9+9*9+9*9+64*9+1 02463 M01S00083.lidou +++| OBUFL EQU 1001B 02464 M01S00084.lidou +++| 02465 M01S00085.lidou +++| 02466 M01S00086.lidou +++|**** 02467 M01S00087.lidou +++| 02468 M01S00088.lidou +++| ORG 110B 02469 M01S00089.lidou +++| 02470 M01S00090.lidou +++|* FETS. 02471 M01S00091.lidou +++| 02472 M01S00092.lidou +++| FETS BSS 0 02473 M01S00093.lidou +++| 02474 M01S00094.lidou +++| T BSS 0 TAPE FILE 02475 M01S00095.lidou +++| TAPE FILEB TBUF,TBUFL,(FET=10),XL,UPR 02476 M01S00096.lidou +++| 02477 M01S00097.lidou +++| O BSS 0 LIST FILE 02478 M01S00098.lidou +++| OUTPUT FILEB OBUF,OBUFL,(FET=8) 02479 M01S00099.lidou +++| TITLE MAIN ROUTINE. 02480 M01S00100.lidou +++| LISTLB SPACE 4 02481 M01S00101.lidou +++|** LISTLB - MAIN ROUTINE. 02482 M01S00102.lidou +++| 02483 M01S00103.lidou +++| 02484 M01S00104.lidou +++| LISTLB BSS 0 02485 M01S00105.lidou +++| RJ PRS 02486 M01S00106.lidou +++| MX6 0 CLEAR XL BUFFER 02487 M01S00107.lidou +++| SA6 TBUF 02488 M01S00108.lidou +++| SA1 QN 02489 M01S00109.lidou +++| NZ X1,LIS1 IF MULTI-FILE AND 1 FILE WANTED 02490 M01S00110.lidou +++| OPEN T,ALTER,R OPEN FILE - GET HEADER GROUP LABELS 02491 M01S00111.lidou +++| SA1 SI CHECK FOR MULTI-FILE 02492 M01S00112.lidou +++| ZR X1,LIS2 IF NOT MULTI-FILE TAPE 02493 M01S00113.lidou +++| RJ FHR FIND *HDR1* LABEL 02494 M01S00114.lidou +++| SA1 TBUF+B2+4 GET FILE SEQUENCE NUMBER 02495 M01S00115.lidou +++| MX0 24 02496 M01S00116.lidou +++| LX1 6 02497 M01S00117.lidou +++| BX5 X0*X1 02498 M01S00118.lidou +++| SB7 B1 02499 M01S00119.lidou +++| RJ DXB CONVERT TO BINARY 02500 M01S00120.lidou +++| SA6 SN 02501 M01S00121.lidou +++| EQ LIS2 PRINT LABELS FROM XL BUFFER 02502 M01S00122.lidou +++| 02503 M01S00123.lidou +++| LIS1 RJ SHD SET UP *HDR1* LABEL IN EXTENDED BUFFER 02504 M01S00124.lidou +++| MX2 1 CLEAR *UP* BIT TO ALLOW AUTO REEL SWAP 02505 M01S00125.lidou +++| SA1 T+1 02506 M01S00126.lidou +++| LX2 45+1 02507 M01S00127.lidou +++| BX6 -X2*X1 02508 M01S00128.lidou +++| SA6 A1 02509 M01S00129.lidou +++| SA1 T+1 SET *EPR* BIT IN FET 02510 M01S00130.lidou +++| MX6 1 02511 M01S00131.lidou +++| LX6 44-59 SET EPR BIT 02512 M01S00132.lidou +++| BX6 X6+X1 02513 M01S00133.lidou +++| SA6 A1 STORE BACK IN FET 02514 M01S00134.lidou +++| POSMF T,R POSITION FILE - GET HEADER LABELS 02515 M01S00135.lidou +++| SA1 T+1 CLEAR *EPR* BIT IN FET 02516 M01S00136.lidou +++| MX6 1 02517 M01S00137.lidou +++| LX6 44-59 CLEAR EPR BIT 02518 M01S00138.lidou +++| BX6 -X6*X1 02519 M01S00139.lidou +++| SA6 A1 STORE BACK IN FET 02520 M01S00140.lidou +++| SA1 A1-B1 CHECK FET STATUS 02521 M01S00141.lidou +++| AX1 9 02522 M01S00142.lidou +++| MX2 -5 02523 M01S00143.lidou +++| BX1 -X2*X1 GET FET STATUS BITS 13-9 02524 M01S00144.lidou +++| SX2 X1-21B CHECK FOR END-OF-SET 02525 M01S00145.lidou +++| ZR X2,LIS5 IF END-OF-MULTIFILE SET 02526 M01S00146.lidou +++| NZ X1,LIS6 IF ANY OTHER ERROR 02527 M01S00147.lidou +++| MX2 1 NOW RESET *UP* BIT 02528 M01S00148.lidou +++| SA1 T+1 02529 M01S00149.lidou +++| LX2 45+1 02530 M01S00150.lidou +++| BX6 X1+X2 02531 M01S00151.lidou +++| SA6 A1 02532 M01S00152.lidou +++| LIS2 RJ PXL PRINT LABELS FROM XL BUFFER 02533 M01S00153.lidou +++| SA1 TF 02534 M01S00154.lidou +++| ZR X1,LIS4 IF IGNORE TRAILER LABELS 02535 M01S00155.lidou +++| SKIPEI T,R SKIP TO EOI 02536 M01S00156.lidou +++| SX5 TBUF-9 02537 M01S00157.lidou +++| SA1 T CHECK FOR END-OF-REEL 02538 M01S00158.lidou +++| LX1 59-10 02539 M01S00159.lidou +++| PL X1,LIS3 IF NOT AT END-OF-REEL 02540 M01S00160.lidou +++| CLOSER T,,R CLOSE REEL - GET TRAILER LABELS 02541 M01S00161.lidou +++| RJ PXL PRINT LABELS FROM XL BUFFER 02542 M01S00162.lidou +++| OPEN T,REELNR,R OPEN NEXT REEL - GET HEADER LABELS 02543 M01S00163.lidou +++| EQ LIS2 02544 M01S00164.lidou +++| 02545 M01S00165.lidou +++| LIS3 CLOSE T,NR,R CLOSE FILE - GET TRAILER LABELS 02546 M01S00166.lidou +++| RJ PXL PRINT LABELS FROM XL BUFFER 02547 M01S00167.lidou +++| LIS4 SA1 SI CHECK FOR SETID 02548 M01S00168.lidou +++| ZR X1,LIS5 IF NO SET ID SPECIFIED 02549 M01S00169.lidou +++| SA1 QN NUMBER OF DESIRED FILE 02550 M01S00170.lidou +++| NZ X1,LIS5 IF ONLY ONE FILE WANTED 02551 M01S00171.lidou +++| SA1 SN INCREMENT SEQUENCE NUMBER 02552 M01S00172.lidou +++| SX6 X1+1 02553 M01S00173.lidou +++| SA6 A1 02554 M01S00174.lidou +++| EQ LIS1 GO PROCESS MORE LABELS 02555 M01S00175.lidou +++| 02556 M01S00176.lidou +++| LIS5 SA1 LR LABELS READ 02557 M01S00177.lidou +++| RJ CDD 02558 M01S00178.lidou +++| SA6 LBR 02559 M01S00179.lidou +++| SA1 LP LABELS PRINTED 02560 M01S00180.lidou +++| RJ CDD 02561 M01S00181.lidou +++| SA6 LBP 02562 M01S00182.lidou +++| WRITEW O,LRP,LRPL 02563 M01S00183.lidou +++| WRITER X2 02564 M01S00184.lidou +++| SA1 EF 02565 M01S00185.lidou +++| NZ X1,LIS7 IF ERROR FLAG SET 02566 M01S00186.lidou +++| MESSAGE (=C* LISTLB COMPLETE.*) 02567 M01S00187.lidou +++| ENDRUN 02568 M01S00188.lidou +++| 02569 M01S00189.lidou +++|* ENTER HERE AFTER ERROR CONDITION 02570 M01S00190.lidou +++| 02571 M01S00191.lidou +++| LIS6 SX6 B1 SET ERROR FLAG 02572 M01S00192.lidou +++| SA6 EF 02573 M01S00193.lidou +++| EQ LIS5 02574 M01S00194.lidou +++| 02575 M01S00195.lidou +++| LIS7 MESSAGE (=C* LISTLB ABORT.*) 02576 M01S00196.lidou +++| ABORT 02577 M01S00197.lidou +++| TITLE SUBROUTINES. 02578 M01S00198.lidou +++|** COV - CONVERT OCTAL NUMBER TO DECIMAL DISPLAY CODE 02579 M01S00199.lidou +++|* 02580 M01S00200.lidou +++|* ENTRY (X1) = OCTAL NUMBER. 02581 M01S00201.lidou +++|* 02582 M01S00202.lidou +++|* EXIT (X6) = DISPLAY CODE VALUE RIGHT JUSTIFIED WITH 02583 M01S00203.lidou +++|* LEADING ZEROS (4 DIGITS ONLY). 02584 M01S00204.lidou +++|* 02585 M01S00205.lidou +++|* USES X - 0, 1, 2, 3, 6. 02586 M01S00206.lidou +++|* B - 4. 02587 M01S00207.lidou +++|* A - NONE. 02588 M01S00208.lidou +++|* 02589 M01S00209.lidou +++|* CALLS CDD. 02590 M01S00210.lidou +++| 02591 M01S00211.lidou +++| 02592 M01S00212.lidou +++| COV SUBR ENTRY/EXIT 02593 M01S00213.lidou +++| RJ CDD CONVERT VALUE TO DISPLAY CODE 02594 M01S00214.lidou +++| LX6 36 02595 M01S00215.lidou +++| BX1 X6 02596 M01S00216.lidou +++| MX6 0 02597 M01S00217.lidou +++| MX2 -6 02598 M01S00218.lidou +++| SB4 4 02599 M01S00219.lidou +++| COV1 LX6 6 02600 M01S00220.lidou +++| LX1 6 02601 M01S00221.lidou +++| BX3 -X2*X1 MASK OFF A CHARACTER 02602 M01S00222.lidou +++| SX0 X3-1R CHECK FOR SPACE (BLANK) 02603 M01S00223.lidou +++| NZ X0,COV2 IF NO SPACE 02604 M01S00224.lidou +++| SX3 1R0 REPLACE WITH 0 02605 M01S00225.lidou +++| COV2 BX6 X6+X3 02606 M01S00226.lidou +++| SB4 B4-B1 02607 M01S00227.lidou +++| NZ B4,COV1 IF MORE CHARACTERS TO DO 02608 M01S00228.lidou +++| EQ COVX RETURN 02609 M01S00229.lidou +++| FHR SPACE 4,10 02610 M01S00230.lidou +++|** FHR - SEARCH LABEL BUFFER FOR *HDR1* LABEL. 02611 M01S00231.lidou +++|* 02612 M01S00232.lidou +++|* ENTRY TBUF CONTAINS HEADER GROUP LABELS. 02613 M01S00233.lidou +++|* 02614 M01S00234.lidou +++|* EXIT (B2) = INDEX IN TBUF OF *HDR1* LABEL. 02615 M01S00235.lidou +++|* 02616 M01S00236.lidou +++|* USES X - 0, 1, 2, 3. 02617 M01S00237.lidou +++|* B - 2, 7. 02618 M01S00238.lidou +++|* A - 1, 2, 3. 02619 M01S00239.lidou +++| 02620 M01S00240.lidou +++| 02621 M01S00241.lidou +++| FHR SUBR ENTRY/EXIT 02622 M01S00242.lidou +++| SB2 B0 02623 M01S00243.lidou +++| MX0 24 02624 M01S00244.lidou +++| SA3 =4LHDR1 02625 M01S00245.lidou +++| FHR1 SA1 TBUF+B2 GET CHARACTER COUNT 02626 M01S00246.lidou +++| MX2 -12 02627 M01S00247.lidou +++| BX1 -X2*X1 02628 M01S00248.lidou +++| ZR X1,FHR2 IF NO *HDR1* LABEL 02629 M01S00249.lidou +++| SA2 A1+B1 GET LABEL ID 02630 M01S00250.lidou +++| BX2 X0*X2 02631 M01S00251.lidou +++| BX2 X2-X3 CHECK IF *HDR1* 02632 M01S00252.lidou +++| ZR X2,FHRX IF FOUND *HDR1* LABEL 02633 M01S00253.lidou +++| SX1 X1+9 CALCULATE WORD COUNT OF LABEL 02634 M01S00254.lidou +++| SX2 10 02635 M01S00255.lidou +++| IX1 X1/X2 02636 M01S00256.lidou +++| SB2 B2+B1 INCREMENT TO FIRST WORD OF LABEL 02637 M01S00257.lidou +++| SB2 B2+X1 INCREMENT TO CHARACTER COUNT OF NEXT LABEL 02638 M01S00258.lidou +++| EQ FHR1 LOOP 02639 M01S00259.lidou +++| 02640 M01S00260.lidou +++| FHR2 MESSAGE (=C* NO HDR1 LABEL RETURNED ON OPEN.*) 02641 M01S00261.lidou +++| EQ LIS6 TERMINATE JOB 02642 M01S00262.lidou +++| SPACE 4 02643 M01S00263.lidou +++|** FLT - FIND LABEL TYPE. 02644 M01S00264.lidou +++|* 02645 M01S00265.lidou +++|* ENTRY (X5) = ADDRESS OF FIRST WORD OF LABEL. 02646 M01S00266.lidou +++|* 02647 M01S00267.lidou +++|* EXIT (B4) = POSITION OF LABEL TYPE IN TABLE. 02648 M01S00268.lidou +++|* (B4) = 0 IF LABEL TYPE NOT FOUND. 02649 M01S00269.lidou +++|* 02650 M01S00270.lidou +++|* USES X - 1, 2, 3. 02651 M01S00271.lidou +++|* B - 3, 4, 6, 7. 02652 M01S00272.lidou +++|* A - 1, 2. 02653 M01S00273.lidou +++| 02654 M01S00274.lidou +++| 02655 M01S00275.lidou +++| FLT SUBR ENTRY/EXIT 02656 M01S00276.lidou +++| SA1 X5+B1 02657 M01S00277.lidou +++| SB3 TLAB 02658 M01S00278.lidou +++| SB4 B0 02659 M01S00279.lidou +++| SB6 TLABA 02660 M01S00280.lidou +++| SB7 TLABL-1 02661 M01S00281.lidou +++| FLT1 SB4 B4+B1 02662 M01S00282.lidou +++| SA2 B3+B4 02663 M01S00283.lidou +++| BX3 X1-X2 02664 M01S00284.lidou +++| AX3 36 02665 M01S00285.lidou +++| ZR X3,FLTX IF MATCH ON FOUR CHARACTERS 02666 M01S00286.lidou +++| LT B4,B6,FLT1 IF NOT END OF FOUR CHARACTER ENTRIES 02667 M01S00287.lidou +++| FLT2 SB4 B4+B1 02668 M01S00288.lidou +++| SA2 B3+B4 02669 M01S00289.lidou +++| BX3 X1-X2 02670 M01S00290.lidou +++| AX3 42 02671 M01S00291.lidou +++| ZR X3,FLTX IF MATCH ON THREE CHARACTERS - RETURN 02672 M01S00292.lidou +++| LT B4,B7,FLT2 IF NOT END OF TABLE 02673 M01S00293.lidou +++| SB4 B0 02674 M01S00294.lidou +++| EQ FLTX ERROR EXIT 02675 M01S00295.lidou +++| PHE SPACE 4 02676 M01S00296.lidou +++|** PHE - PROCESS HDR1, EOF1, EOV1 PARAMETERS. 02677 M01S00297.lidou +++|* 02678 M01S00298.lidou +++|* ENTRY (LAB - LAB+7) = EIGHT WORD LABEL BLOCK. 02679 M01S00299.lidou +++|* 02680 M01S00300.lidou +++|* EXIT (HEP - HEP+9) = OUTPUT LINE WITH PARAMETERS MERGED IN. 02681 M01S00301.lidou +++|* 02682 M01S00302.lidou +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 02683 M01S00303.lidou +++|* B - 6, 7. 02684 M01S00304.lidou +++|* A - 1, 2, 3, 4, 6, 7. 02685 M01S00305.lidou +++| 02686 M01S00306.lidou +++| 02687 M01S00307.lidou +++| PHE BSS 0 ENTRY 02688 M01S00308.lidou +++| SA1 LAB MOVE LABEL PARAMETERS TO OUTPUT LINE 02689 M01S00309.lidou +++| SA3 HEP 02690 M01S00310.lidou +++| MX0 -36 02691 M01S00311.lidou +++| SA2 A1+B1 02692 M01S00312.lidou +++| BX1 -X0*X1 02693 M01S00313.lidou +++| BX3 X0*X3 02694 M01S00314.lidou +++| LX7 X2 CHARACTERS 7-16 FILE IDENTIFIER 02695 M01S00315.lidou +++| BX6 X3+X1 MERGE CHARACTERS 1-6 FILE IDENTIFIER 02696 M01S00316.lidou +++| SA1 A2+B1 02697 M01S00317.lidou +++| SA7 A3+B1 02698 M01S00318.lidou +++| SA6 A3 02699 M01S00319.lidou +++| SA3 A7+B1 02700 M01S00320.lidou +++| MX0 6 02701 M01S00321.lidou +++| BX6 X0*X1 02702 M01S00322.lidou +++| BX3 -X0*X3 02703 M01S00323.lidou +++| SA4 A3+B1 02704 M01S00324.lidou +++| BX3 X6+X3 MERGE CHARACTER 17 FILE IDENTIFIER 02705 M01S00325.lidou +++| LX1 30 02706 M01S00326.lidou +++| MX0 -24 02707 M01S00327.lidou +++| BX6 -X0*X1 02708 M01S00328.lidou +++| BX3 X0*X3 02709 M01S00329.lidou +++| MX0 12 02710 M01S00330.lidou +++| BX6 X6+X3 MERGE CHARACTERS 1-4 SET IDENTIFIER 02711 M01S00331.lidou +++| SA6 A7+B1 02712 M01S00332.lidou +++| BX4 -X0*X4 02713 M01S00333.lidou +++| BX7 X0*X1 02714 M01S00334.lidou +++| AX1 30 02715 M01S00335.lidou +++| SA2 A1+B1 02716 M01S00336.lidou +++| BX4 X4+X7 MERGE CHARACTERS 5-6 SET IDENTIFIER 02717 M01S00337.lidou +++| MX0 -18 02718 M01S00338.lidou +++| BX1 -X0*X1 02719 M01S00339.lidou +++| BX4 X0*X4 02720 M01S00340.lidou +++| BX7 X4+X1 MERGE CHARACTERS 1-3 SECTION NUMBER 02721 M01S00341.lidou +++| SA7 A6+B1 02722 M01S00342.lidou +++| MX0 6 02723 M01S00343.lidou +++| SA3 A4+B1 02724 M01S00344.lidou +++| BX6 X0*X2 02725 M01S00345.lidou +++| BX3 -X0*X3 02726 M01S00346.lidou +++| LX2 30 02727 M01S00347.lidou +++| BX3 X3+X6 MERGE CHARACTER 4 SECTION NUMBER 02728 M01S00348.lidou +++| MX0 -24 02729 M01S00349.lidou +++| BX6 -X0*X2 02730 M01S00350.lidou +++| SA4 A3+B1 02731 M01S00351.lidou +++| BX3 X0*X3 02732 M01S00352.lidou +++| MX0 24 02733 M01S00353.lidou +++| BX6 X3+X6 MERGE SEQUENCE NUMBER 02734 M01S00354.lidou +++| BX7 X0*X2 02735 M01S00355.lidou +++| SA6 A3 02736 M01S00356.lidou +++| LX0 -24 02737 M01S00357.lidou +++| SA3 A4+B1 02738 M01S00358.lidou +++| LX7 -24 02739 M01S00359.lidou +++| SA1 A2+B1 02740 M01S00360.lidou +++| BX4 -X0*X4 02741 M01S00361.lidou +++| MX0 6 02742 M01S00362.lidou +++| BX7 X4+X7 MERGE GENERATION NUMBER 02743 M01S00363.lidou +++| LX2 24 02744 M01S00364.lidou +++| SA7 A6+B1 02745 M01S00365.lidou +++| BX6 X0*X1 02746 M01S00366.lidou +++| BX2 X0*X2 02747 M01S00367.lidou +++| MX0 12 02748 M01S00368.lidou +++| LX2 6 02749 M01S00369.lidou +++| BX6 X6+X2 02750 M01S00370.lidou +++| LX0 -12 02751 M01S00371.lidou +++| LX6 42 02752 M01S00372.lidou +++| BX3 -X0*X3 02753 M01S00373.lidou +++| LX1 6 02754 M01S00374.lidou +++| MX0 6 02755 M01S00375.lidou +++| BX3 X3+X6 MERGE GENERATION VERSION NUMBER 02756 M01S00376.lidou +++| AX3 6 02757 M01S00377.lidou +++| SA2 A1+B1 02758 M01S00378.lidou +++| BX0 X0*X1 02759 M01S00379.lidou +++| BX6 X0+X3 MERGE CHARACTER 1 CREATION DATE 02760 M01S00380.lidou +++| SA4 A3+B1 02761 M01S00381.lidou +++| LX6 6 02762 M01S00382.lidou +++| MX0 30 02763 M01S00383.lidou +++| SA6 A7+B1 02764 M01S00384.lidou +++| BX4 -X0*X4 02765 M01S00385.lidou +++| LX1 6 02766 M01S00386.lidou +++| SA3 A4+B1 02767 M01S00387.lidou +++| BX7 X0*X1 02768 M01S00388.lidou +++| MX0 36 02769 M01S00389.lidou +++| BX7 X4+X7 MERGE CHARACTERS 2-6 CREATION DATE 02770 M01S00390.lidou +++| AX1 12 02771 M01S00391.lidou +++| BX3 -X0*X3 02772 M01S00392.lidou +++| SA7 A6+B1 02773 M01S00393.lidou +++| SA4 A3+B1 02774 M01S00394.lidou +++| MX0 18 02775 M01S00395.lidou +++| BX6 X0*X2 02776 M01S00396.lidou +++| LX0 18 02777 M01S00397.lidou +++| BX1 X0*X1 02778 M01S00398.lidou +++| MX0 6 02779 M01S00399.lidou +++| BX6 X6+X1 02780 M01S00400.lidou +++| LX6 42 02781 M01S00401.lidou +++| BX6 X6+X3 MERGE EXPIRATION DATE 02782 M01S00402.lidou +++| LX0 -6 02783 M01S00403.lidou +++| BX4 -X0*X4 02784 M01S00404.lidou +++| LX2 12 02785 M01S00405.lidou +++| SA6 A7+B1 02786 M01S00406.lidou +++| BX2 X0*X2 02787 M01S00407.lidou +++| BX7 X2+X4 MERGE FILE ACCESSIBILITY 02788 M01S00408.lidou +++| SA7 A6+B1 02789 M01S00409.lidou +++| SB6 HEP-1 02790 M01S00410.lidou +++| SB7 HEPL+1 02791 M01S00411.lidou +++| EQ PRL4 RETURN 02792 M01S00412.lidou +++| PRL SPACE 4 02793 M01S00413.lidou +++|** PRL - PRINT LABEL. 02794 M01S00414.lidou +++|* 02795 M01S00415.lidou +++|* ENTRY (A0) = POSITION OF LABEL TYPE IN TABLE. 02796 M01S00416.lidou +++|* (B4) = (A0) = POSITION OF LABEL TYPE IN TLAB. 02797 M01S00417.lidou +++|* (X5) = POSITION OF LABEL IN BUFFER. 02798 M01S00418.lidou +++|* 02799 M01S00419.lidou +++|* EXIT NONE. 02800 M01S00420.lidou +++|* 02801 M01S00421.lidou +++|* USES X - 0, 1, 2, 3, 6, 7. 02802 M01S00422.lidou +++|* B - 2, 4, 5, 6, 7. 02803 M01S00423.lidou +++|* A - 1, 2, 3, 6, 7. 02804 M01S00424.lidou +++|* 02805 M01S00425.lidou +++|* CALLS MVE=, PHE, PVE, WHL, WTW=. 02806 M01S00426.lidou +++| 02807 M01S00427.lidou +++| 02808 M01S00428.lidou +++| PRL SUBR ENTRY/EXIT 02809 M01S00429.lidou +++| SA1 A0+TLAB ENTER LABEL TYPE 02810 M01S00430.lidou +++| SA2 LIN+1 02811 M01S00431.lidou +++| MX0 4*6 02812 M01S00432.lidou +++| BX2 -X0*X2 02813 M01S00433.lidou +++| BX1 X0*X1 02814 M01S00434.lidou +++| BX6 X1+X2 02815 M01S00435.lidou +++| SA6 A2 02816 M01S00436.lidou +++| MOVE 8,X5+B1,LAB 02817 M01S00437.lidou +++| SA2 LC
| Line S00438 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02818 M02S00438.241l630 ---| SX3 X2-LINP+2 02819 M01S00002.241l630 +++| SA3 A2+B1 02820 M01S00003.241l630 +++| IX3 X2-X3 02821 M01S00439.lidou +++| NG X3,PRL1 IF NOT END OF PAGE 02822 M01S00440.lidou +++| RJ WHL PROCESS END OF PAGE 02823 M01S00441.lidou +++| PRL1 SA2 LC 02824 M01S00442.lidou +++| SX6 X2+2 02825 M01S00443.lidou +++| SA6 A2 02826 M01S00444.lidou +++| SB4 A0 02827 M01S00445.lidou +++| SA3 TITL+5 BLANK WORD 02828 M01S00446.lidou +++| NZ B4,PRL2 IF STANDARD LABEL TYPE 02829 M01S00447.lidou +++| SA3 NSL 02830 M01S00448.lidou +++| PRL2 BX6 X3 02831 M01S00449.lidou +++| SA6 LIN 02832 M01S00450.lidou +++| WRITEW O,A6,LINL 02833 M01S00451.lidou +++| SB4 A0+ 02834 M01S00452.lidou +++| SB5 10B 02835 M01S00453.lidou +++| GT B4,B5,PRLX IF NO MORE LABEL PROCESSING 02836 M01S00454.lidou +++| ZR B4,PRLX IF NO MORE LABEL PROCESSING 02837 M01S00455.lidou +++| SA1 A0+TLAB CHECK SPECIAL PROCESSING REQUIRED 02838 M01S00456.lidou +++| LX1 59-35+18 02839 M01S00457.lidou +++| SB2 X1 ADDRESS OF LABEL PRINT PROCESSOR 02840 M01S00458.lidou +++| ZR B2,PRLX IF NO SPECIAL PROCESSING REQUIRED 02841 M01S00459.lidou +++| JP B2 GO TO CORRECT PROCESSOR 02842 M01S00460.lidou +++| 02843 M01S00461.lidou +++| PRL4 BSS 0 RETURN HERE 02844 M01S00462.lidou +++| SA2 LC
| Line S00463 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 02845 M02S00463.241l630 ---| SX6 X2-LINP+2 02846 M01S00004.241l630 +++| SA1 A2+B1 02847 M01S00005.241l630 +++| IX6 X2-X1 02848 M01S00464.lidou +++| NG X6,PRL5 IF NOT END OF PAGE 02849 M01S00465.lidou +++| SX6 B6 02850 M01S00466.lidou +++| SX7 B7 02851 M01S00467.lidou +++| SA6 PRLA SAVE (B6) 02852 M01S00468.lidou +++| SA7 A6+B1 SAVE (B7) 02853 M01S00469.lidou +++| RJ WHL WRITE HEADER LINE 02854 M01S00470.lidou +++| SA1 PRLA RESTORE (B6) AND (B7) 02855 M01S00471.lidou +++| SA2 A1+B1 02856 M01S00472.lidou +++| SB6 X1 02857 M01S00473.lidou +++| SB7 X2 02858 M01S00474.lidou +++| PRL5 SA3 LC INCREMENT LINE COUNT 02859 M01S00475.lidou +++| SX6 X3+2 02860 M01S00476.lidou +++| SA6 A3 02861 M01S00477.lidou +++| WRITEW O,B6,B7 WRITE PARAMETER LINE 02862 M01S00478.lidou +++| EQ PRLX RETURN 02863 M01S00479.lidou +++| 02864 M01S00480.lidou +++| PRLA BSS 2 REGISTER SAVE AREA 02865 M01S00481.lidou +++| PVE SPACE 4 02866 M01S00482.lidou +++|** PVE - PROCESS VOL1 PARAMETERS. 02867 M01S00483.lidou +++|* 02868 M01S00484.lidou +++|* ENTRY (LAB - LAB+7) = EIGHT WORD LABEL BLOCK. 02869 M01S00485.lidou +++|* 02870 M01S00486.lidou +++|* EXIT (VEP - VEP+4) = OUTPUT LINE WITH PARAMETERS MERGED IN. 02871 M01S00487.lidou +++|* 02872 M01S00488.lidou +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 02873 M01S00489.lidou +++|* B - 2, 6, 7. 02874 M01S00490.lidou +++|* A - 1, 2, 3, 4, 6, 7. 02875 M01S00491.lidou +++| 02876 M01S00492.lidou +++| 02877 M01S00493.lidou +++| PVE BSS 0 ENTRY 02878 M01S00494.lidou +++| SA1 LAB MOVE LABEL PARAMETERS TO OUTPUT LINE 02879 M01S00495.lidou +++| MX0 -30 02880 M01S00496.lidou +++| SB2 B1+B1 02881 M01S00497.lidou +++| SA2 A1+B1 02882 M01S00498.lidou +++| SA3 VEP 02883 M01S00499.lidou +++| LX1 -6 02884 M01S00500.lidou +++| SA4 A3+B1 02885 M01S00501.lidou +++| BX3 X0*X3 02886 M01S00502.lidou +++| BX6 -X0*X1 02887 M01S00503.lidou +++| MX0 6 02888 M01S00504.lidou +++| BX6 X6+X3 MERGE CHARACTERS 1-5 VSN 02889 M01S00505.lidou +++| BX4 -X0*X4 02890 M01S00506.lidou +++| SA6 A3 02891 M01S00507.lidou +++| BX1 X0*X1 02892 M01S00508.lidou +++| BX2 X0*X2 02893 M01S00509.lidou +++| LX0 -36 02894 M01S00510.lidou +++| BX4 X1+X4 MERGE CHARACTER 6 VSN 02895 M01S00511.lidou +++| LX2 -36 02896 M01S00512.lidou +++| BX4 -X0*X4 02897 M01S00513.lidou +++| SA1 A2+B2 02898 M01S00514.lidou +++| BX7 X4+X2 MERGE ACCESSIBILITY 02899 M01S00515.lidou +++| SA3 A4+B1 02900 M01S00516.lidou +++| SA2 A1+B1 02901 M01S00517.lidou +++| SA7 A6+B1 02902 M01S00518.lidou +++| MX0 -18 02903 M01S00519.lidou +++| BX7 X2 CHARACTERS 4-13 OWNER IDENTIFIER 02904 M01S00520.lidou +++| BX1 -X0*X1 02905 M01S00521.lidou +++| SA4 A3+B2 02906 M01S00522.lidou +++| BX6 X0*X3 02907 M01S00523.lidou +++| MX0 6 02908 M01S00524.lidou +++| BX6 X6+X1 MERGE CHARACTERS 1-3 OWNER IDENTIFIER 02909 M01S00525.lidou +++| SA1 A2+B1 02910 M01S00526.lidou +++| SA6 A7+B1 02911 M01S00527.lidou +++| SA7 A6+B1 02912 M01S00528.lidou +++| BX4 -X0*X4 02913 M01S00529.lidou +++| BX1 X0*X1 02914 M01S00530.lidou +++| LX0 18 02915 M01S00531.lidou +++| SA2 A1+B2 02916 M01S00532.lidou +++| BX6 X4+X1 MERGE CHARACTER 14 OWNER IDENTIFIER 02917 M01S00533.lidou +++| LX2 12 02918 M01S00534.lidou +++| BX6 -X0*X6 02919 M01S00535.lidou +++| BX2 X0*X2 02920 M01S00536.lidou +++| BX6 X6+X2 MERGE LABEL STANDARD LEVEL 02921 M01S00537.lidou +++| SA6 A7+B1 02922 M01S00538.lidou +++| SB6 VEP-1 02923 M01S00539.lidou +++| SB7 VEPL+1 02924 M01S00540.lidou +++| EQ PRL4 RETURN 02925 M01S00541.lidou +++| PXL SPACE 4 02926 M01S00542.lidou +++|** PXL - PRINT LABELS FROM XL BUFFER. 02927 M01S00543.lidou +++|* 02928 M01S00544.lidou +++|* ENTRY (LR) = NUMBER OF LABELS READ SO FAR. 02929 M01S00545.lidou +++|* (LP) = NUMBER OF LABELS PRINTED SO FAR. 02930 M01S00546.lidou +++|* 02931 M01S00547.lidou +++|* EXIT (LR), (LP) UPDATED. 02932 M01S00548.lidou +++|* XL BUFFER CLEARED. 02933 M01S00549.lidou +++|* 02934 M01S00550.lidou +++|* USES X - 1, 4, 5, 6. 02935 M01S00551.lidou +++|* A - 0, 1, 4, 6. 02936 M01S00552.lidou +++|* 02937 M01S00553.lidou +++|* CALLS FLT, PRL. 02938 M01S00554.lidou +++| 02939 M01S00555.lidou +++| 02940 M01S00556.lidou +++| PXL2 SX6 B0+ CLEAR XL BUFFER 02941 M01S00557.lidou +++| SA6 TBUF 02942 M01S00558.lidou +++| 02943 M01S00559.lidou +++| PXL SUBR ENTRY/EXIT 02944 M01S00560.lidou +++| SX5 TBUF-9 PRESET XL BUFFER ADDRESS 02945 M01S00561.lidou +++| PXL1 SX5 X5+9 INCREMENT BUFFER ADDRESS 02946 M01S00562.lidou +++| SA1 LR 02947 M01S00563.lidou +++| SA4 X5 READ BUFFER ENTRY 02948 M01S00564.lidou +++| SX6 X1+B1 02949 M01S00565.lidou +++| ZR X4,PXL2 IF END OF LABELS IN BUFFER 02950 M01S00566.lidou +++| SA6 LR INCREMENT LABELS READ 02951 M01S00567.lidou +++| RJ FLT FIND LABEL TYPE 02952 M01S00568.lidou +++| SA0 B4 SET POSITION OF LABEL IN TABLE 02953 M01S00569.lidou +++| SA1 B4+TLAB 02954 M01S00570.lidou +++| LX1 59-0 02955 M01S00571.lidou +++| PL X1,PXL1 IF NOT PERMITTED TO PRINT THIS TYPE 02956 M01S00572.lidou +++| SA1 LP INCREMENT LABELS PRINTED 02957 M01S00573.lidou +++| SX6 X1+B1 02958 M01S00574.lidou +++| SA6 A1 02959 M01S00575.lidou +++| RJ PRL PRINT LABEL 02960 M01S00576.lidou +++| EQ PXL1 LOOP FOR NEXT LABEL 02961 M01S00577.lidou +++| SHD SPACE 4 02962 M01S00578.lidou +++|** SHD - SET UP *HDR1* LABEL IN EXTENDED LABEL BUFFER. 02963 M01S00579.lidou +++|* 02964 M01S00580.lidou +++|* ENTRY (SI) = SET IDENTIFIER.
| Line S00581 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02965 M02S00581.281l803 ---|* (QN) = SEQUENCE NUMBER FROM CONTROL CARD. 02966 M01S00006.281l803 +++|* (QN) = SEQUENCE NUMBER FROM COMMAND. 02967 M01S00582.lidou +++|* (SN) = SEQUENCE NUMBER TO BE USED IN *HDR1* LABEL. 02968 M01S00583.lidou +++|* 02969 M01S00584.lidou +++|* EXIT *HDR1* LABEL TYPE, SET ID, AND SEQUENCE NUMBER SET 02970 M01S00585.lidou +++|* IN EXTENDED LABEL BUFFER. 02971 M01S00586.lidou +++|* 02972 M01S00587.lidou +++|* USES X - 1, 2, 5, 6, 7. 02973 M01S00588.lidou +++|* B - NONE. 02974 M01S00589.lidou +++|* A - 1, 5, 6, 7. 02975 M01S00590.lidou +++| 02976 M01S00591.lidou +++| 02977 M01S00592.lidou +++| SHD SUBR ENTRY/EXIT 02978 M01S00593.lidou +++| SX6 80 SET LENGTH OF LABEL IN CHARACTERS 02979 M01S00594.lidou +++| SA6 TBUF 02980 M01S00595.lidou +++| SX1 3RHDR SET *HDR1* 02981 M01S00596.lidou +++| SX6 1R1 02982 M01S00597.lidou +++| LX1 6 02983 M01S00598.lidou +++| BX6 X1+X6 *HDR1* 02984 M01S00599.lidou +++| LX6 36 02985 M01S00600.lidou +++| SA6 TBUF+1+0 02986 M01S00601.lidou +++| MX6 0 CLEAR OUT FI FIELD IN XL BUFFER 02987 M01S00602.lidou +++| SA6 TBUF+1+1 02988 M01S00603.lidou +++| SA5 SI SET SETID IN XL BUFFER 02989 M01S00604.lidou +++| BX6 X5 02990 M01S00605.lidou +++| SA6 TBUF+1+2 02991 M01S00606.lidou +++| SA1 SN SEQUENCE NUMBER 02992 M01S00607.lidou +++| RJ COV CONVERT TO DISPLAY CODE 02993 M01S00608.lidou +++| MX2 -24 02994 M01S00609.lidou +++| BX6 -X2*X6 02995 M01S00610.lidou +++| LX6 30 02996 M01S00611.lidou +++| SA6 TBUF+1+3 SET SEQUENCE NUMBER IN XL BUFFER 02997 M01S00612.lidou +++| SX2 4 02998 M01S00613.lidou +++| MX6 0 02999 M01S00614.lidou +++| SHD1 SA6 TBUF+1+X2 ZERO REMAINING PORTION OF *HDR1* LABEL 03000 M01S00615.lidou +++| SX2 X2+1 03001 M01S00616.lidou +++| SX3 X2-9 03002 M01S00617.lidou +++| NZ X3,SHD1 IF MORE TO CLEAR 03003 M01S00618.lidou +++| EQ SHDX 03004 M01S00619.lidou +++| SPACE 4 03005 M01S00620.lidou +++|** WHL - WRITE HEADER LINE. 03006 M01S00621.lidou +++|* 03007 M01S00622.lidou +++|* ENTRY (PN) = PAGE NUMBER. 03008 M01S00623.lidou +++|* 03009 M01S00624.lidou +++|* EXIT (PN) = (PN) + 1. 03010 M01S00625.lidou +++|* (LC) = 3. 03011 M01S00626.lidou +++|* 03012 M01S00627.lidou +++|* USES X - 0, 1, 6. 03013 M01S00628.lidou +++|* B - 3. 03014 M01S00629.lidou +++|* A - 1, 6. 03015 M01S00630.lidou +++|*
| Line S00631 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03016 M02S00631.241l630 ---|* CALLS CDD, WTW=. 03017 M01S00006.241l630 +++|* CALLS CDD. 03018 M01S00007.241l630 +++|* 03019 M01S00008.241l630 +++|* MACROS WRITEW. 03020 M01S00632.lidou +++| 03021 M01S00633.lidou +++| 03022 M01S00634.lidou +++| WHL SUBR ENTRY/EXIT 03023 M01S00635.lidou +++| SA1 PN INCREMENT PAGE NUMBER 03024 M01S00636.lidou +++| SX6 X1+B1 03025 M01S00637.lidou +++| BX1 X6 03026 M01S00638.lidou +++| SA6 PN 03027 M01S00639.lidou +++| RJ CDD CONVERT PAGE NUMBER TO DISPLAY CODE 03028 M01S00640.lidou +++| SB3 B2-47 03029 M01S00641.lidou +++| SA1 PAGE 03030 M01S00642.lidou +++| LX6 12 03031 M01S00643.lidou +++| MX0 1 03032 M01S00644.lidou +++| SB3 -B3 03033 M01S00645.lidou +++| AX0 X0,B3 03034 M01S00646.lidou +++| BX6 -X0*X6 03035 M01S00647.lidou +++| BX1 X0*X1 03036 M01S00648.lidou +++| BX6 X1+X6 03037 M01S00649.lidou +++| SA6 A1 03038 M01S00650.lidou +++| WRITEW O,TITL,TITLL
| Line S00651 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03039 M02S00651.241l630 ---| SX6 3 SET LINE COUNT 03040 M01S00009.241l630 +++| SX6 3 SET LINE COUNT 03041 M01S00652.lidou +++| SA6 LC 03042 M01S00653.lidou +++| EQ WHLX RETURN 03043 M01S00654.lidou +++| TITLE CONSTANTS AND VARIABLES. 03044 M01S00655.lidou +++|** CONSTANTS AND VARIABLES. 03045 M01S00656.lidou +++| 03046 M01S00657.lidou +++| 03047 M01S00658.lidou +++|** TLAB FIELD DEFENITION. 03048 M01S00659.lidou +++|*T,TLAB VFD 24/LABEL IDENTIFIER
Figure TLAB
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "LABEL IDENTIFIER", "bits": VFD 24, "type": 1 } ] is invalid. Please check your syntax and try again.
03049 M01S00660.lidou +++|*T, VFD 18/ADDRESS OF LABEL PRINT PROCESSOR
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "ADDRESS OF LABEL PRINT PROCESSOR", "bits": VFD 18, "type": 1 } ] is invalid. Please check your syntax and try again.
03050 M01S00661.lidou +++|*T, VFD 17/NOT USED
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "NOT USED", "bits": VFD 17, "type": 1 } ] is invalid. Please check your syntax and try again.
03051 M01S00662.lidou +++|*T, VFD 1/LABEL TYPE MAY BE PRINTED
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "LABEL TYPE MAY BE PRINTED", "bits": VFD 1, "type": 1 } ] is invalid. Please check your syntax and try again.
03052 M01S00663.lidou +++| 03053 M01S00664.lidou +++| 03054 M01S00665.lidou +++| TLAB BSS 0 03055 M01S00666.lidou +++| LOC 0 03056 M01S00667.lidou +++| VFD 24/4LDARD,18/0,18/0 UNIDENTIFIED LABEL 03057 M01S00668.lidou +++| VOL1 VFD 24/4LVOL1,18/PVE,18/0 VOL1 03058 M01S00669.lidou +++| HDR1 VFD 24/4LHDR1,18/PHE,18/0 HDR1 03059 M01S00670.lidou +++| EOF1 VFD 24/4LEOF1,18/PHE,18/0 EOF1 03060 M01S00671.lidou +++| EOV1 VFD 24/4LEOV1,18/PHE,18/0 EOV1 03061 M01S00672.lidou +++| TLABA EQU *-VOL1 NUMBER OF REQUIRED LABELS 03062 M01S00673.lidou +++| VOL VFD 24/4LVOLN,18/0,18/0 VOL2-9 03063 M01S00674.lidou +++| HDR VFD 24/4LHDRN,18/0,18/0 HDR2-9 03064 M01S00675.lidou +++| EOF VFD 24/4LEOFN,18/0,18/0 EOF2-9 03065 M01S00676.lidou +++| EOV VFD 24/4LEOVN,18/0,18/0 EOV2-9 03066 M01S00677.lidou +++| UVL VFD 24/4LUVLX,18/0,18/0 UVLX 03067 M01S00678.lidou +++| UHL VFD 24/4LUHLX,18/0,18/0 UHLX 03068 M01S00679.lidou +++| UTL VFD 24/4LUTLX,18/0,18/0 UTLX 03069 M01S00680.lidou +++| LOC *O 03070 M01S00681.lidou +++| TLABL EQU *-TLAB 03071 M01S00682.lidou +++| 03072 M01S00683.lidou +++| QN CON 0 FILE SEQUENCE NUMBER 03073 M01S00684.lidou +++| SN CON 1 SEQUENCE NUMBER TO USE IN *HDR1* LABEL 03074 M01S00685.lidou +++| CR CON 0 CLOSE REEL FLAG 03075 M01S00686.lidou +++| EF CON 0 SAVE ERROR FLAG HERE 03076 M01S00687.lidou +++| TF CON 0 0=DO NOT READ TRAILER LABELS 03077 M01S00688.lidou +++|* 1=READ TRAILER LABELS 03078 M01S00689.lidou +++| SI CON 0 SET IDENTIFIER 03079 M01S00690.lidou +++| PN BSSZ 1 PAGE NUMBER
| Line S00691 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03080 M02S00691.241l630 ---| LC BSSZ 1 LINE COUNT 03081 M01S00010.241l630 +++| LC BSSZ 2 LINE COUNT 03082 M01S00011.241l630 +++| LL EQU LC+1 LINE LIMIT 03083 M01S00692.lidou +++| LR BSSZ 1 LABELS READ 03084 M01S00693.lidou +++| LP BSSZ 1 LABELS PRINTED 03085 M01S00694.lidou +++| 03086 M01S00003.@000002 +++| TLOF VFD 12/0,18/TLOF+1,30/1 03087 M01S00004.@000002 +++| CON 3 SETLOF FLUSH TABLE 03088 M01S00005.@000002 +++| VFD 42/6LOUTPUT,18/O 03089 M01S00006.@000002 +++| CON 0 END OF SETLOF TABLE 03090 M01S00695.lidou +++| 03091 M01S00696.lidou +++| NSL DATA 10H NON-STAN 03092 M01S00697.lidou +++| LIN DATA 10H LABEL OUTPUT LINE 03093 M01S00698.lidou +++| DATA 6A LABEL 03094 M01S00699.lidou +++| DATA 10H READ: 03095 M01S00700.lidou +++| LAB BSS 8 03096 M01S00701.lidou +++| DATA 8L 03097 M01S00702.lidou +++| DATA 8L 03098 M01S00703.lidou +++| LINL EQU *-LIN 03099 M01S00704.lidou +++| 03100 M01S00705.lidou +++| DATA 10H HDR1,EOF1,EOV1 PARAMETER OUTPUT LINE 03101 M01S00706.lidou +++| HEP DATA 10H FI=...... 03102 M01S00707.lidou +++| DATA 10H.......... 03103 M01S00708.lidou +++| DATA 10H., SI=.... 03104 M01S00709.lidou +++| DATA 10H.., SN=... 03105 M01S00710.lidou +++| DATA 10H., QN=.... 03106 M01S00711.lidou +++| DATA 10H, G=...., 03107 M01S00712.lidou +++| DATA 10HE=.., CR=. 03108 M01S00713.lidou +++| DATA 10H....., RT= 03109 M01S00714.lidou +++| DATA 10H......, FA 03110 M01S00715.lidou +++| DATA 3L=.. 03111 M01S00716.lidou +++| DATA 2L 03112 M01S00717.lidou +++| HEPL EQU *-HEP 03113 M01S00718.lidou +++| 03114 M01S00719.lidou +++| DATA 10H VOL1 PARAMETER OUTPUT LINE 03115 M01S00720.lidou +++| VEP DATA 10H VSN=..... 03116 M01S00721.lidou +++| DATA 10H., VA=., O 03117 M01S00722.lidou +++| DATA 10HWNERID=... 03118 M01S00723.lidou +++| DATA 10H.......... 03119 M01S00724.lidou +++| DATA 10H., LSL=.. 03120 M01S00725.lidou +++| DATA 8L 03121 M01S00726.lidou +++| DATA 2L 03122 M01S00727.lidou +++| VEPL EQU *-VEP 03123 M01S00728.lidou +++|
| Line S00729 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03124 M02S00729.241l630 ---| TITL DATA 10H1 03125 M01S00012.241l630 +++| TITL DATA 10H 03126 M01S00730.lidou +++| DATA 40H LISTLB - LIST MAGNETIC TAPE LABELS. 03127 M01S00731.lidou +++| DATA 40H 03128 M01S00732.lidou +++| DATE DATA 10H 03129 M01S00733.lidou +++| TIME DATA 10H 03130 M01S00734.lidou +++| DATA 4APAGE 03131 M01S00735.lidou +++| PAGE DATA 8L 03132 M01S00736.lidou +++| DATA 2L 03133 M01S00737.lidou +++| DATA 2L 03134 M01S00738.lidou +++| TITLL EQU *-TITL 03135 M01S00739.lidou +++| 03136 M01S00740.lidou +++| LRP DATA 10H LABELS READ AND PRINTED 03137 M01S00741.lidou +++| LBR DATA 10H 03138 M01S00742.lidou +++| DATA 10H LABELS RE 03139 M01S00743.lidou +++| DATA 10HAD. 03140 M01S00744.lidou +++| LBP DATA 10H 03141 M01S00745.lidou +++| DATA 10H LABELS PR 03142 M01S00746.lidou +++| DATA 6LINTED. 03143 M01S00747.lidou +++| LRPL EQU *-LRP 03144 M01S00748.lidou +++| COMC SPACE 4 03145 M01S00749.lidou +++|** CALL COMMON DECKS. 03146 M01S00750.lidou +++| 03147 M01S00751.lidou +++| 03148 M01S00752.lidou +++|*CALL COMCCDD 03149 M01S00753.lidou +++|*CALL COMCCIO 03150 M01S00754.lidou +++|*CALL COMCLFM 03151 M01S00755.lidou +++|*CALL COMCMVE 03152 M01S00756.lidou +++|*CALL COMCSYS 03153 M01S00757.lidou +++|*CALL COMCWTW 03154 M01S00758.lidou +++| EJECT 03155 M01S00759.lidou +++| USE // 03156 M01S00760.lidou +++| SEG 03157 M01S00761.lidou +++| BUFS BSS 0 03158 M01S00762.lidou +++| 03159 M01S00763.lidou +++| TBUF EQU * 03160 M01S00764.lidou +++| 03161 M01S00765.lidou +++| OBUF EQU TBUF+TBUFL 03162 M01S00766.lidou +++| 03163 M01S00767.lidou +++| RFL= EQU OBUF+OBUFL+4 03164 M01S00768.lidou +++| ARG= EQU * 03165 M01S00769.lidou +++| TITLE PRESET. 03166 M01S00770.lidou +++| PRS SPACE 4 03167 M01S00771.lidou +++| ORG BUFS 03168 M01S00772.lidou +++| 03169 M01S00773.lidou +++| 03170 M01S00774.lidou +++|** THE FOLLOWING CODE IS OVERLAYED BY TLAB THE TABLE OF LABELS 03171 M01S00775.lidou +++|* READ FROM THE TAPE. 03172 M01S00776.lidou +++| 03173 M01S00777.lidou +++|** PRS - PRESET. 03174 M01S00778.lidou +++|*
| Line S00779 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03175 M02S00779.241l630 ---|* ENTRY NONE.
| Line S00780 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03176 M02S00780.241l630 ---|*
| Line S00781 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03177 M02S00781.241l630 ---|* EXIT NONE.
| Line S00782 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03178 M02S00782.241l630 ---|*
| Line S00783 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Yanked) (Updated by) | @000002 |
Seq # *Modification Id* Act ----------------------------+ 03179 M02S00783.@000002 ---|* USES X - 1, 3, 4, 5, 6. 03180 M01S00007.@000002 +++|* USES X - 0, 1, 3, 4, 5, 6.
| Line S00784 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03181 M02S00784.241l630 ---|* B - 2, 3, 4.
| Line S00785 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03182 M02S00785.241l630 ---|* A - 1, 4, 6. 03183 M01S00013.241l630 +++|* A - 1, 4, 5, 6. 03184 M01S00014.241l630 +++|* B - 2, 3, 4. 03185 M01S00786.lidou +++|*
| Line S00787 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 241l630 |
Seq # *Modification Id* Act ----------------------------+ 03186 M02S00787.241l630 ---|* CALLS ARGUMENT PROCESSORS. 03187 M01S00015.241l630 +++|* CALLS IPP, KWD, PER, POP, USB, WHL. 03188 M01S00016.241l630 +++|* 03189 M01S00017.241l630 +++|* MACROS CLOCK, DATE, REWIND. 03190 M01S00788.lidou +++| 03191 M01S00789.lidou +++| PRS SUBR ENTRY/EXIT 03192 M01S00790.lidou +++| SB1 1
| Line S00791 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03193 M02S00791.281l803 ---| SB2 CCDR UNPACK CONTROL CARD 03194 M01S00007.281l803 +++| SB2 CCDR UNPACK COMMAND 03195 M01S00792.lidou +++| RJ USB 03196 M01S00793.lidou +++| SA5 PRSA 03197 M01S00794.lidou +++| PRS0 RJ POP PICK OUT PARAMETER
| Line S00795 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03198 M02S00795.281l803 ---| NG B5,PRS6 IF CONTROL CARD ERROR 03199 M01S00008.281l803 +++| NG B5,PRS6 IF COMMAND ERROR 03200 M01S00796.lidou +++| BX3 X6-X5 03201 M01S00797.lidou +++| NZ X3,PRS0 IF NOT PROGRAM NAME 03202 M01S00798.lidou +++| RJ POP
| Line S00799 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03203 M02S00799.281l803 ---| NG B5,PRS6 IF CONTROL CARD ERROR 03204 M01S00009.281l803 +++| NG B5,PRS6 IF COMMAND ERROR 03205 M01S00800.lidou +++| SA4 A1 03206 M01S00801.lidou +++| SX5 X6 03207 M01S00802.lidou +++| SX3 X4-1R= 03208 M01S00803.lidou +++| ZR X3,PRS2 IF NO TAPE FILE SPECIFIED
| Line S00804 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03209 M02S00804.281l803 ---| NZ X5,PRS8 IF ILLEGAL PARAMETER 03210 M01S00010.281l803 +++| NZ X5,PRS8 IF INCORRECT PARAMETER 03211 M01S00805.lidou +++| SA1 T PLACE USER SPECIFIED FILE NAME IN FET 03212 M01S00806.lidou +++| SX1 X1 03213 M01S00807.lidou +++| BX6 X1+X6 03214 M01S00808.lidou +++| SA6 T 03215 M01S00809.lidou +++| 03216 M01S00810.lidou +++|* RETURN FROM ARGUMENT PROCESSORS. 03217 M01S00811.lidou +++| 03218 M01S00812.lidou +++| PRS1 RJ POP GET NEXT PARAMETER 03219 M01S00813.lidou +++| SA4 A1+
| Line S00814 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03220 M02S00814.281l803 ---| NG B5,PRS6 IF CONTROL CARD ERROR 03221 M01S00011.281l803 +++| NG B5,PRS6 IF COMMAND ERROR 03222 M01S00815.lidou +++| PRS2 SX3 X4-1R= 03223 M01S00816.lidou +++| NZ X3,PRS6 IF NOT *=*
| Line S00817 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03224 M02S00817.281l803 ---| ZR X2,PRS8 IF ILLEGAL TERMINATOR 03225 M01S00012.281l803 +++| ZR X2,PRS8 IF INCORRECT TERMINATOR 03226 M01S00818.lidou +++| RJ KWD
| Line S00819 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03227 M02S00819.281l803 ---| ZR B3,PRS6 IF ILLEGAL KEYWORD 03228 M01S00013.281l803 +++| ZR B3,PRS6 IF INCORRECT KEYWORD 03229 M01S00820.lidou +++| RJ POP
| Line S00821 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03230 M02S00821.281l803 ---| NG B5,PRS8 IF ILLEGAL PARAMETER 03231 M01S00014.281l803 +++| NG B5,PRS8 IF INCORRECT PARAMETER 03232 M01S00822.lidou +++| JP B3 JUMP TO ELEMENT PROCESSOR 03233 M01S00823.lidou +++| 03234 M01S00824.lidou +++| PRS3 SA1 SI CHECK FOR *SETID* 03235 M01S00825.lidou +++| NZ X1,PRS4 IF *SET ID* SPECIFIED 03236 M01S00826.lidou +++| SA1 QN SEQUENCE NUMBER 03237 M01S00827.lidou +++| ZR X1,PRS4 IF FILE SEQUENCE NUMBER SPECIFIED
| Line S00828 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03238 M02S00828.281l803 ---| SX1 QNS ILLEGAL COMBINATION OF PARAMETERS 03239 M01S00015.281l803 +++| SX1 QNS INCORRECT COMBINATION OF PARAMETERS 03240 M01S00829.lidou +++| JP PER 03241 M01S00830.lidou +++| 03242 M01S00831.lidou +++| PRS4 REWIND T,R 03243 M01S00832.lidou +++| CLOCK TIME 03244 M01S00833.lidou +++| DATE DATE 03245 M01S00018.241l630 +++| RJ IPP INITIALIZE PAGE PARAMETERS 03246 M01S00834.lidou +++| RJ WHL WRITE HEADER LINE 03247 M01S00835.lidou +++| SX1 TBUFL SET EXTENDED LABEL BUFFER LENGTH AND 03248 M01S00836.lidou +++|* ADDRESS 03249 M01S00837.lidou +++| SX6 TBUF 03250 M01S00838.lidou +++| LX1 18 03251 M01S00839.lidou +++| BX6 X6+X1 03252 M01S00840.lidou +++| SA6 T+9 03253 M01S00008.@000002 +++| MX0 1 SET FLUSH BIT IN LIST OUTPUT FET 03254 M01S00009.@000002 +++| LX0 36-59 03255 M01S00010.@000002 +++| SA1 O+1 03256 M01S00011.@000002 +++| BX6 X0+X1 03257 M01S00012.@000002 +++| SA6 A1 03258 M01S00013.@000002 +++| MX0 42 MOVE LIST OUTPUT LFN TO SETLOF TABLE 03259 M01S00014.@000002 +++| SA1 A1-B1 03260 M01S00015.@000002 +++| BX1 X0*X1 03261 M01S00016.@000002 +++| SX6 O 03262 M01S00017.@000002 +++| BX6 X1+X6 03263 M01S00018.@000002 +++| SA6 TLOF+2 03264 M01S00019.@000002 +++| SETLOF TLOF SET FLUSH BIT TABLE POINTER 03265 M01S00841.lidou +++| SA1 LO 03266 M01S00842.lidou +++| NZ X1,PRSX IF LO PROCESSED 03267 M01S00843.lidou +++| SB4 TLABL 03268 M01S00844.lidou +++| SX5 B1 03269 M01S00845.lidou +++| SB3 B0 03270 M01S00846.lidou +++| PRS5 SA1 TLAB+B3 SET PERMISION TO PRINT ALL LABELS 03271 M01S00847.lidou +++| SB3 B3+B1 03272 M01S00848.lidou +++| BX6 X1+X5 03273 M01S00849.lidou +++| SA6 A1+ 03274 M01S00850.lidou +++| LT B3,B4,PRS5 IF NOT END OF LABEL TABLE 03275 M01S00851.lidou +++| SX6 B1 SET READ TRAILER LABELS FLAG 03276 M01S00852.lidou +++| SA6 TF 03277 M01S00853.lidou +++| JP PRSX RETURN 03278 M01S00854.lidou +++| 03279 M01S00855.lidou +++| PRS6 ZR B6,PRS3 IF END OF PARAMETERS
| Line S00856 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03280 M02S00856.281l803 ---| SX1 CCE CONTROL CARD ERROR 03281 M01S00016.281l803 +++| SX1 CCE COMMAND ERROR 03282 M01S00857.lidou +++| JP PER 03283 M01S00858.lidou +++| 03284 M01S00859.lidou +++| PRS7 SX1 FNE FILE NAME ERROR 03285 M01S00860.lidou +++| JP PER 03286 M01S00861.lidou +++|
| Line S00862 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03287 M02S00862.281l803 ---| PRS8 SX1 IPE ILLEGAL PARAMETER ERROR 03288 M01S00017.281l803 +++| PRS8 SX1 IPE INCORRECT PARAMETER ERROR 03289 M01S00863.lidou +++| JP PER 03290 M01S00864.lidou +++| 03291 M01S00865.lidou +++| PRSA CON 0LLISTLB 03292 M01S00019.241l630 +++| IPP SPACE 4,15 03293 M01S00020.241l630 +++|** IPP - INITIALIZE PAGE PARAMETERS. 03294 M01S00021.241l630 +++|* 03295 M01S00022.241l630 +++|* EXIT (LL) = LINE LIMIT. 03296 M01S00023.241l630 +++|* 03297 M01S00024.241l630 +++|* USES X - 1, 2, 6. 03298 M01S00025.241l630 +++|* A - 1, 6. 03299 M01S00026.241l630 +++|* 03300 M01S00027.241l630 +++|* CALLS STF. 03301 M01S00028.241l630 +++|* 03302 M01S00029.241l630 +++|* MACROS GETPP, WRITEC. 03303 M01S00030.241l630 +++| 03304 M01S00031.241l630 +++| 03305 M01S00032.241l630 +++| IPP SUBR ENTRY/EXIT 03306 M01S00033.241l630 +++| GETPP IPPA,LL,IPPA GET PAGE SIZE PARAMETERS 03307 M01S00034.241l630 +++| SX2 O 03308 M01S00035.241l630 +++| RJ STF 03309 M01S00036.241l630 +++| ZR X6,IPPX IF TERMINAL PRINT FILE 03310 M01S00037.241l630 +++| WRITEC X2,IPPA 03311 M01S00038.241l630 +++| SA1 =10H1 03312 M01S00039.241l630 +++| BX6 X1 FORCE PAGE EJECT 03313 M01S00040.241l630 +++| SA6 TITL 03314 M01S00041.241l630 +++| EQ IPPX RETURN 03315 M01S00042.241l630 +++| 03316 M01S00043.241l630 +++| 03317 M01S00044.241l630 +++| IPPA BSS 2 PAGE SIZE PARAMETERS 03318 M01S00866.lidou +++| KWD SPACE 4 03319 M01S00867.lidou +++|** KWD - KEYWORD VERIFIER. 03320 M01S00868.lidou +++|* 03321 M01S00869.lidou +++|* ENTRY (X6) = KEYWORD. 03322 M01S00870.lidou +++|* 03323 M01S00871.lidou +++|* EXIT (B3) = ADDRESS OF KEYWORD PROCESSOR. 03324 M01S00872.lidou +++|* (B3) = 0, IF KEYWORD NOT FOUND. 03325 M01S00873.lidou +++|* 03326 M01S00874.lidou +++|* USES A - 1, 7. 03327 M01S00875.lidou +++|* X - 0, 1, 7. 03328 M01S00876.lidou +++| 03329 M01S00877.lidou +++| 03330 M01S00878.lidou +++| KWD SUBR ENTRY/EXIT 03331 M01S00879.lidou +++| BX1 X6 03332 M01S00880.lidou +++| AX1 59 03333 M01S00881.lidou +++| SA1 X1+TKWD-1 03334 M01S00882.lidou +++| KWD1 SA1 A1+B1 03335 M01S00883.lidou +++| BX0 X6-X1 03336 M01S00884.lidou +++| SB3 X1 ADDRESS OF KEYWORD PROCESSOR 03337 M01S00885.lidou +++| AX0 48 03338 M01S00886.lidou +++| ZR X1,KWDX IF END OF TABLE 03339 M01S00887.lidou +++| NZ X0,KWD1 IF NO MATCH 03340 M01S00888.lidou +++| MX7 -1 ENABLE/DISABLE LITERAL PROCESSING 03341 M01S00889.lidou +++| LX1 0-18 03342 M01S00890.lidou +++| BX7 -X7*X1 03343 M01S00891.lidou +++| SA7 LIT 03344 M01S00892.lidou +++| JP KWDX RETURN 03345 M01S00893.lidou +++| 03346 M01S00894.lidou +++| 03347 M01S00895.lidou +++|** TKWD - TABLE OF KEYWORDS. 03348 M01S00896.lidou +++|* 03349 M01S00897.lidou +++|*T 12/ARGUMENT,29/0,1/LA,18/ARGUMENT PROCESSOR
Figure
03350 M01S00898.lidou +++|* LA = 0 IF LITERALS ARE ALLOWED 03351 M01S00899.lidou +++|* LA = 1 IF LITERALS ARE NOT ALLOWED 03352 M01S00900.lidou +++| 03353 M01S00901.lidou +++| 03354 M01S00902.lidou +++| TKWD BSS 0 03355 M01S00903.lidou +++| VFD 12/0LL,29/0,1/0,18/PLP 03356 M01S00904.lidou +++| VFD 12/0LLO,29/0,1/0,18/PLO 03357 M01S00905.lidou +++| VFD 12/0LSI,29/0,1/1,18/PSI 03358 M01S00906.lidou +++| VFD 12/0LM,29/0,1/1,18/PSI 03359 M01S00907.lidou +++| VFD 12/0LQN,29/0,1/0,18/PQN 03360 M01S00908.lidou +++| VFD 12/0LP,29/0,1/0,18/PQN 03361 M01S00909.lidou +++| CON 0 END OF TABLE 03362 M01S00910.lidou +++| PER SPACE 4 03363 M01S00911.lidou +++|** PER - PROCESS ERRORS. 03364 M01S00912.lidou +++|* 03365 M01S00913.lidou +++|* ENTRY (X1) = ADDRESS OF ERROR MESSAGE. 03366 M01S00914.lidou +++| 03367 M01S00915.lidou +++| 03368 M01S00916.lidou +++| PER BSS 0 03369 M01S00917.lidou +++| MESSAGE X1 03370 M01S00918.lidou +++| ABORT 03371 M01S00919.lidou +++| 03372 M01S00920.lidou +++|
| Line S00921 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03373 M02S00921.281l803 ---| CCE DATA C* CONTROL CARD ERROR.* 03374 M01S00018.281l803 +++| CCE DATA C* COMMAND ERROR.* 03375 M01S00922.lidou +++| FNE DATA C* FILE NAME ERROR.*
| Line S00923 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03376 M02S00923.281l803 ---| IPE DATA C* ILLEGAL PARAMETER.*
| Line S00924 Modification History | |
|---|---|
M01 (Added by) | lidou |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03377 M02S00924.281l803 ---| QNS DATA C* ILLEGAL COMBINATION OF QN/SI.* 03378 M01S00019.281l803 +++| IPE DATA C* INCORRECT PARAMETER.* 03379 M01S00020.281l803 +++| QNS DATA C* INCORRECT COMBINATION OF QN/SI.* 03380 M01S00925.lidou +++| TITLE ARGUMENT PROCESSORS. 03381 M01S00926.lidou +++|** PLO - PROCESS LO PARAMETER. 03382 M01S00927.lidou +++|* 03383 M01S00928.lidou +++|* ENTRY (X6) = LIST OPTIONS. 03384 M01S00929.lidou +++| 03385 M01S00930.lidou +++| 03386 M01S00931.lidou +++| PLO BSS 0 ENTRY 03387 M01S00932.lidou +++| MX0 -6 03388 M01S00933.lidou +++| BX1 -X0*X6 03389 M01S00934.lidou +++| NZ X1,PRS8 IF TOO MANY LIST OPTIONS 03390 M01S00935.lidou +++| PLO1 LX6 6 03391 M01S00936.lidou +++| SX5 1RA 03392 M01S00937.lidou +++| BX1 -X0*X6 03393 M01S00938.lidou +++| ZR X1,PLO4 IF END OF LIST OPTIONS - RETURN 03394 M01S00939.lidou +++| BX1 X1-X5 03395 M01S00940.lidou +++| ZR X1,PRS1 IF *A* LIST OPTION 03396 M01S00941.lidou +++| SX5 B1 PRINT LABEL BIT 03397 M01S00942.lidou +++| SA1 TPLO-1 03398 M01S00943.lidou +++| PLO2 SA1 A1+B1 03399 M01S00944.lidou +++| BX3 X6-X1 03400 M01S00945.lidou +++| ZR X1,PRS8 IF LIST OPTION NOT IN TABLE 03401 M01S00946.lidou +++| BX3 -X0*X3 03402 M01S00947.lidou +++| NZ X3,PLO2 IF NO MATCH 03403 M01S00948.lidou +++| MX3 -4 03404 M01S00949.lidou +++| SA2 TF 03405 M01S00950.lidou +++| NZ X2,PLO3 IF READ TRAILER LABEL FLAG ALREADY SET 03406 M01S00951.lidou +++| BX2 -X0*X1 CHECK OPTIONS 03407 M01S00952.lidou +++| SX7 X2-1RH 03408 M01S00953.lidou +++| ZR X7,PLO3 IF *H* OPTION SELECTED 03409 M01S00954.lidou +++| SX7 X2-1RV 03410 M01S00955.lidou +++| ZR X7,PLO3 IF *V* OPTION SELECTED 03411 M01S00956.lidou +++| SX7 B1 SET READ TRAILER LABELS FLAG 03412 M01S00957.lidou +++| SA7 A2 03413 M01S00958.lidou +++| PLO3 LX1 4 03414 M01S00959.lidou +++| BX4 -X3*X1 03415 M01S00960.lidou +++| ZR X4,PLO1 IF DONE PROCESSING THIS LIST OPTION 03416 M01S00961.lidou +++| SA4 X4+TLAB 03417 M01S00962.lidou +++| BX7 X4+X5 03418 M01S00963.lidou +++| SA7 A4 03419 M01S00964.lidou +++| EQ PLO3 03420 M01S00965.lidou +++| 03421 M01S00966.lidou +++| PLO4 SA6 LO SET LIST OPTIONS PROCESSED 03422 M01S00967.lidou +++| EQ PRS1 GET NEXT PARAMETER 03423 M01S00968.lidou +++| 03424 M01S00969.lidou +++| LO CON 0 03425 M01S00970.lidou +++| 03426 M01S00971.lidou +++| TPLO BSS 0 03427 M01S00972.lidou +++| VFD 4/VOL1,4/HDR1,4/EOF1,4/EOV1,4/VOL,4/HDR,4/EOF,4/EOV 03428 M01S00973.lidou +++| VFD 4/UVL/,4/UHL,4/UTL,10/0,6/1RA A - OPTION 03429 M01S00974.lidou +++| VFD 4/VOL1,4/HDR1,4/EOF1,4/EOV1,38/0,6/1RR R - OPTION 03430 M01S00975.lidou +++| VFD 4/VOL,4/HDR,4/EOF,4/EOV,4/UVL,4/UHL,4/UTL,26/0 03431 M01S00976.lidou +++| VFD 6/1RO O - OPTION 03432 M01S00977.lidou +++| VFD 4/VOL1,4/VOL,46/0,6/1RV V - OPTION 03433 M01S00978.lidou +++| VFD 4/HDR1,4/HDR,46/0,6/1RH H - OPTION 03434 M01S00979.lidou +++| VFD 4/EOF1,4/EOF,46/0,6/1RF F - OPTION 03435 M01S00980.lidou +++| VFD 4/EOV1,4/EOV,46/0,6/1RE E - OPTION 03436 M01S00981.lidou +++| VFD 4/UVL,4/UHL,4/UTL,42/0,6/1RU U - OPTION 03437 M01S00982.lidou +++| CON 0 END OF TABLE 03438 M01S00983.lidou +++| PLP SPACE 4 03439 M01S00984.lidou +++|** PLP - PROCESS L PARAMETER. 03440 M01S00985.lidou +++|* 03441 M01S00986.lidou +++|* ENTRY (X6) = OUTPUT FILE NAME. 03442 M01S00987.lidou +++| 03443 M01S00988.lidou +++| 03444 M01S00989.lidou +++| PLP BSS 0 ENTRY 03445 M01S00990.lidou +++| MX0 42 03446 M01S00991.lidou +++| BX0 -X0*X6 03447 M01S00992.lidou +++| SA1 O 03448 M01S00993.lidou +++| NZ X0,PRS7 IF FILE NAME TOO LONG 03449 M01S00994.lidou +++| SX1 X1 03450 M01S00995.lidou +++| BX6 X6+X1 03451 M01S00996.lidou +++| SA6 A1 03452 M01S00997.lidou +++| JP PRS1 GET NEXT PARAMETER 03453 M01S00998.lidou +++| PSI SPACE 4 03454 M01S00999.lidou +++|** PSI - PROCESS SI PARAMETER. 03455 M01S01000.lidou +++|* 03456 M01S01001.lidou +++|* ENTRY (X6) = SET IDENTIFIER. 03457 M01S01002.lidou +++| 03458 M01S01003.lidou +++| 03459 M01S01004.lidou +++| PSI BSS 0 ENTRY 03460 M01S01005.lidou +++| MX0 6*6 03461 M01S01006.lidou +++| BX0 -X0*X6 03462 M01S01007.lidou +++| NZ X0,PRS8 IF SET IDENTIFIER TOO LONG 03463 M01S01008.lidou +++| BX1 X6 03464 M01S01009.lidou +++| RJ SFN SPACE FILL NAME 03465 M01S01010.lidou +++| MX0 6*6 03466 M01S01011.lidou +++| BX6 X0*X6 03467 M01S01012.lidou +++| LX6 54 03468 M01S01013.lidou +++| SA6 SI 03469 M01S01014.lidou +++| JP PRS1 GET NEXT PARAMETER 03470 M01S01015.lidou +++| PQN SPACE 4 03471 M01S01016.lidou +++|** PQN - PROCESS QN PARAMETER. 03472 M01S01017.lidou +++|* 03473 M01S01018.lidou +++|* ENTRY (X6) = FILE SEQUENCE NUMBER. 03474 M01S01019.lidou +++| 03475 M01S01020.lidou +++| 03476 M01S01021.lidou +++| PQN BSS 0 ENTRY 03477 M01S01022.lidou +++| MX0 4*6 03478 M01S01023.lidou +++| BX5 X6 03479 M01S01024.lidou +++| BX0 -X0*X6 03480 M01S01025.lidou +++| NZ X0,PRS8 IF FILE SEQUENCE NUMBER TOO LONG 03481 M01S01026.lidou +++| SB7 B1 03482 M01S01027.lidou +++| RJ DXB CONVERT TO BINARY 03483 M01S01028.lidou +++| SA6 SN 03484 M01S01029.lidou +++| SA6 QN 03485 M01S01030.lidou +++| JP PRS1 GET NEXT PARAMETER 03486 M01S01031.lidou +++| SPACE 4 03487 M01S01032.lidou +++|** COMMON DECKS. 03488 M01S01033.lidou +++| 03489 M01S01034.lidou +++|*CALL COMCCPM 03490 M01S01035.lidou +++|*CALL COMCDXB 03491 M01S01036.lidou +++| LIT CON 0 DEFINE LITERAL PROCESSING 03492 M01S01037.lidou +++|*CALL COMCPOP 03493 M01S01038.lidou +++|*CALL COMCSFN 03494 M01S00045.241l630 +++|*CALL COMCSTF 03495 M01S01039.lidou +++|*CALL COMCUSB 03496 M01S00046.241l630 +++|*CALL COMCWTC 03497 M01S01040.lidou +++| SPACE 4 03498 M01S01041.lidou +++| END
cdc/nos2.source/opl.opl871/deck/lidou.001.txt · Last modified: by 127.0.0.1