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