cdc:nos2.source:opl.opl871:deck:docment.001
Deck DOCMENT Part 001
6 Modifications
Listing Sections
- Deck DOCMENT Start
- Deck DOCMENT Part 1 (Line 1937)
Source
Seq # *Modification Id* Act ----------------------------+ 01937 M00S01853.docment +++| ZR B6,CMP1 IF DONE 01938 M00S01854.docment +++| TIT3 LX7 6 ENCODE 10 CHARACTERS 01939 M00S01855.docment +++| SB7 B7-B1 DECREMENT CHARACTER COUNT 01940 M00S01856.docment +++| BX7 X7+X2 01941 M00S01857.docment +++| SA2 A2+B1 READ NEXT CHARACTER 01942 M00S01858.docment +++| NZ B7,TIT3 LOOP FOR 10 CHARACTERS 01943 M00S01859.docment +++| EQ TIT2 GET NEXT WORD 01944 M00S01860.docment +++| TITLE COMMON DECKS. 01945 M00S01861.docment +++|** COMMON DECKS. 01946 M00S01862.docment +++| 01947 M00S01863.docment +++|*CALL COMCSFN 01948 M00S01864.docment +++|*CALL COMCMVE 01949 M00S01865.docment +++|*CALL COMCWTO 01950 M00S01866.docment +++|*CALL COMCDXB 01951 M00S01867.docment +++|*CALL COMCRDC 01952 M00S01868.docment +++|*CALL COMCRDO 01953 M00S01869.docment +++|*CALL COMCRDH 01954 M00S01870.docment +++|*CALL COMCRDS 01955 M00S01871.docment +++|*CALL COMCRDW 01956 M00S01872.docment +++|*CALL COMCWTC 01957 M00S01873.docment +++|*CALL COMCWTS 01958 M00S01874.docment +++|*CALL COMCWTW 01959 M00S01875.docment +++|*CALL COMCCIO 01960 M00S01876.docment +++|*CALL COMCSYS 01961 M00S01877.docment +++| TITLE DECODING AREA. 01962 M00S01878.docment +++| USE DECODE DECODE AREA 01963 M00S01879.docment +++| 01964 M00S01880.docment +++| TCF BSS 0 TABLE CONTENT LINE 01965 M00S01881.docment +++| DUP 9,1 01966 M00S01882.docment +++| DATA 1R 01967 M00S01883.docment +++| DATA 1R/ 01968 M00S01884.docment +++| 01969 M00S01885.docment +++| TCL BSSZ 73 01970 M00S01886.docment +++| 01971 M00S01887.docment +++| BLN BSS 0 SOME BLANKS 01972 M00S01888.docment +++| DUP 11,1 01973 M00S01889.docment +++| DATA 1R 01974 M00S01890.docment +++| 01975 M00S01891.docment +++| AST BSS 0 BUNCH OF ASTERISKS 01976 M00S01892.docment +++| DUP 72 01977 M00S01893.docment +++| DATA 1R- 01978 M00S01894.docment +++| ENDD 01979 M00S01895.docment +++| 01980 M00S01896.docment +++| BP1 BSS 0 BIT POSITION TEMPLATE FOR LINE 1 01981 M00S01897.docment +++| NUM SET 59 01982 M00S01898.docment +++| DUP 1000 01983 M00S01899.docment +++| TEN SET NUM/10 01984 M00S01900.docment +++| DUP 9,1 01985 M00S01901.docment +++| CON 1R 01986 M00S01902.docment +++| IFNE TEN,0,2 01987 M00S01903.docment +++| CON TEN+1R0 01988 M00S01904.docment +++| ELSE 1 01989 M00S01905.docment +++| CON 1R 01990 M00S01906.docment +++| NUM SET NUM-10 01991 M00S01907.docment +++| IFLT NUM,0,1 01992 M00S01908.docment +++| STOPDUP 01993 M00S01909.docment +++| ENDD 01994 M00S01910.docment +++| 01995 M00S01911.docment +++| BP1L BSS 0 DEFINE END OF TEMPLATE 01996 M00S01912.docment +++| 01997 M00S01913.docment +++| BP2 BSS 0 BIT POSITION TEMPLATE FOR LINE 2 01998 M00S01914.docment +++| 01999 M00S01915.docment +++| NUM SET 9 02000 M00S01916.docment +++| DUP 60 02001 M00S01917.docment +++| VFD 60/NUM+1R0 02002 M00S01918.docment +++| NUM SET NUM-1 02003 M00S01919.docment +++| IFLT NUM,0,1 02004 M00S01920.docment +++| NUM SET 9 02005 M00S01921.docment +++| ENDD 02006 M00S01922.docment +++| 02007 M00S01923.docment +++| BP2L BSS 0 DEFINE END OF TEMPLATE 02008 M00S01924.docment +++| 02009 M00S01925.docment +++| 02010 M00S01926.docment +++|* ARGUMENT LIST. 02011 M00S01927.docment +++| 02012 M00S01928.docment +++| ARGA BSS 0 02013 M00S01929.docment +++| I ARG ARGB+5,INPUT 02014 M00S01930.docment +++| S ARG ARGB,S 02015 M00S01931.docment +++| L ARG O,O 02016 M00S01932.docment +++| N ARG N,N 02017 M00S01933.docment +++| T ARG ARGB+1,T 02018 M00S01934.docment +++| C ARG ARGB+2,C 02019 M00S01935.docment +++| P ARG ARGB+3,P 02020 M00S01936.docment +++| NR ARG ARGB+4,NR 02021 M00S01937.docment +++| NT ARG ARGB+4,NT 02022 M00S01938.docment +++| TC ARG ARGB+4,TC 02023 M00S01939.docment +++| CON 0 END OF TABLE 02024 M00S01940.docment +++| 02025 M00S01941.docment +++|* ASSUMED PARAMETER VALUES. 02026 M00S01942.docment +++| 02027 M00S01943.docment +++| ARGB CON 0LSOURCE+3 02028 M00S01944.docment +++| CON 0LINT 02029 M00S01945.docment +++| CON 0L03B
| Line S01946 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02030 M01S01946.ns22000 ---| CON 0L80D
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02031 M01S00028.ns22000 +++| BSS 1 02032 M00S01947.docment +++| CON 0LOFF 02033 M00S01948.docment +++| CON 0LINPUT 02034 M00S01949.docment +++| 02035 M00S01950.docment +++| LNE DATA 1R ENCODE AREA FOR PRINT LINE 02036 M00S01951.docment +++| DATA 1R 02037 M00S01952.docment +++| 02038 M00S01953.docment +++| DCD BSS 0 DECODE AREA FOR CARD IMAGE 02039 M00S01954.docment +++| 02040 M00S01955.docment +++| TPF EQU LNE 02041 M00S01956.docment +++| TPL EQU LNE+10
| Line S01957 Modification History | |
|---|---|
M01 (Removed by) | docme2 |
Seq # *Modification Id* Act ----------------------------+ 02042 M01S01957.docme2 ---| SES TITLE PARAMETER CRACKING SUBROUTINES. 02043 M01S01958.docme2 ---|** SES - SET EQUAL SIGNS IN PARAMETER LIST. 02044 M01S01959.docme2 ---|* 02045 M01S01960.docme2 ---|* USES A - 1, 2, 3, 6. 02046 M01S01961.docme2 ---|* B - 2, 3, 4. 02047 M01S01962.docme2 ---|* X - ALL. 02048 M01S01963.docme2 ---| 02049 M01S01964.docme2 ---| 02050 M01S01965.docme2 ---| SES PS 0 ENTRY/EXIT 02051 M01S01966.docme2 ---| SA1 ACTR ARGUMENT COUNT 02052 M01S01967.docme2 ---| R= B2,ARGR FIRST ARGUMENT ADDRESS 02053 M01S01968.docme2 ---| SB3 X1+B2 02054 M01S01969.docme2 ---| SA2 CCDR FIRST WORD OF CONTROL CARD IMAGE 02055 M01S01970.docme2 ---| SB4 -1R/ DELIMITER 02056 M01S01971.docme2 ---| SX7 1R= 02057 M01S01972.docme2 ---| MX0 60-6 02058 M01S01973.docme2 ---| BX2 -X0*X2 SAVE LAST CHARACTER 02059 M01S01974.docme2 ---| EQ B2,B3,SES EXIT IF NO PARAMETERS 02060 M01S01975.docme2 ---| EQ SES2 02061 M01S01976.docme2 ---| 02062 M01S01977.docme2 ---| SES1 SB2 B2+B1 02063 M01S01978.docme2 ---| NZ X3,SES2 IF NOT = 02064 M01S01979.docme2 ---| SA6 B2-B1 02065 M01S01980.docme2 ---| SES2 BX4 -X0*X2 GET CHECK CHARACTER 02066 M01S01981.docme2 ---| BX2 X0*X2 CLEAR CHECK CHARACTER 02067 M01S01982.docme2 ---| SX5 X4+B4 02068 M01S01983.docme2 ---| SA3 B2 READ PARAMETER 02069 M01S01984.docme2 ---| BX6 X3+X7 02070 M01S01985.docme2 ---| IX3 X4-X7 02071 M01S01986.docme2 ---| LX2 6 02072 M01S01987.docme2 ---| PL X5,SES1 IF DELIMITER 02073 M01S01988.docme2 ---| NZ X2,SES2 IF NOT END OF WORD 02074 M01S01989.docme2 ---| SES3 SA2 A2+B1 READ NEXT WORD 02075 M01S01990.docme2 ---| LX2 6 02076 M01S01991.docme2 ---| LT B2,B3,SES2 IF NOT DONE 02077 M01S01992.docme2 ---| EQ SES EXIT
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | docme2 |
Seq # *Modification Id* Act ----------------------------+ 02078 M01S00047.docme2 +++| 02079 M00S01993.docment +++| ARG SPACE 4,3 02080 M00S01994.docment +++|** ARG - PROCESS ARGUMENTS. 02081 M00S01995.docment +++| 02082 M00S01996.docment +++| 02083 M00S01997.docment +++|*CALL COMCARG 02084 M00S01998.docment +++| CKO SPACE 4,10 02085 M00S01999.docment +++|** CKO - CHECK OPTIONS SELECTED. 02086 M00S02000.docment +++|* 02087 M00S02001.docment +++|* USES A - 1, 2, 3, 5, 6, 7. 02088 M00S02002.docment +++|* B - 2, 6, 7. 02089 M00S02003.docment +++|* X - 1, 2, 3, 5, 6, 7. 02090 M00S02004.docment +++|* 02091 M00S02005.docment +++|* CALLS DXB. 02092 M00S02006.docment +++| 02093 M00S02007.docment +++| 02094 M00S02008.docment +++| CKO PS 0 ENTRY/EXIT 02095 M00S02009.docment +++| SA1 S CHECK SOURCE FILE NAME 02096 M00S02010.docment +++| ZR X1,NOF IF NO SOURCE FILE 02097 M00S02011.docment +++| SA1 O CHECK OUTPUT FILE NAME 02098 M00S02012.docment +++| ZR X1,NOF NO OUTPUT FILE 02099 M00S02013.docment +++| SA5 N 02100 M00S02014.docment +++| SB7 N SET DECIMAL BASE 02101 M00S02015.docment +++| RJ DXB CONVERT NUMBER 02102 M00S02016.docment +++| NZ X4,DOC7 IF ILLEGAL 02103 M00S02017.docment +++| SA6 N 02104 M00S02018.docment +++| ZR X6,NOF IF NO COPIES REQUESTED 02105 M00S02019.docment +++| SA5 C 02106 M00S02020.docment +++| SB7 0 SET OCTAL BASE 02107 M00S02021.docment +++| RJ DXB 02108 M00S02022.docment +++| NZ X4,DOC7 IF ILLEGAL 02109 M00S02023.docment +++| SX7 X6-64 02110 M00S02024.docment +++| ZR X6,DOC7 IF NO CHARACTER 02111 M00S02025.docment +++| PL X7,DOC7 IF NOT VALID CHARACTER 02112 M00S02026.docment +++| SA6 C SET CHECK CHARACTER 02113 M00S02027.docment +++| SA5 P 02114 M00S02028.docment +++| SB7 P SET DECIMAL BASE 02115 M00S02029.docment +++| RJ DXB 02116 M00S02030.docment +++| NZ X4,DOC7 IF PAGE SIZE IS ILLEGAL
| Line S02031 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02117 M01S02031.ns22000 ---| SX7 X6-20 02118 M01S02032.ns22000 ---| NG X7,DOC7
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02119 M01S00029.ns22000 +++| SX7 X6-MPGS 02120 M01S00030.ns22000 +++| NG X7,DOC7 IF .LT. MINIMUM PAGE SIZE 02121 M00S02033.docment +++| SA6 LLM SET PAGE SIZE 02122 M00S02034.docment +++| SA1 T DOCUMENTATION TYPE 02123 M00S02035.docment +++| LX1 18 02124 M00S02036.docment +++| SX6 3REXT 02125 M00S02037.docment +++| BX5 X1-X6 02126 M00S02038.docment +++| SX7 3RINT 02127 M00S02039.docment +++| BX6 X1-X7 02128 M00S02040.docment +++| ZR X5,CKO1 IF EXTERNAL 02129 M00S02041.docment +++| NZ X6,DOC7 IF ILLEGAL 02130 M00S02042.docment +++| SX6 4 02131 M00S02043.docment +++| SA6 IDAS 02132 M00S02044.docment +++| SX7 2 SET INTERNAL FLAGS 02133 M00S02045.docment +++| SA6 NAS 02134 M00S02046.docment +++| SA7 MAS 02135 M00S02047.docment +++| SA7 EDAS 02136 M00S02048.docment +++| SA2 =10H INTERNAL 02137 M00S02049.docment +++| BX6 X2 02138 M00S02050.docment +++| SA6 RIFD CHANGE TITLE PAGE 02139 M00S02051.docment +++| SA6 HDG2 CHANGE HEADER LINE 02140 M00S02052.docment +++| 02141 M00S02053.docment +++|* SPLIT FL FOR BUFFERS. 02142 M00S02054.docment +++| 02143 M00S02055.docment +++| CKO1 SX6 A0 SET AVAILABLE FL 02144 M00S02056.docment +++| SB6 BUF 02145 M00S02057.docment +++| SA6 I+4 SET LIMIT ON INPUT BUFFER 02146 M00S02058.docment +++| SX7 A0-B6 GET REMAINDER OF CORE 02147 M00S02059.docment +++| AX7 1 DIVIDE BY 2 02148 M00S02060.docment +++| SX7 X7+B6 02149 M00S02061.docment +++| SA7 SCR1+4 SET LIMIT ON SCRATCH FILE 02150 M00S02062.docment +++| SA7 I+1 SET FIRST ON INPUT FILE 02151 M00S02063.docment +++| SA7 A7+B1 IN 02152 M00S02064.docment +++| SA7 A7+B1 OUT 02153 M00S02065.docment +++| SA1 MAS SET LIST OPTION STACK 02154 M00S02066.docment +++| SA2 NAS 02155 M00S02067.docment +++| SA3 XFL 02156 M00S02068.docment +++| LX1 40 02157 M00S02069.docment +++| LX2 20 02158 M00S02070.docment +++| BX6 X1+X2 02159 M00S02071.docment +++| BX6 X6+X3 02160 M00S02072.docment +++| SA6 LSCB 02161 M00S02073.docment +++| EQ CKO EXIT 02162 M00S02074.docment +++| 02163 M00S02075.docment +++|* PROCESS NO OUTPUT ERRORS. 02164 M00S02076.docment +++| 02165 M00S02077.docment +++| NOF MESSAGE (=C* NO I/O REQUESTED.*) 02166 M00S02078.docment +++| ENDRUN 02167 M00S02079.docment +++| 02168 M00S02080.docment +++| SIZ EQU *-DCD SIZE OF SET-UP AREA 02169 M00S02081.docment +++|
| Line S02082 Modification History | |
|---|---|
M01 (Removed by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02170 M01S02082.ns2573 ---| ERRNG NCR-SIZ 02171 M01S02083.ns2573 ---|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act ----------------------------+ 02172 M01S00003.ns2573 +++| IFLE SIZ,NCR,1 02173 M00S02084.docment +++| BSSZ NCR-SIZ+1 ZERO OUT REMAINDER OF DECODE AREA 02174 M00S02085.docment +++| USE *
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02175 M01S00031.ns22000 +++| CTF SPACE 4,15 02176 M01S00032.ns22000 +++|** CTF - CHECK TERMINAL OUTPUT FILE. 02177 M01S00033.ns22000 +++|* 02178 M01S00034.ns22000 +++|* ENTRY (O) = PRINT FILE NAME. 02179 M01S00035.ns22000 +++|* 02180 M01S00036.ns22000 +++|* EXIT (PD) = 0 IF PRINT FILE IS A TERMINAL FILE. 02181 M01S00037.ns22000 +++|* 02182 M01S00038.ns22000 +++|* USES X - 1, 2, 6. 02183 M01S00039.ns22000 +++|* A - 1, 6. 02184 M01S00040.ns22000 +++|* 02185 M01S00041.ns22000 +++|* CALLS STF. 02186 M01S00042.ns22000 +++| 02187 M01S00043.ns22000 +++| 02188 M01S00044.ns22000 +++| CTF SUBR ENTRY/EXIT 02189 M01S00045.ns22000 +++| SA1 O GET CURRENT FILE NAME 02190 M01S00046.ns22000 +++| BX6 X1 02191 M01S00047.ns22000 +++| SA6 CTFA USE LOCAL FET FOR *STF* 02192 M01S00048.ns22000 +++| SX2 A6 02193 M01S00049.ns22000 +++| RJ STF 02194 M01S00050.ns22000 +++| NZ X6,CTFX IF NOT A TERMINAL FILE 02195 M01S00051.ns22000 +++| SA6 PD 02196 M01S00052.ns22000 +++| EQ CTFX EXIT 02197 M01S00053.ns22000 +++| 02198 M01S00054.ns22000 +++| 02199 M01S00055.ns22000 +++| CTFA FILEB CTFA,4,(FET=6) 02200 M01S00056.ns22000 +++| CTP SPACE 4,15 02201 M01S00057.ns22000 +++|** CTP - CALCULATE TITLE PAGE. 02202 M01S00058.ns22000 +++|* 02203 M01S00059.ns22000 +++|* ENTRY (LLM) = PAGE SIZE. 02204 M01S00060.ns22000 +++|* 02205 M01S00061.ns22000 +++|* EXIT (HDSL1,HDSL2) = BLANK LINES COUNT FOR TITLE PAGE. 02206 M01S00062.ns22000 +++|* 02207 M01S00063.ns22000 +++|* USES X - 1, 2, 3, 6, 7. 02208 M01S00064.ns22000 +++|* A - 1, 6, 7. 02209 M01S00065.ns22000 +++|* B - 6, 7. 02210 M01S00066.ns22000 +++| 02211 M01S00067.ns22000 +++| 02212 M01S00068.ns22000 +++| CTP SUBR ENTRY/EXIT 02213 M01S00069.ns22000 +++| SA1 LLM GET PAGE SIZE 02214 M01S00070.ns22000 +++| SB6 B1+B1 02215 M01S00071.ns22000 +++| SX6 X1+7 02216 M01S00072.ns22000 +++| SA6 LCT FORCE NEW TITLE 02217 M01S00073.ns22000 +++| AX6 B6,X1 DIVIDE SIZE BY 4 FOR BOTTOM LINE COUNT 02218 M01S00074.ns22000 +++| IX3 X1-X6 02219 M01S00075.ns22000 +++| SX2 3 02220 M01S00076.ns22000 +++| IX7 X1/X2 02221 M01S00077.ns22000 +++| SX7 X7-3 02222 M01S00078.ns22000 +++| SA7 HDSL1 BLANK LINE COUNT FROM TOP TO TITLE 02223 M01S00079.ns22000 +++| IX6 X3-X7 02224 M01S00080.ns22000 +++| SX6 X6-1-7 02225 M01S00081.ns22000 +++| SA6 HDSL2 BLANK LINE COUNT AFTER TITLE 02226 M01S00082.ns22000 +++| EQ CTPX EXIT 02227 M00S02086.docment +++| BUFFERS SPACE 4 02228 M00S02087.docment +++| USE BUFFERS 02229 M00S02088.docment +++| 02230 M00S02089.docment +++|* SCRATCH (TABLE OF CONTENTS) BUFFER. 02231 M00S02090.docment +++| 02232 M00S02091.docment +++| BSSZ 1 02233 M00S02092.docment +++| SBUF BSS SBUFL SCRATCH BUFFER 02234 M00S02093.docment +++| 02235 M00S02094.docment +++| BUF BSS 0 RESERVE SCRATCH BUFFER
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02236 M01S00083.ns22000 +++| IPP SPACE 4,15 02237 M01S00084.ns22000 +++|** IPP - INITIALIZE PAGE PARAMETERS. 02238 M01S00085.ns22000 +++|* 02239 M01S00086.ns22000 +++|* EXIT JOB DEFAULT PAGE PARAMETERS INITIALIZED. 02240 M01S00087.ns22000 +++|* 02241 M01S00088.ns22000 +++|* USES X - 0, 1, 6. 02242 M01S00089.ns22000 +++|* A - 1, 6. 02243 M01S00090.ns22000 +++|* B - 2. 02244 M01S00091.ns22000 +++|* 02245 M01S00092.ns22000 +++|* CALLS CDD. 02246 M01S00093.ns22000 +++|* 02247 M01S00094.ns22000 +++|* MACROS GETPP. 02248 M01S00095.ns22000 +++| 02249 M01S00096.ns22000 +++| 02250 M01S00097.ns22000 +++| IPP SUBR ENTRY/EXIT 02251 M01S00098.ns22000 +++| GETPP IPPA,LLM,PD 02252 M01S00099.ns22000 +++| SA1 LLM GET JOB PAGE SIZE 02253 M01S00100.ns22000 +++| RJ CDD CONVERT TO DECIMAL DISPLAY 02254 M01S00101.ns22000 +++| MX0 1 02255 M01S00102.ns22000 +++| SB2 B2-B1 02256 M01S00103.ns22000 +++| AX0 B2 02257 M01S00104.ns22000 +++| BX6 X0*X4 REMOVE BLANKS 02258 M01S00105.ns22000 +++| SA6 P STORE DEFAULT JOB PAGE SIZE 02259 M01S00106.ns22000 +++| SA1 IPPA+1 GET DEFAULT SYSTEM PAGE SIZE 02260 M01S00107.ns22000 +++| MX0 -8 02261 M01S00108.ns22000 +++| AX1 12+8 02262 M01S00109.ns22000 +++| BX1 -X0*X1 02263 M01S00110.ns22000 +++| RJ CDD 02264 M01S00111.ns22000 +++| MX0 1 02265 M01S00112.ns22000 +++| SB2 B2-B1 02266 M01S00113.ns22000 +++| AX0 B2 02267 M01S00114.ns22000 +++| BX6 X0*X4 02268 M01S00115.ns22000 +++| SA6 ARGB+3 STORE ALTERNATE DEFAULT 02269 M01S00116.ns22000 +++| EQ IPPX RETURN 02270 M01S00117.ns22000 +++| 02271 M01S00118.ns22000 +++| 02272 M01S00119.ns22000 +++| IPPA BSS 2 *GETPP* RESPONSE BLOCK 02273 M00S02095.docment +++| RIF SPACE 4,10 02274 M00S02096.docment +++|** RIF - READ INPUT FILE. 02275 M00S02097.docment +++|* 02276 M00S02098.docment +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 02277 M00S02099.docment +++|* X - ALL. 02278 M00S02100.docment +++| 02279 M00S02101.docment +++| 02280 M00S02102.docment +++| RIF PS 0 ENTRY/EXIT 02281 M00S02103.docment +++| DATE HDG1 02282 M00S02104.docment +++| SA2 I 02283 M00S02105.docment +++| ZR X2,RIF IF NO INPUT FILE 02284 M00S02106.docment +++| SX7 B1 SET COMPLETE BIT 02285 M00S02107.docment +++| BX7 X2+X7 02286 M00S02108.docment +++| SA7 A2 02287 M00S02109.docment +++| READ I,R 02288 M00S02110.docment +++| SA1 X2+2 02289 M00S02111.docment +++| SA3 A1+B1 02290 M00S02112.docment +++| IX4 X1-X3 02291 M00S02113.docment +++| ZR X4,RIF1 IF NO DATA 02292 M00S02114.docment +++| READH X2,FOT,7 READ INPUT CARD 02293 M00S02115.docment +++| SA3 FOT 02294 M00S02116.docment +++| SA2 =1L 02295 M00S02117.docment +++| MX0 6 02296 M00S02118.docment +++| BX7 -X0*X3 02297 M00S02119.docment +++| BX7 X2+X7 02298 M00S02120.docment +++| SA7 A3 02299 M00S02121.docment +++| EQ RIF1 02300 M00S02122.docment +++|
| Line S02123 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02301 M01S02123.ns22000 ---| RIFB DATA 2L1 TITLE PAGE 02302 M01S02124.ns22000 ---| 02303 M01S02125.ns22000 ---| ICN1 SET LINP/3 LINE NUMBER FOR DOCUMENT TITLE 02304 M01S02126.ns22000 ---| ICN2 SET LINP-15-ICN1 LINE NUMBER FOR DOCUMENTATION TYPE 02305 M01S02127.ns22000 ---| 02306 M01S02128.ns22000 ---| DUP ICN1,1 02307 M01S02129.ns22000 ---| DATA 2L
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02308 M01S00120.ns22000 +++| RIFA DATA 2L1 TITLE PAGE 02309 M01S00121.ns22000 +++| RIFAL EQU *-RIFA 02310 M01S00122.ns22000 +++| 02311 M01S00123.ns22000 +++|* INSERT (HDSL1) BLANK LINES 02312 M00S02130.docment +++|
| Line S02131 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02313 M01S02131.ns22000 ---| DATA 1H
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02314 M01S00124.ns22000 +++| RIFB DATA 1H 02315 M00S02132.docment +++| RIFC DATA 48L 02316 M00S02133.docment +++| 02317 M00S02134.docment +++| DATA 2L 02318 M00S02135.docment +++| DATA 1H 02319 M00S02136.docment +++| DATA 1H 02320 M00S02137.docment +++| RIFD DATA C* EXTERNAL DOCUMENTATION*
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02321 M01S00125.ns22000 +++| RIFBL EQU *-RIFB 02322 M01S00126.ns22000 +++| 02323 M01S00127.ns22000 +++|* INSERT (HDSL2) BLANK LINES 02324 M00S02138.docment +++|
| Line S02139 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02325 M01S02139.ns22000 ---| DUP ICN2,1 02326 M01S02140.ns22000 ---| DATA 2L 02327 M01S02141.ns22000 ---| 02328 M01S02142.ns22000 ---| DATA 1H
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02329 M01S00128.ns22000 +++| RIFS DATA 1H 02330 M00S02143.docment +++| DATA H*PUBLICATION NUMBER* 02331 M00S02144.docment +++| RIFE DATA 1H 02332 M00S02145.docment +++| DATA 0 END OF LINE 02333 M00S02146.docment +++| 02334 M00S02147.docment +++| DATA 2L 02335 M00S02148.docment +++| DATA 1H 02336 M00S02149.docment +++| DATA H*REVISION LEVEL ...* 02337 M00S02150.docment +++| RIFF DATA 5L 02338 M00S02151.docment +++| 02339 M00S02152.docment +++| DATA 2L 02340 M00S02153.docment +++| DATA 1H 02341 M00S02154.docment +++| DATA H*REVISION DATE ....* 02342 M00S02155.docment +++| RIFG DATA 1H 02343 M00S02156.docment +++| DATA 0 END OF LINE 02344 M00S02157.docment +++|
| Line S02158 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02345 M01S02158.ns22000 ---| RIFL EQU *-RIFB LENGTH IN WORDS OF TITLE PAGE IMAGE
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02346 M01S00129.ns22000 +++| RIFSL EQU *-RIFS LENGTH IN WORDS OF BOTTOM PORTION 02347 M00S02159.docment +++| 02348 M00S02160.docment +++| 02349 M00S02161.docment +++| RIF1 SA1 FOT MOVE PAGE FOOT INFORMATION TO TITLE PAGE 02350 M00S02162.docment +++| SA2 A1+B1 02351 M00S02163.docment +++| MX0 30 MASK TO SPLIT PUB NUMBER 02352 M00S02164.docment +++| SA3 A2+B1 02353 M00S02165.docment +++| SA4 A3+B1 02354 M00S02166.docment +++| SA5 A4+B1 02355 M00S02167.docment +++| BX6 X1 02356 M00S02168.docment +++| LX7 X2 02357 M00S02169.docment +++| SA6 RIFC STORE FIRST WORD OF PACKAGE NAME 02358 M00S02170.docment +++| SA7 A6+B1 STORE SECOND WORD 02359 M00S02171.docment +++| BX6 X3 02360 M00S02172.docment +++| LX7 X4 02361 M00S02173.docment +++| SA6 A7+B1 STORE THIRD WORD 02362 M00S02174.docment +++| SA7 A6+B1 STORE FOURTH WORD 02363 M00S02175.docment +++| BX6 X0*X5 GET LAST FIVE CHARACTERS OF PACKAGE NAME 02364 M00S02176.docment +++| BX7 -X0*X5 GET FIRST FIVE CHARACTERS OF PUB NUMBER 02365 M00S02177.docment +++| SA6 A7+B1 STORE FIFTH WORD 02366 M00S02178.docment +++| LX7 30 SHIFT FIRST 5 CHARS HIGH 02367 M00S02179.docment +++| SA1 A5+B1 READ END OF PUB NO. AND REV. LEVEL 02368 M00S02180.docment +++| LX1 30 02369 M00S02181.docment +++| SA2 A1+B1 GET REVISION DATE 02370 M00S02182.docment +++| BX6 -X0*X1 GET LAST 5 CHARS OF PUB NUMBER 02371 M00S02183.docment +++| BX7 X6+X7 02372 M00S02184.docment +++| BX6 X0*X1 GET REVISION LEVEL ALONE 02373 M00S02185.docment +++| SA7 RIFE STORE PUBLICATION NUMBER 02374 M00S02186.docment +++| SA6 RIFF STORE REVISION LEVEL 02375 M00S02187.docment +++| SA3 RIF MOVE EXIT BEFORE IT IS DESTROYED 02376 M00S02188.docment +++| BX7 X2 02377 M00S02189.docment +++| LX6 X3 02378 M00S02190.docment +++| SA7 RIFG STORE REVISION DATE 02379 M00S02191.docment +++| SA7 NI SET INPUT FOUND FLAG
| Line S02192 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02380 M01S02192.ns22000 ---| SA6 RIF2
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02381 M01S00130.ns22000 +++| SA6 RIF4 02382 M00S02193.docment +++| SA1 PCT BUMP PAGE COUNT FOR PAGE PARITY 02383 M00S02194.docment +++| SX6 X1+B1 02384 M00S02195.docment +++| SA6 A1
| Line S02196 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02385 M01S02196.ns22000 ---| WRITEW SCR1,RIFB,RIFL WRITE TITLE PAGE
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02386 M01S00131.ns22000 +++| 02387 M01S00132.ns22000 +++| WRITEW SCR1,RIFA,RIFAL WRITE PAGE EJECT 02388 M01S00133.ns22000 +++| 02389 M01S00134.ns22000 +++| SA5 HDSL1 GET COUNT OF BLANK LINES 02390 M01S00135.ns22000 +++| RIF2 WRITEC SCR1,(=2L ) 02391 M01S00136.ns22000 +++| SX5 X5-1 02392 M01S00137.ns22000 +++| NZ X5,RIF2 IF MORE BLANK LINES TO WRITE 02393 M01S00138.ns22000 +++| 02394 M01S00139.ns22000 +++| WRITEW SCR1,RIFB,RIFBL WRITE TITLE 02395 M01S00140.ns22000 +++| 02396 M01S00141.ns22000 +++| SA5 HDSL2 GET COUNT OF BLANK LINES 02397 M01S00142.ns22000 +++| RIF3 WRITEC SCR1,(=2L ) 02398 M01S00143.ns22000 +++| SX5 X5-1 02399 M01S00144.ns22000 +++| NZ X5,RIF3 IF MORE BLANK LINES TO WRITE 02400 M01S00145.ns22000 +++| 02401 M01S00146.ns22000 +++| WRITEW SCR1,RIFS,RIFSL WRITE BOTTOM OF PAGE 02402 M00S02197.docment +++| WRITER SCR1,R
| Line S02198 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02403 M01S02198.ns22000 ---| RIF2 EQ RIF EXIT
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02404 M01S00147.ns22000 +++| RIF4 EQ RIF EXIT 02405 M00S02199.docment +++|
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02406 M01S00148.ns22000 +++| 02407 M01S00149.ns22000 +++|*CALL COMCCPM 02408 M01S00150.ns22000 +++|*CALL COMCCDD 02409 M01S00151.ns22000 +++|*CALL COMCSTF 02410 M01S00152.ns22000 +++| 02411 M00S02200.docment +++| 02412 M00S02201.docment +++| MFL= EQU 200000B+BUF+2*BFSZ+10B 02413 M00S02202.docment +++| 02414 M00S02203.docment +++| USE * 02415 M00S02204.docment +++| END SPACE 4 02416 M00S02205.docment +++| END
cdc/nos2.source/opl.opl871/deck/docment.001.txt · Last modified: by 127.0.0.1