cdc:nos2.source:opl.opl871:deck:1cl
Deck 1CL
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1cl +++| IDENT 1CL,ALC 00002 M00S00002.1cl +++| PERIPH 00003 M00S00003.1cl +++| BASE MIXED 00004 M00S00004.1cl +++| SST 00005 M00S00005.1cl +++| SYSCOM 00006 M00S00006.1cl +++|*COMMENT 1CL - CPP FIRMWARE LOADER.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1986.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.1cl +++| TITLE 1CL - CPP FIRMWARE LOADER. 00010 M00S00009.1cl +++| SPACE 4 00011 M00S00010.1cl +++|*** 1CL - CPP FIRMWARE LOADER. 00012 M00S00011.1cl +++|* 00013 M00S00012.1cl +++|* S. L. BETH. 86/07/25. 00014 M00S00013.1cl +++| SPACE 4 00015 M00S00014.1cl +++|*** 1CL IS LOADED INTO A CPP BY *BCL* TO LOAD FIRMWARE TO 00016 M00S00015.1cl +++|* CPP CONTROLLERS. 1CL THEN LOADS THE FIRMWARE FROM THE CM 00017 M00S00016.1cl +++|* BUFFER THAT *BCL* HAS SET UP. 00018 M00S00017.1cl +++| SPACE 4 00019 M00S00018.1cl +++|*** CALL. 00020 M00S00019.1cl +++|* 00021 M00S00020.1cl +++|* 00022 M00S00021.1cl +++|*T IR 18/ *1CL*,1/,5/ CP,36/
Figure IR
00023 M00S00022.1cl +++|*T MB 12/ CH,12/ RL,12/ DSTO,24/ CMA
Figure MB
00024 M00S00023.1cl +++|* 00025 M00S00024.1cl +++|* CH CHANNEL TO AUTOLOAD. 00026 M00S00025.1cl +++|* RL FIRMWARE RECORD LENGTH. 00027 M00S00026.1cl +++|* DSTO DEADSTART OPTIONS. 00028 M00S00027.1cl +++|* CMA CM ADDRESS OF FIRMWARE RECORD. 00029 M00S00028.1cl +++|* 00030 M00S00029.1cl +++|* MB = 12/7777,48/0 WHEN LOAD COMPLETE. 00031 M00S00030.1cl +++| SPACE 4 00032 M00S00031.1cl +++|*** OPERATOR MESSAGES. 00033 M00S00032.1cl +++|* 00034 M00S00033.1cl +++|* LINE 2 OF DEADSTART CONTROL POINT - 00035 M00S00034.1cl +++|* 00036 M00S00035.1cl +++|* *TO CONTROLLER.* = THE FIRMWARE RECORD LISTED IN THE LINE 1 00037 M00S00036.1cl +++|* MESSAGE AT THE DEADSTART CONTROL POINT IS BEING AUTOLOADED TO 00038 M00S00037.1cl +++|* THE CHANNEL AND EQUIPMENT TYPE LISTED IN THE LINE 1 MESSAGE. 00039 M00S00038.1cl +++|* IF THE DEADSTART STOPS WITH THIS MESSAGE AND THE LINE 1 00040 M00S00039.1cl +++|* MESSAGE LISTED ABOVE DISPLAYED, A CONTROLLER OR CHANNEL 00041 M00S00040.1cl +++|* MALFUNCTION OR INCORRECT EQPDECK EQUIPMENT DEFINITION HAS 00042 M00S00041.1cl +++|* CAUSED THE AUTOLOAD PROGRAM TO HANG. 00043 M00S00042.1cl +++|* 00044 M00S00043.1cl +++|* *AUTOLOAD FAILURE, STXXXX.* = FOLLOWING THE AUTOLOADING OF 00045 M00S00044.1cl +++|* THE RECORD LISTED IN THE LINE 1 MESSAGE AT THE DEADSTART 00046 M00S00045.1cl +++|* CONTROL POINT TO THE CHANNEL AND EQUIPMENT TYPE LISTED IN THE 00047 M00S00046.1cl +++|* LINE 1 MESSAGE, CONTROLLER STATUS (STXXXX) INDICATED THAT A 00048 M00S00047.1cl +++|* CHANNEL PARITY ERROR OR FIRMWARE CHECKSUM ERROR OCCURED FOR 00049 M00S00048.1cl +++|* THE AUTOLOAD. A STATUS OF *ST0000* INDICATES THAT THE 00050 M00S00049.1cl +++|* CHANNEL WAS DISCONNECTED WITHOUT STATUS BEING SENT. WHEN 00051 M00S00050.1cl +++|* THIS MESSAGE IS DISPLAYED, DEADSTART STOPS UNTIL THE *GO* 00052 M00S00051.1cl +++|* COMMAND IS ENTERED BY THE OPERATOR. WHEN THE *GO* 00053 M00S00052.1cl +++|* COMMAND IS ENTERED, THE AUTOLOAD IS RETRIED. IF SEVERAL 00054 M00S00053.1cl +++|* RETRIES CONTINUE TO PRODUCE THIS MESSAGE AND THE LINE 1 00055 M00S00054.1cl +++|* MESSAGE LISTED ABOVE, A SOLID HARDWARE FAILURE OR BAD 00056 M00S00055.1cl +++|* FIRMWARE RECORD ON THE DEADSTART TAPE IS INDICATED. 00057 M00S00056.1cl +++|* 00058 M00S00057.1cl +++|* * FUNCTION XXXX TIMEOUT.* = FUNCTION XXXX WAS NOT 00059 M00S00058.1cl +++|* ACCEPTED BY THE CONTROLLER, NOTIFY THE SITE CE. 00060 M00S00059.1cl +++| SPACE 4 00061 M00S00060.1cl +++|*CALL COMPMAC 00062 M00S00061.1cl +++|*CALL COMSDSL 00063 M00S00062.1cl +++|*CALL COMSPIM 00064 M00S00063.1cl +++|*CALL COMPCHM 00065 M00S00064.1cl +++| 00066 M00S00065.1cl +++| OPMESS SPACE 4,10 00067 M00S00066.1cl +++|** OPMESS - SEND OPERATOR MESSAGE. 00068 M00S00067.1cl +++|* 00069 M00S00068.1cl +++|* OPMESS MADD,LINE 00070 M00S00069.1cl +++|* 00071 M00S00070.1cl +++|* MADD = ADDRESS OF MESSAGE. 00072 M00S00071.1cl +++|* LINE = 1 FOR A LINE ONE MESSAGE. 00073 M00S00072.1cl +++|* = 2 FOR A LINE TWO MESSAGE. 00074 M00S00073.1cl +++| 00075 M00S00074.1cl +++| 00076 M00S00075.1cl +++| OPMESS MACRO MADD,LINE 00077 M00S00076.1cl +++| LDC 200*DSCP+MS_LINE_W 00078 M00S00077.1cl +++| CWM MADD,TR 00079 M00S00078.1cl +++| ENDM 00080 M00S00079.1cl +++| SPACE 4 00081 M00S00080.1cl +++|**** DIRECT LOCATION ASSIGNMENTS. 00082 M00S00081.1cl +++| 00083 M00S00082.1cl +++| 00084 M00S00083.1cl +++| CN EQU 20 - 24 CM WORD BUFFER (5 LOCATIONS) 00085 M00S00084.1cl +++| FN EQU 30 - 34 CM WORD BUFFER (5 LOCATIONS) 00086 M00S00085.1cl +++| NC EQU 35 NUMBER OF CONTROL POINTS 00087 M00S00086.1cl +++| TP EQU 43 TEMP 00088 M00S00087.1cl +++| RL EQU 44 RECORD LENGTH 00089 M00S00088.1cl +++| DS EQU 45 DEADSTART OPTIONS 00090 M00S00089.1cl +++| CA EQU 46 - 47 CURRENT CENTRAL ADDRESS (2 LOCATIONS) 00091 M00S00090.1cl +++|**** 00092 M00S00091.1cl +++| SPACE 4 00093 M00S00092.1cl +++|* ASSEMBLY CONSTANTS. 00094 M00S00093.1cl +++| 00095 M00S00094.1cl +++| 00096 M00S00095.1cl +++| BUF EQU TPBA TAPE BLOCK BUFFER 00097 M00S00096.1cl +++| FWBF EQU BUF FIRMWARE BUFFER 00098 M00S00097.1cl +++| FWBFL EQU 1000 FIRMWARE BUFFER LENGTH (CM WORDS) 00099 M00S00098.1cl +++| FCCN EQU 0 CONNECT FUNCTION 00100 M00S00099.1cl +++| FCOC EQU 10 OPERATION COMPLETE FUNCTION CODE 00101 M00S00100.1cl +++| FCGR EQU 11 GRENADE FUNCTION CODE 00102 M00S00101.1cl +++| FCGS EQU 12 GENERAL STATUS FUNCTION CODE 00103 M00S00102.1cl +++| FCLC EQU 71 LOAD CONTROL MODULE CONTROLWARE FROM PP 00104 M00S00103.1cl +++| FCAL EQU 414 AUTOLOAD FUNCTION CODE 00105 M00S00104.1cl +++| TITLE MAIN PROGRAM. 00106 M00S00105.1cl +++| 1CL SPACE 4 00107 M00S00106.1cl +++|** 1CL - MAIN PROGRAM. 00108 M00S00107.1cl +++| 00109 M00S00108.1cl +++| 00110 M00S00109.1cl +++| ORG PPFW 00111 M00S00110.1cl +++| 00112 M00S00111.1cl +++| ALC SPACE 4,20 00113 M00S00112.1cl +++|** ALC - AUTOLOAD CONTROLLER. 00114 M00S00113.1cl +++|* 00115 M00S00114.1cl +++|* EXIT CONTROLLER AUTOLOADED WITH FIRMWARE. 00116 M00S00115.1cl +++|* CONTROLLER GRENADED IF DEADSTART OPTION SPECIFIED. 00117 M00S00116.1cl +++|* WAITS FOR OPERATOR GO IF AN AUTOLOAD FAILURE OCCURS. 00118 M00S00117.1cl +++|* 00119 M00S00118.1cl +++|* CALLS C2D, FCN, MCI, OFR, PRS, STS, WOG. 00120 M00S00119.1cl +++|* 00121 M00S00120.1cl +++|* MACROS DCHAN, OPMESS, RCHAN. 00122 M00S00121.1cl +++| 00123 M00S00122.1cl +++| 00124 M00S00123.1cl +++| ALC RJM PRS PRESET PROGRAM 00125 M00S00124.1cl +++| RJM MCI MODIFY CHANNEL INSTRUCTIONS 00126 M00S00125.1cl +++| LDD T4 RESERVE CHANNEL 00127 M00S00126.1cl +++| RCHAN 00128 M00S00127.1cl +++| DCN CH INSURE CORRECT CHANNEL STATE 00129 M00S00128.1cl +++| ALC1 OPMESS MSGA,2 00130 M00S00129.1cl +++| LDC 1S15 MASTER CLEAR THE CHANNEL ADAPTOR 00131 M00S00130.1cl +++| RJM FCN 00132 M00S00131.1cl +++| LDC FCAL ISSUE AUTOLOAD FUNCTION 00133 M00S00132.1cl +++| RJM FCN 00134 M00S00133.1cl +++| RJM OFR LOAD CONTROLWARE 00135 M00S00134.1cl +++| RJM STS 00136 M00S00135.1cl +++| ZJN ALC2 IF AUTOLOAD SUCCESSFUL 00137 M00S00136.1cl +++| SHN -6 PUT STATUS IN MESSAGE 00138 M00S00137.1cl +++| RJM C2D 00139 M00S00138.1cl +++| STM MSGB+12 00140 M00S00139.1cl +++| LDD FN 00141 M00S00140.1cl +++| RJM C2D 00142 M00S00141.1cl +++| STM MSGB+13 00143 M00S00142.1cl +++| LDC MSGB DISPLAY AUTOLOAD FAILURE MESSAGE 00144 M00S00143.1cl +++| RJM WOG 00145 M00S00144.1cl +++| UJN ALC1 RETRY AUTOLOAD 00146 M00S00145.1cl +++| 00147 M00S00146.1cl +++| ALC2 LDD DS CHECK DEADSTART OPTIONS 00148 M00S00147.1cl +++| LPN 1 00149 M00S00148.1cl +++| ZJN ALC3 IF *GRENADE* NOT SPECIFIED 00150 M00S00149.1cl +++| LDN FCGR ISSUE GRENADE FUNCTION 00151 M00S00150.1cl +++| RJM FCN 00152 M00S00151.1cl +++| ALC3 LDN FCOC ISSUE OPERATION COMPLETE 00153 M00S00152.1cl +++| RJM FCN 00154 M00S00153.1cl +++| LDD T4 RELEASE CHANNEL 00155 M00S00154.1cl +++| DCHAN 00156 M00S00155.1cl +++| LCN 0 SET LOAD COMPLETE 00157 M00S00156.1cl +++| STD CM 00158 M00S00157.1cl +++| LDD MA 00159 M00S00158.1cl +++| CWD CM 00160 M00S00159.1cl +++| MONITOR DPPM 00161 M00S00160.1cl +++| LJM PPR EXIT 00162 M00S00161.1cl +++| FCN SPACE 4,15 00163 M00S00162.1cl +++|** FCN - ISSUE FUNCTION TO CONTROLLER. 00164 M00S00163.1cl +++|* 00165 M00S00164.1cl +++|* ENTRY (A) = FUNCTION CODE. 00166 M00S00165.1cl +++|* 00167 M00S00166.1cl +++|* EXIT (A) = 0 IF GENERAL STATUS FUNCTION TIMED OUT. 00168 M00S00167.1cl +++|* 00169 M00S00168.1cl +++|* USES FN. 00170 M00S00169.1cl +++|* 00171 M00S00170.1cl +++|* CALLS C2D. 00172 M00S00171.1cl +++|* 00173 M00S00172.1cl +++|* MACROS OPMESS. 00174 M00S00173.1cl +++| 00175 M00S00174.1cl +++| 00176 M00S00175.1cl +++| FCN SUBR ENTRY/EXIT 00177 M00S00176.1cl +++| STD FN 00178 M00S00177.1cl +++| FCN1 FAN CH 00179 M00S00178.1cl +++| FCN2 IJM FCNX,CH IF FUNCTION ACCEPTED 00180 M00S00179.1cl +++| ADD ON 00181 M00S00180.1cl +++| NJN FCN2 IF TIMEOUT NOT SATISFIED 00182 M00S00181.1cl +++| DCN CH 00183 M00S00182.1cl +++| LDD FN CHECK FUNCTION 00184 M00S00183.1cl +++| LMN FCGS 00185 M00S00184.1cl +++| ZJN FCNX IF GENERAL STATUS REQUEST 00186 M00S00185.1cl +++| SHN -6 00187 M00S00186.1cl +++| RJM C2D 00188 M00S00187.1cl +++| STM FCNB 00189 M00S00188.1cl +++| LDD FN CONVERT FUNCTION FOR MESSAGE 00190 M00S00189.1cl +++| RJM C2D 00191 M00S00190.1cl +++| STM FCNB+1 00192 M00S00191.1cl +++| OPMESS FCNA,2 DISPLAY TIMEOUT MESSAGE 00193 M00S00192.1cl +++| LDD FN 00194 M00S00193.1cl +++| UJN FCN1 RETRY 00195 M00S00194.1cl +++| 00196 M00S00195.1cl +++| FCNA DATA 10H FUNCTION 00197 M00S00196.1cl +++| FCNB DATA C*0000 TIMEOUT.* 00198 M00S00197.1cl +++| MCI SPACE 4,10 00199 M00S00198.1cl +++|** MCI - MODIFY CHANNEL INSTRUCTIONS. 00200 M00S00199.1cl +++|* 00201 M00S00200.1cl +++|* ENTRY (T4) = CHANNEL NUMBER. 00202 M00S00201.1cl +++|* 00203 M00S00202.1cl +++|* USES T1, T2, T3. 00204 M00S00203.1cl +++| 00205 M00S00204.1cl +++| 00206 M00S00205.1cl +++| MCI1 STD T2 SET INSTRUCTION ADDRESS 00207 M00S00206.1cl +++| LDI T2 00208 M00S00207.1cl +++| SCN 37 00209 M00S00208.1cl +++| LMD T3 MODIFY INSTRUCTION 00210 M00S00209.1cl +++| STI T2 00211 M00S00210.1cl +++| AOD T1 ADVANCE LIST ADDRESS 00212 M00S00211.1cl +++| MCI2 LDI T1 00213 M00S00212.1cl +++| NJN MCI1 IF NOT END OF LIST 00214 M00S00213.1cl +++| 00215 M00S00214.1cl +++| MCI SUBR ENTRY/EXIT 00216 M00S00215.1cl +++| LDD T4 00217 M00S00216.1cl +++| LPN 37 REMOVE CONCURRENT FLAG 00218 M00S00217.1cl +++| STD T3 00219 M00S00218.1cl +++| LDC CTCH SET CHANNEL TABLE ADDRESS 00220 M00S00219.1cl +++| STD T1 00221 M00S00220.1cl +++| UJN MCI2 ENTER LOOP 00222 M00S00221.1cl +++| OFR SPACE 4,20 00223 M00S00222.1cl +++|** OFR - OUTPUT FIRMWARE RECORD. 00224 M00S00223.1cl +++|* 00225 M00S00224.1cl +++|* ENTRY (CA - CA+1) = CENTRAL MEMORY ADDRESS OF FIRMWARE 00226 M00S00225.1cl +++|* RECORD. 00227 M00S00226.1cl +++|* (RL) = WORD COUNT OF FIRMWARE RECORD. 00228 M00S00227.1cl +++|* CONTROLLER FUNCTIONED FOR AUTOLOAD. 00229 M00S00228.1cl +++|* 00230 M00S00229.1cl +++|* EXIT FIRMWARE RECORD TRANSFERRED FROM CENTRAL MEMORY TO 00231 M00S00230.1cl +++|* CONTROLLER. 00232 M00S00231.1cl +++|* CHANNEL INACTIVE. 00233 M00S00232.1cl +++|* 00234 M00S00233.1cl +++|* USES T1, T2, T5, T6. 00235 M00S00234.1cl +++| 00236 M00S00235.1cl +++| 00237 M00S00236.1cl +++| OFR3 FJM *,CH WAIT FOR LAST WORD ACCEPT 00238 M00S00237.1cl +++| DCN CH 00239 M00S00238.1cl +++| 00240 M00S00239.1cl +++| OFR SUBR ENTRY/EXIT 00241 M00S00240.1cl +++| LDD CA SET CENTRAL MEMORY ADDRESS OF RECORD 00242 M00S00241.1cl +++| STD T5 00243 M00S00242.1cl +++| LDD CA+1 00244 M00S00243.1cl +++| STD T6 00245 M00S00244.1cl +++| OFRA ACN CH PREPARE CHANNEL FOR OUTPUT 00246 M00S00245.1cl +++|* PSN (IF 819 DRIVER LOAD) 00247 M00S00246.1cl +++| LDD RL RECORD WORD COUNT 00248 M00S00247.1cl +++| OFR1 ZJN OFR3 IF END OF RECORD 00249 M00S00248.1cl +++| STD T2 SAVE REMAINING WORD COUNT 00250 M00S00249.1cl +++| STD T1 SET BLOCK WORD COUNT 00251 M00S00250.1cl +++| ADC -FWBFL-1 00252 M00S00251.1cl +++| MJN OFR2 IF REMAINING DATA FITS IN BUFFER 00253 M00S00252.1cl +++| LDC FWBFL SET BLOCK COUNT TO BUFFER SIZE 00254 M00S00253.1cl +++| STD T1 00255 M00S00254.1cl +++| OFR2 LDD T5 SET CENTRAL BUFFER ADDRESS 00256 M00S00255.1cl +++| SHN 14 00257 M00S00256.1cl +++| LMD T6 00258 M00S00257.1cl +++| CRM FWBF,T1 READ BLOCK FROM CENTRAL MEMORY 00259 M00S00258.1cl +++| STD T6 SAVE NEXT CENTRAL MEMORY BUFFER ADDRESS 00260 M00S00259.1cl +++| SHN -14 00261 M00S00260.1cl +++| STD T5 00262 M00S00261.1cl +++| LDD T1 OUTPUT BLOCK TO CONTROLLER 00263 M00S00262.1cl +++| SHN 2 00264 M00S00263.1cl +++| ADD T1 00265 M00S00264.1cl +++| OAM FWBF,CH 00266 M00S00265.1cl +++| LDD T2 DECREMENT REMAINING RECORD WORD COUNT 00267 M00S00266.1cl +++| SBD T1 00268 M00S00267.1cl +++| UJN OFR1 PROCESS NEXT BLOCK 00269 M00S00268.1cl +++| STS SPACE 4,10 00270 M00S00269.1cl +++|** STS - STATUS CONTROLLER. 00271 M00S00270.1cl +++|* 00272 M00S00271.1cl +++|* EXIT (A) = (FN) = GENERAL STATUS. 00273 M00S00272.1cl +++|* (A) = 775777 IF INCOMPLETE STATUS. 00274 M00S00273.1cl +++|* (FN) = 5777 IF INCOMPLETE STATUS. 00275 M00S00274.1cl +++|* 00276 M00S00275.1cl +++|* CALLS FCN. 00277 M00S00276.1cl +++| 00278 M00S00277.1cl +++| 00279 M00S00278.1cl +++| STS SUBR ENTRY/EXIT 00280 M00S00279.1cl +++| LDN FCGS 00281 M00S00280.1cl +++| RJM FCN 00282 M00S00281.1cl +++| ZJN STS1 IF FUNCTION TIMED OUT 00283 M00S00282.1cl +++| ACN CH 00284 M00S00283.1cl +++| STS1 LDC -2000 ERROR STATUS 00285 M00S00284.1cl +++| STSA IAN CH 00286 M00S00285.1cl +++|* IAN CH+40 INPUT STATUS 00287 M00S00286.1cl +++| STD FN 00288 M00S00287.1cl +++| UJN STSX RETURN 00289 M00S00288.1cl +++| WOG SPACE 4,10 00290 M00S00289.1cl +++|** WOG - WAIT FOR OPERATOR *GO.*. 00291 M00S00290.1cl +++|* 00292 M00S00291.1cl +++|* ENTRY (A) = ADDRESS OF MESSAGE TO BE WRITTEN TO MS2W. 00293 M00S00292.1cl +++|* 00294 M00S00293.1cl +++|* EXIT (A) = 0. 00295 M00S00294.1cl +++|* OPERATOR ENTERED *GO.* COMMAND. 00296 M00S00295.1cl +++|* 00297 M00S00296.1cl +++|* USES T1, CM - CM+4. 00298 M00S00297.1cl +++|* 00299 M00S00298.1cl +++|* MACROS PAUSE. 00300 M00S00299.1cl +++| 00301 M00S00300.1cl +++| 00302 M00S00301.1cl +++| WOG SUBR ENTRY/EXIT 00303 M00S00302.1cl +++| STM WOGA SET MESSAGE ADDRESS 00304 M00S00303.1cl +++| LDD NC 00305 M00S00304.1cl +++| SHN 7 READ SENSE SWITCH WORD 00306 M00S00305.1cl +++| ADN SNSW 00307 M00S00306.1cl +++| STD T1 SAVE ADDRESS 00308 M00S00307.1cl +++| CRD CM 00309 M00S00308.1cl +++| LDD CM+3 SET PAUSE BIT 00310 M00S00309.1cl +++| SCN 1 00311 M00S00310.1cl +++| LMN 1 00312 M00S00311.1cl +++| STD CM+3 00313 M00S00312.1cl +++| LDD T1 00314 M00S00313.1cl +++| CWD CM 00315 M00S00314.1cl +++| ADN MS2W-SNSW WRITE MESSAGE TO MS2W 00316 M00S00315.1cl +++| CWM *,TR 00317 M00S00316.1cl +++| WOGA EQU *-1 MESSAGE ADDRESS 00318 M00S00317.1cl +++| WOG1 PAUSE NE 00319 M00S00318.1cl +++| LDD T1 CHECK PAUSE BIT 00320 M00S00319.1cl +++| CRD CM 00321 M00S00320.1cl +++| LDD CM+3 00322 M00S00321.1cl +++| LPN 1 00323 M00S00322.1cl +++| ZJN WOGX IF PAUSE BIT CLEAR 00324 M00S00323.1cl +++| UJN WOG1 LOOP 00325 M00S00324.1cl +++| SPACE 4,10 00326 M00S00325.1cl +++|** CONSOLE MESSAGES. 00327 M00S00326.1cl +++| 00328 M00S00327.1cl +++| 00329 M00S00328.1cl +++| MSGA DATA C*TO CONTROLLER.* 00330 M00S00329.1cl +++| MSGB DATA C*AUTOLOAD FAILURE, ST0000.* 00331 M00S00330.1cl +++| SPACE 4,10 00332 M00S00331.1cl +++|** COMMON DECKS. 00333 M00S00332.1cl +++| 00334 M00S00333.1cl +++| 00335 M00S00334.1cl +++|*CALL COMPC2D 00336 M00S00335.1cl +++| TCHS SPACE 4,10 00337 M00S00336.1cl +++|** CHANNEL TABLE. 00338 M00S00337.1cl +++| 00339 M00S00338.1cl +++| 00340 M00S00339.1cl +++| CHTB CH 00341 M00S00340.1cl +++| PRS SPACE 4,10 00342 M00S00341.1cl +++|** PRS - PRESET PROGRAM. 00343 M00S00342.1cl +++|* 00344 M00S00343.1cl +++|* EXIT (NC) = NUMBER OF CONTROL POINTS. 00345 M00S00344.1cl +++|* (RL) = FIRMWARE RECORD LENGTH. 00346 M00S00345.1cl +++|* (DS) = DEADSTART OPTIONS. 00347 M00S00346.1cl +++|* (T4) = CHANNEL. 00348 M00S00347.1cl +++|* (CA - CA+1) = CMA OF FIRMWARE RECORD. 00349 M00S00348.1cl +++|* 00350 M00S00349.1cl +++|* USES DS, NC, RL, TP, T4, CA - CA+1. 00351 M00S00350.1cl +++| 00352 M00S00351.1cl +++| 00353 M00S00352.1cl +++| PRS SUBR ENTRY/EXIT 00354 M00S00353.1cl +++| LDD MA READ LOAD PARAMETERS 00355 M00S00354.1cl +++| CRD TP 00356 M00S00355.1cl +++| LDD TP SET CHANNEL 00357 M00S00356.1cl +++| STD T4 00358 M00S00357.1cl +++| LDK NCPL SET NUMBER OF CONTROL POINTS 00359 M00S00358.1cl +++| CRD CM 00360 M00S00359.1cl +++| LDD CM+1 00361 M00S00360.1cl +++| STD NC 00362 M00S00361.1cl +++| UJN PRSX RETURN 00363 M00S00362.1cl +++| END
cdc/nos2.source/opl.opl871/deck/1cl.txt · Last modified: (external edit)