cdc:nos2.source:opl.opl871:deck:1cd.001
Deck 1CD Part 001
14 Modifications
Listing Sections
- Deck 1CD Start
- Deck 1CD Part 1 (Line 1918)
- Deck 1CD Part 2 (Line 3979)
Source
Seq # *Modification Id* Act ----------------------------+ 01918 M00S01787.1cd +++| STM RNLA 01919 M00S01788.1cd +++| LDD FT READ WRAP AROUND 01920 M00S01789.1cd +++| SHN 6 01921 M00S01790.1cd +++| ADD RA 01922 M00S01791.1cd +++| SHN 6 01923 M00S01792.1cd +++| ADD FT+1 01924 M00S01793.1cd +++| CRM **,T4 01925 M00S01794.1cd +++| RNLA EQU *-1 01926 M00S01795.1cd +++| RNL2 LDD OT READ LINE 01927 M00S01796.1cd +++| SHN 6 01928 M00S01797.1cd +++| ADD RA 01929 M00S01798.1cd +++| SHN 6 01930 M00S01799.1cd +++| ADD OT+1 01931 M00S01800.1cd +++| CRM **,T5 01932 M00S01801.1cd +++| RNLB EQU *-1 01933 M00S01802.1cd +++| LDD T6 01934 M00S01803.1cd +++| ZJN RNL7 IF BINARY READ 01935 M00S01804.1cd +++| SOD T1 01936 M00S01805.1cd +++| LDN 0 01937 M00S01806.1cd +++| STD T4 01938 M00S01807.1cd +++| RNL3 LDN 5 SEARCH FOR EOL 01939 M00S01808.1cd +++| RAD T1 01940 M00S01809.1cd +++| AOD T4 01941 M00S01810.1cd +++| LMD T3 01942 M00S01811.1cd +++| ZJN RNL5 IF REQUESTED NUMBER OF WORDS CHECKED 01943 M00S01812.1cd +++| LDI T1 01944 M00S01813.1cd +++| NJN RNL3 IF NOT EOL 01945 M00S01814.1cd +++| RNL4 SOD T1 01946 M00S01815.1cd +++| RNL5 LDI T1 01947 M00S01816.1cd +++| ZJN RNL4 IF EOL 01948 M00S01817.1cd +++| AOD T1 01949 M00S01818.1cd +++| SBD T7 01950 M00S01819.1cd +++| PJN RNL6 IF NOT EMPTY LINE 01951 M00S01820.1cd +++| LDD T7 01952 M00S01821.1cd +++| STD T1 01953 M00S01822.1cd +++| RNL6 LDD T4 01954 M00S01823.1cd +++| STD T3 01955 M00S01824.1cd +++| RNL7 LDD T3 ADVANCE OUT POINTER 01956 M00S01825.1cd +++| RJM AOP 01957 M00S01826.1cd +++| LJM RNLX RETURN 01958 M00S01827.1cd +++| SCN SPACE 4,10 01959 M00S01828.1cd +++|** SCN - SET CONVERSION TABLE. 01960 M00S01829.1cd +++| 01961 M00S01830.1cd +++| 01962 M00S01831.1cd +++| SCN SUBR ENTRY/EXIT 01963 M00S01832.1cd +++| LDM CMCT CHECK TABLE IN MEMORY 01964 M00S01833.1cd +++| LMM CTID 01965 M00S01834.1cd +++| ZJN SCNX IF TABLE LOADED 01966 M00S01835.1cd +++| LDD RA LOAD CONVERSION TABLE 01967 M00S01836.1cd +++| SHN 6 01968 M00S01837.1cd +++| ADN CTIR 01969 M00S01838.1cd +++| ADM CMCT 01970 M00S01839.1cd +++| CRM CTID,TL 01971 M00S01840.1cd +++| UJN SCNX RETURN 01972 M00S01841.1cd +++| SDM SPACE 4,10 01973 M00S01842.1cd +++|** SDM - SEND DAYFILE MESSAGE. 01974 M00S01843.1cd +++|* 01975 M00S01844.1cd +++|* ENTRY (A) = MESSAGE CODE. 01976 M00S01845.1cd +++|* (T3) = MPARAM 1 (RETRIED ERRORS ONLY). 01977 M00S01846.1cd +++|* (FC) = MPARAM 3. 01978 M00S01847.1cd +++|* (SEE BUFFER POINT AREA DESCRIPTION IN 01979 M00S01848.1cd +++|* *COMSBIO* FOR *MPARAM* VALUES.) 01980 M00S01849.1cd +++|* 01981 M00S01850.1cd +++|* EXIT (A) = 0. 01982 M00S01851.1cd +++|* 01983 M00S01852.1cd +++|* USES T1, T2, T4, T5, CM - CM+4. 01984 M00S01853.1cd +++|* 01985 M00S01854.1cd +++|* MACROS NFA. 01986 M00S01855.1cd +++| 01987 M00S01856.1cd +++| 01988 M00S01857.1cd +++| SDM1 LDN ** SET BY *PRS* 01989 M00S01858.1cd +++| SDMA EQU *-1 PP NUMBER 01990 M00S01859.1cd +++| STD T4 (T4) = PP NUMBER 01991 M00S01860.1cd +++| LDD FC 01992 M00S01861.1cd +++| STD T5 01993 M00S01862.1cd +++| NFA BF,R READ MESSAGE CONTROL 01994 M00S01863.1cd +++| SDM2 ADN 1 01995 M00S01864.1cd +++| CRD CM 01996 M00S01865.1cd +++| LDD CM PRESERVE *I* DISPLAY 01997 M00S01866.1cd +++| STD T1 01998 M00S01867.1cd +++| NFA BF,R STORE MESSAGE PARAMETERS 01999 M00S01868.1cd +++| ADN 1 02000 M00S01869.1cd +++| CWD T1 02001 M00S01870.1cd +++| LDN 0 02002 M00S01871.1cd +++| 02003 M00S01872.1cd +++| SDM SUBR ENTRY/EXIT 02004 M00S01873.1cd +++| STM CMMR 02005 M00S01874.1cd +++| STD T2 STORE MESSAGE CODE 02006 M00S01875.1cd +++| SBN ORME 02007 M00S01876.1cd +++| PJN SDM1 IF NOT OPERATOR REQUEST 02008 M00S01877.1cd +++| LDM CMER 02009 M00S01878.1cd +++| SHN 6 ENTER REPEAT COUNT 02010 M00S01879.1cd +++| STD CM+4 02011 M00S01880.1cd +++| NFA BF,R STORE REPEAT COUNT 02012 M00S01881.1cd +++| CWD CM 02013 M00S01882.1cd +++| UJN SDM2 READ MESSAGE CONTROL 02014 M00S01883.1cd +++| SFA SPACE 4,10 02015 M00S01884.1cd +++|** SFA - SET FET ADDRESS. 02016 M00S01885.1cd +++|* 02017 M00S01886.1cd +++|* ENTRY ((BI - BI+1)) = RELATIVE FET ADDRESS. 02018 M00S01887.1cd +++|* 02019 M00S01888.1cd +++|* EXIT (A) = FET ADDRESS. 02020 M00S01889.1cd +++| 02021 M00S01890.1cd +++| 02022 M00S01891.1cd +++| SFA SUBR ENTRY/EXIT 02023 M00S01892.1cd +++| LDI BI 02024 M00S01893.1cd +++| SHN 6 02025 M00S01894.1cd +++| ADD RA 02026 M00S01895.1cd +++| SHN 6 02027 M00S01896.1cd +++| ADM 1,BI 02028 M00S01897.1cd +++| UJN SFAX RETURN 02029 M00S01898.1cd +++| SOP SPACE 4,10 02030 M00S01899.1cd +++|** SOP - STORE OUT POINTER. 02031 M00S01900.1cd +++|* 02032 M00S01901.1cd +++|* ENTRY (A) = ADDRESS OF VALUE TO BE PLACED IN POINTER. 02033 M00S01902.1cd +++|* 02034 M00S01903.1cd +++|* EXIT (A) = ADDRESS OF OUT POINTER. 02035 M00S01904.1cd +++|* (CM - CM+4) = OUT POINTER. 02036 M00S01905.1cd +++|* 02037 M00S01906.1cd +++|* USES T0, CM - CM+4. 02038 M00S01907.1cd +++|* 02039 M00S01908.1cd +++|* CALLS SFA. 02040 M00S01909.1cd +++| 02041 M00S01910.1cd +++| 02042 M00S01911.1cd +++| SOP SUBR ENTRY/EXIT 02043 M00S01912.1cd +++| ADC EQSB 02044 M00S01913.1cd +++| STD T0 02045 M00S01914.1cd +++| LDN ZERL CLEAR ASSEMBLY 02046 M00S01915.1cd +++| CRD CM 02047 M00S01916.1cd +++| LDI T0 GENERATE POINTER WORD 02048 M00S01917.1cd +++| STD CM+3 02049 M00S01918.1cd +++| AOD T0 02050 M00S01919.1cd +++| LDI T0 02051 M00S01920.1cd +++| STD CM+4 02052 M00S01921.1cd +++| RJM SFA STORE OUT POINTER 02053 M00S01922.1cd +++| ADN 3 02054 M00S01923.1cd +++| CWD CM 02055 M00S01924.1cd +++| UJN SOPX RETURN 02056 M00S01925.1cd +++| TOF SPACE 4,10 02057 M00S01926.1cd +++|** TOF - TERMINATE OUTPUT FILE. 02058 M00S01927.1cd +++|* 02059 M00S01928.1cd +++|* USES BS+4, CM - CM+4. 02060 M00S01929.1cd +++|* 02061 M00S01930.1cd +++|* CALLS CLB, ECB, RDB, SFA. 02062 M00S01931.1cd +++|* 02063 M00S01932.1cd +++|* MACROS NFA. 02064 M00S01933.1cd +++| 02065 M00S01934.1cd +++| 02066 M00S01935.1cd +++| TOF NFA BF,R READ BUFFER POINT WORD 02067 M00S01936.1cd +++| CRD CM 02068 M00S01937.1cd +++| RJM RDB RELEASE DATA BUFFER 02069 M00S01938.1cd +++| SOM CMER 02070 M00S01939.1cd +++| MJN TOP IF REPEAT COUNT SATISFIED 02071 M00S01940.1cd +++| SHN 6 02072 M00S01941.1cd +++| STD CM+4 02073 M00S01942.1cd +++| NFA BF,R STORE ADJUSTED REPEAT COUNT 02074 M00S01943.1cd +++| CWD CM
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02075 M01S00023.1cd9 +++| LDK ZERL 02076 M01S00024.1cd9 +++| CRD CM 02077 M00S01944.1cd +++| LDN 1 RESET BUFFER STATUS 02078 M00S01945.1cd +++| STD BS+4 02079 M00S01946.1cd +++| RJM SFA STORE BUFFER STATUS 02080 M00S01947.1cd +++| CWD BS
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02081 M01S00025.1cd9 +++| ADN FPSN 02082 M01S00026.1cd9 +++| CWD CM CLEAR CURRENT RANDOM INDEX 02083 M00S01948.1cd +++| RJM ECB EMPTY CIRCULAR BUFFER 02084 M00S01949.1cd +++| LDD BI INITIALIZE BUFFER 02085 M00S01950.1cd +++| RJM CLB 02086 M00S01951.1cd +++| LJM MGR1 GO TO MANAGER 02087 M00S01952.1cd +++| TOP SPACE 4,10 02088 M00S01953.1cd +++|** TOP - TERMINATE OPERATION. 02089 M00S01954.1cd +++|* 02090 M00S01955.1cd +++|* USES BR, IR+3, CM - CM+4, T6 - T7. 02091 M00S01956.1cd +++|* 02092 M00S01957.1cd +++|* CALLS CPS, MGR, RDB, REC, SFA. 02093 M00S01958.1cd +++|* 02094 M00S01959.1cd +++|* MACROS MONITOR, NFA. 02095 M00S01960.1cd +++| 02096 M00S01961.1cd +++| 02097 M00S01962.1cd +++| TOP LDN 60 *UNLOAD* FILE 02098 M00S01963.1cd +++| 02099 M00S01964.1cd +++|* *TOP1* IS A SECONDARY ENTRY POINT FOR *TOP*. 02100 M00S01965.1cd +++| 02101 M00S01966.1cd +++| TOP1 STM CMLR SAVE LAST REQUEST 02102 M00S01967.1cd +++| RJM RDB RELEASE DATA BUFFER 02103 M00S01968.1cd +++| AOD BR SET BUSY RETURN 02104 M00S01969.1cd +++| RJM MGR GO TO MANAGER 02105 M00S01970.1cd +++| RJM ** RELEASE EQUIPMENT 02106 M00S01971.1cd +++| TOPB EQU *-1 (SET BY *PRS*) 02107 M00S01972.1cd +++|* RJM /3CZ/REC 02108 M00S01973.1cd +++|* RJM /3CY/REC 02109 M00S01974.1cd +++| 02110 M00S01975.1cd +++|* *TOP2* IS A SECONDARY ENTRY POINT FOR *TOP*. 02111 M00S01976.1cd +++| 02112 M00S01977.1cd +++| TOP2 LDM CMLR ISSUE LAST REQUEST 02113 M00S01978.1cd +++| ZJN TOP4 IF NO REQUEST 02114 M00S01979.1cd +++| RJM CPS CALL *QAP*/*CIO* 02115 M00S01980.1cd +++| TOP3 RJM MGR GO TO MANAGER 02116 M00S01981.1cd +++| TOPA EQU * 02117 M00S01982.1cd +++| ZJN TOP2 IF REQUEST NOT ISSUED 02118 M00S01983.1cd +++| LDD BS+4 02119 M00S01984.1cd +++| LPN 1 02120 M00S01985.1cd +++| LMN 1 02121 M00S01986.1cd +++| NJN TOP3 IF REQUEST NOT COMPLETE 02122 M00S01987.1cd +++| 02123 M00S01988.1cd +++|* *TOP4* IS A SECONDARY ENTRY POINT FOR *TOP*. 02124 M00S01989.1cd +++| 02125 M00S01990.1cd +++| TOP4 LDN ZERL CLEAR BUFFER STATUS 02126 M00S01991.1cd +++| CRD CM-2 02127 M00S01992.1cd +++| RJM SFA SET FET ADDRESS 02128 M00S01993.1cd +++| CWD CM-2 02129 M00S01994.1cd +++| LDM CMEN SET EQUIPMENT NUMBER 02130 M00S01995.1cd +++| SHN -3 02131 M00S01996.1cd +++| STD CM+1 02132 M00S01997.1cd +++| NFA BF,R STORE BUFFER POINT WORD 02133 M00S01998.1cd +++| CWD CM-2 02134 M00S01999.1cd +++| SOD IR+3 DECREMENT ENTRY COUNT 02135 M00S02000.1cd +++| LDD RA 02136 M00S02001.1cd +++| SHN 6 02137 M00S02002.1cd +++| ADD IR+2 02138 M00S02003.1cd +++| CWD IR 02139 M00S02004.1cd +++| AOD SB DISABLE STATUS BLOCK UPDATE 02140 M00S02005.1cd +++| MONITOR DEQM 02141 M00S02006.1cd +++|* LDN 0 CLEAR BUFFER ASSIGNMENT 02142 M00S02007.1cd +++| STI BI 02143 M00S02008.1cd +++| STM 1,BI 02144 M00S02009.1cd +++| LJM PSE RETURN TO MANAGER 02145 M00S02010.1cd +++| WST SPACE 4,10 02146 M00S02011.1cd +++|** WST - WRITE STATUS TO FET. 02147 M00S02012.1cd +++|* 02148 M00S02013.1cd +++|* CALLS SFA. 02149 M00S02014.1cd +++| 02150 M00S02015.1cd +++| 02151 M00S02016.1cd +++| WST SUBR ENTRY/EXIT 02152 M00S02017.1cd +++| RJM SFA
| Line S02018 Modification History | |
|---|---|
M01 (Removed by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 02153 M01S02018.ns2487 ---| ADN 6
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2487 |
Seq # *Modification Id* Act ----------------------------+ 02154 M01S00005.ns2487 +++| ADN FPW2
| Line S02019 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02155 M01S02019.1cd9 ---| CWD F6
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02156 M01S00027.1cd9 +++| CWD F2 02157 M00S02020.1cd +++| UJN WSTX RETURN 02158 M00S02021.1cd +++| SPACE 4,10 02159 M00S02022.1cd +++|** COMMON DATA BUFFER AREA. 02160 M00S02023.1cd +++| 02161 M00S02024.1cd +++| 02162 M00S02025.1cd +++| CBUF BSSZ BUFS*MEQD BUFFER ASSIGNMENT TABLE 02163 M00S02026.1cd +++| CBUFL BSS 0 LWA+1 OF BUFFER ASSIGNMENT TABLE 02164 M00S02027.1cd +++| EQSB SPACE 4,10 02165 M00S02028.1cd +++|** EQSB - EQUIPMENT STATUS BUFFER. 02166 M00S02029.1cd +++| 02167 M00S02030.1cd +++| 02168 M00S02031.1cd +++| EQSB BSS 0 FWA OF DRIVER STATUS BLOCK 02169 M00S02032.1cd +++| EQSBL EQU EQSB+EDSBL*5 LWA+1 OF DRIVER STATUS BLOCK 02170 M00S02033.1cd +++| ZBA SPACE 4,15 02171 M00S02034.1cd +++|** ZBA - ZERO DATA BUFFER ASSIGNMENT. 02172 M00S02035.1cd +++|* 02173 M00S02036.1cd +++|* ENTRY (T1) = FWA OF DATA BUFFERS. 02174 M00S02037.1cd +++|* (T2) = DATA BUFFER SIZE. 02175 M00S02038.1cd +++|* (T3) = LWA+1 OF DATA BUFFERS. 02176 M00S02039.1cd +++|* 02177 M00S02040.1cd +++|* EXIT (CTID) = 7777. 02178 M00S02041.1cd +++|* (MSD) = 0. 02179 M00S02042.1cd +++|* TO *MGR1*. 02180 M00S02043.1cd +++|* 02181 M00S02044.1cd +++|* NOTE THIS ROUTINE IS OVERLAYED BY *EQSB*. 02182 M00S02045.1cd +++| 02183 M00S02046.1cd +++| 02184 M00S02047.1cd +++| ZBA BSS 0 ENTRY 02185 M00S02048.1cd +++| ZBA1 LDN 0 CLEAR BUFFER ASSIGNMENT 02186 M00S02049.1cd +++| STI T1 02187 M00S02050.1cd +++| LDD T2 SET NEXT BUFFER 02188 M00S02051.1cd +++| RAD T1 02189 M00S02052.1cd +++| LMD T3 02190 M00S02053.1cd +++| NJN ZBA1 IF MORE TO CLEAR 02191 M00S02054.1cd +++| STM MSD CLEAR MASS STORAGE DESIGNATOR 02192 M00S02055.1cd +++| LCN 0 ENSURE INITIAL CONVERSION TABLE LOAD 02193 M00S02056.1cd +++| STM CTID 02194 M00S02057.1cd +++| LJM MGR1 EXIT TO MANAGER 02195 M00S02058.1cd +++| SPACE 4,10 02196 M00S02059.1cd +++|** SUB-DRIVER OVERLAY AREA. 02197 M00S02060.1cd +++|* 02198 M00S02061.1cd +++|* NOTE OVERLAY HEADER IS OVERLAYED BY *EQSB*. 02199 M00S02062.1cd +++| 02200 M00S02063.1cd +++| 02201 M00S02064.1cd +++| OVLA EQU EQSBL-4 FWA OF SUBDRIVER OVERLAY AREA 02202 M00S02065.1cd +++| 02203 M00S02066.1cd +++| 02204 M00S02067.1cd +++| ERRNG OVLA-*-5 OVERLAY LOAD DESTROYS ** 02205 M00S02068.1cd +++| TITLE DRIVER PRESET. 02206 M00S02069.1cd +++| PRS SPACE 4,20 02207 M00S02070.1cd +++|** PRS - DRIVER PRESET. 02208 M00S02071.1cd +++|* 02209 M00S02072.1cd +++|* ENTRY (IR+4) = SUB-DRIVER NUMBER. 02210 M00S02073.1cd +++|* 02211 M00S02074.1cd +++|* EXIT (BI) = *CBUF*. 02212 M00S02075.1cd +++|* (TL) = CONVERSION TABLE LENGTH. 02213 M00S02076.1cd +++|* 02214 M00S02077.1cd +++|* ERROR *HNGM* MONITOR FUNCTION ISSUED. PP DROPPED AND EXIT 02215 M00S02078.1cd +++|* TO *PPR* WHEN *HNGM* REQUESTED CLEARED. 02216 M00S02079.1cd +++|* 02217 M00S02080.1cd +++|* CALLS EXR. 02218 M00S02081.1cd +++|* 02219 M00S02082.1cd +++|* MACROS MONITOR. 02220 M00S02083.1cd +++| 02221 M00S02084.1cd +++| 02222 M00S02085.1cd +++| PRS3 MONITOR HNGM HANG PP 02223 M00S02086.1cd +++| MONITOR DPPM 02224 M00S02087.1cd +++| LJM PPR EXIT TO PPR 02225 M00S02088.1cd +++| 02226 M00S02089.1cd +++| PRS BSS 0 ENTRY 02227 M00S02090.1cd +++| LDD IR+4 02228 M00S02091.1cd +++| SBN MXSD 02229 M00S02092.1cd +++| PJN PRS3 IF INVALID SUB-DRIVER 02230 M00S02093.1cd +++| LDK CHTP GET CHANNEL TABLE POINTER 02231 M00S02094.1cd +++| CRD CM 02232 M00S02095.1cd +++| LDD CM+3 SET CHANNEL TABLE ADDRESS 02233 M00S02096.1cd +++| STM PSEA 02234 M00S02097.1cd +++| LDD CM+2 02235 M00S02098.1cd +++| RAM PSEA-1
| Line S02099 Modification History | |
|---|---|
M01 (Removed by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 02236 M01S02099.284l847 ---| LDN TLEN SET TABLE LENGTH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 284l847 |
Seq # *Modification Id* Act ----------------------------+ 02237 M01S00002.284l847 +++| LDN CTLN SET TABLE LENGTH 02238 M00S02100.1cd +++| STD TL 02239 M00S02101.1cd +++| LDN EDSBL SET EQUIPMENT STATUS BLOCK LENGTH 02240 M00S02102.1cd +++| STD BL 02241 M00S02103.1cd +++| STD SB 02242 M00S02104.1cd +++| LDC CBUF INITIALIZE BUFFER TABLE SERACH 02243 M00S02105.1cd +++| STD BI 02244 M00S02106.1cd +++| LDK IPRL CHECK SYSTEM DEFAULT KEYPUNCH MODE 02245 M00S02107.1cd +++| CRD CM 02246 M00S02108.1cd +++| LDD CM+2 02247 M00S02109.1cd +++| SHN 21-13 02248 M00S02110.1cd +++| PJN PRS1 IF DEFAULT IS O26 02249 M00S02111.1cd +++| LDN C9XD SET O29 CONVERSION MODE FOR CARD READER 02250 M00S02112.1cd +++| STM TDCM+CRDT 02251 M00S02113.1cd +++| PRS1 LDK MABL FETCH PP SPEED INDICATOR 02252 M00S02114.1cd +++| CRD CM 02253 M00S02115.1cd +++| LDD CM+4 SET TIMEOUT VALUE 02254 M00S02116.1cd +++| SHN 1 02255 M00S02117.1cd +++| NJN PRS2 IF NOT 1X PPS 02256 M00S02118.1cd +++| LDN 1 02257 M00S02119.1cd +++| PRS2 RAM MGRA 02258 M00S02120.1cd +++| LDN PPCP PRESET PP NUMBER 02259 M00S02121.1cd +++| CRD CM 02260 M00S02122.1cd +++| LDD IA 02261 M00S02123.1cd +++| SBD CM+4 02262 M00S02124.1cd +++| SHN -3 02263 M00S02125.1cd +++| RAM SDMA PP NUMBER FOR BML MESSAGE 02264 M00S02126.1cd +++| LDM TDBF,IR+4 SET FWA OF FIRST DATA BUFFER 02265 M00S02127.1cd +++| STM ADBC 02266 M00S02128.1cd +++| LDM TDBN,IR+4 SET NUMBER OF DATA BUFFERS 02267 M00S02129.1cd +++| RAM ADBD 02268 M00S02130.1cd +++| LDM TDBL,IR+4 SET LWA+1 OF DATA BUFFERS 02269 M00S02131.1cd +++| STM ADBB 02270 M00S02132.1cd +++| LDM TDBS,IR+4 SET DATA BUFFER SIZE 02271 M00S02133.1cd +++| STM ADBA 02272 M00S02134.1cd +++| LDM TREC,IR+4 SET RELEASE EQUIPMENT ADDRESS 02273 M00S02135.1cd +++| STM TOPB 02274 M00S02136.1cd +++| LDM TSDP,IR+4 SET SUB-DRIVER PROCESSOR ADDRESS 02275 M00S02137.1cd +++| STM MGRB 02276 M00S02138.1cd +++| LDC 1R3*10000 SET SUB-DRIVER OVERLAY NAME 02277 M00S02139.1cd +++| LMM TSDO,IR+4 02278 M00S02140.1cd +++| EXECUTE 3CZ,= 02279 M00S02141.1cd +++| EXECUTE 3CY,= 02280 M00S02142.1cd +++| RJM EXR EXECUTE SUB-DRIVER 02281 M00S02143.1cd +++| TDBF SPACE 4,10 02282 M00S02144.1cd +++|** TDBF - TABLE OF FWA OF FIRST DATA BUFFER. 02283 M00S02145.1cd +++|* 02284 M00S02146.1cd +++|* INDEXED BY SUB-DRIVER TYPE. 02285 M00S02147.1cd +++| 02286 M00S02148.1cd +++| 02287 M00S02149.1cd +++| TDBF INDEX 02288 M00S02150.1cd +++| INDEX 0,/3CZ/DBUF 02289 M00S02151.1cd +++| INDEX 1,/3CY/DBUF 02290 M00S02152.1cd +++| INDEX MXSD 02291 M00S02153.1cd +++| TDBN SPACE 4,10 02292 M00S02154.1cd +++|** TDBN - TABLE OF NUMBER OF DATA BUFFERS. 02293 M00S02155.1cd +++|* 02294 M00S02156.1cd +++|* INDEXED BY SUB-DRIVER TYPE. 02295 M00S02157.1cd +++| 02296 M00S02158.1cd +++| 02297 M00S02159.1cd +++| TDBN INDEX 02298 M00S02160.1cd +++| INDEX 0,/3CZ/NDBUF 02299 M00S02161.1cd +++| INDEX 1,/3CY/NDBUF 02300 M00S02162.1cd +++| INDEX MXSD 02301 M00S02163.1cd +++| TDBL SPACE 4,10 02302 M00S02164.1cd +++|** TDBL - TABLE OF LWA+1 OF DATA BUFFERS. 02303 M00S02165.1cd +++|* 02304 M00S02166.1cd +++|* INDEXED BY SUB-DRIVER TYPE. 02305 M00S02167.1cd +++| 02306 M00S02168.1cd +++| 02307 M00S02169.1cd +++| TDBL INDEX 02308 M00S02170.1cd +++| INDEX 0,/3CZ/DBUFL 02309 M00S02171.1cd +++| INDEX 1,/3CY/DBUFL 02310 M00S02172.1cd +++| INDEX MXSD 02311 M00S02173.1cd +++| TDBS SPACE 4,10 02312 M00S02174.1cd +++|** TDBS - TABLE OF DATA BUFFER SIZES. 02313 M00S02175.1cd +++|* 02314 M00S02176.1cd +++|* INDEXED BY SUB-DRIVER TYPE. 02315 M00S02177.1cd +++| 02316 M00S02178.1cd +++| 02317 M00S02179.1cd +++| TDBS INDEX 02318 M00S02180.1cd +++| INDEX 0,/3CZ/DBUFS 02319 M00S02181.1cd +++| INDEX 1,/3CY/DBUFS 02320 M00S02182.1cd +++| INDEX MXSD 02321 M00S02183.1cd +++| TREC SPACE 4,10 02322 M00S02184.1cd +++|** TREC - TABLE OF RELEASE EQUIPMENT PROCESSORS. 02323 M00S02185.1cd +++|* 02324 M00S02186.1cd +++|* INDEXED BY SUB-DRIVER TYPE. 02325 M00S02187.1cd +++| 02326 M00S02188.1cd +++| 02327 M00S02189.1cd +++| TREC INDEX 02328 M00S02190.1cd +++| INDEX 0,/3CZ/REC 02329 M00S02191.1cd +++| INDEX 1,/3CY/REC 02330 M00S02192.1cd +++| INDEX MXSD 02331 M00S02193.1cd +++| TSDO SPACE 4,10 02332 M00S02194.1cd +++|** TSDO - TABLE OF SUB-DRIVER OVERLAY NAMES. 02333 M00S02195.1cd +++|* 02334 M00S02196.1cd +++|* INDEXED BY SUB-DRIVER TYPE. 02335 M00S02197.1cd +++| 02336 M00S02198.1cd +++| 02337 M00S02199.1cd +++| TSDO INDEX 02338 M00S02200.1cd +++| INDEX 0,2RCZ 02339 M00S02201.1cd +++| INDEX 1,2RCY 02340 M00S02202.1cd +++| INDEX MXSD 02341 M00S02203.1cd +++| TSDP SPACE 4,10 02342 M00S02204.1cd +++|** TSDP - TABLE OF SUB-DRIVER PROCESSOR ADDRESSES. 02343 M00S02205.1cd +++|* 02344 M00S02206.1cd +++|* INDEXED BY SUB-DRIVER TYPE. 02345 M00S02207.1cd +++| 02346 M00S02208.1cd +++| 02347 M00S02209.1cd +++| TSDP INDEX 02348 M00S02210.1cd +++| INDEX 0,/3CZ/SDP 02349 M00S02211.1cd +++| INDEX 1,/3CY/SDP 02350 M00S02212.1cd +++| INDEX MXSD 02351 M00S02213.1cd +++| XCD TTL 1CD/3CZ - BATCHIO COMBINED DRIVER. 02352 M00S02214.1cd +++| TITLE 02353 M00S02215.1cd +++| QUAL 3CZ 02354 M00S02216.1cd +++| IDENT 3CZ,XCDX
| Line S02217 Modification History | |
|---|---|
M01 (Removed by) | ns2584 |
Seq # *Modification Id* Act ----------------------------+ 02355 M01S02217.ns2584 ---|*COMMENT 1CD/3CZ - BATCHIO COMBINED DRIVER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2584 |
Seq # *Modification Id* Act ----------------------------+ 02356 M01S00001.ns2584 +++|*COMMENT 1CD - DRIVE *DCC*-CONNECTED DEVICES.
| Line S02218 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02357 M01S02218.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 02358 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 02359 M00S02219.1cd +++| 3CZ SPACE 4,10 02360 M00S02220.1cd +++|*** 1CD/3CZ - BATCHIO COMBINED DRIVER. 02361 M00S02221.1cd +++|* 02362 M00S02222.1cd +++|* THIS SUB-DRIVER OVERLAY CONTAINS DRIVERS TO ACCESS DEVICES 02363 M00S02223.1cd +++|* THAT ARE CONNECTED VIA A DATA CHANNEL CONVERTER (DCC). 02364 M00S02224.1cd +++| 3CZ SPACE 4,10 02365 M00S02225.1cd +++| ORG OVLA 02366 M00S02226.1cd +++| 02367 M00S02227.1cd +++| XCD SUBR ENTRY/EXIT 02368 M00S02228.1cd +++| CHTE CCEA 02369 M00S02229.1cd +++| LJM PRS PRESET 02370 M00S02230.1cd +++| TITLE 3555/512 - 580 DRIVER SECTION. 02371 M00S02231.1cd +++| LPD SPACE 4,10 02372 M00S02232.1cd +++|** LPD - 3555/512 - 580 DRIVER. 02373 M00S02233.1cd +++| 02374 M00S02234.1cd +++| 02375 M00S02235.1cd +++| LPD RJM PSD PRESET DRIVER 02376 M00S02236.1cd +++| LPD1 LDC GBPF+2000 REQUEST BANNER PAGE GENERATION 02377 M00S02237.1cd +++| RJM CPS 02378 M00S02238.1cd +++| LPD2 RJM MGR GO TO MANAGER 02379 M00S02239.1cd +++| ZJN LPD1 IF REQUEST NOT ACCEPTED 02380 M00S02240.1cd +++| LDD BS+4 CHECK BUFFER STATUS 02381 M00S02241.1cd +++| LMC GBPF+1 02382 M00S02242.1cd +++| ZJN LPD4 IF OPERATION COMPLETE 02383 M00S02243.1cd +++| LMN 4 02384 M00S02244.1cd +++| ZJN LPD3 IF USER FORMS CONTROL ON PREVIOUS JOB 02385 M00S02245.1cd +++| LMC CECF&GBPF+4 02386 M00S02246.1cd +++| NJN LPD2 IF NOT PFC ERROR 02387 M00S02247.1cd +++| LJM TOP4 TERMINATE OPERATION 02388 M00S02248.1cd +++| 02389 M00S02249.1cd +++|* PHASE 1. LOAD BUFFER. 02390 M00S02250.1cd +++| 02391 M00S02251.1cd +++| LPD3 SCN 2 SET DRIVER HOLDING 02392 M00S02252.1cd +++| LMN 2 02393 M00S02253.1cd +++| STM CMHF 02394 M00S02254.1cd +++| 02395 M00S02255.1cd +++|* *LPD4* IS A SECONDARY ENTRY POINT FOR *LPD*. 02396 M00S02256.1cd +++|
| Line S02257 Modification History | |
|---|---|
M01 (Removed by) | 1cd8 |
Seq # *Modification Id* Act ----------------------------+ 02397 M01S02257.1cd8 ---| LPD4 AOD BR SET BUSY RETURN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1cd8 |
Seq # *Modification Id* Act ----------------------------+ 02398 M01S00001.1cd8 +++| LPD4 LDN 1 SET BUSY RETURN 02399 M01S00002.1cd8 +++| STD BR 02400 M00S02258.1cd +++| RJM MGR GO TO MANAGER 02401 M00S02259.1cd +++| LDM CMHF 02402 M00S02260.1cd +++| NJN LPD3 IF HOLD INITIATED 02403 M00S02261.1cd +++| RJM COB CHECK OUTPUT BUFFER 02404 M00S02262.1cd +++| SBN DBUFW*2+1 02405 M00S02263.1cd +++| PJN LPD5 IF AT LEAST 1 LINE AND 1 WORD 02406 M00S02264.1cd +++| LDD BS+4 02407 M00S02265.1cd +++| LPN 20 02408 M00S02266.1cd +++| ZJN LPD4 IF NOT EOR/EOF/EOI 02409 M00S02267.1cd +++| LPD5 RJM ADB ASSIGN DATA BUFFER 02410 M00S02268.1cd +++| LDN 0 02411 M00S02269.1cd +++| STM LPFT CLEAR FORMAT TAPE AND PM MESSAGE FLAGS 02412 M00S02270.1cd +++| STD BR CLEAR BUSY RETURN 02413 M00S02271.1cd +++| LDM CMSF CHECK MODE OF FILE
| Line S02272 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 02414 M01S02272.ns2597 ---| LPN 10
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 02415 M01S00101.ns2597 +++| LPN 50
| Line S02273 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 02416 M01S02273.ns2597 ---| ZJN LPD6 IF NOT 12 BIT ASCII PRINT FILE
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 02417 M01S00102.ns2597 +++| ZJN LPD6 IF NOT 6/12 OR 8/12 ASCII PRINT FILE 02418 M00S02274.1cd +++| LDN DBUFW 02419 M00S02275.1cd +++| LPD6 ADN DBUFW READ CODED BUFFER 02420 M00S02276.1cd +++| RJM RCB 02421 M00S02277.1cd +++| NJN LPD8 IF NOT EMPTY LINE 02422 M00S02278.1cd +++| LPD7 LDN 40 SET SPACE CHARACTER 02423 M00S02279.1cd +++| STI T1 02424 M00S02280.1cd +++| AOD T1 02425 M00S02281.1cd +++| AOM CMLR ADVANCE BYTE COUNT FOR LINE 02426 M00S02282.1cd +++| LPD8 SBN 2 02427 M00S02283.1cd +++| MJN LPD7 IF NOT 2 CHARACTERS IN LINE 02428 M00S02284.1cd +++| LDM CMSF 02429 M00S02285.1cd +++| LPN 10 02430 M00S02286.1cd +++| NJN LPD9 IF 12 BIT ASCII PRINT FILE 02431 M00S02287.1cd +++| LPDA PSN 02432 M00S02288.1cd +++|* UJN LPD9 (SYSTEM IN 63 CHARACTER SET) 02433 M00S02289.1cd +++| LDM -1,T1 CHECK LAST CHARACTER IN LINE 02434 M00S02290.1cd +++| LMN 72 02435 M00S02291.1cd +++| NJN LPD9 IF NOT COLON 02436 M00S02292.1cd +++| LDN 40 REPLACE WITH BLANK 02437 M00S02293.1cd +++| STM -1,T1 02438 M00S02294.1cd +++| LPD9 SOM CMLR DEDUCT CARRIAGE CONTROL CHARACTER 02439 M00S02295.1cd +++| ADC -137D 02440 M00S02296.1cd +++| LPDB EQU *-1 02441 M00S02297.1cd +++| PJN LPD9 IF LINE TOO LONG 02442 M00S02298.1cd +++| LDD T2 SET FORMAT CONTROL FOR NEXT LINE 02443 M00S02299.1cd +++| STM LPFC 02444 M00S02300.1cd +++| LDD OT SAVE *OUT* POINTER 02445 M00S02301.1cd +++| STM LPOT 02446 M00S02302.1cd +++| LDD OT+1 02447 M00S02303.1cd +++| STM LPOT+1 02448 M00S02304.1cd +++| RJM MGR GO TO MANAGER 02449 M00S02305.1cd +++| 02450 M00S02306.1cd +++|* PHASE 2. PROCESS FORMAT CONTROL. 02451 M00S02307.1cd +++| 02452 M00S02308.1cd +++| LDM CMSF 02453 M00S02309.1cd +++| LPN 4 02454 M00S02310.1cd +++| NJN LPD10.2 IF SUPPRESS FLAG SET 02455 M00S02311.1cd +++| LDI DA CHECK FORMAT CHARACTER 02456 M00S02312.1cd +++| LPC 3777 REMOVE UPPER BIT 02457 M00S02313.1cd +++| STI DA 02458 M00S02314.1cd +++| LMN 40 ASCII BLANK 02459 M00S02315.1cd +++| ZJN LPD10.2 IF ASCII BLANK 02460 M00S02316.1cd +++| RJM WNB WAIT NOT BUSY 02461 M00S02317.1cd +++| RJM SPC PROCESS SPACE CONTROL 02462 M00S02318.1cd +++| RJM MGR GO TO MANAGER 02463 M00S02319.1cd +++| ZJN LPD10 IF NOT *Q*, *R*, *S*, *T* FORMAT CONTROL 02464 M00S02320.1cd +++| LJM LPD4 LOAD BUFFER 02465 M00S02321.1cd +++| 02466 M00S02322.1cd +++| LPD10 LDI DA CHECK FOR PM MESSAGE 02467 M00S02323.1cd +++| ADC -120 02468 M00S02324.1cd +++| NJN LPD10.2 IF NOT PM MESSAGE 02469 M00S02325.1cd +++| AOD DA CHECK NEXT CHARACTER 02470 M00S02326.1cd +++| LDI DA 02471 M00S02327.1cd +++| ADC -115 02472 M00S02328.1cd +++| NJN LPD10.1 IF NOT PM MESSAGE 02473 M00S02329.1cd +++| LDN 2 SET PM MESSAGE FLAG 02474 M00S02330.1cd +++| RAM LPFT 02475 M00S02331.1cd +++| LPD10.1 SOD DA RESTORE DATA ADDRESS 02476 M00S02332.1cd +++| LPD10.2 LDM CMBE 02477 M00S02333.1cd +++| ZJN LPD13 IF BUFFER EMPTY 02478 M00S02334.1cd +++| LDM CMSF 02479 M00S02335.1cd +++| LPN 10 02480 M00S02336.1cd +++| NJN LPD11 IF 12 BIT ASCII 02481 M00S02337.1cd +++| LDM LPFC CHECK FORMAT CHARACTER OF NEXT LINE 02482 M00S02338.1cd +++| SHN -6 02483 M00S02339.1cd +++| LMN 1R+ 02484 M00S02340.1cd +++| UJN LPD12 CHECK FOR *+* 02485 M00S02341.1cd +++| 02486 M00S02342.1cd +++| LPD11 LDM LPFC 02487 M00S02343.1cd +++| LPC 3777 REMOVE UPPER BIT 02488 M00S02344.1cd +++| LMN 53 ASCII *+* 02489 M00S02345.1cd +++| LPD12 NJN LPD13 IF NOT *+* 02490 M00S02346.1cd +++| LDM LPFT CHECK FORMAT TAPE FLAG 02491 M00S02347.1cd +++| LPN 1 02492 M00S02348.1cd +++| NJN LPD13 IF FUNCTION .GE. 31 02493 M00S02349.1cd +++| RJM WNB WAIT NOT BUSY 02494 M00S02350.1cd +++| LDN 6 SUPPRESS SPACE AFTER PRINT 02495 M00S02351.1cd +++| RJM FCN 02496 M00S02352.1cd +++| 02497 M00S02353.1cd +++|* PHASE 3. PRINT LINE. 02498 M00S02354.1cd +++| 02499 M00S02355.1cd +++| LPD13 LDN ECLE CLEAR *I* DISPLAY 02500 M00S02356.1cd +++| RJM MSG 02501 M00S02357.1cd +++| AOD DA DO NOT PRINT FORMAT CHARACTER 02502 M00S02358.1cd +++| LDM LPPR 02503 M00S02359.1cd +++| ZJN LPD14 IF NO PRINT ERRORS 02504 M00S02360.1cd +++| LDC 0#5F STORE ASCII *_* 02505 M00S02361.1cd +++| STI DA 02506 M00S02362.1cd +++| LPD14 LDC 16S12+OAMI OUTPUT PRINT RECORD 02507 M00S02363.1cd +++| RJM XDR 02508 M00S02364.1cd +++| RJM RDB RELEASE DATA BUFFER 02509 M00S02365.1cd +++| LDC * SET REENTRY ADDRESS FOR FUNCTION REJECT 02510 M00S02366.1cd +++| STM CMPA 02511 M00S02367.1cd +++| LDN 22 SELECT END OF OPERATION INTERRUPT 02512 M00S02368.1cd +++| RJM FCN 02513 M00S02369.1cd +++| RJM MGR GO TO MANAGER 02514 M00S02370.1cd +++| 02515 M00S02371.1cd +++|* PHASE 4. PROCESS POST PRINT OPERATIONS. 02516 M00S02372.1cd +++| 02517 M00S02373.1cd +++| LDM LPFT CHECK FORMAT TAPE FLAG 02518 M00S02374.1cd +++| LPN 1 02519 M00S02375.1cd +++| ZJN LPD15 IF NOT SET 02520 M00S02376.1cd +++| RJM WNB WAIT NOT BUSY 02521 M00S02377.1cd +++| LDN 7 CONDITIONAL CLEAR FORMAT 02522 M00S02378.1cd +++| RJM FCN 02523 M00S02379.1cd +++| LPD15 LDD ST 02524 M00S02380.1cd +++| SHN -12 CHECK PRINT ERROR STATUS LINE 02525 M00S02381.1cd +++| LPN 1 02526 M00S02382.1cd +++| NJN LPR IF SET 02527 M00S02383.1cd +++| LDN PERI 02528 M00S02384.1cd +++| RJM CRV CHECK FOR RECOVERED ERROR 02529 M00S02385.1cd +++| LPD16 LDN LPOT STORE *OUT* POINTER 02530 M00S02386.1cd +++| RJM SOP 02531 M00S02387.1cd +++| AOM LPLP INCREMENT LINE COUNT 02532 M00S02388.1cd +++| SBM LPLL 02533 M00S02389.1cd +++| MJN LPD17 IF NOT END OF PAGE 02534 M00S02390.1cd +++| LDM LPLL CHECK USER LIMITS 02535 M00S02391.1cd +++| RJM CUL 02536 M00S02392.1cd +++| STM LPLP CLEAR LINE COUNT FOR PAGE 02537 M00S02393.1cd +++| LPD17 RJM PPM CHECK FOR PM MESSAGE 02538 M00S02394.1cd +++| LJM LPD4 CONTINUE PRINTING 02539 M00S02395.1cd +++| LPR SPACE 4,15 02540 M00S02396.1cd +++|** LPR - PROCESS PRINT ERROR. 02541 M00S02397.1cd +++|* 02542 M00S02398.1cd +++|* USES CM - CM+4. 02543 M00S02399.1cd +++|* 02544 M00S02400.1cd +++|* CALLS MSG, PRE. 02545 M00S02401.1cd +++| 02546 M00S02402.1cd +++| 02547 M00S02403.1cd +++| LPR AOM CMEC ADVANCE ERROR COUNT 02548 M00S02404.1cd +++| LDD CP 02549 M00S02405.1cd +++| ADN SNSW CHECK ERROR REPORTING ENABLED 02550 M00S02406.1cd +++| CRD CM 02551 M00S02407.1cd +++| LDD CM+4 INTERROGATE SENSE SWITCH 1 02552 M00S02408.1cd +++| SHN 21-6 02553 M00S02409.1cd +++| MJN LPD16 IF ERROR REPORTING AND RETRYING DISABLED 02554 M00S02410.1cd +++| LDN PERI 02555 M00S02411.1cd +++| RJM PRE PROCESS RETRIED ERROR 02556 M00S02412.1cd +++| 02557 M00S02413.1cd +++|* *LPR1* IS A SECONDARY ENTRY POINT FOR *LPR*. 02558 M00S02414.1cd +++| 02559 M00S02415.1cd +++| LPR1 LDD CP CHECK ERROR STOP ENABLED 02560 M00S02416.1cd +++| ADN SNSW 02561 M00S02417.1cd +++| CRD CM 02562 M00S02418.1cd +++| LDD CM+4 INTERROGATE SENSE SWITCH 2 02563 M00S02419.1cd +++| SHN 21-7 02564 M00S02420.1cd +++| MJN LPR2 IF HOLDING ON ERRORS 02565 M00S02421.1cd +++| LJM LPD4 CONTINUE PRINTING 02566 M00S02422.1cd +++| 02567 M00S02423.1cd +++| LPR2 LDN EPRH *I* DISPLAY MESSAGE CODE 02568 M00S02424.1cd +++| 02569 M00S02425.1cd +++|* *LPR3* IS A SECONDARY ENTRY POINT FOR *LPR*. 02570 M00S02426.1cd +++| 02571 M00S02427.1cd +++| LPR3 RJM MSG ISSUE BUFFER POINT MESSAGE 02572 M00S02428.1cd +++| LDN 1 02573 M00S02429.1cd +++| LJM LPD3 SET DRIVER HOLDING 02574 M00S02430.1cd +++| LPE SPACE 4,10 02575 M00S02431.1cd +++|** LPE - ERROR PROCESSOR. 02576 M00S02432.1cd +++|* 02577 M00S02433.1cd +++|* ENTRY (A) = EQUIPMENT STATUS FOLLOWING CONNECT. 02578 M00S02434.1cd +++|* 02579 M00S02435.1cd +++|* EXIT TO *PSE*. 02580 M00S02436.1cd +++|* 02581 M00S02437.1cd +++|* CALLS MSG. 02582 M00S02438.1cd +++| 02583 M00S02439.1cd +++| 02584 M00S02440.1cd +++| LPE LPN 10 02585 M00S02441.1cd +++| ZJN LPE1 IF NO PAPER FAULT 02586 M00S02442.1cd +++| LDN ENPA-ENRD 02587 M00S02443.1cd +++| LPE1 ADN ENRD *NOT READY* 02588 M00S02444.1cd +++| RJM MSG 02589 M00S02445.1cd +++| LJM PSE RETURN 02590 M00S02446.1cd +++| LPN SPACE 4,10 02591 M00S02447.1cd +++|** LPN - PROCESS *END*. 02592 M00S02448.1cd +++|* 02593 M00S02449.1cd +++|* USES BS+4, CM - CM+4. 02594 M00S02450.1cd +++|* 02595 M00S02451.1cd +++|* CALLS SFA. 02596 M00S02452.1cd +++|* 02597 M00S02453.1cd +++|* MACROS NFA. 02598 M00S02454.1cd +++| 02599 M00S02455.1cd +++| 02600 M00S02456.1cd +++| LPN LDN 0 CLEAR HOLD FLAG 02601 M00S02457.1cd +++| STM CMHF 02602 M00S02458.1cd +++| LDM CMSF CHECK END FLAG 02603 M00S02459.1cd +++| LPN 2 02604 M00S02460.1cd +++| NJN LPN3 IF SET PREVIOUSLY 02605 M00S02461.1cd +++| LDN 2 SET END FLAG 02606 M00S02462.1cd +++| RAM CMSF 02607 M00S02463.1cd +++| NFA FA,R READ FST INFORMATION 02608 M00S02464.1cd +++| CRD CM 02609 M00S02465.1cd +++| LDD FP+1 RESET FILE STATUS 02610 M00S02466.1cd +++| ZJN LPN3 IF NO DAYFILE 02611 M00S02467.1cd +++| STD CM+2 02612 M00S02468.1cd +++| LDD FP+2 02613 M00S02469.1cd +++| STD CM+3 02614 M00S02470.1cd +++| NFA FA,R UPDATE FST INFORMATION 02615 M00S02471.1cd +++| CWD CM 02616 M00S02472.1cd +++| 02617 M00S02473.1cd +++|* *LPN1* IS A SECONDARY ENTRY POINT FOR *LPN*. 02618 M00S02474.1cd +++| 02619 M00S02475.1cd +++| LPN1 LDN 1 RESET BUFFER STATUS 02620 M00S02476.1cd +++| 02621 M00S02477.1cd +++|* *LPN2* IS A SECONDARY ENTRY POINT FOR *LPN*. 02622 M00S02478.1cd +++| 02623 M00S02479.1cd +++| LPN2 STD BS+4 02624 M00S02480.1cd +++| RJM SFA STORE BUFFER STATUS 02625 M00S02481.1cd +++| CWD BS 02626 M00S02482.1cd +++| LJM LPD4 RETURN TO MAIN DRIVER 02627 M00S02483.1cd +++| 02628 M00S02484.1cd +++| LPN3 UJN LEF1 CHECK ACCOUNTING PROCESSED 02629 M00S02485.1cd +++| LEF SPACE 4,10 02630 M00S02486.1cd +++|** LEF - LIST END OF INFORMATION. 02631 M00S02487.1cd +++|* 02632 M00S02488.1cd +++|* USES BR, FC, T4. 02633 M00S02489.1cd +++|* 02634 M00S02490.1cd +++|* CALLS ACT, MGR, SDM. 02635 M00S02491.1cd +++| 02636 M00S02492.1cd +++| 02637 M00S02493.1cd +++| LEF LDD BS+4 CHECK BUFFER STATUS 02638 M00S02494.1cd +++| SHN 21-11 02639 M00S02495.1cd +++| PJN LPN1 IF NOT EOI
| Line S02496 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02640 M01S02496.1cd9 ---| LDD F6+2 CHECK ABORT FLAG
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02641 M01S00028.1cd9 +++| LDD F2+2 CHECK ABORT FLAG 02642 M00S02497.1cd +++| LPN 2 02643 M00S02498.1cd +++| ZJN LEF1 IF NO ABORT FLAG 02644 M00S02499.1cd +++| LDN 0 CLEAR REPEAT COUNT 02645 M00S02500.1cd +++| STM CMER 02646 M00S02501.1cd +++| LJM LPN PROCESS *END* 02647 M00S02502.1cd +++| 02648 M00S02503.1cd +++|* *LEF1* IS A SECONDARY ENTRY POINT FOR *LEF*. 02649 M00S02504.1cd +++| 02650 M00S02505.1cd +++| LEF1 AOD BR 02651 M00S02506.1cd +++| LDM CMSF CHECK ACCOUNT FLAG 02652 M00S02507.1cd +++| LPN 1 02653 M00S02508.1cd +++| NJN LEF4 IF SET 02654 M00S02509.1cd +++| AOM CMSF SET ACCOUNT FLAG
| Line S02510 Modification History | |
|---|---|
M01 (Removed by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 02655 M01S02510.ns2597 ---| SCN 10 CLEAR 12 BIT ASCII PRINT FILE FLAG
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns2597 |
Seq # *Modification Id* Act ----------------------------+ 02656 M01S00103.ns2597 +++| SCN 50 CLEAR 6/12 AND 8/12 ASCII PRINT FLAGS 02657 M00S02511.1cd +++| STM CMSF 02658 M00S02512.1cd +++| LEF2 RJM ACT PROCESS ACCOUNTING 02659 M00S02513.1cd +++| LEF3 RJM MGR GO TO MANAGER 02660 M00S02514.1cd +++| ZJN LEF2 IF REQUEST NOT ENTERED 02661 M00S02515.1cd +++| LDD BS+4 02662 M00S02516.1cd +++| SHN 21-0 02663 M00S02517.1cd +++| PJN LEF3 IF ACCOUNTING NOT COMPLETE 02664 M00S02518.1cd +++| LJM LPD4 PRINT LINE COUNT 02665 M00S02519.1cd +++| 02666 M00S02520.1cd +++|* *LEF4* IS A SECONDARY ENTRY POINT FOR *LEF*. 02667 M00S02521.1cd +++| 02668 M00S02522.1cd +++| LEF4 LDM CMEC 02669 M00S02523.1cd +++| ZJN LEF5 IF NO PRINT ERRORS 02670 M00S02524.1cd +++| STD FC (FC) = PRINT ERROR COUNT 02671 M00S02525.1cd +++| LDN EPEM *EQXXX NNNN PRINT ERRORS.* 02672 M00S02526.1cd +++| RJM SDM 02673 M00S02527.1cd +++| LEF5 LJM TOF TERMINATE OUTPUT FILE 02674 M00S02528.1cd +++| PPM SPACE 4,15 02675 M00S02529.1cd +++|** PPM - PROCESS PM MESSAGE. 02676 M00S02530.1cd +++|* 02677 M00S02531.1cd +++|* EXIT TO CALLER IF NO *PM* MESSAGE OR USER DOES 02678 M00S02532.1cd +++|* NOT HAVE *CBIO* PRIVILEGES. 02679 M00S02533.1cd +++|* TO *LPR3* IF *PM* MESSAGE AND USER HAS 02680 M00S02534.1cd +++|* *CBIO* PRIVILEGES (HOLD FLAG SET). 02681 M00S02535.1cd +++|* 02682 M00S02536.1cd +++|* CALLS MSG. 02683 M00S02537.1cd +++| 02684 M00S02538.1cd +++| 02685 M00S02539.1cd +++| PPM SUBR ENTRY/EXIT 02686 M00S02540.1cd +++| LDM LPFT CHECK PM FLAG 02687 M00S02541.1cd +++| LPN 2 02688 M00S02542.1cd +++| ZJN PPMX IF NO PM MESSAGE
| Line S02543 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02689 M01S02543.1cd9 ---| LDD F6+2 CHECK USER *CBIO* PRIVILEGES
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02690 M01S00029.1cd9 +++| LDD F2+2 CHECK USER *CBIO* PRIVILEGES 02691 M00S02544.1cd +++| LPN 1 02692 M00S02545.1cd +++| ZJN PPMX IF USER DOES NOT HAVE *CBIO* PRIVILEGES 02693 M00S02546.1cd +++| LDN EPMM 02694 M00S02547.1cd +++| LJM LPR3 ISSUE BUFFER POINT MESSAGE 02695 M00S02548.1cd +++| SPC SPACE 4,10 02696 M00S02549.1cd +++|** SPC - PROCESS SPACE CONTROL. 02697 M00S02550.1cd +++|* 02698 M00S02551.1cd +++|* ENTRY ((DA)) = FORMAT CONTROL BYTE. 02699 M00S02552.1cd +++|* 02700 M00S02553.1cd +++|* EXIT (A) = 0 IF LINE TO BE PRINTED. 02701 M00S02554.1cd +++|* 02702 M00S02555.1cd +++|* USES BR, T4. 02703 M00S02556.1cd +++|* 02704 M00S02557.1cd +++|* CALLS CPS, CUL, FCN, MGR, RDB, SOP, WNB. 02705 M00S02558.1cd +++| 02706 M00S02559.1cd +++| 02707 M00S02560.1cd +++| SPC SUBR ENTRY/EXIT 02708 M00S02561.1cd +++| LDC TFCC-2 SET TABLE ADDRESS 02709 M00S02562.1cd +++| STD T4 02710 M00S02563.1cd +++| SPC1 LDN 2 ADVANCE TABLE 02711 M00S02564.1cd +++| RAD T4 02712 M00S02565.1cd +++| LDI T4 02713 M00S02566.1cd +++| ZJN SPCX IF END OF TABLE 02714 M00S02567.1cd +++| LMI DA 02715 M00S02568.1cd +++| NJN SPC1 IF NO MATCH 02716 M00S02569.1cd +++| 02717 M00S02570.1cd +++|* CHARGE FOR NUMBER OF LINES. 02718 M00S02571.1cd +++| 02719 M00S02572.1cd +++| LDI T4 CHECK FOR PAGE EJECT 02720 M00S02573.1cd +++| SBN 61 ASCII *1* 02721 M00S02574.1cd +++| ZJN SPC2 IF NORMAL PAGE EJECT 02722 M00S02575.1cd +++| SBN 126-61 ASCII *V* - ASCII *1* 02723 M00S02576.1cd +++| NJN SPC3 IF NOT USER FORMS CONTROL 02724 M00S02577.1cd +++| SPC2 LDM LPLL CHARGE FOR CURRENT PAGE 02725 M00S02578.1cd +++| RJM CUL 02726 M00S02579.1cd +++| STM LPLP CLEAR LINE COUNT FOR PAGE 02727 M00S02580.1cd +++| SPC3 LDI T4 CHECK FOR LAST LINE OF FORM 02728 M00S02581.1cd +++| SBN 62 ASCII *2* 02729 M00S02582.1cd +++| NJN SPC4 IF NOT ADVANCE TO LAST LINE OF FORM 02730 M00S02583.1cd +++| LDM LPLL 02731 M00S02584.1cd +++| SHN -1 CHARGE FOR LAST LINE OF FORM (*PLXL*/2) 02732 M00S02585.1cd +++| RAM LPLP 02733 M00S02586.1cd +++| SPC4 LDM 1,T4 02734 M00S02587.1cd +++| SHN 14 02735 M00S02588.1cd +++| RAM LPLP 02736 M00S02589.1cd +++| 02737 M00S02590.1cd +++|* ISSUE FORMAT FUNCTION. 02738 M00S02591.1cd +++| 02739 M00S02592.1cd +++| SHN -14 02740 M00S02593.1cd +++| ZJN SPC7 IF NO FORMAT SELECTION 02741 M00S02594.1cd +++| RJM FCN 02742 M00S02595.1cd +++| LDI T4 CHECK SELECTED FORMAT 02743 M00S02596.1cd +++| ADC -121 ASCII *Q* 02744 M00S02597.1cd +++| ZJN SPC5 IF *Q* 02745 M00S02598.1cd +++| SBN 122-121 ASCII *R* - ASCII *Q* 02746 M00S02599.1cd +++| NJN SPC8 IF NOT *R*
| Line S02600 Modification History | |
|---|---|
M01 (Removed by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02747 M01S02600.1cd9 ---| SPC5 LDD F6+2 GET BIO FLAGS
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 1cd9 |
Seq # *Modification Id* Act ----------------------------+ 02748 M01S00030.1cd9 +++| SPC5 LDD F2+2 GET BIO FLAGS 02749 M00S02601.1cd +++| LPN 10 CHECK FOR FORCED 8 LPI 02750 M00S02602.1cd +++| ZJN SPC6 IF NOT FORCED 8 LPI 02751 M00S02603.1cd +++| RJM MGR GO TO MANAGER 02752 M00S02604.1cd +++| RJM WNB WAIT NOT BUSY 02753 M00S02605.1cd +++| LDN 10 SET 8 LPI 02754 M00S02606.1cd +++| RJM FCN ISSUE FUNCTION 02755 M00S02607.1cd +++| SPC6 LDN LPOT STORE *OUT* POINTER 02756 M00S02608.1cd +++| RJM SOP 02757 M00S02609.1cd +++|* LDN 1 SET NO PRINT ON RETURN 02758 M00S02610.1cd +++| SPC7 LJM SPCX RETURN 02759 M00S02611.1cd +++| 02760 M00S02612.1cd +++| SPC8 SBN 123-122 ASCII *S* - ASCII *R* 02761 M00S02613.1cd +++| ZJN SPC9 IF *S* 02762 M00S02614.1cd +++| SBN 124-123 ASCII *T* - ASCII *S* 02763 M00S02615.1cd +++| NJN SPC11 IF NOT *T* 02764 M00S02616.1cd +++| LDN LP8L-LP6L 02765 M00S02617.1cd +++| SPC9 STD T4 02766 M00S02618.1cd +++| LDM LP6L+EQSB,T4 SET LINE LIMIT FOR PAGE 02767 M00S02619.1cd +++| STM LPLL 02768 M00S02620.1cd +++| SPC10 UJN SPC5 SET NO PRINT ON RETURN 02769 M00S02621.1cd +++| 02770 M00S02622.1cd +++| SPC11 SBN 126-124 ASCII *V* - ASCII *T* 02771 M00S02623.1cd +++| ZJN SPC12 IF *V* 02772 M00S02624.1cd +++| LDM LPFT 02773 M00S02625.1cd +++| SCN 1 02774 M00S02626.1cd +++| STM LPFT 02775 M00S02627.1cd +++| LDD FC 02776 M00S02628.1cd +++| SBN 30+1 02777 M00S02629.1cd +++| SHN 0-21 02778 M00S02630.1cd +++| LMN 1 SET FORMAT TAPE FLAG 02779 M00S02631.1cd +++| RAM LPFT 02780 M00S02632.1cd +++| LDN 0 02781 M00S02633.1cd +++| UJN SPC7 RETURN 02782 M00S02634.1cd +++| 02783 M00S02635.1cd +++| SPC12 LDM 1,DA CHECK PFC ARRAY TO BE CHANGED 02784 M00S02636.1cd +++| SBN 66 ASCII *6* 02785 M00S02637.1cd +++| ZJN SPC13 IF 6 LPI 02786 M00S02638.1cd +++| SBN 70-66 ASCII *8* - ASCII *6* 02787 M00S02639.1cd +++| ZJN SPC13 IF 8 LPI 02788 M00S02640.1cd +++| SBN 103-70 ASCII *C* - ASCII *8* 02789 M00S02641.1cd +++| NJN SPC10 IF NOT 8 LPI ACROSS 2 LINES 02790 M00S02642.1cd +++| SPC13 AOD BR SET BUSY RETURN 02791 M00S02643.1cd +++| RJM RDB RELEASE DATA BUFFER 02792 M00S02644.1cd +++| SPC14 RJM MGR GO TO MANAGER 02793 M00S02645.1cd +++| LDD BS+4 CHECK BUFFER STATUS 02794 M00S02646.1cd +++| LPN 1 02795 M00S02647.1cd +++| ZJN SPC14 IF BUFFER BUSY 02796 M00S02648.1cd +++| LDD BS+4 SAVE BUFFER STATUS 02797 M00S02649.1cd +++| STM CMBS 02798 M00S02650.1cd +++| SPC15 LDC PFCF+2000 REQUEST RELOAD PFC MEMORY 02799 M00S02651.1cd +++| RJM CPS 02800 M00S02652.1cd +++| SPC16 RJM MGR GO TO MANAGER 02801 M00S02653.1cd +++| ZJN SPC15 IF REQUEST NOT ACCEPTED 02802 M00S02654.1cd +++| LDD BS+4 CHECK BUFFER STATUS 02803 M00S02655.1cd +++| LMC 1031 02804 M00S02656.1cd +++| NJN SPC17 IF NOT INVALID USER / ERROR IN PFC IMAGE 02805 M00S02657.1cd +++| LJM LPD4 CONTINUE / TERMINATE PRINT JOB 02806 M00S02658.1cd +++| 02807 M00S02659.1cd +++| SPC17 LMC PFCF&1030 02808 M00S02660.1cd +++| NJN SPC18 IF NOT PFC LOAD COMPLETE 02809 M00S02661.1cd +++| LDM CMBS 02810 M00S02662.1cd +++| LJM LPN2 RESET BUFFER STATUS AND CONTINUE 02811 M00S02663.1cd +++| 02812 M00S02664.1cd +++| SPC18 LMN CECF&PFCF 02813 M00S02665.1cd +++| NJN SPC16 IF NOT PFC ERROR 02814 M00S02666.1cd +++| LJM TOP4 TERMINATE OPERATION 02815 M00S02667.1cd +++| TFCC SPACE 4,10 02816 M00S02668.1cd +++|** TFCC - TABLE OF FORMAT CONTROL CHARACTERS. 02817 M00S02669.1cd +++|* 02818 M00S02670.1cd +++|* TWO WORD ENTRY. 02819 M00S02671.1cd +++|* 02820 M00S02672.1cd +++|* PROGRAMMERS NOTE - THE *+* FORMAT CONTROL CHARACTER IS 02821 M00S02673.1cd +++|* PROCESSED IN THE MAIN DRIVER BECAUSE THERE IS NO 02822 M00S02674.1cd +++|* DIRECTLY EQUIVALENT CONTROLLER FUNCTION. CONTROLLER 02823 M00S02675.1cd +++|* FUNCTION 6 IS USED FOR BOTH */* AND *+*, AND THE 02824 M00S02676.1cd +++|* TIMING OF WHEN THE FUNCTION 6 IS SENT DETERMINES IF 02825 M00S02677.1cd +++|* SPACING IS SUPPRESSED BEFORE OR AFTER PRINTING. 02826 M00S02678.1cd +++| 02827 M00S02679.1cd +++| 02828 M00S02680.1cd +++| TFCC BSS 0 02829 M00S02681.1cd +++| FMTC C,3,16,36 SKIP TO CHANNEL 6 AFTER PRINT 02830 M00S02682.1cd +++| FMTC D,2,15,35 SKIP TO CHANNEL 5 AFTER PRINT 02831 M00S02683.1cd +++| FMTC E,2,14,34 SKIP TO CHANNEL 4 AFTER PRINT 02832 M00S02684.1cd +++| FMTC F,1,13,33 SKIP TO CHANNEL 3 AFTER PRINT 02833 M00S02685.1cd +++| FMTC G,1,12,32 SKIP TO CHANNEL 2 AFTER PRINT 02834 M00S02686.1cd +++| FMTC H,0,11,31 SKIP TO CHANNEL 1 AFTER PRINT 02835 M00S02687.1cd +++| FMTC Q,0,10,30 CLEAR AUTO EJECT 02836 M00S02688.1cd +++| FMTC R,0,5,5 SELECT AUTO EJECT 02837 M00S02689.1cd +++| FMTC S,0,0,11 CLEAR 8 LINES/INCH 02838 M00S02690.1cd +++| FMTC T,0,0,10 SET 8 LINES/INCH 02839 M00S02691.1cd +++| FMTC V,0,0,4 EJECT AND CHANGE PFC IMAGE 02840 M00S02692.1cd +++| FMTC 0,1,1,1 SPACE 1 LINE BEFORE PRINT 02841 M00S02693.1cd +++| FMTC 1,0,4,4 EJECT BEFORE PRINT 02842 M00S02694.1cd +++| FMTC 2,0,3,3 ADVANCE TO LAST LINE BEFORE PRINT 02843 M00S02695.1cd +++| FMTC 3,3,26,56 SKIP TO CHANNEL 6 BEFORE PRINT 02844 M00S02696.1cd +++| FMTC 4,2,25,55 SKIP TO CHANNEL 5 BEFORE PRINT 02845 M00S02697.1cd +++| FMTC 5,2,24,54 SKIP TO CHANNEL 4 BEFORE PRINT 02846 M00S02698.1cd +++| FMTC 6,1,23,53 SKIP TO CHANNEL 3 BEFORE PRINT 02847 M00S02699.1cd +++| FMTC 7,1,22,52 SKIP TO CHANNEL 2 BEFORE PRINT 02848 M00S02700.1cd +++| FMTC 8,0,21,51 SKIP TO CHANNEL 1 BEFORE PRINT 02849 M00S02701.1cd +++|* FMTC +,0,0,0 PROCESSED IN MAIN DRIVER 02850 M00S02702.1cd +++| FMTC -,2,2,2 SPACE 2 LINES BEFORE PRINT 02851 M00S02703.1cd +++| FMTC /,0,6,6 SUPPRESS SPACE AFTER PRINT 02852 M00S02704.1cd +++| CON 0 02853 M00S02705.1cd +++| 02854 M00S02706.1cd +++| TITLE 3446/415 DRIVER SECTION. 02855 M00S02707.1cd +++| CPD SPACE 4,10 02856 M00S02708.1cd +++|** CPD - 3446/415 DRIVER. 02857 M00S02709.1cd +++| 02858 M00S02710.1cd +++| 02859 M00S02711.1cd +++| CPD RJM PSD PRESET DRIVER 02860 M00S02712.1cd +++| LDC 4000 SET NO COMPARISON MODE FOR HEADER CARD 02861 M00S02713.1cd +++| STM CPPM 02862 M00S02714.1cd +++| LDD FP+2 SET PUNCH FORMAT 02863 M00S02715.1cd +++| LPN 7 02864 M00S02716.1cd +++| STM CPFM 02865 M00S02717.1cd +++| LMN PHFR 02866 M00S02718.1cd +++| ZJN CPD1 IF O26 CONVERSION MODE 02867 M00S02719.1cd +++| LMN P9FR&PHFR 02868 M00S02720.1cd +++| NJN CPD1 IF NOT O29 CONVERSION 02869 M00S02721.1cd +++| LDN CDXA SET O29 CONVERSION MODE 02870 M00S02722.1cd +++| STM CMCT 02871 M00S02723.1cd +++| CPD1 LDC GLCF+1000 REQUEST LACE CARD GENERATION 02872 M00S02724.1cd +++| RJM CPS 02873 M00S02725.1cd +++| CPD2 RJM MGR GO TO MANAGER 02874 M00S02726.1cd +++| ZJN CPD1 IF REQUEST NOT ENTERED 02875 M00S02727.1cd +++| LDD BS+4 CHECK BUFFER STATUS 02876 M00S02728.1cd +++| LMC GLCF+1 02877 M00S02729.1cd +++| NJN CPD2 IF REQUEST NOT COMPLETE 02878 M00S02730.1cd +++| 02879 M00S02731.1cd +++|* *CPD3* IS A SECONDARY ENTRY POINT FOR *CPD*. 02880 M00S02732.1cd +++|* 02881 M00S02733.1cd +++|* ENTRY BUFFER NOT BUSY. 02882 M00S02734.1cd +++| 02883 M00S02735.1cd +++| CPD3 RJM MGR GO TO MANAGER 02884 M00S02736.1cd +++| RJM ADB ASSIGN DATA BUFFER 02885 M00S02737.1cd +++| LDN 0 CLEAR BUSY RETURN 02886 M00S02738.1cd +++| STD BR 02887 M00S02739.1cd +++| LDN 20 READ BINARY BUFFER 02888 M00S02740.1cd +++| STD T3 02889 M00S02741.1cd +++| RJM CDB CHECK DATA IN BUFFER 02890 M00S02742.1cd +++| LDD DA 02891 M00S02743.1cd +++| RJM RNL READ NEXT CARD 02892 M00S02744.1cd +++| RJM MGR GO TO MANAGER 02893 M00S02745.1cd +++| RJM PBC PUNCH BINARY CARD 02894 M00S02746.1cd +++| RJM ECB EMPTY CIRCULAR BUFFER 02895 M00S02747.1cd +++| LDD OT OUT1=OUT2=OUT 02896 M00S02748.1cd +++| STM CPO1 02897 M00S02749.1cd +++| STM CPO2 02898 M00S02750.1cd +++| LDD OT+1 02899 M00S02751.1cd +++| STM CPO1+1 02900 M00S02752.1cd +++| STM CPO2+1 02901 M00S02753.1cd +++| 02902 M00S02754.1cd +++|* *CPD4* IS A SECONDARY ENTRY POINT FOR *CPD*. 02903 M00S02755.1cd +++| 02904 M00S02756.1cd +++| CPD4 LDN 0 INITIALIZE CARD COUNT 02905 M00S02757.1cd +++| STM CPCN 02906 M00S02758.1cd +++| STM CPCN+1 02907 M00S02759.1cd +++| 02908 M00S02760.1cd +++|* *CPD5* IS A SECONDARY ENTRY POINT FOR *CPD*. 02909 M00S02761.1cd +++| 02910 M00S02762.1cd +++| CPD5 AOD BR SET BUSY RETURN 02911 M00S02763.1cd +++| RJM MGR GO TO MANAGER 02912 M00S02764.1cd +++| RJM ADB ASSIGN DATA BUFFER 02913 M00S02765.1cd +++| LDM CPO2 OUT = OUT2 02914 M00S02766.1cd +++| STD OT 02915 M00S02767.1cd +++| LDM CPO2+1 02916 M00S02768.1cd +++| STD OT+1 02917 M00S02769.1cd +++| LDM CPFM SELECT PUNCH PROCESSOR 02918 M00S02770.1cd +++| ZJN CPD6 IF DEFAULT 02919 M00S02771.1cd +++| LMN PHFR 02920 M00S02772.1cd +++| ZJN CPD6 IF PUNCH CODED 026 02921 M00S02773.1cd +++| LMN P9FR&PHFR 02922 M00S02774.1cd +++| NJN CPD7 IF NOT PUNCH CODED 029 02923 M00S02775.1cd +++| CPD6 LJM CPC PUNCH CODED 02924 M00S02776.1cd +++| 02925 M00S02777.1cd +++| CPD7 LMN PBFR&P9FR 02926 M00S02778.1cd +++| ZJN CPB1 IF PUNCH SYSTEM BINARY 02927 M00S02779.1cd +++| LMN P8FR&PBFR 02928 M00S02780.1cd +++| ZJN CPB IF PUNCH ABSOLUTE, 80 COLUMN BINARY 02929 M00S02781.1cd +++| LJM TOF TERMINATE OUTPUT FILE 02930 M00S02782.1cd +++| CPB SPACE 4,10 02931 M00S02783.1cd +++|** CPB - PUNCH BINARY. 02932 M00S02784.1cd +++|* 02933 M00S02785.1cd +++|* USES BR, T1 - T3. 02934 M00S02786.1cd +++|* 02935 M00S02787.1cd +++|* CALLS CCI, CKC, COB, PBC, RNL, MGR. 02936 M00S02788.1cd +++| 02937 M00S02789.1cd +++| 02938 M00S02790.1cd +++|* PHASE 1. LOAD BUFFER AND GENERATE CHECKSUM. 02939 M00S02791.1cd +++| 02940 M00S02792.1cd +++| CPB LDN 1 ABSOLUTE 80 COLUMN BINARY 02941 M00S02793.1cd +++| CPB1 ADN 17 02942 M00S02794.1cd +++| STD T3 02943 M00S02795.1cd +++| RJM COB CHECK OUTPUT BUFFER 02944 M00S02796.1cd +++| SBD T3 02945 M00S02797.1cd +++| PJN CPB2 IF FULL CARD 02946 M00S02798.1cd +++| RAD T3 02947 M00S02799.1cd +++| SHN 2 02948 M00S02800.1cd +++| ADD T3 02949 M00S02801.1cd +++| ADD DA 02950 M00S02802.1cd +++| RJM CCI CLEAR CARD IMAGE 02951 M00S02803.1cd +++| LDD BS+4 CHECK LAST STATUS 02952 M00S02804.1cd +++| LPN 20 02953 M00S02805.1cd +++| NJN CPB2 IF EOR / EOF 02954 M00S02806.1cd +++| LJM MGR1 RETURN TO MANAGER 02955 M00S02807.1cd +++| 02956 M00S02808.1cd +++| CPB2 LDM CPFM SET DATA ADDRESS 02957 M00S02809.1cd +++| LMN P8FR 02958 M00S02810.1cd +++| ZJN CPB3 IF ABSOLUTE, 80 COLUMN BINARY 02959 M00S02811.1cd +++| LDN 2 SYSTEM BINARY 02960 M00S02812.1cd +++| CPB3 STD T2 02961 M00S02813.1cd +++| ADD DA READ NEXT CARD 02962 M00S02814.1cd +++| RJM RNL 02963 M00S02815.1cd +++| LDD OT OUT2 = OUT 02964 M00S02816.1cd +++| STM CPO2 02965 M00S02817.1cd +++| LDD OT+1 02966 M00S02818.1cd +++| STM CPO2+1 02967 M00S02819.1cd +++| LDD T2 02968 M00S02820.1cd +++| NJN CPB4 IF NOT ABSOLUTE BINARY 02969 M00S02821.1cd +++| LJM CPB6 CLEAR BUSY RETURN 02970 M00S02822.1cd +++| 02971 M00S02823.1cd +++| CPB4 LDD T3 SET WORD COUNT + BINARY INDICATOR 02972 M00S02824.1cd +++| SHN 6 02973 M00S02825.1cd +++| ADN 5 02974 M00S02826.1cd +++| STI DA 02975 M00S02827.1cd +++| LDD DA SET FIRST DATA ADDRESS 02976 M00S02828.1cd +++| ADN 2 02977 M00S02829.1cd +++| STD T1 02978 M00S02830.1cd +++| ADC 113 02979 M00S02831.1cd +++| STD T2 02980 M00S02832.1cd +++| LDN 0 CLEAR CHECKSUM 02981 M00S02833.1cd +++| STD T3 02982 M00S02834.1cd +++| CPB5 LDI T1 GENERATE CHECKSUM 02983 M00S02835.1cd +++| LMC 770000 02984 M00S02836.1cd +++| RAD T3 02985 M00S02837.1cd +++| AOD T1 02986 M00S02838.1cd +++| LMD T2 02987 M00S02839.1cd +++| NJN CPB5 IF NOT END OF DATA 02988 M00S02840.1cd +++| STM 115,DA CLEAR COLUMN 78 02989 M00S02841.1cd +++| SBD T3 02990 M00S02842.1cd +++| STM 1,DA STORE CHECKSUM 02991 M00S02843.1cd +++| AOM CPCN+1 STORE BINARY CARD NUMBER 02992 M00S02844.1cd +++| STM 117,DA 02993 M00S02845.1cd +++| SHN -14 02994 M00S02846.1cd +++| RAM CPCN 02995 M00S02847.1cd +++| STM 116,DA 02996 M00S02848.1cd +++| CPB6 LDN 0 CLEAR BUSY RETURN 02997 M00S02849.1cd +++| STD BR 02998 M00S02850.1cd +++| RJM MGR GO TO MANAGER 02999 M00S02851.1cd +++| 03000 M00S02852.1cd +++|* PHASE 2. PUNCH CARD. 03001 M00S02853.1cd +++| 03002 M00S02854.1cd +++| RJM PBC PUNCH BINARY CARD 03003 M00S02855.1cd +++| RJM MGR GO TO MANAGER 03004 M00S02856.1cd +++| 03005 M00S02857.1cd +++|* PHASE 3. CHECK PREVIOUS CARD. 03006 M00S02858.1cd +++| 03007 M00S02859.1cd +++| RJM CKC CHECK CARD 03008 M00S02860.1cd +++| PJN CPB8 IF NO COMPARE ERROR 03009 M00S02861.1cd +++| CPB7 LCN 2 DECREMENT BINARY CARD NUMBER 03010 M00S02862.1cd +++| RAM CPCN+1 03011 M00S02863.1cd +++| PJN CPB8 IF NO UNDERFLOW 03012 M00S02864.1cd +++| SOM CPCN 03013 M00S02865.1cd +++| AOM CPCN+1 03014 M00S02866.1cd +++| CPB8 LJM CPD5 LOOP FOR NEXT CARD 03015 M00S02867.1cd +++| CPC SPACE 4,10 03016 M00S02868.1cd +++|** CPC - PUNCH CODED. 03017 M00S02869.1cd +++|* 03018 M00S02870.1cd +++|* USES BR, T1. 03019 M00S02871.1cd +++|* 03020 M00S02872.1cd +++|* CALLS AOP, CCI, CKC, COB, PBC, RCB, MGR. 03021 M00S02873.1cd +++| 03022 M00S02874.1cd +++| 03023 M00S02875.1cd +++|* PHASE 1. LOAD BUFFER. 03024 M00S02876.1cd +++| 03025 M00S02877.1cd +++| CPC RJM COB CHECK OUTPUT BUFFER 03026 M00S02878.1cd +++| SBN 11 03027 M00S02879.1cd +++| PJN CPC1 IF AT LEAST 1 CARD AND 1 WORD 03028 M00S02880.1cd +++| LDD BS+4 CHECK LAST STATUS 03029 M00S02881.1cd +++| LPN 20 03030 M00S02882.1cd +++| NJN CPC1 IF EOR / EOF 03031 M00S02883.1cd +++| LJM MGR1 RETURN TO MANAGER 03032 M00S02884.1cd +++| 03033 M00S02885.1cd +++| CPC1 LDN 10 READ CODED CARD 03034 M00S02886.1cd +++| RJM RCB 03035 M00S02887.1cd +++| ZJN CPC3 IF EMPTY CARD 03036 M00S02888.1cd +++| LMC 120 03037 M00S02889.1cd +++| NJN CPC2 IF CURRENT CARD NOT FULL 03038 M00S02890.1cd +++| LDM CMBE 03039 M00S02891.1cd +++| ZJN CPC2 IF BUFFER EMPTY 03040 M00S02892.1cd +++| LDD T2 CHECK NEXT WORD 03041 M00S02893.1cd +++| ADD T3 03042 M00S02894.1cd +++| ADD T4 03043 M00S02895.1cd +++| ADD T5 03044 M00S02896.1cd +++| ADD T6 03045 M00S02897.1cd +++| NJN CPC2 IF NOT END OF CARD 03046 M00S02898.1cd +++| LDN 1 ADVANCE *OUT* POINTER 03047 M00S02899.1cd +++| RJM AOP 03048 M00S02900.1cd +++| CPC2 LDD T7 CHECK LAST CHARACTER PROCESSED 03049 M00S02901.1cd +++| NJN CPC3 IF NOT PART OF EOL 03050 M00S02902.1cd +++| SOD T1 03051 M00S02903.1cd +++| CPC3 LDD T1 CLEAR REMAINDER OF CARD IMAGE 03052 M00S02904.1cd +++| RJM CCI 03053 M00S02905.1cd +++| LDD OT OUT2 = OUT 03054 M00S02906.1cd +++| STM CPO2 03055 M00S02907.1cd +++| LDD OT+1 03056 M00S02908.1cd +++| STM CPO2+1 03057 M00S02909.1cd +++| LDN 0 CLEAR BUSY RETURN 03058 M00S02910.1cd +++| STD BR 03059 M00S02911.1cd +++| RJM MGR GO TO MANAGER 03060 M00S02912.1cd +++| 03061 M00S02913.1cd +++|* PHASE 2. PUNCH CARD. 03062 M00S02914.1cd +++| 03063 M00S02915.1cd +++| RJM PBC PUNCH BINARY CARD 03064 M00S02916.1cd +++| RJM MGR GO TO MANAGER 03065 M00S02917.1cd +++| 03066 M00S02918.1cd +++|* PHASE 3. CHECK PREVIOUS CARD. 03067 M00S02919.1cd +++| 03068 M00S02920.1cd +++| RJM CKC CHECK CARD 03069 M00S02921.1cd +++| LJM CPD5 LOOP FOR NEXT CARD 03070 M00S02922.1cd +++| CPX SPACE 4,10 03071 M00S02923.1cd +++|** CPX - PROCESS TRANSMISSION PARITY ERROR/INCOMPLETE 03072 M00S02924.1cd +++|* DATA TRANSFER. 03073 M00S02925.1cd +++|* 03074 M00S02926.1cd +++|* EXIT TO *MGR1*. 03075 M00S02927.1cd +++| 03076 M00S02928.1cd +++| 03077 M00S02929.1cd +++| CPX AOM CPPM SET PUNCH MODE TO OFFSET 03078 M00S02930.1cd +++| LJM MGR1 RETURN TO MANAGER 03079 M00S02931.1cd +++| CKC SPACE 4,10 03080 M00S02932.1cd +++|** CKC - CHECK CARD. 03081 M00S02933.1cd +++|* 03082 M00S02934.1cd +++|* EXIT (A) .LT. 0 IF COMPARE ERROR. 03083 M00S02935.1cd +++|* 03084 M00S02936.1cd +++|* USES BR, CM - CM+4. 03085 M00S02937.1cd +++|* 03086 M00S02938.1cd +++|* CALLS CUL, FCN, MSG, SDM, SFA, SOP, WST. 03087 M00S02939.1cd +++| 03088 M00S02940.1cd +++| 03089 M00S02941.1cd +++| CKC5 LDM CPO2 OUT1 = OUT2 03090 M00S02942.1cd +++| STM CPO1 03091 M00S02943.1cd +++| LDM CPO2+1 03092 M00S02944.1cd +++| STM CPO1+1 03093 M00S02945.1cd +++| AOD BR SET BUSY RETURN 03094 M00S02946.1cd +++| RJM CUL CHECK USER LIMITS 03095 M00S02947.1cd +++| 03096 M00S02948.1cd +++| CKC SUBR ENTRY/EXIT 03097 M00S02949.1cd +++| LDM CPPM CHECK PUNCH MODE 03098 M00S02950.1cd +++| ZJN CKC3 IF COMPARE 03099 M00S02951.1cd +++| SHN 6 03100 M00S02952.1cd +++| MJN CKC1 IF NO COMPARE, NO OFFSET 03101 M00S02953.1cd +++| LDN 3 OFFSET CARD 03102 M00S02954.1cd +++| RJM FCN 03103 M00S02955.1cd +++| CKC1 LDN 0 SET PUNCH MODE TO COMPARE 03104 M00S02956.1cd +++| STM CPPM 03105 M00S02957.1cd +++| LDN ECLE CLEAR ERROR MESSAGE 03106 M00S02958.1cd +++| RJM MSG 03107 M00S02959.1cd +++| CKC2 UJN CKC5 SET OUT POINTERS 03108 M00S02960.1cd +++| 03109 M00S02961.1cd +++| CKC3 LDD ST CHECK STATUS 03110 M00S02962.1cd +++| SHN 7 03111 M00S02963.1cd +++| MJN CKC4 IF COMPARE ERROR 03112 M00S02964.1cd +++| LDN CPO1 STORE OUT POINTER 03113 M00S02965.1cd +++| RJM SOP 03114 M00S02966.1cd +++| UJN CKC2 SET OUT POINTERS 03115 M00S02967.1cd +++| 03116 M00S02968.1cd +++| CKC4 LDN 3 OFFSET CARD 03117 M00S02969.1cd +++| RJM FCN 03118 M00S02970.1cd +++| LDN ECPE *COMPARE ERROR.* 03119 M00S02971.1cd +++| RJM MSG 03120 M00S02972.1cd +++| RJM WST WRITE STATUS 03121 M00S02973.1cd +++| LDN ECEM *EQXXX COMPARE ERROR.* 03122 M00S02974.1cd +++| RJM SDM 03123 M00S02975.1cd +++| RJM SFA OUT2 = OUT 03124 M00S02976.1cd +++| ADN 3 03125 M00S02977.1cd +++| CRD CM 03126 M00S02978.1cd +++| LDD CM+3 03127 M00S02979.1cd +++| STM CPO2 03128 M00S02980.1cd +++| STM CPO1 OUT1 = OUT 03129 M00S02981.1cd +++| LDD CM+4 03130 M00S02982.1cd +++| STM CPO2+1 03131 M00S02983.1cd +++| STM CPO1+1 03132 M00S02984.1cd +++| AOM CPPM SET PUNCH MODE TO OFFSET 03133 M00S02985.1cd +++| AOM CMEC ADVANCE ERROR COUNT 03134 M00S02986.1cd +++| LCN 0 03135 M00S02987.1cd +++| LJM CKCX RETURN 03136 M00S02988.1cd +++| CCI SPACE 4,10 03137 M00S02989.1cd +++|** CCI - CLEAR CARD IMAGE. 03138 M00S02990.1cd +++|* 03139 M00S02991.1cd +++|* ENTRY (A) = STARTING ADDRESS TO CLEAR TO. 03140 M00S02992.1cd +++|* (DA) = DATA BUFFER ADDRESS. 03141 M00S02993.1cd +++|* 03142 M00S02994.1cd +++|* EXIT (T1) = ADDRESS OF END OF CARD IMAGE. 03143 M00S02995.1cd +++|* 03144 M00S02996.1cd +++|* USES T0 - T1. 03145 M00S02997.1cd +++| 03146 M00S02998.1cd +++| 03147 M00S02999.1cd +++| CCI1 LDN 0 CLEAR BUFFER 03148 M00S03000.1cd +++| STI T0 03149 M00S03001.1cd +++| SOD T0 DECREMENT ADDRESS 03150 M00S03002.1cd +++| CCI2 SBD T1 03151 M00S03003.1cd +++| PJN CCI1 IF NOT START OF DATA 03152 M00S03004.1cd +++| 03153 M00S03005.1cd +++| CCI SUBR ENTRY/EXIT 03154 M00S03006.1cd +++| STD T1 03155 M00S03007.1cd +++| LDD DA 03156 M00S03008.1cd +++| ADC 121 SET LIMIT ADDRESS 03157 M00S03009.1cd +++| STD T0 03158 M00S03010.1cd +++| UJN CCI2 ENTER LOOP 03159 M00S03011.1cd +++| PBC SPACE 4,10 03160 M00S03012.1cd +++|** PBC - PUNCH BINARY CARD. 03161 M00S03013.1cd +++|* 03162 M00S03014.1cd +++|* ENTRY (DA) = DATA ADDRESS. 03163 M00S03015.1cd +++|* 03164 M00S03016.1cd +++|* CALLS FCN, RDB, XDR. 03165 M00S03017.1cd +++| 03166 M00S03018.1cd +++| 03167 M00S03019.1cd +++| PBC SUBR ENTRY/EXIT 03168 M00S03020.1cd +++| LDC 120 SET BYTE COUNT FOR BINARY CARD 03169 M00S03021.1cd +++| STM CMLR 03170 M00S03022.1cd +++| LDN 1 SELECT BINARY 03171 M00S03023.1cd +++| RJM FCN 03172 M00S03024.1cd +++| LDC 16S12+OAMI OUTPUT PUNCH RECORD 03173 M00S03025.1cd +++| RJM XDR 03174 M00S03026.1cd +++| RJM RDB RELEASE DATA BUFFER 03175 M00S03027.1cd +++| UJN PBCX RETURN 03176 M00S03028.1cd +++| PED SPACE 4,10 03177 M00S03029.1cd +++|** PED - PROCESS *END*. 03178 M00S03030.1cd +++|* 03179 M00S03031.1cd +++|* EXIT TO *TOF* IF *END* SET PREVIOUSLY. 03180 M00S03032.1cd +++|* 03181 M00S03033.1cd +++|* CALLS MGR. 03182 M00S03034.1cd +++| 03183 M00S03035.1cd +++| 03184 M00S03036.1cd +++| PED LDM CMSF CHECK END FLAG 03185 M00S03037.1cd +++| LPN 2 03186 M00S03038.1cd +++| ZJN PED1 IF NOT SET 03187 M00S03039.1cd +++| LJM TOF TERMINATE OUTPUT FILE 03188 M00S03040.1cd +++| 03189 M00S03041.1cd +++| PED1 LDN 2 SET END FLAG 03190 M00S03042.1cd +++| RAM CMSF 03191 M00S03043.1cd +++| RJM MGR GO TO MANAGER 03192 M00S03044.1cd +++|* LJM PEF PUNCH EOF 03193 M00S03045.1cd +++| PEF SPACE 4,10 03194 M00S03046.1cd +++|** PEF - PUNCH END OF FILE. 03195 M00S03047.1cd +++|* 03196 M00S03048.1cd +++|* USES BR. 03197 M00S03049.1cd +++|* 03198 M00S03050.1cd +++|* CALLS ACT, ADB, CCI, FCN, MGR, PBC. 03199 M00S03051.1cd +++| 03200 M00S03052.1cd +++| 03201 M00S03053.1cd +++| PEF RJM ADB ASSIGN DATA BUFFER 03202 M00S03054.1cd +++| RJM CCI CLEAR CARD IMAGE 03203 M00S03055.1cd +++| LDD BS+4 CHECK BUFFER STATUS 03204 M00S03056.1cd +++| SHN 21-11 03205 M00S03057.1cd +++| MJN PEF2 IF EOI 03206 M00S03058.1cd +++| LDN 15 03207 M00S03059.1cd +++| LJM PER1 SET EOF INDICATORS 03208 M00S03060.1cd +++| 03209 M00S03061.1cd +++| PEF2 LDN 17 SET EOI INDICATORS 03210 M00S03062.1cd +++| STI DA 03211 M00S03063.1cd +++| STM 117,DA 03212 M00S03064.1cd +++| LDN 0 CLEAR BUSY RETURN 03213 M00S03065.1cd +++| STD BR 03214 M00S03066.1cd +++| LDM CMEC ENTER ERROR COUNT 03215 M00S03067.1cd +++| STM 47,DA 03216 M00S03068.1cd +++| RJM MGR GO TO MANAGER 03217 M00S03069.1cd +++| RJM PBC PUNCH BINARY CARD 03218 M00S03070.1cd +++| RJM MGR GO TO MANAGER 03219 M00S03071.1cd +++| LDN 3 OFFSET CARD 03220 M00S03072.1cd +++| RJM FCN 03221 M00S03073.1cd +++| RJM MGR GO TO MANAGER 03222 M00S03074.1cd +++| LDN 4 GATE LAST CARD 03223 M00S03075.1cd +++| RJM FCN 03224 M00S03076.1cd +++| RJM MGR GO TO MANAGER 03225 M00S03077.1cd +++| LDN 3 OFFSET EOI 03226 M00S03078.1cd +++| RJM FCN 03227 M00S03079.1cd +++| AOD BR SET BUSY RETURN 03228 M00S03080.1cd +++| PEF3 RJM ACT PROCESS ACCOUNTING 03229 M00S03081.1cd +++| PEF4 RJM MGR GO TO MANAGER 03230 M00S03082.1cd +++| ZJN PEF3 IF REQUEST NOT ENTERED 03231 M00S03083.1cd +++| LDD BS+4 03232 M00S03084.1cd +++| SHN 21-0 03233 M00S03085.1cd +++| PJN PEF4 IF ACCOUNTING NOT COMPLETE 03234 M00S03086.1cd +++| LJM TOF TERMINATE OUTPUT FILE 03235 M00S03087.1cd +++| PER SPACE 4,10 03236 M00S03088.1cd +++|** PER - PUNCH END OF RECORD. 03237 M00S03089.1cd +++|* 03238 M00S03090.1cd +++|* USES BR, BS+4. 03239 M00S03091.1cd +++|* 03240 M00S03092.1cd +++|* CALLS CCI, CKC, FCN, MGR, PBC, SFA. 03241 M00S03093.1cd +++| 03242 M00S03094.1cd +++| 03243 M00S03095.1cd +++| PER LDD DA CLEAR CARD IMAGE 03244 M00S03096.1cd +++| RJM CCI 03245 M00S03097.1cd +++| LDN 7 SET EOR INDICATOR 03246 M00S03098.1cd +++| PER1 STI DA 03247 M00S03099.1cd +++| STM 117,DA 03248 M00S03100.1cd +++| LDN 0 CLEAR BUSY RETURN 03249 M00S03101.1cd +++| STD BR 03250 M00S03102.1cd +++| RJM MGR GO TO MANAGER 03251 M00S03103.1cd +++| LDM CPPM 03252 M00S03104.1cd +++| ZJN PER2 IF NO OFFSET 03253 M00S03105.1cd +++| LDN 3 OFFSET CARD 03254 M00S03106.1cd +++| RJM FCN 03255 M00S03107.1cd +++| RJM MGR GO TO MANAGER 03256 M00S03108.1cd +++| PER2 RJM PBC PUNCH BINARY CARD 03257 M00S03109.1cd +++| RJM MGR GO TO MANAGER 03258 M00S03110.1cd +++| RJM CKC CHECK CARD 03259 M00S03111.1cd +++| PJN PER3 IF NO COMPARE ERROR ON PREVIOUS CARD 03260 M00S03112.1cd +++| LJM CPB7 REPUNCH CARD IN ERROR 03261 M00S03113.1cd +++| 03262 M00S03114.1cd +++| PER3 LDN 1 CLEAR EOR/EOF 03263 M00S03115.1cd +++| STD BS+4 03264 M00S03116.1cd +++| RJM SFA STORE BUFFER STATUS 03265 M00S03117.1cd +++| CWD BS 03266 M00S03118.1cd +++| AOM CPPM SELECT OFFSET 03267 M00S03119.1cd +++| LJM CPD4 EXIT TO DRIVER 03268 M00S03120.1cd +++| CPE SPACE 4,10 03269 M00S03121.1cd +++|** CPE - ERROR PROCESSOR. 03270 M00S03122.1cd +++|* 03271 M00S03123.1cd +++|* ENTRY (A) = EQUIPMENT STATUS FOLLOWING CONNECT. 03272 M00S03124.1cd +++|* 03273 M00S03125.1cd +++|* EXIT TO *PSE*. 03274 M00S03126.1cd +++|* 03275 M00S03127.1cd +++|* CALLS MSG, SDM, WST. 03276 M00S03128.1cd +++| 03277 M00S03129.1cd +++| 03278 M00S03130.1cd +++| CPE2 LDN ENRD *NOT READY* 03279 M00S03131.1cd +++| CPE3 RJM MSG SET BUFFER POINT MESSAGE 03280 M00S03132.1cd +++| LJM PSE RETURN 03281 M00S03133.1cd +++| 03282 M00S03134.1cd +++| CPE SHN 21-6 03283 M00S03135.1cd +++| PJN CPE2 IF NO *FEED FAILURE* 03284 M00S03136.1cd +++| LDM CPES 03285 M00S03137.1cd +++| NJN CPE1 IF NOT FIRST FAILURE 03286 M00S03138.1cd +++| AOM CPES 03287 M00S03139.1cd +++| RJM WST WRITE STATUS 03288 M00S03140.1cd +++| LDN EFFM *EQXXX FEED FAILURE.* 03289 M00S03141.1cd +++| RJM SDM 03290 M00S03142.1cd +++| CPE1 LDN EFED *FEED FAILURE.* 03291 M00S03143.1cd +++| UJN CPE3 SET BUFFER POINT MESSAGE 03292 M00S03144.1cd +++| TITLE 3447/405 DRIVER SECTION. 03293 M00S03145.1cd +++| CRD SPACE 4,10 03294 M00S03146.1cd +++|** CRD - 3447/405 DRIVER. 03295 M00S03147.1cd +++| 03296 M00S03148.1cd +++| 03297 M00S03149.1cd +++| CRD LDN 0 CLEAR BINARY CARD SEQUENCE ERROR 03298 M00S03150.1cd +++| STD FP+1 03299 M00S03151.1cd +++| AOM CRRC INITIALIZE LOGICAL RECORD COUNT 03300 M00S03152.1cd +++| STM CRSN INITIALIZE CARD COUNT IN RECORD 03301 M00S03153.1cd +++| LDC 120 SET RECORD LENGTH 03302 M00S03154.1cd +++| STM CMLR 03303 M00S03155.1cd +++| RJM ECB EMPTY CIRCULAR BUFFER 03304 M00S03156.1cd +++| 03305 M00S03157.1cd +++|* *CRD1* IS A SECONDARY ENTRY POINT FOR *CRD*. 03306 M00S03158.1cd +++| 03307 M00S03159.1cd +++| CRD1 LDN 0 03308 M00S03160.1cd +++| STD BR 03309 M00S03161.1cd +++| RJM MGR GO TO MANAGER 03310 M00S03162.1cd +++| 03311 M00S03163.1cd +++|* *CRD2* IS A SECONDARY ENTRY POINT FOR *CRD*. 03312 M00S03164.1cd +++|* 03313 M00S03165.1cd +++|* PHASE 1. CHECK MODE OF CARD. 03314 M00S03166.1cd +++| 03315 M00S03167.1cd +++| CRD2 RJM CIB CHECK INPUT BUFFER 03316 M00S03168.1cd +++| SBN 20 03317 M00S03169.1cd +++| MJN CRD1 IF NOT ROOM FOR 1 CARD 03318 M00S03170.1cd +++| LDN 0 03319 M00S03171.1cd +++| STM CRBE 03320 M00S03172.1cd +++| LDN ECLE CLEAR ERROR MESSAGE 03321 M00S03173.1cd +++| RJM MSG 03322 M00S03174.1cd +++| LDD ST CHECK CARD STATUS 03323 M00S03175.1cd +++| SHN 21-12 03324 M00S03176.1cd +++| PJN CRD3 IF NO ERROR 03325 M00S03177.1cd +++| RJM WST WRITE STATUS 03326 M00S03178.1cd +++| LDN ECEM *EQXXX COMPARE ERROR.* 03327 M00S03179.1cd +++| RJM SDM ISSUE ERROR LOG MESSAGE 03328 M00S03180.1cd +++| RJM EBF EMPTY BUFFER 03329 M00S03181.1cd +++| LJM MGR1 RETURN TO MANAGER 03330 M00S03182.1cd +++| 03331 M00S03183.1cd +++| CRD3 RJM ADB ASSIGN DATA BUFFER 03332 M00S03184.1cd +++| LDN 1 NEGATE BCD CONVERSION 03333 M00S03185.1cd +++| RJM FCN 03334 M00S03186.1cd +++| LDM CRLI SET DATA ADDRESS 03335 M00S03187.1cd +++| RAD DA 03336 M00S03188.1cd +++| LDC 15S12+IAMI INPUT CARD 03337 M00S03189.1cd +++| RJM XDR 03338 M00S03190.1cd +++| AOD BR SET BUSY RETURN 03339 M00S03191.1cd +++| RJM MGR GO TO MANAGER 03340 M00S03192.1cd +++| LDM CRLI 03341 M00S03193.1cd +++| NJN CRD4 IF LITERAL INPUT 03342 M00S03194.1cd +++| LDI DA CHECK FOR BINARY CARD 03343 M00S03195.1cd +++| LPN 5 03344 M00S03196.1cd +++| LMN 5 03345 M00S03197.1cd +++| NJN CRC IF NOT BINARY CARD 03346 M00S03198.1cd +++| LJM CRB PROCESS BINARY CARD 03347 M00S03199.1cd +++| 03348 M00S03200.1cd +++| CRD4 LJM CRL PROCESS LITERAL INPUT 03349 M00S03201.1cd +++| CRC SPACE 4,10 03350 M00S03202.1cd +++|** CRC - PROCESS CODED CARD. 03351 M00S03203.1cd +++|* 03352 M00S03204.1cd +++|* USES T1 - T3. 03353 M00S03205.1cd +++|* 03354 M00S03206.1cd +++|* CALLS CHD, CKM, MGR, SCN, WBB. 03355 M00S03207.1cd +++| 03356 M00S03208.1cd +++| 03357 M00S03209.1cd +++|* PHASE 2. CONVERT TO DISPLAY CODE AND DELETE TRAILING SPACES. 03358 M00S03210.1cd +++| 03359 M00S03211.1cd +++| CRC LDD DA SET DATA ADDRESS OF BINARY INPUT 03360 M00S03212.1cd +++| STD T1 03361 M00S03213.1cd +++| STD T2 SET LAST NON-SPACE ADDRESS 03362 M00S03214.1cd +++| STD T3 SET DATA ADDRESS FOR STORING DISPLAY CODE 03363 M00S03215.1cd +++| ADN 120/2 SET END OF DISPLAY CODE IN BUFFER 03364 M00S03216.1cd +++| STD T6 03365 M00S03217.1cd +++| LDM CRFR CHECK JOB CARD FOR KEYPUNCH MODE 03366 M00S03218.1cd +++| NJN CRC1 IF NOT JOB CARD 03367 M00S03219.1cd +++| RJM CKM CHECK KEYPUNCH MODE 03368 M00S03220.1cd +++| CRC1 RJM SCN SET CONVERSION TABLE 03369 M00S03221.1cd +++| RJM CHD CONVERT HOLLERITH DATA 03370 M00S03222.1cd +++| LDI T2 GET LAST BYTE TRANSLATED 03371 M00S03223.1cd +++| LPN 77 CHECK LAST CHARACTER 03372 M00S03224.1cd +++| NJN CRC2 IF NOT 00 CHARACTER 03373 M00S03225.1cd +++| AOD T2 RETAIN 00 CHARACTER WITH SPACE PADDING 03374 M00S03226.1cd +++| LDC 2R 03375 M00S03227.1cd +++| STI T2 03376 M00S03228.1cd +++| CRC2 AOD T2 ENSURE END OF LINE 03377 M00S03229.1cd +++| STM CRCA 03378 M00S03230.1cd +++| LDN ZERL GET ZEROED CM WORD 03379 M00S03231.1cd +++| CRM **,ON 03380 M00S03232.1cd +++| CRCA EQU *-1 03381 M00S03233.1cd +++| AOD T2 CALCULATE BYTE COUNT + OFFSET (1) 03382 M00S03234.1cd +++| SBD DA 03383 M00S03235.1cd +++| STD T1 CALCULATE WORD COUNT ( = BYTE COUNT/5) 03384 M00S03236.1cd +++| SHN -3 BYTE COUNT/8 03385 M00S03237.1cd +++| ADD T1 BYTE COUNT/8 + BYTE COUNT 03386 M00S03238.1cd +++| SHN -1 (BYTE COUNT/8 + BYTE COUNT)/2 03387 M00S03239.1cd +++| ADD T1 (BYTE COUNT/8 + BYTE COUNT)/2 + BYTE COUNT 03388 M00S03240.1cd +++| SHN -3 DIVIDE BY 8 03389 M00S03241.1cd +++| ADN 1 ADD IN END OF LINE LENGTH (1) 03390 M00S03242.1cd +++| RJM MGR GO TO MANAGER 03391 M00S03243.1cd +++| STD T1 SET WORD COUNT 03392 M00S03244.1cd +++| 03393 M00S03245.1cd +++|* PHASE 3. DUMP BUFFER. 03394 M00S03246.1cd +++| 03395 M00S03247.1cd +++| LDD DA WRITE BINARY BUFFER 03396 M00S03248.1cd +++| RJM WBB 03397 M00S03249.1cd +++| LJM CRD5 GO TO PHASE 4 03398 M00S03250.1cd +++| CRB SPACE 4,10 03399 M00S03251.1cd +++|** CRB - PROCESS BINARY CARD. 03400 M00S03252.1cd +++|* 03401 M00S03253.1cd +++|* USES BR, T1 - T4. 03402 M00S03254.1cd +++|* 03403 M00S03255.1cd +++|* CALLS EBF, PCE, MGR, MSG. 03404 M00S03256.1cd +++| 03405 M00S03257.1cd +++| 03406 M00S03258.1cd +++|* PHASE 2. PROCESS EOR AND EOF, AND CHECK CHECKSUM. 03407 M00S03259.1cd +++| 03408 M00S03260.1cd +++| CRB LDD DA SET DATA ADDRESS 03409 M00S03261.1cd +++| STD T1 03410 M00S03262.1cd +++| LDI T1 CHECK FIRST WORD 03411 M00S03263.1cd +++| LPN 37 03412 M00S03264.1cd +++| LMN 5 03413 M00S03265.1cd +++| ZJN CRB1 IF BINARY DATA CARD 03414 M00S03266.1cd +++| LJM CRF PROCESS SPECIAL FORM 03415 M00S03267.1cd +++| 03416 M00S03268.1cd +++| CRB1 LDI T1 SET WORD COUNT 03417 M00S03269.1cd +++| SHN -6 03418 M00S03270.1cd +++| STD T4 03419 M00S03271.1cd +++| SHN 2 SET BYTE LIMIT 03420 M00S03272.1cd +++| ADD T4 03421 M00S03273.1cd +++| ZJN CRB5 IF ZERO WORD COUNT 03422 M00S03274.1cd +++| ADD DA 03423 M00S03275.1cd +++| ADN 2 03424 M00S03276.1cd +++| STD T2 03425 M00S03277.1cd +++| LDI T1 03426 M00S03278.1cd +++| LPN 40 03427 M00S03279.1cd +++| STD T3 CLEAR CHECKSUM 03428 M00S03280.1cd +++| NJN CRB3 IF CORRECTION PUNCH 03429 M00S03281.1cd +++| AOD T1 COMPUTE CHECKSUM 03430 M00S03282.1cd +++| CRB2 LDI T1 03431 M00S03283.1cd +++| LMC 770000 03432 M00S03284.1cd +++| RAD T3 03433 M00S03285.1cd +++| AOD T1 03434 M00S03286.1cd +++| LMD T2 03435 M00S03287.1cd +++| NJN CRB2 IF NOT END OF BUFFER 03436 M00S03288.1cd +++| LDD T3 03437 M00S03289.1cd +++| NJN CRB5 IF ERROR 03438 M00S03290.1cd +++| CRB3 LDM CRSN CHECK BINARY SEQUENCE ERROR 03439 M00S03291.1cd +++| LMM 117,DA 03440 M00S03292.1cd +++| NJN CRB8 IF SEQUENCE ERROR 03441 M00S03293.1cd +++| CRB4 LDD T4 SET WORD COUNT 03442 M00S03294.1cd +++| STI DA 03443 M00S03295.1cd +++| RJM MGR GO TO MANAGER 03444 M00S03296.1cd +++| 03445 M00S03297.1cd +++|* PHASE 3. DUMP BUFFER. 03446 M00S03298.1cd +++| 03447 M00S03299.1cd +++| LDI DA SET WORD COUNT 03448 M00S03300.1cd +++| STD T1 03449 M00S03301.1cd +++| LJM CRL9 WRITE BINARY BUFFER 03450 M00S03302.1cd +++| 03451 M00S03303.1cd +++|* *CRB5* IS A SECONDARY ENTRY POINT FOR *CRB*. 03452 M00S03304.1cd +++|* 03453 M00S03305.1cd +++|* PROCESS BINARY CHECKSUM / TRANSMISSION ERRORS. 03454 M00S03306.1cd +++| 03455 M00S03307.1cd +++| CRB5 LDN 0 CLEAR BUSY RETURN 03456 M00S03308.1cd +++| STD BR 03457 M00S03309.1cd +++| LDN ERCB *RE-READ 3 CARDS.* 03458 M00S03310.1cd +++| RJM MSG 03459 M00S03311.1cd +++| CRB6 RJM MGR GO TO MANAGER 03460 M00S03312.1cd +++| LDD ST 03461 M00S03313.1cd +++| LPN 40 03462 M00S03314.1cd +++| ZJN CRB6 IF INPUT TRAY NOT EMPTY 03463 M00S03315.1cd +++| RJM EBF EMPTY BUFFER 03464 M00S03316.1cd +++| LDN 1 SET BINARY CARD ERROR FLAG 03465 M00S03317.1cd +++| STM CRBE 03466 M00S03318.1cd +++| CRB7 RJM MGR GO TO MANAGER 03467 M00S03319.1cd +++| UJN CRB7 WAIT FOR *NOT READY* 03468 M00S03320.1cd +++| 03469 M00S03321.1cd +++|* PROCESS CARD OUT OF SEQUENCE ERROR. 03470 M00S03322.1cd +++| 03471 M00S03323.1cd +++| CRB8 RJM PCE PROCESS CARD ERROR 03472 M00S03324.1cd +++| LDM 117,DA ALIGN SEQUENCE CHECK 03473 M00S03325.1cd +++| STM CRSN 03474 M00S03326.1cd +++| LJM CRB4 RETURN TO MAIN LOOP 03475 M00S03327.1cd +++| CRL SPACE 4,10 03476 M00S03328.1cd +++|** CRL - PROCESS LITERAL INPUT. 03477 M00S03329.1cd +++|* 03478 M00S03330.1cd +++|* USES T1 - T3. 03479 M00S03331.1cd +++|* 03480 M00S03332.1cd +++|* CALLS MGR, WBB. 03481 M00S03333.1cd +++| 03482 M00S03334.1cd +++| 03483 M00S03335.1cd +++|* PHASE 2. CHECK FOR END OF LITERAL INPUT. 03484 M00S03336.1cd +++| 03485 M00S03337.1cd +++| CRL LDM 2,DA CHECK FOR EOI 03486 M00S03338.1cd +++| LMN 17 03487 M00S03339.1cd +++| NJN CRL5 IF NOT EOI 03488 M00S03340.1cd +++| LDD DA CHECK COLUMNS 2 THROUGH 79 03489 M00S03341.1cd +++| ADN 2+1 03490 M00S03342.1cd +++| STD T1 03491 M00S03343.1cd +++| ADN 47-1 03492 M00S03344.1cd +++| STD T2 03493 M00S03345.1cd +++| ADN 117-47 03494 M00S03346.1cd +++| STD T3 03495 M00S03347.1cd +++| CRL1 LDI T1 03496 M00S03348.1cd +++| NJN CRL5 IF NOT EOI CARD 03497 M00S03349.1cd +++| AOD T1 03498 M00S03350.1cd +++| LMD T2 03499 M00S03351.1cd +++| NJN CRL2 IF NOT COLUMN 40 03500 M00S03352.1cd +++| AOD T1 IGNORE COLUMN 40 03501 M00S03353.1cd +++| CRL2 LDD T1 03502 M00S03354.1cd +++| LMD T3 03503 M00S03355.1cd +++| NJN CRL1 IF MORE COLUMNS TO CHECK 03504 M00S03356.1cd +++| LDI T1 CHECK COLUMN 40 03505 M00S03357.1cd +++| NJN CRL3 IF COLUMN 80 NOT BLANK 03506 M00S03358.1cd +++| LDI T2 CHECK COLUMN 40 03507 M00S03359.1cd +++| UJN CRL4 TEST FOR COLUMN 40 NON BLANK 03508 M00S03360.1cd +++| 03509 M00S03361.1cd +++| CRL3 LMN 17 03510 M00S03362.1cd +++| CRL4 NJN CRL5 IF NOT EOI 03511 M00S03363.1cd +++| STM CRLI CLEAR LITERAL INPUT FLAG 03512 M00S03364.1cd +++| LDN 17 SET EOI INDICATOR 03513 M00S03365.1cd +++| STI DA 03514 M00S03366.1cd +++| LJM RER PROCESS EOI 03515 M00S03367.1cd +++| 03516 M00S03368.1cd +++| CRL5 LDM 2,DA CHECK FOR FORMAT CHANGE 03517 M00S03369.1cd +++| LMN 25 03518 M00S03370.1cd +++| NJN CRL7 IF NOT FORMAT CHANGE 03519 M00S03371.1cd +++| LDM 3,DA 03520 M00S03372.1cd +++| LMN 77 03521 M00S03373.1cd +++| NJN CRL8 IF NOT LITERAL INPUT FLAG 03522 M00S03374.1cd +++| STD T3 COMPUTE CHECKSUM 03523 M00S03375.1cd +++| LDD DA 03524 M00S03376.1cd +++| ADN 2 03525 M00S03377.1cd +++| STD T1 03526 M00S03378.1cd +++| ADC 120 03527 M00S03379.1cd +++| STD T2 03528 M00S03380.1cd +++| CRL6 LDD T3 03529 M00S03381.1cd +++| LMI T1 03530 M00S03382.1cd +++| SHN 1 03531 M00S03383.1cd +++| STD T3 03532 M00S03384.1cd +++| SHN -14 03533 M00S03385.1cd +++| RAD T3 03534 M00S03386.1cd +++| AOD T1 03535 M00S03387.1cd +++| LMD T2 03536 M00S03388.1cd +++| NJN CRL6 IF NOT END OF CARD 03537 M00S03389.1cd +++| LDD T3 COMPARE CHECKSUM 03538 M00S03390.1cd +++| LMM CRLC 03539 M00S03391.1cd +++| CRL7 NJN CRL8 IF NOT IDENTICAL CHECKSUM 03540 M00S03392.1cd +++| STM CRLI CLEAR LITERAL INPUT FLAG 03541 M00S03393.1cd +++| LJM CRD1 GO TO PHASE 1 03542 M00S03394.1cd +++| 03543 M00S03395.1cd +++|* PHASE 3. DUMP BUFFER. 03544 M00S03396.1cd +++| 03545 M00S03397.1cd +++| CRL8 RJM MGR GO TO MANAGER 03546 M00S03398.1cd +++| LDN 20 SET WORD COUNT 03547 M00S03399.1cd +++| STD T1 03548 M00S03400.1cd +++| 03549 M00S03401.1cd +++|* *CRL9* IS A SECONDARY ENTRY POINT FOR *CRL*. 03550 M00S03402.1cd +++| 03551 M00S03403.1cd +++| CRL9 LDD DA WRITE BINARY BUFFER 03552 M00S03404.1cd +++| ADN 2 03553 M00S03405.1cd +++| RJM WBB 03554 M00S03406.1cd +++|* LJM CRD5 GO TO PHASE 4 03555 M00S03407.1cd +++| CRD5 SPACE 4,10 03556 M00S03408.1cd +++|* *CRD5* IS A SECONDARY ENTRY POINT FOR *CRD*. 03557 M00S03409.1cd +++|* 03558 M00S03410.1cd +++|* PHASE 4. STORE IN AND UPDATE RECORD COUNT. 03559 M00S03411.1cd +++| 03560 M00S03412.1cd +++| 03561 M00S03413.1cd +++| CRD5 RJM RDB RELEASE DATA BUFFER 03562 M00S03414.1cd +++| AOM CRSN ADVANCE CARD COUNT 03563 M00S03415.1cd +++| LDN ZERL 03564 M00S03416.1cd +++| CRD CM 03565 M00S03417.1cd +++| LDD IN 03566 M00S03418.1cd +++| STD CM+3 03567 M00S03419.1cd +++| LDD IN+1 03568 M00S03420.1cd +++| STD CM+4 03569 M00S03421.1cd +++| RJM SFA SET FET ADDRESS 03570 M00S03422.1cd +++| ADN 2 03571 M00S03423.1cd +++| CWD CM 03572 M00S03424.1cd +++| LDM CRFR 03573 M00S03425.1cd +++| NJN CRD6 IF NOT FIRST CARD 03574 M00S03426.1cd +++| AOM CRFR ADVANCE FIRST RECORD FLAG 03575 M00S03427.1cd +++| CRD6 AOM CMRC+1 INCREMENT CARD COUNT 03576 M00S03428.1cd +++| SHN -14 03577 M00S03429.1cd +++| RAM CMRC 03578 M00S03430.1cd +++| LJM CRD1 LOOP TO PHASE 1 03579 M00S03431.1cd +++| CHD SPACE 4,50 03580 M00S03432.1cd +++|** CHD - CONVERT HOLLERITH DATA. 03581 M00S03433.1cd +++|* 03582 M00S03434.1cd +++|* ENTRY (DA) = (T1) = (T2) = (T3) = BUFFER ADDRESS. 03583 M00S03435.1cd +++|* (T6) = END OF DISPLAY CODE BUFFER ADDRESS. 03584 M00S03436.1cd +++|* 03585 M00S03437.1cd +++|* EXIT (T2) = ADDRESS OF LAST NON-BLANK CHARACTER PAIR. 03586 M00S03438.1cd +++|* 03587 M00S03439.1cd +++|* USES T1 - T5. 03588 M00S03440.1cd +++|* 03589 M00S03441.1cd +++|* CALLS PCE. 03590 M00S03442.1cd +++| 03591 M00S03443.1cd +++| 03592 M00S03444.1cd +++| CHD18 RJM PCE PROCESS CARD ERROR 03593 M00S03445.1cd +++| CHD19 LDN 1R SET BLANK CHARACTER 03594 M00S03446.1cd +++| CHD20 STD T4 SAVE DISPLAY CODE CHARACTER 03595 M00S03447.1cd +++| AOD T1 ADVANCE BUFFER ADDRESS 03596 M00S03448.1cd +++| SBD DA 03597 M00S03449.1cd +++| LPN 1 03598 M00S03450.1cd +++| ZJN CHD21 IF PACKING LOWER CHARACTER 03599 M00S03451.1cd +++| LDD T4 SET UPPER CHARACTER IN BYTE 03600 M00S03452.1cd +++| SHN 6 03601 M00S03453.1cd +++| STI T3 03602 M00S03454.1cd +++| UJN CHD1 PROCESS NEXT COLUMN 03603 M00S03455.1cd +++| 03604 M00S03456.1cd +++| CHD21 LDD T4 SET LOWER CHARACTER IN BYTE 03605 M00S03457.1cd +++| RAI T3 03606 M00S03458.1cd +++| LMC 2R 03607 M00S03459.1cd +++| ZJN CHD22 IF BLANK CHARACTER PAIR 03608 M00S03460.1cd +++| LDD T3 ADVANCE LAST NON-BLANK CHARACTER ADDRESS 03609 M00S03461.1cd +++| STD T2 03610 M00S03462.1cd +++| CHD22 AOD T3 ADVANCE ADDRESS FOR DISPLAY CODE 03611 M00S03463.1cd +++| LMD T6 03612 M00S03464.1cd +++| NJN CHD1 IF NOT END OF CARD IMAGE 03613 M00S03465.1cd +++| 03614 M00S03466.1cd +++| CHD SUBR ENTRY/EXIT 03615 M00S03467.1cd +++| CHD1 LDI T1 CHECK NEXT COLUMN 03616 M00S03468.1cd +++| ZJN CHD19 IF BLANK CHARACTER 03617 M00S03469.1cd +++| 03618 M00S03470.1cd +++|* EVALUATE 1, 8, AND 9 PUNCHES. 03619 M00S03471.1cd +++| 03620 M00S03472.1cd +++| LPC 403 03621 M00S03473.1cd +++| ZJN CHD5 IF NO 1, 8, OR 9 PUNCH 03622 M00S03474.1cd +++| SBN 1 03623 M00S03475.1cd +++| ZJN CHD2 IF 9 PUNCH ONLY 03624 M00S03476.1cd +++| SBN 1 03625 M00S03477.1cd +++| ZJN CHD4 IF 8 PUNCH 03626 M00S03478.1cd +++| ADC -376 03627 M00S03479.1cd +++| NJN CHD3 IF COMBINED PUNCHES (ILLEGAL) 03628 M00S03480.1cd +++| LCN 8D 03629 M00S03481.1cd +++| CHD2 ADN 9D SET VALUE FOR 9 PUNCH 03630 M00S03482.1cd +++| STD T5 03631 M00S03483.1cd +++| LDI T1 CHECK FOR PUNCHES 2 THROUGH 8 03632 M00S03484.1cd +++| LPC 376 03633 M00S03485.1cd +++| ZJN CHD12 IF NO PUNCHES 2 THROUGH 8 03634 M00S03486.1cd +++| CHD3 LJM CHD18 CONVERT ILLEGAL COMBINATION TO BLANK 03635 M00S03487.1cd +++| 03636 M00S03488.1cd +++| CHD4 LDN 8D SET VALUE FOR 8 PUNCH 03637 M00S03489.1cd +++| CHD5 STD T5 03638 M00S03490.1cd +++| 03639 M00S03491.1cd +++|* EVALUATE PUNCHES 2 THROUGH 7. 03640 M00S03492.1cd +++| 03641 M00S03493.1cd +++| LDI T1 03642 M00S03494.1cd +++| SHN -2 03643 M00S03495.1cd +++| LPN 77 03644 M00S03496.1cd +++| ZJN CHD12 IF NO PUNCHES 2 THROUGH 7 03645 M00S03497.1cd +++| SBN 1 03646 M00S03498.1cd +++| ZJN CHD7 IF 7 PUNCH ONLY 03647 M00S03499.1cd +++| SBN 1 03648 M00S03500.1cd +++| ZJN CHD8 IF 6 PUNCH ONLY 03649 M00S03501.1cd +++| SBN 2 03650 M00S03502.1cd +++| ZJN CHD9 IF 5 PUNCH ONLY 03651 M00S03503.1cd +++| SBN 4 03652 M00S03504.1cd +++| ZJN CHD10 IF 4 PUNCH ONLY 03653 M00S03505.1cd +++| SBN 10 03654 M00S03506.1cd +++| ZJN CHD11 IF 3 PUNCH ONLY 03655 M00S03507.1cd +++| CHD6 SBN 20 03656 M00S03508.1cd +++| NJN CHD3 IF ILLEGAL PUNCH COMBINATION 03657 M00S03509.1cd +++| LCN 7-2 PRESET 2 PUNCH CONVERSION 03658 M00S03510.1cd +++| CHD7 ADN 1 03659 M00S03511.1cd +++| CHD8 ADN 1 03660 M00S03512.1cd +++| CHD9 ADN 1 03661 M00S03513.1cd +++| CHD10 ADN 1 03662 M00S03514.1cd +++| CHD11 ADN 3 03663 M00S03515.1cd +++| RAD T5 03664 M00S03516.1cd +++| 03665 M00S03517.1cd +++|* EVALUATE ZONE PUNCHES. 03666 M00S03518.1cd +++| 03667 M00S03519.1cd +++| CHD12 LDI T1 ISOLATE ZONE PUNCHES 03668 M00S03520.1cd +++| SHN -9D 03669 M00S03521.1cd +++| SBN 6 03670 M00S03522.1cd +++| PJN CHD6 IF ILLEGAL COMBINATION 03671 M00S03523.1cd +++| ADN 1 03672 M00S03524.1cd +++| ZJN CHD15 IF + 0 COMBINATION 03673 M00S03525.1cd +++| ADN 1 03674 M00S03526.1cd +++| ZJN CHD13 IF + PUNCH ONLY 03675 M00S03527.1cd +++| ADN 1 03676 M00S03528.1cd +++| ZJN CHD17 IF - 0 COMBINATION 03677 M00S03529.1cd +++| CHD13 ADN 3 03678 M00S03530.1cd +++| SHN 4 03679 M00S03531.1cd +++| CHD14 RAD T5 03680 M00S03532.1cd +++| LDM CTBL,T5 CONVERT CHARACTER 03681 M00S03533.1cd +++| LJM CHD20 ASSEMBLE CARD IMAGE IN DISPLAY CODE 03682 M00S03534.1cd +++| 03683 M00S03535.1cd +++| CHD15 LDD T5 03684 M00S03536.1cd +++| CHD16 NJN CHD6 IF ILLEGAL PUNCH COMBINATION 03685 M00S03537.1cd +++| LDN 72 03686 M00S03538.1cd +++| UJN CHD14 ASSEMBLE CARD IMAGE 03687 M00S03539.1cd +++| 03688 M00S03540.1cd +++| CHD17 LDD T5 03689 M00S03541.1cd +++| NJN CHD16 IF ILLEGAL PUNCH COMBINATION 03690 M00S03542.1cd +++| LDN 52 03691 M00S03543.1cd +++| UJN CHD14 ASSEMBLE CARD IMAGE 03692 M00S03544.1cd +++| CKM SPACE 4,10 03693 M00S03545.1cd +++|** CKM - CHECK KEYPUNCH MODE CHANGE. 03694 M00S03546.1cd +++|* 03695 M00S03547.1cd +++|* ENTRY (DA) = BUFFER ADDRESS OF CARD TO BE CHECKED. 03696 M00S03548.1cd +++|* 03697 M00S03549.1cd +++|* EXIT (CMCT) = NEW CONVERSION TABLE INDEX. 03698 M00S03550.1cd +++| 03699 M00S03551.1cd +++| 03700 M00S03552.1cd +++| CKM SUBR ENTRY/EXIT 03701 M00S03553.1cd +++| LDM 116,DA EXAMINE COLUMN 79 03702 M00S03554.1cd +++| LMC 200 03703 M00S03555.1cd +++| NJN CKMX IF NOT *2* 03704 M00S03556.1cd +++| LDM 117,DA EXAMINE COLUMN 80 03705 M00S03557.1cd +++| LMN 10 03706 M00S03558.1cd +++| ZJN CKM1 IF *6* 03707 M00S03559.1cd +++| LMN 1&10 03708 M00S03560.1cd +++| NJN CKMX IF NOT *9* 03709 M00S03561.1cd +++| LDN C9XD&C6XD USE O29 CONVERSION TABLE INDEX 03710 M00S03562.1cd +++| CKM1 LMN C6XD USE O26 CONVERSION TABLE INDEX 03711 M00S03563.1cd +++| STM CMCT 03712 M00S03564.1cd +++| UJN CKMX RETURN 03713 M00S03565.1cd +++| CRE SPACE 4,10 03714 M00S03566.1cd +++|** CRE - NOT READY PROCESSOR. 03715 M00S03567.1cd +++|* 03716 M00S03568.1cd +++|* ENTRY (A) = EQUIPMENT STATUS FOLLOWING CONNECT. 03717 M00S03569.1cd +++|* 03718 M00S03570.1cd +++|* EXIT TO *PSE*. 03719 M00S03571.1cd +++|* 03720 M00S03572.1cd +++|* CALLS MSG. 03721 M00S03573.1cd +++| 03722 M00S03574.1cd +++| 03723 M00S03575.1cd +++| CRE1 LDN ENRD *NOT READY* 03724 M00S03576.1cd +++| CRE2 RJM MSG 03725 M00S03577.1cd +++| LDM CRBE 03726 M00S03578.1cd +++| ZJN CRE3 IF ERROR FLAG NOT SET 03727 M00S03579.1cd +++| LDC CRD2 03728 M00S03580.1cd +++| STM CMPA SET PHASE 1 03729 M00S03581.1cd +++| CRE3 LJM PSE RETURN 03730 M00S03582.1cd +++| 03731 M00S03583.1cd +++| CRE SHN 21-12 03732 M00S03584.1cd +++| PJN CRE1 IF NO COMPARE ERROR 03733 M00S03585.1cd +++| LDN ERCA *RE-RD 1 CD. COMPARE ERROR.* 03734 M00S03586.1cd +++| UJN CRE2 SET BUFFER POINT MESSAGE 03735 M00S03587.1cd +++| CRF SPACE 4,10 03736 M00S03588.1cd +++|** CRF - PROCESS SPECIAL FORM. 03737 M00S03589.1cd +++|* 03738 M00S03590.1cd +++|* USES T1 - T3. 03739 M00S03591.1cd +++| 03740 M00S03592.1cd +++| 03741 M00S03593.1cd +++| CRF LDI DA CHECK FIRST WORD 03742 M00S03594.1cd +++| LMN 25 03743 M00S03595.1cd +++| ZJN CRF1 IF CONVERSION CHANGE 03744 M00S03596.1cd +++| LJM RER PROCESS END OF RECORD 03745 M00S03597.1cd +++| 03746 M00S03598.1cd +++| CRF1 LDM 1,DA CHECK FORMAT REQUEST 03747 M00S03599.1cd +++| ZJN CRF2 IF O26 CONVERSION 03748 M00S03600.1cd +++| LMN 1 03749 M00S03601.1cd +++| NJN CRF4 IF NOT O29 03750 M00S03602.1cd +++| LDN C9XD&C6XD 03751 M00S03603.1cd +++| CRF2 LMN C6XD SET CONVERSION MODE 03752 M00S03604.1cd +++| STM CMCT 03753 M00S03605.1cd +++| CRF3 LJM CRD1 GO TO PHASE 1 03754 M00S03606.1cd +++| 03755 M00S03607.1cd +++| CRF4 LMN 77&1 03756 M00S03608.1cd +++| NJN CRF3 IF UNKNOWN CONVERSION 03757 M00S03609.1cd +++| STD T3 03758 M00S03610.1cd +++| LDN 2 SET LITERAL INPUT FLAG 03759 M00S03611.1cd +++| STM CRLI 03760 M00S03612.1cd +++| LDD DA 03761 M00S03613.1cd +++| STD T1 03762 M00S03614.1cd +++| ADC 120 COMPUTE CHECKSUM 03763 M00S03615.1cd +++| STD T2 03764 M00S03616.1cd +++| CRF5 LDD T3 03765 M00S03617.1cd +++| LMI T1 03766 M00S03618.1cd +++| SHN 1 03767 M00S03619.1cd +++| STD T3 03768 M00S03620.1cd +++| SHN -14 03769 M00S03621.1cd +++| RAD T3 03770 M00S03622.1cd +++| AOD T1 03771 M00S03623.1cd +++| LMD T2 03772 M00S03624.1cd +++| NJN CRF5 IF NOT END OF CARD 03773 M00S03625.1cd +++| LDD T3 03774 M00S03626.1cd +++| STM CRLC STORE CHECKSUM 03775 M00S03627.1cd +++| UJN CRF3 GO TO PHASE 1 03776 M00S03628.1cd +++| EBF SPACE 4,10 03777 M00S03629.1cd +++|** EBF - EMPTY BUFFER. 03778 M00S03630.1cd +++|* 03779 M00S03631.1cd +++|* EXIT TO *XDR1* IF CHANNEL HANGS EMPTY. 03780 M00S03632.1cd +++|* 03781 M00S03633.1cd +++|* USES FC, T3. 03782 M00S03634.1cd +++|* 03783 M00S03635.1cd +++|* CALLS IFN, SDM. 03784 M00S03636.1cd +++| 03785 M00S03637.1cd +++| 03786 M00S03638.1cd +++| EBF2 IAN CH+40 INITIATE BUFFER FLUSH 03787 M00S03639.1cd +++| DCN CH+40 03788 M00S03640.1cd +++| CFM EBFX,CH IF CHANNEL ERROR FLAG CLEAR 03789 M00S03641.1cd +++| LDN 0 03790 M00S03642.1cd +++| STD T3 03791 M00S03643.1cd +++| LDD T5 SAVE FUNCTION CODE FOR ERROR MESSAGE 03792 M00S03644.1cd +++| STD FC 03793 M00S03645.1cd +++| LDK ECRE *EQXXX CHANNEL PARITY ERROR.* 03794 M00S03646.1cd +++| RJM SDM SEND DAYFILE MESSAGE 03795 M00S03647.1cd +++| 03796 M00S03648.1cd +++| EBF SUBR ENTRY/EXIT 03797 M00S03649.1cd +++| LDN 14 INPUT TO EOR 03798 M00S03650.1cd +++| RJM IFN ISSUE FUNCTION 03799 M00S03651.1cd +++| LDN 77 DELAY FOR BYTE TRANSMISSION FROM READER 03800 M00S03652.1cd +++| EBF1 FJM EBF2,CH IF CHANNEL NOT HUNG EMPTY 03801 M00S03653.1cd +++| SBN 1 03802 M00S03654.1cd +++| NJN EBF1 IF DELAY NOT EXCEEDED 03803 M00S03655.1cd +++| DCN CH+40 03804 M00S03656.1cd +++| LDN ERRL-1 FORCE EQUIPMENT TURN OFF 03805 M00S03657.1cd +++| STM CMDR 03806 M00S03658.1cd +++| LDC 120 SET BYTES REMAINING COUNT 03807 M00S03659.1cd +++| LJM XDR1 PROCESS INCOMPLETE TRANSFER ERROR 03808 M00S03660.1cd +++| PCE SPACE 4,15 03809 M00S03661.1cd +++|** PCE - PROCESS CARD ERROR. 03810 M00S03662.1cd +++|* 03811 M00S03663.1cd +++|* ENTRY (T3) = 0 IF BINARY CARD SEQUENCE ERROR. 03812 M00S03664.1cd +++|* .NE. 0 IF ILLEGAL HOLLERITH PUNCH DETECTED. 03813 M00S03665.1cd +++|* (BA - BA+1) = ABSOLUTE FET ADDRESS. 03814 M00S03666.1cd +++|* (FP - FP+4) = FILE PARAMETER WORD (FET+5). 03815 M00S03667.1cd +++|* 03816 M00S03668.1cd +++|* EXIT ERROR STATUS STORED IN (FET+5). 03817 M00S03669.1cd +++|* 03818 M00S03670.1cd +++|* USES FP+1 - FP+2. 03819 M00S03671.1cd +++|* 03820 M00S03672.1cd +++|* CALLS SFA. 03821 M00S03673.1cd +++| 03822 M00S03674.1cd +++| 03823 M00S03675.1cd +++| PCE SUBR ENTRY/EXIT 03824 M00S03676.1cd +++| LDD FP+1 03825 M00S03677.1cd +++| NJN PCEX IF PREVIOUS ERROR 03826 M00S03678.1cd +++| LDM CRSN SET CARD NUMBER 03827 M00S03679.1cd +++| STD FP+1 03828 M00S03680.1cd +++| LDD T3 03829 M00S03681.1cd +++| ZJN PCE1 IF BINARY CARD ERROR 03830 M00S03682.1cd +++| LDC 4000 FLAG ILLEGAL HOLLERITH CODE 03831 M00S03683.1cd +++| PCE1 LMM CRRC SET RECORD NUMBER 03832 M00S03684.1cd +++| STD FP+2 03833 M00S03685.1cd +++| RJM SFA STORE FILE PARAMETER WORD 03834 M00S03686.1cd +++| ADN 5 03835 M00S03687.1cd +++| CWD FP 03836 M00S03688.1cd +++| UJN PCEX RETURN 03837 M00S03689.1cd +++| RER SPACE 4,10 03838 M00S03690.1cd +++|** RER - PROCESS END OF RECORD. 03839 M00S03691.1cd +++|* 03840 M00S03692.1cd +++|* USES BS+4, T2. 03841 M00S03693.1cd +++|* 03842 M00S03694.1cd +++|* CALLS ACT, CKM, CLB, CON, CPS, MGR, RDB, SFA. 03843 M00S03695.1cd +++| 03844 M00S03696.1cd +++| 03845 M00S03697.1cd +++| RER LDM CRFR 03846 M00S03698.1cd +++| NJN RER1 IF NOT FIRST CARD 03847 M00S03699.1cd +++| LJM RER6 SKIP EMPTY FILE 03848 M00S03700.1cd +++| 03849 M00S03701.1cd +++| RER1 LDI DA REQUEST WRITE 03850 M00S03702.1cd +++| LPN 10 03851 M00S03703.1cd +++| LMC WRIF+1000 03852 M00S03704.1cd +++| STD T2 03853 M00S03705.1cd +++| LDD FA 03854 M00S03706.1cd +++| ZJN RER2 IF FIRST WRITE 03855 M00S03707.1cd +++| LDC WRIF+1000&24 03856 M00S03708.1cd +++| RER2 LMD T2 SET REQUEST 03857 M00S03709.1cd +++| RJM CPS 03858 M00S03710.1cd +++| RER3 RJM MGR GO TO MANAGER 03859 M00S03711.1cd +++| ZJN RER1 IF REQUEST NOT ENTERED 03860 M00S03712.1cd +++| LDD BS+4 CHECK OPERATION 03861 M00S03713.1cd +++| LPN 21 03862 M00S03714.1cd +++| LMN 21 03863 M00S03715.1cd +++| NJN RER3 IF REQUEST NOT COMPLETE 03864 M00S03716.1cd +++| LDI DA CHECK CARD 03865 M00S03717.1cd +++| LPN 37 03866 M00S03718.1cd +++| LMN 17 03867 M00S03719.1cd +++| ZJN RER4 IF EOI 03868 M00S03720.1cd +++| RJM CKM CHECK KEYPUNCH MODE 03869 M00S03721.1cd +++| AOM CRRC BUMP LOGICAL RECORD COUNT 03870 M00S03722.1cd +++| LDN 1 03871 M00S03723.1cd +++| STM CRSN RESET SEQUENCE ERROR COMPARITIVE NUMBER 03872 M00S03724.1cd +++| STD BS+4 CLEAR LAST OPERATION 03873 M00S03725.1cd +++| RJM SFA 03874 M00S03726.1cd +++| CWD BS 03875 M00S03727.1cd +++| LJM CRD1 LOOP TO PHASE 1 03876 M00S03728.1cd +++| 03877 M00S03729.1cd +++|* PROCESS EOI. 03878 M00S03730.1cd +++| 03879 M00S03731.1cd +++| RER4 RJM ACT PROCESS ACCOUNTING 03880 M00S03732.1cd +++| RER5 RJM MGR GO TO MANAGER 03881 M00S03733.1cd +++| ZJN RER4 IF REQUEST NOT ENTERED 03882 M00S03734.1cd +++| LDD BS+4 WAIT ACCOUNTING COMPLETE 03883 M00S03735.1cd +++| LMC 1031 03884 M00S03736.1cd +++| NJN RER5 IF ACCOUNTING NOT COMPLETE 03885 M00S03737.1cd +++| RER6 RJM RDB RELEASE DATA BUFFER 03886 M00S03738.1cd +++| LDC * SET RETURN FROM *WNB* 03887 M00S03739.1cd +++| STM CMPA 03888 M00S03740.1cd +++| RJM CON CONNECT EQUIPMENT 03889 M00S03741.1cd +++| NJN RER7 IF CONNECT REJECT 03890 M00S03742.1cd +++| LDD ST 03891 M00S03743.1cd +++| LPN 1 03892 M00S03744.1cd +++| ZJN RER7 IF NOT READY 03893 M00S03745.1cd +++| RJM CLB 03894 M00S03746.1cd +++| LJM MGR1 RETURN TO DRIVER VIA MANAGER 03895 M00S03747.1cd +++| 03896 M00S03748.1cd +++| RER7 LDN 0 DROP EQUIPMENT 03897 M00S03749.1cd +++| LJM TOP1 TERMINATE OPERATION 03898 M00S03750.1cd +++| TITLE DRIVER SUBROUTINES. 03899 M00S03751.1cd +++| CON SPACE 4,15 03900 M00S03752.1cd +++|** CON - CONNECT EQUIPMENT. 03901 M00S03753.1cd +++|* 03902 M00S03754.1cd +++|* EXIT (A) .NE. 0 IF FUNCTION REJECT. 03903 M00S03755.1cd +++|* (FC) = CONNECT CODE. 03904 M00S03756.1cd +++|* (ST) = EQUIPMENT STATUS. 03905 M00S03757.1cd +++|* EXITS TO *FCN2* IF FUNCTION TIMEOUT. 03906 M00S03758.1cd +++|* 03907 M00S03759.1cd +++|* USES FC, ST, T1 - T3. 03908 M00S03760.1cd +++|* 03909 M00S03761.1cd +++|* CALLS CCE, FCN, IFN, STS, WNB. 03910 M00S03762.1cd +++|* 03911 M00S03763.1cd +++|* MACROS DCHAN, RCHAN. 03912 M00S03764.1cd +++| 03913 M00S03765.1cd +++| 03914 M00S03766.1cd +++| CON SUBR ENTRY/EXIT 03915 M00S03767.1cd +++| LDM CMCE CHECK CHANNEL 03916 M00S03768.1cd +++| LPN 77 03917 M00S03769.1cd +++| STD T3 03918 M00S03770.1cd +++| CHTE * 03919 M00S03771.1cd +++| LMN CH 03920 M00S03772.1cd +++| ZJN CON3 IF CORRECT CHANNEL 03921 M00S03773.1cd +++| LDC TCHS-1 03922 M00S03774.1cd +++| STD T1 03923 M00S03775.1cd +++| LDD CR RELEASE LAST CHANNEL 03924 M00S03776.1cd +++| DCHAN 03925 M00S03777.1cd +++| CHTE CR 03926 M00S03778.1cd +++|* LDN 0 03927 M00S03779.1cd +++| CON1 RAI T2 MODIFY NEXT CHANNEL 03928 M00S03780.1cd +++| AOD T1 03929 M00S03781.1cd +++| CON2 LDI T1 03930 M00S03782.1cd +++| STD T2 03931 M00S03783.1cd +++| LDD T3 03932 M00S03784.1cd +++| CHTL * 03933 M00S03785.1cd +++| SBN CH 03934 M00S03786.1cd +++| NJN CON1 IF MORE CHANNELS TO MODIFY 03935 M00S03787.1cd +++| LDD CR RESERVE NEW CHANNEL 03936 M00S03788.1cd +++| RCHAN 03937 M00S03789.1cd +++| CON3 LDN 10 SELECT MODE II CONNECT 03938 M00S03790.1cd +++| RJM IFN ISSUE FUNCTION 03939 M00S03791.1cd +++| LDM CMCE OUTPUT CONNECT CODE 03940 M00S03792.1cd +++| SCN 77 03941 M00S03793.1cd +++| OAN CH+40 03942 M00S03794.1cd +++| STD FC SAVE CONNECT CODE FOR *REJECT* MESSAGE 03943 M00S03795.1cd +++| LDC 100D TIMEOUT CONVERTER 03944 M00S03796.1cd +++| CONA EQU *-1 03945 M00S03797.1cd +++|* LDC 200D (2X PP) 03946 M00S03798.1cd +++|* LDC 400D (4X PP) 03947 M00S03799.1cd +++| 03948 M00S03800.1cd +++| CON4 EJM CON5,CH IF FUNCTION ACCEPT / CONVERTER REJECT 03949 M00S03801.1cd +++| SBN 4 03950 M00S03802.1cd +++| PJN CON4 IF NOT TIMED OUT 03951 M00S03803.1cd +++| LJM FCN2 PROCESS FUNCTION TIMEOUT 03952 M00S03804.1cd +++| 03953 M00S03805.1cd +++| CON5 DCN CH+40 03954 M00S03806.1cd +++| CON6 LDN 13 SELECT EQUIPMENT STATUS 03955 M00S03807.1cd +++| RJM IFN ISSUE FUNCTION 03956 M00S03808.1cd +++| IAN CH+40 03957 M00S03809.1cd +++| DCN CH+40 03958 M00S03810.1cd +++| STD ST STORE EQUIPMENT STATUS 03959 M00S03811.1cd +++| LDN SCEI STATUS PARITY ERROR 03960 M00S03812.1cd +++| RJM CCE CHECK FOR CHANNEL ERROR 03961 M00S03813.1cd +++| NJN CON6 IF ERROR 03962 M00S03814.1cd +++| RJM STS GET CONVERTER STATUS 03963 M00S03815.1cd +++| NJN CON9 IF ERROR 03964 M00S03816.1cd +++| LDD EQ 03965 M00S03817.1cd +++| SBK LPDT 03966 M00S03818.1cd +++| ZJN CON7 IF PRINTER 03967 M00S03819.1cd +++| RJM WNB 03968 M00S03820.1cd +++| CON7 LDN 24 SELECT ABNORMAL *EOP* INTERRUPT 03969 M00S03821.1cd +++| RJM FCN 03970 M00S03822.1cd +++| CON8 LDD CS RETURN WITH STATUS 03971 M00S03823.1cd +++| LPN 7 03972 M00S03824.1cd +++| CON9 LJM CONX RETURN 03973 M00S03825.1cd +++| FCN SPACE 4,15 03974 M00S03826.1cd +++|** FCN - OUTPUT FUNCTION TO EQUIPMENT. 03975 M00S03827.1cd +++|* 03976 M00S03828.1cd +++|* ENTRY (A) = FUNCTION CODE. 03977 M00S03829.1cd +++|* 03978 M00S03830.1cd +++|* EXIT (FC) = FUNCTION CODE.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1cd.001.txt · Last modified: by 127.0.0.1