Seq # *Modification Id* Act
----------------------------+
03979 M00S03831.1cd +++|* IF FUNCTION REJECT, THEN EXIT IS MADE TO *MGR1*.
03980 M00S03832.1cd +++|* THUS, ALL CODE SINCE THE LAST *RJM MGR* WILL BE
03981 M00S03833.1cd +++|* EXECUTED AGAIN PRIOR TO A RETRY ON THE FUNCTION.
03982 M00S03834.1cd +++|* IF THE RETRY LIMIT IS REACHED OR IF THE FUNCTION
03983 M00S03835.1cd +++|* TIMES OUT, THEN EXIT IS MADE TO *CEP*.
03984 M00S03836.1cd +++|*
03985 M00S03837.1cd +++|* USES FC.
03986 M00S03838.1cd +++|*
03987 M00S03839.1cd +++|* CALLS SDM, STS.
03988 M00S03840.1cd +++|
03989 M00S03841.1cd +++|
03990 M00S03842.1cd +++| FCN4 RJM STS CHECK 6681 STATUS
03991 M00S03843.1cd +++| ZJN FCNX IF FUNCTION ACCEPTED
03992 M00S03844.1cd +++| LJM MGR1 GO TO MANAGER
03993 M00S03845.1cd +++|
03994 M00S03846.1cd +++| FCN SUBR ENTRY/EXIT
03995 M00S03847.1cd +++| FAN CH ISSUE FUNCTION
03996 M00S03848.1cd +++| STD FC SAVE FUNCTION FOR REJECT MESSAGE
03997 M00S03849.1cd +++| LDM CONA
03998 M00S03850.1cd +++| FCN1 IJM FCN4,CH IF FUNCTION ACCEPTED
03999 M00S03851.1cd +++| SBN 4
04000 M00S03852.1cd +++| PJN FCN1 IF NOT TIMED OUT
04001 M00S03853.1cd +++|
04002 M00S03854.1cd +++|* *FCN2* IS A SECONDARY ENTRY POINT FOR *FCN*.
04003 M00S03855.1cd +++|*
04004 M00S03856.1cd +++|* FUNCTION TIMEOUT ERROR PROCESSOR.
04005 M00S03857.1cd +++|
04006 M00S03858.1cd +++| FCN2 DCN CH+40
04007 M00S03859.1cd +++| LDN EFTM *EQXXX FUNCTION TIMEOUT.*
04008 M00S03860.1cd +++| RJM SDM FORMAT DAYFILE MESSAGE
04009 M00S03861.1cd +++| FCN3 LJM CEP CHANNEL ERROR PROCESSOR
04010 M00S03862.1cd +++| IFN SPACE 4,10
04011 M00S03863.1cd +++|** IFN - ISSUE FUNCTION TO CONVERTER.
04012 M00S03864.1cd +++|*
04013 M00S03865.1cd +++|* ENTRY (A) = FUNCTION CODE.
04014 M00S03866.1cd +++|*
04015 M00S03867.1cd +++|* EXIT CHANNEL ACTIVE.
04016 M00S03868.1cd +++|* (T5) = FUNCTION CODE.
04017 M00S03869.1cd +++|* IF THE FUNCTION TIMES OUT, THEN EXIT IS MADE TO
04018 M00S03870.1cd +++|* *CEP* VIA *FCN2*.
04019 M00S03871.1cd +++|*
04020 M00S03872.1cd +++|* USES FC, T5.
04021 M00S03873.1cd +++|
04022 M00S03874.1cd +++|
04023 M00S03875.1cd +++| IFN2 ACN CH
04024 M00S03876.1cd +++|
04025 M00S03877.1cd +++| IFN SUBR ENTRY/EXIT
04026 M00S03878.1cd +++| SHN 6
04027 M00S03879.1cd +++| FAN CH ISSUE FUNCTION
04028 M00S03880.1cd +++| STD T5 SAVE FUNCTION
04029 M00S03881.1cd +++| LDN 6 SET TIME LIMIT
04030 M00S03882.1cd +++| IFN1 IJM IFN2,CH IF FUNCTION ACCEPTED
04031 M00S03883.1cd +++| SBN 1
04032 M00S03884.1cd +++| NJN IFN1 IF NOT TIMED OUT
04033 M00S03885.1cd +++| LDD T5
04034 M00S03886.1cd +++| STD FC FUNCTION CODE FOR ERROR MESSAGE
04035 M00S03887.1cd +++| UJN FCN2 FUNCTION TIMEOUT ERROR PROCESSOR
04036 M00S03888.1cd +++| SPACE 4,10
04037 M00S03889.1cd +++|** COMMON DECKS.
04038 M00S03890.1cd +++|
04039 M00S03891.1cd +++|
04040 M00S03892.1cd +++|*CALL COMPWBB
04041 M00S03893.1cd +++| SPACE 4,10
04042 M00S03894.1cd +++| RTBL BSS 0 START OF RELOCATED CODE
04043 M00S03895.1cd +++| LOC CTBLL
04044 M00S03896.1cd +++| REC SPACE 4,10
04045 M00S03897.1cd +++|** REC - RELEASE EQUIPMENT CONNECT.
04046 M00S03898.1cd +++|*
04047 M00S03899.1cd +++|* CALLS CON, FCN.
04048 M00S03900.1cd +++|
04049 M00S03901.1cd +++|
04050 M00S03902.1cd +++| REC SUBR ENTRY/EXIT
04051 M00S03903.1cd +++| RJM CON CONNECT EQUIPMENT
04052 M00S03904.1cd +++| NJN RECX IF CONNECT REJECT
04053 M00S03905.1cd +++|* LDN 0 RELEASE AND DISCONNECT EQUIPMENT
04054 M00S03906.1cd +++| RJM FCN
04055 M00S03907.1cd +++| UJN RECX RETURN
04056 M00S03908.1cd +++| SDP SPACE 4,10
04057 M00S03909.1cd +++|** SDP - SUB-DRIVER PROCESSOR.
04058 M00S03910.1cd +++|
04059 M00S03911.1cd +++|
04060 M00S03912.1cd +++| SDP SUBR ENTRY/EXIT
04061 M00S03913.1cd +++| LDD BR
04062 M00S03914.1cd +++| NJN SDP2 IF BUSY RETURN REQUESTED
04063 M00S03915.1cd +++| RJM CON CONNECT EQUIPMENT
04064 M00S03916.1cd +++| NJN SDPX IF CONNECT REJECT
04065 M00S03917.1cd +++| LDD ST
04066 M00S03918.1cd +++| SHN 21-0
04067 M00S03919.1cd +++| MJN SDP1 IF EQUIPMENT READY
04068 M00S03920.1cd +++| LDM TNRP,EQ
04069 M00S03921.1cd +++| STD PA
04070 M00S03922.1cd +++| LDD ST (A) = EQUIPMENT STATUS
04071 M00S03923.1cd +++| UJN SDP3 ENTER NOT READY PROCESSOR
04072 M00S03924.1cd +++|
04073 M00S03925.1cd +++| SDP1 SHN 1+21-1
04074 M00S03926.1cd +++| PJN SDP2 IF EQUIPMENT NOT BUSY
04075 M00S03927.1cd +++| SHN 2+21-10
04076 M00S03928.1cd +++| PJN SDPX IF NOT END OF OPERATION INTERRUPT
04077 M00S03929.1cd +++| SDP2 LDM CMPA SET PROGRAM ADDRESS
04078 M00S03930.1cd +++| STD PA
04079 M00S03931.1cd +++| LDM CMAR RESET (A)
04080 M00S03932.1cd +++| SDP3 LJM 0,PA RETURN TO NEXT DRIVER ADDRESS
04081 M00S03933.1cd +++| STS SPACE 4,10
04082 M00S03934.1cd +++|** STS - GET CONVERTER STATUS.
04083 M00S03935.1cd +++|*
04084 M00S03936.1cd +++|* EXIT (A) = BITS 0 - 2 OF 6681 STATUS.
04085 M00S03937.1cd +++|* (CS) = CONVERTER STATUS.
04086 M00S03938.1cd +++|*
04087 M00S03939.1cd +++|* CALLS CCE, IFN, PRE, SDM.
04088 M00S03940.1cd +++|
04089 M00S03941.1cd +++|
04090 M00S03942.1cd +++| STS SUBR ENTRY/EXIT
04091 M00S03943.1cd +++| STS1 LDN 12 SELECT 6681 STATUS
04092 M00S03944.1cd +++| RJM IFN ISSUE FUNCTION
04093 M00S03945.1cd +++| IAN CH+40
04094 M00S03946.1cd +++| DCN CH+40
04095 M00S03947.1cd +++| STD CS
04096 M00S03948.1cd +++| LDN SCEI STATUS PARITY ERROR
04097 M00S03949.1cd +++| RJM CCE CHECK FOR CHANNEL ERROR
04098 M00S03950.1cd +++| NJN STS1 IF ERROR
04099 M00S03951.1cd +++| LDD CS
04100 M00S03952.1cd +++| LPN 7
04101 M00S03953.1cd +++| ZJN STSX IF NO ERRORS
04102 M00S03954.1cd +++|
04103 M00S03955.1cd +++|* FUNCTION REJECT/TRANSMISSION PARITY ERROR PROCESSOR.
04104 M00S03956.1cd +++|
04105 M00S03957.1cd +++| LDN FRJI CHECK ERROR LIMIT EXCEEDED
04106 M00S03958.1cd +++| RJM PRE
04107 M00S03959.1cd +++| LDD CS
04108 M00S03960.1cd +++| LPN 7
04109 M00S03961.1cd +++| UJN STSX RETURN
04110 M00S03962.1cd +++| WNB SPACE 4,15
04111 M00S03963.1cd +++|** WNB - WAIT NOT BUSY.
04112 M00S03964.1cd +++|*
04113 M00S03965.1cd +++|* ENTRY (ST) = DEVICE STATUS.
04114 M00S03966.1cd +++|*
04115 M00S03967.1cd +++|* EXIT IF DEVICE BUSY, THEN EXIT IS MADE
04116 M00S03968.1cd +++|* TO *MGR1*. THUS, ALL CODE SINCE
04117 M00S03969.1cd +++|* LAST RETURN TO MANAGER WILL BE
04118 M00S03970.1cd +++|* EXECUTED AGAIN PRIOR TO PROCEEDING.
04119 M00S03971.1cd +++|* IF BUSY RETRY COUNT REACHED,
04120 M00S03972.1cd +++|* EXIT IS MADE TO *CEP*.
04121 M00S03973.1cd +++|*
04122 M00S03974.1cd +++|* CALLS SDM.
04123 M00S03975.1cd +++|
04124 M00S03976.1cd +++|
04125 M00S03977.1cd +++| WNB3 STM CMCB CLEAR CONTROLLER BUSY RETRY COUNT
04126 M00S03978.1cd +++|
04127 M00S03979.1cd +++| WNB SUBR ENTRY/EXIT
04128 M00S03980.1cd +++| LDD ST CHECK EQUIPMENT STATUS FOR BUSY
04129 M00S03981.1cd +++| LPN 2
04130 M00S03982.1cd +++| ZJN WNB3 IF DEVICE NOT BUSY
04131 M00S03983.1cd +++| SOM CMCB DECREMENT RETRY COUNT
04132 M00S03984.1cd +++| ZJN WNB2 IF RETRY COUNT EXHAUSTED
04133 M00S03985.1cd +++| WNB1 LJM MGR1 RETURN TO MANAGER
04134 M00S03986.1cd +++|
04135 M00S03987.1cd +++| WNB2 SOM CMTC
04136 M00S03988.1cd +++| NJN WNB1 IF NOT AT ABSOLUTE RETRY LIMIT
04137 M00S03989.1cd +++| LDN ECBM *EQXXX CONTROLLER HUNG BUSY.*
04138 M00S03990.1cd +++| RJM SDM SEND DAYFILE MESSAGE
04139 M00S03991.1cd +++| LJM CEP CHANNEL ERROR PROCESSOR
04140 M00S03992.1cd +++| XDR SPACE 4,20
04141 M00S03993.1cd +++|** XDR - TRANSMIT DATA RECORD (TO/FROM EXTERNAL EQUIPMENT).
04142 M00S03994.1cd +++|*
04143 M00S03995.1cd +++|* ENTRY (A) BITS 0-11 = INSTRUCTION (IAM/OAM).
04144 M00S03996.1cd +++|* 12-17 = CONVERTER FUNCTION.
04145 M00S03997.1cd +++|*
04146 M00S03998.1cd +++|* USES CS, FC, T1.
04147 M00S03999.1cd +++|*
04148 M00S04000.1cd +++|* CALLS CCE, CRV, FCN, IFN, PRE, STS.
04149 M00S04001.1cd +++|
04150 M00S04002.1cd +++|
04151 M00S04003.1cd +++| XDR SUBR ENTRY/EXIT
04152 M00S04004.1cd +++| CHTE *
04153 M00S04005.1cd +++| LMN CH SET INSTRUCTION WITH CHANNEL
04154 M00S04006.1cd +++| STM XDRA
04155 M00S04007.1cd +++| SHN -14 SET I/O FUNCTION
04156 M00S04008.1cd +++| STD FC
04157 M00S04009.1cd +++| LDD DA SET BUFFER ADDRESS
04158 M00S04010.1cd +++| STM XDRA+1
04159 M00S04011.1cd +++| LDD FC ISSUE CONVERTER FUNCTION
04160 M00S04012.1cd +++| RJM IFN
04161 M00S04013.1cd +++| LDM CMLR
04162 M00S04014.1cd +++| XDRA OAM. **,CH OUTPUT (INPUT) DATA RECORD
04163 M00S04015.1cd +++|* IAM **,CH
04164 M00S04016.1cd +++| FJM *,CH
04165 M00S04017.1cd +++| DCN CH+40
04166 M00S04018.1cd +++| NJN XDR1 IF INCOMPLETE DATA TRANSFER
04167 M00S04019.1cd +++| LDN DCPI CHECK FOR DATA PARITY ERROR
04168 M00S04020.1cd +++| RJM CCE
04169 M00S04021.1cd +++| NJN XDR2 IF ERROR
04170 M00S04022.1cd +++| LDN DRRI
04171 M00S04023.1cd +++| RJM CRV CHECK FOR RECOVERED ERROR
04172 M00S04024.1cd +++| RJM STS GET CONVERTER STATUS
04173 M00S04025.1cd +++| NJN XDR2 IF ERROR
04174 M00S04026.1cd +++| UJN XDRX RETURN
04175 M00S04027.1cd +++|
04176 M00S04028.1cd +++|* *XDR1* IS A SECONDARY ENTRY POINT FOR *XDR*.
04177 M00S04029.1cd +++|
04178 M00S04030.1cd +++| XDR1 STD CS
04179 M00S04031.1cd +++| LDN DRRI PROCESS RECOVERABLE ERROR
04180 M00S04032.1cd +++| RJM PRE
04181 M00S04033.1cd +++| XDR2 LDN 0 CLEAR AND DISCONNECT EQUIPMENT
04182 M00S04034.1cd +++| RJM FCN
04183 M00S04035.1cd +++| AOM CMEC
04184 M00S04036.1cd +++| LDM XDRB,EQ
04185 M00S04037.1cd +++| STD T1
04186 M00S04038.1cd +++| LJM 0,T1 EXIT TO RETRY PROCESSOR
04187 M00S04039.1cd +++|
04188 M00S04040.1cd +++| XDRB BSS 0 RETRY PROCSSING ADDRESS
04189 M00S04041.1cd +++| LOC 0
04190 M00S04042.1cd +++| CON LPR1 LINE PRINTER
04191 M00S04043.1cd +++| CON CPX CARD PUNCH
04192 M00S04044.1cd +++| CON CRB5 CARD READER
04193 M00S04045.1cd +++| LOC *L+XDRB
04194 M00S04046.1cd +++| TCHS SPACE 4,10
04195 M00S04047.1cd +++|** TCHS - CHANNEL TABLE.
04196 M00S04048.1cd +++|
04197 M00S04049.1cd +++|
04198 M00S04050.1cd +++| TCHS CHTB
04199 M00S04051.1cd +++|
04200 M00S04052.1cd +++| ERRNG ICD-* RELOCATED CODE OVERLAPS
04201 M00S04053.1cd +++| LOC *O
04202 M00S04054.1cd +++| RTBLL EQU *-RTBL
04203 M00S04055.1cd +++| TITLE PRESET.
04204 M00S04056.1cd +++| PRS SPACE 4,15
04205 M00S04057.1cd +++|** PRS - PRESET SUB-DRIVER OVERLAY.
04206 M00S04058.1cd +++|*
04207 M00S04059.1cd +++|* EXIT (CR) = CHANNEL RESERVED.
04208 M00S04060.1cd +++|* (DB) = FIRST DATA BUFFER ADDRESS.
04209 M00S04061.1cd +++|* TO *ZBA*.
04210 M00S04062.1cd +++|*
04211 M00S04063.1cd +++|* USES CM - CM+4, T1 - T3.
04212 M00S04064.1cd +++|*
04213 M00S04065.1cd +++|* MACROS RCHAN.
04214 M00S04066.1cd +++|
04215 M00S04067.1cd +++|
04216 M00S04068.1cd +++| PRS BSS 0 ENTRY
04217 M00S04069.1cd +++| LDC CTBLL MOVE TABLES TO PP RESIDENT
04218 M00S04070.1cd +++| STD T1
04219 M00S04071.1cd +++| LDC RTBL
04220 M00S04072.1cd +++| STD T2
04221 M00S04073.1cd +++| PRS1 LDI T2
04222 M00S04074.1cd +++| STI T1
04223 M00S04075.1cd +++| AOD T1
04224 M00S04076.1cd +++| AOD T2
04225 M00S04077.1cd +++| LMC RTBL+RTBLL
04226 M00S04078.1cd +++| NJN PRS1 IF NOT END OF TABLES
04227 M00S04079.1cd +++| LDN IPRL CHECK SYSTEM DEFAULT KEYPUNCH MODE
04228 M00S04080.1cd +++| CRD CM
04229 M00S04081.1cd +++| LDD CM+2
04230 M00S04082.1cd +++| LPN 1
04231 M00S04083.1cd +++| NJN PRS4 IF SYSTEM NOT IN 63 CHARACTER SET MODE
04232 M00S04084.1cd +++| LDC *
04233 M00S04085.1cd +++| ORG *-1
04234 M00S04086.1cd +++| LOC LPDA
04235 M00S04087.1cd +++| UJN LPD9 PROCESS 63 CHARACTER SET LINE
04236 M00S04088.1cd +++| LOC *O
04237 M00S04089.1cd +++| STM LPDA
| Line S00104 Modification History |
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act
----------------------------+
04238 M01S00104.ns2597 +++| LDN 45 CHANGE 6/12 COLON CONVERSION TO PERCENT
04239 M01S00105.ns2597 +++| STM MCCC
04240 M00S04090.1cd +++| PRS4 LDK MABL FETCH PP SPEED INDICATOR
04241 M00S04091.1cd +++| CRD CM
04242 M00S04092.1cd +++| LDD CM+4 SET TIMEOUT VALUE
04243 M00S04093.1cd +++| RAM PRSA
04244 M00S04094.1cd +++| LDN 100D/4 SET CONVERTER TIMEOUT
04245 M00S04095.1cd +++| PRSA SHN 2
04246 M00S04096.1cd +++| STM CONA
04247 M00S04097.1cd +++| LDN CH RESERVE CHANNEL
04248 M00S04098.1cd +++| STD CR
04249 M00S04099.1cd +++| RCHAN
04250 M00S04100.1cd +++| LDN ZERL
04251 M00S04101.1cd +++| CRD CM
04252 M00S04102.1cd +++| LDD MA CLEAR *CIO* REQUEST PARAMETERS
04253 M00S04103.1cd +++| ADN 1
04254 M00S04104.1cd +++| CWD CM
04255 M00S04105.1cd +++|
04256 M00S04106.1cd +++|* INITIALIZE SYSTEM PAGE PARAMETERS
04257 M00S04107.1cd +++|
04258 M00S04108.1cd +++| LDN IPPL FETCH SYSTEM PAGE PARAMETERS
04259 M00S04109.1cd +++| CRD CM
04260 M00S04110.1cd +++| LDD CM+3 SET PRINT WIDTH
04261 M00S04111.1cd +++| LPC PWUL
04262 M00S04112.1cd +++| ADN 1
04263 M00S04113.1cd +++| LMC -0
04264 M00S04114.1cd +++| STM LPDB
04265 M00S04115.1cd +++| LDC DBUF SET BUFFER INFORMATION
04266 M00S04116.1cd +++| STD DB
04267 M00S04117.1cd +++| STD T1
04268 M00S04118.1cd +++| LDK DBUFS
04269 M00S04119.1cd +++| STD T2
04270 M00S04120.1cd +++| LDC DBUFL
04271 M00S04121.1cd +++| STD T3
04272 M00S04122.1cd +++| LJM ZBA CLEAR DATA BUFFER ASSIGNMENTS
| Line S00001 Modification History |
M01 (Added by) | 1cd6 |
Seq # *Modification Id* Act
----------------------------+
04273 M01S00001.1cd6 +++| SPACE 4,10
04274 M01S00002.1cd6 +++| OVERFLOW OVLA
04275 M00S04123.1cd +++| DBUF SPACE 4,20
04276 M00S04124.1cd +++|** DBUF - BUFFER AREAS.
04277 M00S04125.1cd +++|
04278 M00S04126.1cd +++|
04279 M00S04127.1cd +++| DBUFS EQU PWMX+5 DATA BUFFER SIZE
04280 M00S04128.1cd +++| DBUFW EQU DBUFS/10D DATA BUFFER SIZE IN CM WORDS
04281 M00S04129.1cd +++| DBUF EQU RTBL
04282 M00S04130.1cd +++| .L SET 7777-DBUF
04283 M00S04131.1cd +++| NDBUF EQU .L/DBUFS NUMBER OF DATA BUFFERS
04284 M00S04132.1cd +++| DBUFL EQU DBUF+NDBUF*DBUFS LWA+1 OF DATA BUFFERS
04285 M00S04133.1cd +++|
04286 M00S04134.1cd +++|* IF THE FOLLOWING TEST PRODUCES A NEGATIVE NUMBER,
04287 M00S04135.1cd +++|* PERFORMANCE MAY BE DEGRADED (SINCE THERE ARE LESS THAN
04288 M00S04136.1cd +++|* 4 DATA BUFFERS).
04289 M00S04137.1cd +++|
04290 M00S04138.1cd +++| 7 ERRNG NDBUF-4
04291 M00S04139.1cd +++|
04292 M00S04140.1cd +++| ERRNG 10000-DBUFL BUFFERS WRAP PP MEMORY
04293 M00S04141.1cd +++| XCD TTL 1CD/3CY - BATCHIO COMBINED DRIVER.
04294 M00S04142.1cd +++| TITLE
04295 M00S04143.1cd +++| QUAL 3CY
04296 M00S04144.1cd +++| IDENT 3CY,XCDX
| Line S04145 Modification History |
M01 (Removed by) | ns2584 |
Seq # *Modification Id* Act
----------------------------+
04297 M01S04145.ns2584 ---|*COMMENT 1CD/3CY - BATCHIO COMBINED DRIVER.
| Line S00002 Modification History |
M01 (Added by) | ns2584 |
Seq # *Modification Id* Act
----------------------------+
04298 M01S00002.ns2584 +++|*COMMENT 1CD - DRIVE *CCC*-CONNECTED DEVICES.
| Line S04146 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
04299 M01S04146.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1984.
| Line S00003 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
04300 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
04301 M00S04147.1cd +++| 3CY SPACE 4,10
04302 M00S04148.1cd +++|*** 1CD/3CY - BATCHIO COMBINED DRIVER.
04303 M00S04149.1cd +++|*
04304 M00S04150.1cd +++|* THIS SUB-DRIVER OVERLAY CONTAINS DRIVERS TO ACCESS DEVICES
04305 M00S04151.1cd +++|* CONNECTED VIA A CYBER CHANNEL COUPLER (CCC).
04306 M00S04152.1cd +++| 3CY SPACE 4,10
04307 M00S04153.1cd +++| ORG OVLA
04308 M00S04154.1cd +++|
04309 M00S04155.1cd +++| XCD SUBR ENTRY/EXIT
04310 M00S04156.1cd +++| CHTE CCEA
04311 M00S04157.1cd +++| LJM PRS PRESET
04312 M00S04158.1cd +++| TITLE 5870/5970 DRIVER SECTION.
04313 M00S04159.1cd +++| NPD SPACE 4,10
04314 M00S04160.1cd +++|** NPD - 5870/5970 DRIVER.
04315 M00S04161.1cd +++|
04316 M00S04162.1cd +++|
04317 M00S04163.1cd +++| NPD RJM PSD PRESET DRIVER
04318 M00S04164.1cd +++| NPD1 LDC GBPF+1000 REQUEST BANNER PAGE GENERATION
04319 M00S04165.1cd +++| RJM CPS
04320 M00S04166.1cd +++| NPD2 RJM MGR GO TO MANAGER
04321 M00S04167.1cd +++| ZJN NPD1 IF REQUEST NOT ACCEPTED
04322 M00S04168.1cd +++| LDD BS+4 CHECK BUFFER STATUS
04323 M00S04169.1cd +++| LMC GBPF+1
04324 M00S04170.1cd +++| NJN NPD2 IF OPERATION NOT COMPLETE
04325 M00S04171.1cd +++| UJN NPD4 PRINT BANNER PAGE
04326 M00S04172.1cd +++|
04327 M00S04173.1cd +++|* PHASE 1. LOAD BUFFER.
04328 M00S04174.1cd +++|
04329 M00S04175.1cd +++| NPD3 SCN 2 SET DRIVER HOLDING
04330 M00S04176.1cd +++| LMN 2
04331 M00S04177.1cd +++| STM CMHF
04332 M00S04178.1cd +++|
04333 M00S04179.1cd +++|* *NPD4* IS A SECONDARY ENTRY POINT FOR *NPD*.
04334 M00S04180.1cd +++|
| Line S04181 Modification History |
M01 (Removed by) | 1cd8 |
Seq # *Modification Id* Act
----------------------------+
04335 M01S04181.1cd8 ---| NPD4 AOD BR SET BUSY RETURN
| Line S00003 Modification History |
M01 (Added by) | 1cd8 |
Seq # *Modification Id* Act
----------------------------+
04336 M01S00003.1cd8 +++| NPD4 LDN 1 SET BUSY RETURN
04337 M01S00004.1cd8 +++| STD BR
04338 M00S04182.1cd +++| RJM MGR GO TO MANAGER
04339 M00S04183.1cd +++| LDM CMHF
04340 M00S04184.1cd +++| NJN NPD3 IF HOLD INITIATED
04341 M00S04185.1cd +++| RJM COB CHECK OUTPUT BUFFER
04342 M00S04186.1cd +++| SBN DBUFW*2+1
04343 M00S04187.1cd +++| PJN NPD5 IF AT LEAST 1 LINE AND 1 WORD
04344 M00S04188.1cd +++| LDD BS+4
04345 M00S04189.1cd +++| LPN 20
04346 M00S04190.1cd +++| ZJN NPD4 IF NOT EOR/EOF/EOI
04347 M00S04191.1cd +++| NPD5 RJM ADB ASSIGN DATA BUFFER
04348 M00S04192.1cd +++| LDN 0
04349 M00S04193.1cd +++| STD BR CLEAR BUSY RETURN
04350 M00S04194.1cd +++| STM NPLC CLEAR LINE COUNT
04351 M00S04195.1cd +++| LDM CMSF CHECK MODE OF FILE
| Line S04196 Modification History |
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act
----------------------------+
04352 M01S04196.ns2597 ---| LPN 10
| Line S00106 Modification History |
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act
----------------------------+
04353 M01S00106.ns2597 +++| LPN 50
| Line S04197 Modification History |
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act
----------------------------+
04354 M01S04197.ns2597 ---| ZJN NPD6 IF NOT 12 BIT ASCII PRINT FILE
| Line S00107 Modification History |
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act
----------------------------+
04355 M01S00107.ns2597 +++| ZJN NPD6 IF NOT 6/12 OR 8/12 ASCII PRINT FILE
04356 M00S04198.1cd +++| LDN DBUFW
04357 M00S04199.1cd +++| NPD6 ADN DBUFW READ CODED BUFFER
04358 M00S04200.1cd +++| RJM RCB
04359 M00S04201.1cd +++| NJN NPD8 IF NOT EMPTY LINE
04360 M00S04202.1cd +++| NPD7 LDN 40 SET SPACE CHARACTER
04361 M00S04203.1cd +++| STI T1
04362 M00S04204.1cd +++| AOD T1
04363 M00S04205.1cd +++| AOM CMLR ADVANCE BYTE COUNT FOR LINE
04364 M00S04206.1cd +++| NPD8 SBN 2
04365 M00S04207.1cd +++| MJN NPD7 IF NOT 2 CHARACTERS IN LINE
04366 M00S04208.1cd +++| LDM CMSF
04367 M00S04209.1cd +++| LPN 10
04368 M00S04210.1cd +++| NJN NPD9 IF 12 BIT ASCII PRINT FILE
04369 M00S04211.1cd +++| NPDA PSN
04370 M00S04212.1cd +++|* UJN NPD9 (SYSTEM IN 63 CHARACTER SET)
04371 M00S04213.1cd +++| LDM -1,T1 CHECK LAST CHARACTER IN LINE
04372 M00S04214.1cd +++| LMN 72
04373 M00S04215.1cd +++| NJN NPD9 IF NOT COLON
04374 M00S04216.1cd +++| LDN 40 REPLACE WITH BLANK
04375 M00S04217.1cd +++| STM -1,T1
04376 M00S04218.1cd +++| NPD9 SOM CMLR DEDUCT CARRIAGE CONTROL CHARACTER
04377 M00S04219.1cd +++| SBK PXMX+1
04378 M00S04220.1cd +++| PJN NPD9 IF LINE TOO LONG
04379 M00S04221.1cd +++| LDD T2 SET FORMAT CONTROL FOR NEXT LINE
04380 M00S04222.1cd +++| STM NPFC
04381 M00S04223.1cd +++| LDD OT SAVE *OUT* POINTER
04382 M00S04224.1cd +++| STM NPOT
04383 M00S04225.1cd +++| LDD OT+1
04384 M00S04226.1cd +++| STM NPOT+1
04385 M00S04227.1cd +++| RJM MGR GO TO MANAGER
04386 M00S04228.1cd +++|
04387 M00S04229.1cd +++|* PHASE 2. PROCESS FORMAT CONTROL.
04388 M00S04230.1cd +++|
04389 M00S04231.1cd +++| LDN 4 PRESET SINGLE SPACE AFTER PRINT
04390 M00S04232.1cd +++| STM NPWF
04391 M00S04233.1cd +++| LDI DA CHECK FORMAT CHARACTER
04392 M00S04234.1cd +++| LPC 3777
04393 M00S04235.1cd +++| STI DA
04394 M00S04236.1cd +++| LMN 40 ASCII BLANK
04395 M00S04237.1cd +++| ZJN NPD11 IF ASCII BLANK
04396 M00S04238.1cd +++| RJM PFC PROCESS FORMAT CONTROL
04397 M00S04239.1cd +++| ZJN NPD10 IF PRINT LINE
04398 M00S04240.1cd +++| RJM RDB RELEASE DATA BUFFER
04399 M00S04241.1cd +++| LDN NPOT UPDATE *FET*
04400 M00S04242.1cd +++| RJM SOP STORE OUT POINTER
04401 M00S04243.1cd +++| LJM NPD4 GO TO PHASE 1
04402 M00S04244.1cd +++|
04403 M00S04245.1cd +++| NPD10 LDI DA CHECK FOR *PM* MESSAGE
04404 M00S04246.1cd +++| SBK 120
04405 M00S04247.1cd +++| NJN NPD11 IF NOT *P*
04406 M00S04248.1cd +++| LDM 1,DA
04407 M00S04249.1cd +++| LPC 3777
04408 M00S04250.1cd +++| SBK 115
04409 M00S04251.1cd +++| NJN NPD11 IF NOT *PM*
| Line S00001 Modification History |
M01 (Added by) | 1cd7 |
Seq # *Modification Id* Act
----------------------------+
04410 M01S00001.1cd7 +++| LDM CMLR CHECK RECORD LENGTH
04411 M01S00002.1cd7 +++| SBN 1
04412 M01S00003.1cd7 +++| ZJN NPD11 IF ONLY *PM*
04413 M00S04252.1cd +++| RJM PPM PROCESS PM MESSAGE
04414 M00S04253.1cd +++| NPD11 LDM CMBE
04415 M00S04254.1cd +++| ZJN NPD14 IF BUFFER EMPTY
04416 M00S04255.1cd +++| LDM CMSF
04417 M00S04256.1cd +++| LPN 10
04418 M00S04257.1cd +++| NJN NPD12 IF 12 BIT ASCII MODE
04419 M00S04258.1cd +++| LDM NPFC CHECK FORMAT CHARACTER OF NEXT LINE
04420 M00S04259.1cd +++| SHN -6
04421 M00S04260.1cd +++| LMN 1R+
04422 M00S04261.1cd +++| UJN NPD13 CHECK FOR *+*
04423 M00S04262.1cd +++|
04424 M00S04263.1cd +++| NPD12 LDM NPFC CHECK FORMAT CHARACTER OF NEXT LINE
04425 M00S04264.1cd +++| LPC 3777
04426 M00S04265.1cd +++| LMN 53 (ASCII *+*)
04427 M00S04266.1cd +++| NPD13 NJN NPD14 IF NOT *+*
04428 M00S04267.1cd +++| LDN 7 WRITE WITHOUT SPACING
04429 M00S04268.1cd +++| STM NPWF
04430 M00S04269.1cd +++|
04431 M00S04270.1cd +++|* PHASE 3. PRINT LINE.
04432 M00S04271.1cd +++|
04433 M00S04272.1cd +++| NPD14 RJM MGR RETURN TO MANAGER
04434 M00S04273.1cd +++| LDN ECLE CLEAR *I* DISPLAY
04435 M00S04274.1cd +++| RJM MSG
04436 M00S04275.1cd +++| AOD DA DO NOT PRINT FORMAT CHARACTER
04437 M00S04276.1cd +++| LDM NPWF SET WRITE FUNCTION CODE
04438 M00S04277.1cd +++| RJM WDR WRITE DATA RECORD
04439 M00S04278.1cd +++| RJM RDB RELEASE DATA BUFFER
04440 M00S04279.1cd +++|
04441 M00S04280.1cd +++|* PHASE 4. PROCESS POST PRINT OPERATIONS.
04442 M00S04281.1cd +++|
04443 M00S04282.1cd +++| LDN NPOT STORE *OUT* POINTER
04444 M00S04283.1cd +++| RJM SOP
04445 M00S04284.1cd +++| AOM NPLC CHECK USER LIMITS
04446 M00S04285.1cd +++| RJM CUL
04447 M00S04286.1cd +++| LJM NPD4 GO TO PHASE 1
04448 M00S04287.1cd +++| NEF SPACE 4,10
04449 M00S04288.1cd +++|** NEF - LIST END OF INFORMATION.
04450 M00S04289.1cd +++|*
04451 M00S04290.1cd +++|* USES BR, T4.
04452 M00S04291.1cd +++|*
04453 M00S04292.1cd +++|* CALLS ACT, MGR, NPN.
04454 M00S04293.1cd +++|
04455 M00S04294.1cd +++|
04456 M00S04295.1cd +++| NEF LDD BS+4 CHECK BUFFER STATUS
04457 M00S04296.1cd +++| SHN 21-11
04458 M00S04297.1cd +++| MJN NEF1 IF EOI
04459 M00S04298.1cd +++| LJM NPN1 RESET BUFFER STATUS
04460 M00S04299.1cd +++|
| Line S04300 Modification History |
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act
----------------------------+
04461 M01S04300.1cd9 ---| NEF1 LDD F6+2 CHECK ABORT FLAG
| Line S00031 Modification History |
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act
----------------------------+
04462 M01S00031.1cd9 +++| NEF1 LDD F2+2 CHECK ABORT FLAG
04463 M00S04301.1cd +++| LPN 2
04464 M00S04302.1cd +++| ZJN NEF2 IF NO ABORT FLAG
04465 M00S04303.1cd +++| LDN 0 CLEAR REPEAT COUNT
04466 M00S04304.1cd +++| STM CMER
04467 M00S04305.1cd +++| LJM NPN PROCESS *END*
04468 M00S04306.1cd +++|
04469 M00S04307.1cd +++|* *NEF2* IS A SECONDARY ENTRY POINT FOR *NEF*.
04470 M00S04308.1cd +++|
04471 M00S04309.1cd +++| NEF2 AOD BR
04472 M00S04310.1cd +++| LDM CMSF CHECK ACCOUNT FLAG
04473 M00S04311.1cd +++| LPN 1
04474 M00S04312.1cd +++| ZJN NEF3 IF ACCOUNT FLAG NOT SET
04475 M00S04313.1cd +++| LJM TOF TERMINATE OUTPUT FILE
04476 M00S04314.1cd +++|
04477 M00S04315.1cd +++| NEF3 AOM CMSF SET ACCOUNT FLAG
| Line S04316 Modification History |
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act
----------------------------+
04478 M01S04316.ns2597 ---| SCN 10 CLEAR 12 BIT ASCII PRINT FILE FLAG
| Line S00108 Modification History |
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act
----------------------------+
04479 M01S00108.ns2597 +++| SCN 50 CLEAR 6/12 AND 8/12 ASCII PRINT FLAGS
04480 M00S04317.1cd +++| STM CMSF
04481 M00S04318.1cd +++| NEF4 LDN 0 SET PRINTER FOR *QAP*
04482 M00S04319.1cd +++| STD EQ
04483 M00S04320.1cd +++| RJM ACT PROCESS ACCOUNTING
04484 M00S04321.1cd +++| NEF5 RJM MGR GO TO MANAGER
04485 M00S04322.1cd +++| ZJN NEF4 IF REQUEST NOT ENTERED
04486 M00S04323.1cd +++| LDD BS+4
04487 M00S04324.1cd +++| SHN 21-0
04488 M00S04325.1cd +++| PJN NEF5 IF ACCOUNTING NOT COMPLETE
04489 M00S04326.1cd +++| LJM NPD4 PRINT LINE COUNT
04490 M00S04327.1cd +++| NPE SPACE 4,10
04491 M00S04328.1cd +++|** NPE - ERROR PROCESSOR.
04492 M00S04329.1cd +++|*
04493 M00S04330.1cd +++|* ENTRY (A) = DEVICE STATUS.
04494 M00S04331.1cd +++|*
04495 M00S04332.1cd +++|* EXIT TO *PSE*.
04496 M00S04333.1cd +++|*
04497 M00S04334.1cd +++|* CALLS MSG.
04498 M00S04335.1cd +++|
04499 M00S04336.1cd +++|
04500 M00S04337.1cd +++| NPE BSS 0 ENTRY
04501 M00S04338.1cd +++| LPN 4
04502 M00S04339.1cd +++| ZJN NPE1 IF NO INTERVENTION REQUIRED
04503 M00S04340.1cd +++| LDN EIVR&ENRD
04504 M00S04341.1cd +++| NPE1 LMN ENRD SEND *NOT READY.* MESSAGE
04505 M00S04342.1cd +++| RJM MSG
04506 M00S04343.1cd +++| LJM PSE RETURN
04507 M00S04344.1cd +++| NPN SPACE 4,10
04508 M00S04345.1cd +++|** NPN - PROCESS *END*.
04509 M00S04346.1cd +++|*
04510 M00S04347.1cd +++|* USES BS+4, CM - CM+4.
04511 M00S04348.1cd +++|*
04512 M00S04349.1cd +++|* CALLS SFA.
04513 M00S04350.1cd +++|*
04514 M00S04351.1cd +++|* MACROS NFA.
04515 M00S04352.1cd +++|
04516 M00S04353.1cd +++|
04517 M00S04354.1cd +++| NPN LDN 0 CLEAR HOLD FLAG
04518 M00S04355.1cd +++| STM CMHF
04519 M00S04356.1cd +++| LDM CMSF CHECK END FLAG
04520 M00S04357.1cd +++| LPN 2
04521 M00S04358.1cd +++| NJN NPN2 IF SET PREVIOUSLY
04522 M00S04359.1cd +++| LDN 2 SET END FLAG
04523 M00S04360.1cd +++| RAM CMSF
04524 M00S04361.1cd +++| NFA FA,R READ FST INFORMATION
04525 M00S04362.1cd +++| CRD CM
04526 M00S04363.1cd +++| LDD FP+1 RESET FILE STATUS
04527 M00S04364.1cd +++| ZJN NPN2 IF NO DAYFILE
04528 M00S04365.1cd +++| STD CM+2
04529 M00S04366.1cd +++| LDD FP+2
04530 M00S04367.1cd +++| STD CM+3
04531 M00S04368.1cd +++| NFA FA,R UPDATE FST INFORMATION
04532 M00S04369.1cd +++| CWD CM
04533 M00S04370.1cd +++|
04534 M00S04371.1cd +++|* *NPN1* IS A SECONDARY ENTRY POINT FOR *NPN*.
04535 M00S04372.1cd +++|
04536 M00S04373.1cd +++| NPN1 LDN 1 RESET BUFFER STATUS
04537 M00S04374.1cd +++| STD BS+4
04538 M00S04375.1cd +++| RJM SFA STORE BUFFER STATUS
04539 M00S04376.1cd +++| CWD BS
04540 M00S04377.1cd +++| LJM NPD4 RETURN TO MAIN DRIVER
04541 M00S04378.1cd +++|
04542 M00S04379.1cd +++| NPN2 LJM NEF2 PROCESS ACCOUNTING
04543 M00S04380.1cd +++| PFC SPACE 4,20
04544 M00S04381.1cd +++|** PFC - PROCESS FORMAT CONTROL.
04545 M00S04382.1cd +++|*
04546 M00S04383.1cd +++|* ENTRY ((DA)) = FORMAT CONTROL CHARACTER (ASCII).
04547 M00S04384.1cd +++|*
04548 M00S04385.1cd +++|* EXIT (A) = 0 IF LINE SHOULD BE PRINTED.
04549 M00S04386.1cd +++|* (NPLC) = LINE COUNT.
04550 M00S04387.1cd +++|* (NPWF) = WRITE FUNCTION CODE.
04551 M00S04388.1cd +++|*
04552 M00S04389.1cd +++|* ERROR TO *MGR1* IF FUNCTION REJECTED.
04553 M00S04390.1cd +++|*
04554 M00S04391.1cd +++|* USES T4.
04555 M00S04392.1cd +++|*
04556 M00S04393.1cd +++|* CALLS FCN, GST.
04557 M00S04394.1cd +++|
04558 M00S04395.1cd +++|
04559 M00S04396.1cd +++| PFC3 LDM 1,T4 SET LINE CHARGE COUNT
04560 M00S04397.1cd +++| SHN 14
04561 M00S04398.1cd +++| STM NPLC
04562 M00S04399.1cd +++| SHN -14
04563 M00S04400.1cd +++|
04564 M00S04401.1cd +++| PFC SUBR ENTRY/EXIT
04565 M00S04402.1cd +++| LDC TPFC-4 SET FWA OF FORMAT CONTROL TABLE
04566 M00S04403.1cd +++| STD T4
04567 M00S04404.1cd +++| PFC1 LDN 4 SET NEXT ADDRESS
04568 M00S04405.1cd +++| RAD T4
04569 M00S04406.1cd +++| LDI T4
04570 M00S04407.1cd +++| ZJN PFCX IF END OF TABLE
04571 M00S04408.1cd +++| LMI DA
04572 M00S04409.1cd +++| NJN PFC1 IF NO MATCH
04573 M00S04410.1cd +++| LDM 2,T4 SET SECOND WRITE FUNCTION
04574 M00S04411.1cd +++| STM NPWF
04575 M00S04412.1cd +++| LDM 3,T4 SET FIRST WRITE FUNCTION
04576 M00S04413.1cd +++| PFC2 ZJN PFC3 IF NO FUNCTION TO ISSUE
04577 M00S04414.1cd +++| RJM FCN ISSUE FUNCTION
04578 M00S04415.1cd +++| RJM GST GET GENERAL STATUS
04579 M00S04416.1cd +++| ZJN PFC2 IF NO ERROR
04580 M00S04417.1cd +++| LJM MGR1 RETURN TO *MGR*
04581 M00S04418.1cd +++| TPFC SPACE 4,10
04582 M00S04419.1cd +++|** TPFC - TABLE OF FORMAT CONTROL CHARACTERS.
04583 M00S04420.1cd +++|*
04584 M00S04421.1cd +++|* FOUR WORDS PER ENTRY.
04585 M00S04422.1cd +++|
04586 M00S04423.1cd +++|
04587 M00S04424.1cd +++| TPFC BSS 0
04588 M00S04425.1cd +++| NFMTC C,,0,66 SKIP TO CHANNEL 6 AFTER PRINT
04589 M00S04426.1cd +++| NFMTC D,,0,65 SKIP TO CHANNEL 5 AFTER PRINT
04590 M00S04427.1cd +++| NFMTC E,,0,64 SKIP TO CHANNEL 4 AFTER PRINT
04591 M00S04428.1cd +++| NFMTC F,,0,63 SKIP TO CHANNEL 3 AFTER PRINT
04592 M00S04429.1cd +++| NFMTC G,,0,62 SKIP TO CHANNEL 2 AFTER PRINT
04593 M00S04430.1cd +++| NFMTC H,,0,61 SKIP TO CHANNEL 1 AFTER PRINT
04594 M00S04431.1cd +++| NFMTC Q,1,0,0 LINE IGNORED
04595 M00S04432.1cd +++| NFMTC R,1,0,0 LINE IGNORED
04596 M00S04433.1cd +++| NFMTC S,1,0,0 LINE IGNORED
04597 M00S04434.1cd +++| NFMTC T,1,0,0 LINE IGNORED
04598 M00S04435.1cd +++| NFMTC V,1,0,0 LINE IGNORED
04599 M00S04436.1cd +++| NFMTC 0,,1,1,4 SPACE 1 LINE BEFORE PRINT
04600 M00S04437.1cd +++| NFMTC 1,,0,21,4 EJECT BEFORE PRINT
04601 M00S04438.1cd +++| NFMTC 2,,0,54 ADVANCE TO LAST LINE BEFORE PRINT
04602 M00S04439.1cd +++| NFMTC 3,,0,46 SKIP TO CHANNEL 6 BEFORE PRINT
04603 M00S04440.1cd +++| NFMTC 4,,0,45 SKIP TO CHANNEL 5 BEFORE PRINT
04604 M00S04441.1cd +++| NFMTC 5,,0,44 SKIP TO CHANNEL 4 BEFORE PRINT
04605 M00S04442.1cd +++| NFMTC 6,,0,43 SKIP TO CHANNEL 3 BEFORE PRINT
04606 M00S04443.1cd +++| NFMTC 7,,0,42 SKIP TO CHANNEL 2 BEFORE PRINT
04607 M00S04444.1cd +++| NFMTC 8,,0,41 SKIP TO CHANNEL 1 BEFORE PRINT
04608 M00S04445.1cd +++|* NFMTC +,,0,0 PROCESSED IN MAIN DRIVER
04609 M00S04446.1cd +++| NFMTC -,,2,2,4 SPACE 2 LINES BEFORE PRINT
04610 M00S04447.1cd +++| NFMTC /,,0,7 SUPPRESS SPACE AFTER PRINT
04611 M00S04448.1cd +++| DATA 0 END OF TABLE
04612 M00S04449.1cd +++| PPM SPACE 4,10
04613 M00S04450.1cd +++|** PPM - PROCESS PM MESSAGE.
04614 M00S04451.1cd +++|*
04615 M00S04452.1cd +++|* ENTRY (DA) = FWA OF LINE RECORD.
04616 M00S04453.1cd +++|* (FP+2) = VALIDATION FLAGS.
04617 M00S04454.1cd +++|* (CMLR) = RECORD LENGTH - 1.
04618 M00S04455.1cd +++|*
04619 M00S04456.1cd +++|* EXIT (CMLR) = LENGTH OF *DJDE* ENTRY.
04620 M00S04457.1cd +++|*
04621 M00S04458.1cd +++|* USES T1, T2, T4.
04622 M00S04459.1cd +++|*
04623 M00S04460.1cd +++|* CALLS MVE.
04624 M00S04461.1cd +++|
04625 M00S04462.1cd +++|
04626 M00S04463.1cd +++| PPM SUBR ENTRY/EXIT
| Line S04464 Modification History |
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act
----------------------------+
04627 M01S04464.1cd9 ---| LDD F6+2 CHECK VALIDATION
| Line S00032 Modification History |
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act
----------------------------+
04628 M01S00032.1cd9 +++| LDD F2+2 CHECK VALIDATION
04629 M00S04465.1cd +++| LPN 1
04630 M00S04466.1cd +++| ZJN PPMX IF NOT *CBIO* VALIDATED
04631 M00S04467.1cd +++| LDC 80D+1 INSURE MAX LENGTH OF 80 CHARACTERS
04632 M00S04468.1cd +++| SBM CMLR
04633 M00S04469.1cd +++| PJN PPM1 IF .LE. 80 CHARACTERS
04634 M00S04470.1cd +++| RAM CMLR
04635 M00S04471.1cd +++| PPM1 LDD DA SET LWA+1 OF SOURCE
04636 M00S04472.1cd +++| ADM CMLR
04637 M00S04473.1cd +++| ADN 1
04638 M00S04474.1cd +++| STD T1
04639 M00S04475.1cd +++| ADN PPMAL-1 SET LWA+1 OF DESTINATION
04640 M00S04476.1cd +++| STD T2
04641 M00S04477.1cd +++| ADN PPMBL SET LWA+1 OF ENDING STRING
04642 M00S04478.1cd +++| STD T4
04643 M00S04479.1cd +++| SOM CMLR MOVE TEXT STRING
04644 M00S04480.1cd +++| RJM MVE
04645 M00S04481.1cd +++| LDC PPMB+PPMBL
04646 M00S04482.1cd +++| STD T1
04647 M00S04483.1cd +++| LDD T4
04648 M00S04484.1cd +++| STD T2
04649 M00S04485.1cd +++| LDN PPMBL MOVE ENDING STRING
04650 M00S04486.1cd +++| RJM MVE
04651 M00S04487.1cd +++| LDC PPMA+PPMAL
04652 M00S04488.1cd +++| STD T1
04653 M00S04489.1cd +++| LDD DA
04654 M00S04490.1cd +++| ADN PPMAL+1
04655 M00S04491.1cd +++| STD T2
04656 M00S04492.1cd +++| LDN PPMAL MOVE BEGINING STRING
04657 M00S04493.1cd +++| RJM MVE
04658 M00S04494.1cd +++| LDN PPMAL+PPMBL SET RECORD LENGTH
04659 M00S04495.1cd +++| RAM CMLR
04660 M00S04496.1cd +++| LJM PPMX RETURN
04661 M00S04497.1cd +++|
04662 M00S04498.1cd +++| PPMA STR ("DJDE"OTEXT=)
04663 M00S04499.1cd +++| DATA 50 (
04664 M00S04500.1cd +++| STR (')
04665 M00S04501.1cd +++| PPMAL EQU *-PPMA
04666 M00S04502.1cd +++|
04667 M00S04503.1cd +++| PPMB STR (',1,WAIT)
04668 M00S04504.1cd +++| DATA 51 )
04669 M00S04505.1cd +++| STR (;END;)
04670 M00S04506.1cd +++| PPMBL EQU *-PPMB
04671 M00S04507.1cd +++| CON SPACE 4,15
04672 M00S04508.1cd +++|** CON - CONNECT TO EQUIPMENT.
04673 M00S04509.1cd +++|*
04674 M00S04510.1cd +++|* ENTRY (CMCE) = UNIT NUMBER.
04675 M00S04511.1cd +++|*
04676 M00S04512.1cd +++|* EXIT (A) = GENERAL STATUS.
04677 M00S04513.1cd +++|* (ST) = GENERAL STATUS.
04678 M00S04514.1cd +++|*
04679 M00S04515.1cd +++|* ERROR TO *FCN3* IF FUNCTION TIMEOUT.
04680 M00S04516.1cd +++|*
04681 M00S04517.1cd +++|* CALLS FCN, GST.
04682 M00S04518.1cd +++|
04683 M00S04519.1cd +++|
04684 M00S04520.1cd +++| CON2 DCN CH+40
04685 M00S04521.1cd +++| RJM GST GET GENERAL STATUS
04686 M00S04522.1cd +++|
04687 M00S04523.1cd +++| CON SUBR ENTRY/EXIT
04688 M00S04524.1cd +++| LDN 0 ISSUE SELECT UNIT FUNCTION
04689 M00S04525.1cd +++| RJM FCN
04690 M00S04526.1cd +++| LDM CMCE SET UNIT NUMBER
04691 M00S04527.1cd +++| SHN -11
04692 M00S04528.1cd +++| ACN CH
04693 M00S04529.1cd +++| OAN CH+40
04694 M00S04530.1cd +++| CON1 ADD ON
04695 M00S04531.1cd +++| EJM CON2,CH IF FUNCTION ACCEPTED
04696 M00S04532.1cd +++| NJN CON1 IF NOT TIMED OUT
04697 M00S04533.1cd +++| UJN FCN3 PROCESS FUNCTION TIMEOUT
04698 M00S04534.1cd +++| FCN SPACE 4,15
04699 M00S04535.1cd +++|** FCN - OUTPUT FUNCTION TO EQUIPMENT.
04700 M00S04536.1cd +++|*
04701 M00S04537.1cd +++|* ENTRY (A) = FUNCTION CODE.
04702 M00S04538.1cd +++|*
| Line S04539 Modification History |
M01 (Removed by) | 1cd10 |
Seq # *Modification Id* Act
----------------------------+
04703 M01S04539.1cd10 ---|* EXIT (FC) = FUNCTION CODE IF NOT GENERAL STATUS FUNCTION.
| Line S00001 Modification History |
M01 (Added by) | 1cd10 |
Seq # *Modification Id* Act
----------------------------+
04704 M01S00001.1cd10 +++|* EXIT (FC) = CURRENT FUNCTION CODE.
04705 M01S00002.1cd10 +++|* (FC) = PRIOR FUNCTION CODE IF CURRENT FUNCTION CODE IS
04706 M01S00003.1cd10 +++|* A GENERAL STATUS.
04707 M00S04540.1cd +++|*
04708 M00S04541.1cd +++|* ERROR TO *CEP* IF FUNCTION TIMEOUT.
04709 M00S04542.1cd +++|*
04710 M00S04543.1cd +++|* USES T1.
04711 M00S04544.1cd +++|*
04712 M00S04545.1cd +++|* CALLS SDM.
04713 M00S04546.1cd +++|
04714 M00S04547.1cd +++|
04715 M00S04548.1cd +++| FCN SUBR ENTRY/EXIT
04716 M00S04549.1cd +++| FAN CH ISSUE FUNCTION
04717 M00S04550.1cd +++| LMN 12
04718 M00S04551.1cd +++| ZJN FCN1 IF GENERAL STATUS FUNCTION
04719 M00S04552.1cd +++| LMN 12
04720 M00S04553.1cd +++| STD FC SAVE FUNCTION CODE FOR ERROR MESSAGE
| Line S04554 Modification History |
M01 (Removed by) | 1cd10 |
Seq # *Modification Id* Act
----------------------------+
04721 M01S04554.1cd10 ---| LDN 1
04722 M01S04555.1cd10 ---| FCN1 STD T1 SET TIMEOUT COUNTDOWN INCREMENT
04723 M01S04556.1cd10 ---| FCN2 ADD T1
04724 M01S04557.1cd10 ---| IJM FCNX,CH IF FUNCTION ACCEPTED
| Line S00004 Modification History |
M01 (Added by) | 1cd10 |
Seq # *Modification Id* Act
----------------------------+
04725 M01S00004.1cd10 +++| FCN1 LDK 1000D*4 FOUR SECOND DELAY
04726 M01S00005.1cd10 +++| ERRPL 1000D*4-7777 DELAY COUNT OVERFLOWS
04727 M01S00006.1cd10 +++| STD T1 SET TIMEOUT COUNTDOWN INCREMENT
04728 M01S00007.1cd10 +++| FCN2 LDM .DLY DELAY 1 MILLISECOND
04729 M01S00008.1cd10 +++| SHN 2
04730 M01S00009.1cd10 +++| FCN2.4 IJM FCNX,CH IF FUNCTION ACCEPTED
04731 M01S00010.1cd10 +++| SBN 1
04732 M01S00011.1cd10 +++| NJN FCN2.4 IF INNER LOOP NOT EXPIRED
04733 M01S00012.1cd10 +++| SOD T1
04734 M00S04558.1cd +++| PJN FCN2 IF TIMEOUT NOT ELAPSED
04735 M00S04559.1cd +++| SOM CMTC
| Line S04560 Modification History |
M01 (Removed by) | 1cd10 |
Seq # *Modification Id* Act
----------------------------+
04736 M01S04560.1cd10 ---| NJN FCN2 IF TIMEOUT NOT ELAPSED
| Line S00013 Modification History |
M01 (Added by) | 1cd10 |
Seq # *Modification Id* Act
----------------------------+
04737 M01S00013.1cd10 +++| NJN FCN1 IF TIMEOUT NOT ELAPSED
04738 M00S04561.1cd +++|
04739 M00S04562.1cd +++|* *FCN3* IS A SECONDARY ENTRY POINT FOR *FCN*.
04740 M00S04563.1cd +++|
04741 M00S04564.1cd +++| FCN3 DCN CH+40
04742 M00S04565.1cd +++| LDN EFTM *EQXXX FUNCTION TIMEOUT.*
04743 M00S04566.1cd +++| RJM SDM
04744 M00S04567.1cd +++| LJM CEP PROCESS CHANNEL ERROR
04745 M00S04568.1cd +++| GST SPACE 4,15
04746 M00S04569.1cd +++|** GST - GET GENERAL STATUS OF CCC.
04747 M00S04570.1cd +++|*
04748 M00S04571.1cd +++|* ENTRY CHANNEL INSTRUCTIONS SET.
04749 M00S04572.1cd +++|*
04750 M00S04573.1cd +++|* EXIT (A) = GENERAL STATUS.
04751 M00S04574.1cd +++|* (ST) = GENERAL STATUS.
04752 M00S04575.1cd +++|*
04753 M00S04576.1cd +++|* ERROR TO *FCN2* IF FUNCTION TIMEOUT.
04754 M00S04577.1cd +++|* TO *CEP* IF STATUS ERROR.
04755 M00S04578.1cd +++|*
04756 M00S04579.1cd +++|* CALLS CCE, FCN, SDM.
04757 M00S04580.1cd +++|
04758 M00S04581.1cd +++|
04759 M00S04582.1cd +++| GST2 LDD ST
04760 M00S04583.1cd +++|
04761 M00S04584.1cd +++| GST SUBR ENTRY/EXIT
04762 M00S04585.1cd +++| GST1 LDN 12 ISSUE GENERAL STATUS FUNCTION
04763 M00S04586.1cd +++| RJM FCN
04764 M00S04587.1cd +++| ACN CH
04765 M00S04588.1cd +++| IAN CH+40
04766 M00S04589.1cd +++| DCN CH+40
04767 M00S04590.1cd +++| STD ST
04768 M00S04591.1cd +++| LDN SCEI STATUS PARITY ERROR
04769 M00S04592.1cd +++| RJM CCE CHECK FOR CHANNEL ERROR
04770 M00S04593.1cd +++| NJN GST1 IF ERROR
04771 M00S04594.1cd +++| LDD ST CHECK FOR STATUS ERROR
04772 M00S04595.1cd +++| SHN -11
04773 M00S04596.1cd +++| LMN 5
04774 M00S04597.1cd +++| NJN GST2 IF NO ERROR
04775 M00S04598.1cd +++| LDN ECSE *EQXXX CCC/NIP STATUS ERROR.*
04776 M00S04599.1cd +++| RJM SDM
04777 M00S04600.1cd +++| LJM CEP PROCESS CHANNEL ERROR
04778 M00S04601.1cd +++| MCI SPACE 4,10
04779 M00S04602.1cd +++|** MCI - MODIFY CHANNEL INSTRUCTIONS.
04780 M00S04603.1cd +++|*
04781 M00S04604.1cd +++|* ENTRY (CMCE) = CHANNEL FOR DEVICE.
04782 M00S04605.1cd +++|* (CR) = CURRENT CHANNEL.
04783 M00S04606.1cd +++|*
04784 M00S04607.1cd +++|* EXIT (CR) = CHANNEL RESERVED.
04785 M00S04608.1cd +++|*
04786 M00S04609.1cd +++|* USES T1 - T3.
04787 M00S04610.1cd +++|*
04788 M00S04611.1cd +++|* MACROS DCHAN, RCHAN.
04789 M00S04612.1cd +++|
04790 M00S04613.1cd +++|
04791 M00S04614.1cd +++| MCI1 RAI T2 MODIFY NEXT CHANNEL
04792 M00S04615.1cd +++| AOD T1
04793 M00S04616.1cd +++| MCI2 LDI T1
04794 M00S04617.1cd +++| STD T2
04795 M00S04618.1cd +++| LDD T3
04796 M00S04619.1cd +++| CHTL *
04797 M00S04620.1cd +++| SBN CH
04798 M00S04621.1cd +++| NJN MCI1 IF MORE CHANNELS TO MODIFY
04799 M00S04622.1cd +++| LDD CR RESERVE NEW CHANNEL
04800 M00S04623.1cd +++| RCHAN
04801 M00S04624.1cd +++|
04802 M00S04625.1cd +++| MCI SUBR ENTRY/EXIT
04803 M00S04626.1cd +++| LDM CMCE CHECK CHANNEL
04804 M00S04627.1cd +++| LPN 77
04805 M00S04628.1cd +++| STD T3
04806 M00S04629.1cd +++| CHTE *
04807 M00S04630.1cd +++| LMN CH
04808 M00S04631.1cd +++| ZJN MCIX IF CORRECT CHANNEL
04809 M00S04632.1cd +++| LDD CR RELEASE LAST CHANNEL
04810 M00S04633.1cd +++| DCHAN
04811 M00S04634.1cd +++| CHTE CR UPDATE *CR* DIRECT CELL
04812 M00S04635.1cd +++| LDC TCHS MODIFY CHANNELS
04813 M00S04636.1cd +++| STD T1
04814 M00S04637.1cd +++| UJN MCI2 MODIFY FIRST CHANNEL
04815 M00S04638.1cd +++| MVE SPACE 4,10
04816 M00S04639.1cd +++|** MVE - MOVE BUFFER.
04817 M00S04640.1cd +++|*
04818 M00S04641.1cd +++|* ENTRY (A) = NUMBER OF BYTES TO MOVE.
04819 M00S04642.1cd +++|* (T1) = LWA+1 OF SOURCE BUFFER.
04820 M00S04643.1cd +++|* (T2) = LWA+1 OF DESTINATION BUFFER.
04821 M00S04644.1cd +++|*
04822 M00S04645.1cd +++|* USES T1, T2, T3.
04823 M00S04646.1cd +++|
04824 M00S04647.1cd +++|
04825 M00S04648.1cd +++| MVE1 SOD T1
04826 M00S04649.1cd +++| SOD T2
04827 M00S04650.1cd +++| LDI T1
04828 M00S04651.1cd +++| STI T2
04829 M00S04652.1cd +++| SOD T3
04830 M00S04653.1cd +++| MVE2 NJN MVE1 IF MOVE NOT COMPLETE
04831 M00S04654.1cd +++|
04832 M00S04655.1cd +++| MVE SUBR ENTRY/EXIT
04833 M00S04656.1cd +++| STD T3
04834 M00S04657.1cd +++| UJN MVE1 BEGIN MOVE
04835 M00S04658.1cd +++| REC SPACE 4,10
04836 M00S04659.1cd +++|** REC - RELEASE EQUIPMENT CONNECT.
04837 M00S04660.1cd +++|
04838 M00S04661.1cd +++|
04839 M00S04662.1cd +++| REC SUBR ENTRY/EXIT
04840 M00S04663.1cd +++| UJN RECX RETURN
04841 M00S04664.1cd +++| SDP SPACE 4,10
04842 M00S04665.1cd +++|** SDP - SUB-DRIVER PROCESSOR.
04843 M00S04666.1cd +++|*
04844 M00S04667.1cd +++|* CALLS CON, MCI.
04845 M00S04668.1cd +++|
04846 M00S04669.1cd +++|
04847 M00S04670.1cd +++| SDP SUBR ENTRY/EXIT
04848 M00S04671.1cd +++| LDD BR
04849 M00S04672.1cd +++| NJN SDP1 IF BUSY RETURN REQUESTED
04850 M00S04673.1cd +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS
04851 M00S04674.1cd +++| RJM CON CONNECT TO EQUIPMENT
04852 M00S04675.1cd +++| ZJN SDP1 IF CONNECTED AND READY
04853 M00S04676.1cd +++| SHN 21-1
04854 M00S04677.1cd +++| MJN SDPX IF BUSY
04855 M00S04678.1cd +++| LDM TNRP,EQ SET NOT READY PROCESSING ADDRESS
04856 M00S04679.1cd +++| STD PA
04857 M00S04680.1cd +++| LDD ST (A) = STATUS
04858 M00S04681.1cd +++| UJN SDP2 ENTER ROUTINE
04859 M00S04682.1cd +++|
04860 M00S04683.1cd +++| SDP1 LDM CMPA SET PROGRAM ADDRESS
04861 M00S04684.1cd +++| STD PA
04862 M00S04685.1cd +++| LDM CMAR RESET (A)
04863 M00S04686.1cd +++| SDP2 LJM 0,PA RETURN TO NEXT DRIVER ADDRESS
04864 M00S04687.1cd +++| WDR SPACE 4,10
04865 M00S04688.1cd +++|** WDR - WRITE DATA RECORD.
04866 M00S04689.1cd +++|*
04867 M00S04690.1cd +++|* ENTRY (A) = WRITE FUNCTION.
04868 M00S04691.1cd +++|* (DA) = FWA OF DATA RECORD.
04869 M00S04692.1cd +++|* (CMLR) = OUTPUT RECORD LENGTH.
04870 M00S04693.1cd +++|*
04871 M00S04694.1cd +++|* ERROR TO *MGR1* IF RETRY REQUIRED.
04872 M00S04695.1cd +++|*
04873 M00S04696.1cd +++|* CALLS CRV, FCN, GST, PRE.
04874 M00S04697.1cd +++|
04875 M00S04698.1cd +++|
04876 M00S04699.1cd +++| WDR SUBR ENTRY/EXIT
04877 M00S04700.1cd +++| RJM FCN ISSUE WRITE FUNCTION
04878 M00S04701.1cd +++| LDD DA SET RECORD ADDRESS
04879 M00S04702.1cd +++| STM WDRA
04880 M00S04703.1cd +++| LDM CMLR SET RECORD LENGTH
04881 M00S04704.1cd +++| ACN CH
04882 M00S04705.1cd +++| OAM **,CH
04883 M00S04706.1cd +++| WDRA EQU *-1 (RECORD ADDRESS)
04884 M00S04707.1cd +++| FJM *,CH IF TRANSFER NOT COMPLETE
04885 M00S04708.1cd +++| DCN CH+40
04886 M00S04709.1cd +++| NJN WDR1 IF INCOMPLETE TRANSFER
04887 M00S04710.1cd +++| LDN DRRI
04888 M00S04711.1cd +++| RJM CRV CHECK FOR RECOVERED ERROR
04889 M00S04712.1cd +++| RJM GST GET GENERAL STATUS
04890 M00S04713.1cd +++| NJN WDR2 IF ERRORS
04891 M00S04714.1cd +++| UJN WDRX RETURN
04892 M00S04715.1cd +++|
04893 M00S04716.1cd +++| WDR1 STD CS SAVE BYTE COUNT
04894 M00S04717.1cd +++| LDN DRRI
04895 M00S04718.1cd +++| RJM PRE PROCESS RECOVERED ERROR
04896 M00S04719.1cd +++| WDR2 LJM MGR1 RETURN TO MANAGER
04897 M00S04720.1cd +++| TCHS SPACE 4,10
04898 M00S04721.1cd +++|** TCHS - CHANNEL TABLE.
04899 M00S04722.1cd +++|
04900 M00S04723.1cd +++|
04901 M00S04724.1cd +++| TCHS CHTB
04902 M00S04725.1cd +++| TITLE PRESET.
04903 M00S04726.1cd +++| PRS SPACE 4,15
04904 M00S04727.1cd +++|** PRS - PRESET SUB-DRIVER OVERLAY.
04905 M00S04728.1cd +++|*
04906 M00S04729.1cd +++|* EXIT (CR) = CHANNEL RESERVED.
04907 M00S04730.1cd +++|* (DB) = FIRST DATA BUFFER ADDRESS.
04908 M00S04731.1cd +++|* TO *ZBA*.
04909 M00S04732.1cd +++|*
04910 M00S04733.1cd +++|* USES CM - CM+4, T1 - T3.
04911 M00S04734.1cd +++|*
04912 M00S04735.1cd +++|* MACROS RCHAN.
04913 M00S04736.1cd +++|
04914 M00S04737.1cd +++|
04915 M00S04738.1cd +++| PRS BSS 0 ENTRY
04916 M00S04739.1cd +++| LDN IPRL CHECK CHARACTER SET MODE
04917 M00S04740.1cd +++| CRD CM
04918 M00S04741.1cd +++| LDD CM+2
04919 M00S04742.1cd +++| LPN 1
04920 M00S04743.1cd +++| NJN PRS1 IF SYSTEM NOT IN 63 CHARACTER SET MODE
04921 M00S04744.1cd +++| ISTORE NPDA,(UJN NPD9)
04922 M00S04745.1cd +++| PRS1 LDN CH RESERVE CHANNEL
04923 M00S04746.1cd +++| STD CR
04924 M00S04747.1cd +++| RCHAN
04925 M00S04748.1cd +++| STM RCBA
04926 M00S04749.1cd +++| LDN ZERL CLEAR *CIO* REQUEST PARAMETERS
04927 M00S04750.1cd +++| CRD CM
04928 M00S04751.1cd +++| LDD MA
04929 M00S04752.1cd +++| ADN 1
04930 M00S04753.1cd +++| CWD CM
04931 M00S04754.1cd +++| LDC DBUF SET BUFFER INFORMATION
04932 M00S04755.1cd +++| STD DB
04933 M00S04756.1cd +++| STD T1
04934 M00S04757.1cd +++| LDC DBUFS
04935 M00S04758.1cd +++| STD T2
04936 M00S04759.1cd +++| LDC DBUFL
04937 M00S04760.1cd +++| STD T3
04938 M00S04761.1cd +++| LJM ZBA CLEAR DATA BUFFER ASSIGNMENTS
| Line S00003 Modification History |
M01 (Added by) | 1cd6 |
Seq # *Modification Id* Act
----------------------------+
04939 M01S00003.1cd6 +++| SPACE 4,10
04940 M01S00004.1cd6 +++| OVERFLOW OVLA
04941 M00S04762.1cd +++| DBUF SPACE 4,10
04942 M00S04763.1cd +++|** DBUF - DATA BUFFER AREA.
04943 M00S04764.1cd +++|
04944 M00S04765.1cd +++|
04945 M00S04766.1cd +++| DBUFS EQU PXMX+5 DATA BUFFER SIZE
04946 M00S04767.1cd +++| DBUFW EQU DBUFS/10D DATA BUFFER SIZE IN CM WORDS
04947 M00S04768.1cd +++| DBUF EQU PRS FWA OF DATA BUFFERS
04948 M00S04769.1cd +++| .L SET 7777-DBUF
04949 M00S04770.1cd +++| NDBUF EQU .L/DBUFS NUMBER OF DATA BUFFERS
04950 M00S04771.1cd +++| DBUFL EQU DBUF+DBUFS*NDBUF LWA+1 OF DATA BUFFERS
04951 M00S04772.1cd +++|
04952 M00S04773.1cd +++| ERRNG 10000-DBUFL BUFFERS WRAP PP MEMORY
04953 M00S04774.1cd +++| SPACE 4,10
04954 M00S04775.1cd +++| END