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.