Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1cd.002
Deck 1CD Part 002
14 Modifications
Listing Sections
- Deck 1CD Start
- Deck 1CD Part 1 (Line 1918)
- Deck 1CD Part 2 (Line 3979)
Source
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
cdc/nos2.source/opl.opl871/deck/1cd.002.txt · Last modified: by 127.0.0.1