cdc:nos2.source:opl.opl871:deck:6dc
Deck 6DC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.6dc +++| IDENT 6DC,MSFW 00002 M00S00002.6dc +++| PERIPH 00003 M00S00003.6dc +++| BASE MIXED 00004 M00S00004.6dc +++| SST 00005 M00S00005.6dc +++| TITLE 6DC - CONCURRENT PP OVERLAY LOADER. 00006 M00S00006.6dc +++|*COMMENT 6DC - CONCURRENT PP OVERLAY LOADER.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.6dc +++| 6DC SPACE 4,10 00010 M00S00009.6dc +++|*** 6DC - CONCURRENT PP OVERLAY LOADER. 00011 M00S00010.6dc +++|* 00012 M00S00011.6dc +++|* J. M. MAREK. 85/11/01. 00013 M00S00012.6dc +++| SPACE 4,20 00014 M00S00013.6dc +++|*** *6DC* LOADS 16-BIT OVERLAYS INTO CONCURRENT PPS (CPP). IT IS 00015 M00S00014.6dc +++|* EXPECTED THAT THE ONLY CPP SUBROUTINE TO CALL *6DC* WILL BE 00016 M00S00015.6dc +++|* THE PERIPHERAL LIBRARY LOADER (PLL) IN PP RESIDENT. *6DC* IS 00017 M00S00016.6dc +++|* LOADED INTO THE DRIVER OVERLAY AREA WHEN A CPP PROGRAM ISSUES 00018 M00S00017.6dc +++|* A *SETMS* REQUEST. *6DC* PROVIDES THE STANDARD DRIVER ENTRY 00019 M00S00018.6dc +++|* POINTS, *RDS*, *WDS*, AND *EMS*. 00020 M00S00019.6dc +++|* 00021 M00S00020.6dc +++|* WHEN IT IS CALLED AT *RDS*, IT EXAMINES THE PARAMETERS IN 00022 M00S00021.6dc +++|* *T5* - *T7*. IF THE PARAMETERS SPECIFY LOADING A CM RESIDENT 00023 M00S00022.6dc +++|* 16-BIT PP PROGRAM, *6DC* COMPLETES THE LOAD, PERFORMING THE 00024 M00S00023.6dc +++|* NECESSARY PACKING, AND RETURNS TO THE CALLER. IF A MASS 00025 M00S00024.6dc +++|* RESIDENT PROGRAM IS REQUESTED, *RDS* ISSUES AN ERROR LOG 00026 M00S00025.6dc +++|* MESSAGE AND RETURNS AN ERROR STATUS (-1) TO THE CALLER. IF 00027 M00S00026.6dc +++|* *T5* - *T7* DO NOT SPECIFY A 16-BIT LOAD, *6DC* HANGS THE 00028 M00S00027.6dc +++|* CPP. 00029 M00S00028.6dc +++|* 00030 M00S00029.6dc +++|* WHEN *6DC* IS CALLED AT *WDS*, IT ALSO HANGS THE *CPP*. 00031 M00S00030.6dc +++|* 00032 M00S00031.6dc +++|* WHEN IT IS CALLED AT *EMS*, IT SIMPLY RETURNS TO THE CALLER. 00033 M00S00032.6dc +++|* 00034 M00S00033.6dc +++|* NOTE. DURING EXECUTION *6DC* DESTROYS ITS PRESET CODE. 00035 M00S00034.6dc +++|* DRIVER PRESET SHOULD NEVER BE SPECIFIED WITHOUT DRIVER LOAD. 00036 M00S00035.6dc +++| SPACE 4,10 00037 M00S00036.6dc +++|*** ENTRY CONDITIONS. 00038 M00S00037.6dc +++|* 00039 M00S00038.6dc +++|* CM RESIDENT 16-BIT OVERLAY. 00040 M00S00039.6dc +++|* (T5 - T7) = 2/ ,4/ 10,18/ *RPL* ADDRESS,12/ LENGTH 00041 M00S00040.6dc +++|* 00042 M00S00041.6dc +++|* MS RESIDENT OVERLAY. (NOT SUPPORTED) 00043 M00S00042.6dc +++|* (T5 - T7) = 2/ ,4/ 14,6/ ESTO,12/ TRACK,12/ SECTOR 00044 M00S00043.6dc +++|* 00045 M00S00044.6dc +++|* MS READ. (NOT SUPPORTED) 00046 M00S00045.6dc +++|* (T5 - T7) = 3/0, 9/ ESTO,12/ TRACK,12/ SECTOR 00047 M00S00046.6dc +++| COMMON SPACE 4,10 00048 M00S00047.6dc +++|* COMMON DECKS. 00049 M00S00048.6dc +++| 00050 M00S00049.6dc +++| 00051 M00S00050.6dc +++|*CALL COMPMAC 00052 M00S00051.6dc +++|*CALL COMPIOU 00053 M00S00052.6dc +++|*CALL COMSMSC 00054 M00S00053.6dc +++|*CALL COMSMSP 00055 M00S00054.6dc +++| EJECT 00056 M00S00055.6dc +++|** ENTRY POINT TRANSFERS. 00057 M00S00056.6dc +++| 00058 M00S00057.6dc +++| 00059 M00S00058.6dc +++| ORG MSFW 00060 M00S00059.6dc +++| 00061 M00S00060.6dc +++| CON PRS PRESET ADDRESS 00062 M00S00061.6dc +++| 00063 M00S00062.6dc +++| 00064 M00S00063.6dc +++| RDS CON 0 ENTRY 00065 M00S00064.6dc +++| UJN RDS. ENTER DRIVER 00066 M00S00065.6dc +++| 00067 M00S00066.6dc +++| 00068 M00S00067.6dc +++| WDS CON 0 ENTRY 00069 M00S00068.6dc +++| UJN WDS. ENTER DRIVER 00070 M00S00069.6dc +++| EMS SPACE 4,10 00071 M00S00070.6dc +++|** EMS - END MASS STORAGE OPERATION. 00072 M00S00071.6dc +++|* 00073 M00S00072.6dc +++|* EXIT (A) = 0. 00074 M00S00073.6dc +++| 00075 M00S00074.6dc +++| 00076 M00S00075.6dc +++| .EMS SUBR ENTRY/EXIT 00077 M00S00076.6dc +++| LDN 0 00078 M00S00077.6dc +++| STM CHRV 00079 M00S00078.6dc +++| UJN .EMSX RETURN 00080 M00S00079.6dc +++| WDS SPACE 4,10 00081 M00S00080.6dc +++|** WDS - WRITE SECTOR. 00082 M00S00081.6dc +++|* 00083 M00S00082.6dc +++|* *WDS* HANGS THE PP WHEN IT IS CALLED. 00084 M00S00083.6dc +++|* 00085 M00S00084.6dc +++|* ENTRY (A) = BUFFER ADDRESS FOR SECTOR. 00086 M00S00085.6dc +++| 00087 M00S00086.6dc +++| 00088 M00S00087.6dc +++| WDS. MONITOR HNGM HANG THE PP 00089 M00S00088.6dc +++| WDS1 UJN WDS. CONTINUE HANGING 00090 M00S00089.6dc +++| RDS SPACE 4,10 00091 M00S00090.6dc +++|** RDS - READ SECTOR. 00092 M00S00091.6dc +++|* 00093 M00S00092.6dc +++|* ENTRY (A) = BUFFER ADDRESS FOR SECTOR. 00094 M00S00093.6dc +++|* 00095 M00S00094.6dc +++|* EXIT (A) = 0 IF TRANSFER COMPLETE. 00096 M00S00095.6dc +++|* = ERROR CODE IF ERROR OCCURRED. 00097 M00S00096.6dc +++| 00098 M00S00097.6dc +++| 00099 M00S00098.6dc +++| RDS6 EQU WDS1 00100 M00S00099.6dc +++| 00101 M00S00100.6dc +++| RDS7 LDM PLLA GET OVERLAY NAME 00102 M00S00101.6dc +++| STM RDSB 00103 M00S00102.6dc +++| LDM PLLB 00104 M00S00103.6dc +++| STM RDSB+1 00105 M00S00104.6dc +++| LDC RDSA+ERLN ISSUE ERROR LOG MESSAGE 00106 M00S00105.6dc +++| RJM DFM 00107 M00S00106.6dc +++| LDML RDS GET RETURN ADDRESS 00108 M00S00107.6dc +++| STDL CM 00109 M00S00108.6dc +++| LCN 1 SET ERROR FLAG 00110 M00S00109.6dc +++| LJM 0,CM RETURN 00111 M00S00110.6dc +++| 00112 M00S00111.6dc +++| RDS. LDD T5 CHECK 16-BIT LOAD BIT 00113 M00S00112.6dc +++| SHN 21-11 00114 M00S00113.6dc +++| RDS1 PJN RDS6 IF NOT 16-BIT LOAD 00115 M00S00114.6dc +++| SHN 21-10-21+11 00116 M00S00115.6dc +++| MJN RDS7 IF MS RESIDENT OVERLAY 00117 M00S00116.6dc +++| SHN 21-5-21+10 GET RPL HEADER 00118 M00S00117.6dc +++| SCN 77 00119 M00S00118.6dc +++| LMD T6 00120 M00S00119.6dc +++| CRD CM 00121 M00S00120.6dc +++| ADN 1 SET FWA OF OVERLAY 00122 M00S00121.6dc +++| STD T6 00123 M00S00122.6dc +++| SHN -14 00124 M00S00123.6dc +++| STD T5 00125 M00S00124.6dc +++| LDD CM+1 GET LOAD ADDRESS 00126 M00S00125.6dc +++| LPN 17 00127 M00S00126.6dc +++| SHN 14 00128 M00S00127.6dc +++| LMD CM+2 00129 M00S00128.6dc +++| ZJN RDS2 IF ZERO LEVEL OVERLAY 00130 M00S00129.6dc +++| STDL LA 00131 M00S00130.6dc +++| RDS2 STML 2,LA 00132 M00S00131.6dc +++| LDDL LA 00133 M00S00132.6dc +++| ADN 5 SET FWA OF OVERLAY CODE 00134 M00S00133.6dc +++| STDL CM+2 00135 M00S00134.6dc +++| SOD T7 COMPUTE THE NUMBER OF BYTES 00136 M00S00135.6dc +++| SHN 4 BYTES = WORDS(15)/4 AND TRUNCATED 00137 M00S00136.6dc +++| SBD T7 00138 M00S00137.6dc +++| SHN -2 00139 M00S00138.6dc +++| ADDL CM+2 COMPUTE THE LAST BYTE ADDRESS 00140 M00S00139.6dc +++| STDL T7 00141 M00S00140.6dc +++| SHN -15 00142 M00S00141.6dc +++| NJN RDS1 IF OVERLAY WRAPS MEMORY 00143 M00S00142.6dc +++| LDD CM BUILD NORMAL OVERLAY HEADER 00144 M00S00143.6dc +++| STI LA 00145 M00S00144.6dc +++| LDD CM+1 00146 M00S00145.6dc +++| SCN 77 00147 M00S00146.6dc +++| STM 1,LA 00148 M00S00147.6dc +++| LDN 1 00149 M00S00148.6dc +++| STM 3,LA 00150 M00S00149.6dc +++| LDD CM+4 00151 M00S00150.6dc +++| STM 4,LA 00152 M00S00151.6dc +++| LDN 4 00153 M00S00152.6dc +++| STD T4 00154 M00S00153.6dc +++| 00155 M00S00154.6dc +++|* START THE MAIN LOOP WITH THESE INITIAL CONDITIONS - 00156 M00S00155.6dc +++|* 00157 M00S00156.6dc +++|* (T4) = 4. 00158 M00S00157.6dc +++|* (T5 - T6) = FWA OF THE OVERLAY IN CM. 00159 M00S00158.6dc +++|* (T7) = LAST BYTE ADDRESS+1 OF THE OVERLAY IN PP MEMORY. 00160 M00S00159.6dc +++|* (CM+2) = FWA OF THE OVERLAY CODE. 00161 M00S00160.6dc +++|* (LA) = LOAD ADDRESS OF THE OVERLAY. 00162 M00S00161.6dc +++| 00163 M00S00162.6dc +++|* GET 15 16-BIT BYTES. 00164 M00S00163.6dc +++| 00165 M00S00164.6dc +++| RDS3 LDD T5 READ THE NEXT 4 WORDS 00166 M00S00165.6dc +++| SHN 14 00167 M00S00166.6dc +++| LMD T6 00168 M00S00167.6dc +++| CRM BUF,T4 00169 M00S00168.6dc +++| STD T6 00170 M00S00169.6dc +++| SHN -14 00171 M00S00170.6dc +++| STD T5 00172 M00S00171.6dc +++| LDC BUF 00173 M00S00172.6dc +++| STD CM 00174 M00S00173.6dc +++| 00175 M00S00174.6dc +++|* LOAD 12 BITS FROM THE FIRST BYTE AND 4 FROM THE NEXT. 00176 M00S00175.6dc +++| 00177 M00S00176.6dc +++| RDS4 LDI CM 00178 M00S00177.6dc +++| SHN 4 00179 M00S00178.6dc +++| STIL CM+2 00180 M00S00179.6dc +++| AOD CM 00181 M00S00180.6dc +++| LDI CM 00182 M00S00181.6dc +++| SHN -8D 00183 M00S00182.6dc +++| RAIL CM+2 00184 M00S00183.6dc +++| AODL CM+2 00185 M00S00184.6dc +++| SBDL T7 00186 M00S00185.6dc +++| PJN RDS5 IF LAST BYTE 00187 M00S00186.6dc +++| 00188 M00S00187.6dc +++|* LOAD 8 BITS FROM THE CURRENT BYTE AND 8 FROM THE NEXT. 00189 M00S00188.6dc +++| 00190 M00S00189.6dc +++| LDI CM 00191 M00S00190.6dc +++| SHN 8D 00192 M00S00191.6dc +++| SCN 77 00193 M00S00192.6dc +++| STIL CM+2 00194 M00S00193.6dc +++| AOD CM 00195 M00S00194.6dc +++| LDI CM 00196 M00S00195.6dc +++| SHN -4 00197 M00S00196.6dc +++| RAIL CM+2 00198 M00S00197.6dc +++| AODL CM+2 00199 M00S00198.6dc +++| SBDL T7 00200 M00S00199.6dc +++| PJN RDS5 IF LAST BYTE 00201 M00S00200.6dc +++| 00202 M00S00201.6dc +++|* LOAD 4 BITS FROM THE CURRENT BYTE AND 12 BITS FROM THE NEXT. 00203 M00S00202.6dc +++| 00204 M00S00203.6dc +++| LDI CM 00205 M00S00204.6dc +++| LPN 17 00206 M00S00205.6dc +++| SHN 12D 00207 M00S00206.6dc +++| STIL CM+2 00208 M00S00207.6dc +++| AOD CM 00209 M00S00208.6dc +++| LDI CM 00210 M00S00209.6dc +++| RAIL CM+2 00211 M00S00210.6dc +++| AODL CM+2 00212 M00S00211.6dc +++| SBDL T7 00213 M00S00212.6dc +++| PJN RDS5 IF LAST BYTE 00214 M00S00213.6dc +++| 00215 M00S00214.6dc +++|* CHECK FOR MORE DATA. 00216 M00S00215.6dc +++| 00217 M00S00216.6dc +++| AOD CM 00218 M00S00217.6dc +++| SBK BUF+4*5 00219 M00S00218.6dc +++| MJP RDS4 IF 4 WORDS HAVE NOT BEEN PROCESSED 00220 M00S00219.6dc +++| UJP RDS3 GET 4 MORE WORDS 00221 M00S00220.6dc +++| 00222 M00S00221.6dc +++| RDS5 LDML RDS GET RETURN ADDRESS 00223 M00S00222.6dc +++| STDL CM 00224 M00S00223.6dc +++| LDN 0 00225 M00S00224.6dc +++| LJM 0,CM RETURN 00226 M00S00225.6dc +++| 00227 M00S00226.6dc +++| 00228 M00S00227.6dc +++| RDSA DATA H* 6DC -* 00229 M00S00228.6dc +++| RDSB DATA C* XXX IS MASS RESIDENT.* 00230 M00S00229.6dc +++| 00231 M00S00230.6dc +++| BUF BSS 0 00232 M00S00231.6dc +++|* BSS 4*5 00233 M00S00232.6dc +++| PRS SPACE 4,10 00234 M00S00233.6dc +++|** PRS - PRESET. 00235 M00S00234.6dc +++|* 00236 M00S00235.6dc +++|* CALLS SLI. 00237 M00S00236.6dc +++| 00238 M00S00237.6dc +++| 00239 M00S00238.6dc +++| PRS LDC PRSA GET TABLE OF LONG INSTRUCTIONS 00240 M00S00239.6dc +++| STD CM+4 00241 M00S00240.6dc +++| LDD T3 PRESERVE *T3* 00242 M00S00241.6dc +++| STD CM+3 00243 M00S00242.6dc +++| PRS1 LDI CM+4 GET NEXT INSTRUCTION ADDRESS 00244 M00S00243.6dc +++| ZJN PRS2 IF END OF LIST 00245 M00S00244.6dc +++| STD T3 00246 M00S00245.6dc +++| BLI T3 BUILD LONG INSTRUCTION 00247 M00S00246.6dc +++| AOD CM+4 00248 M00S00247.6dc +++| UJN PRS1 PROCESS NEXT INSTRUCTION 00249 M00S00248.6dc +++| 00250 M00S00249.6dc +++| PRS2 LDD CM+3 RESTORE *T3* 00251 M00S00250.6dc +++| STD T3 00252 M00S00251.6dc +++| LDC SMSX ENSURE PRESET IS NOT RE-EXECUTED 00253 M00S00252.6dc +++| STM MSFW 00254 M00S00253.6dc +++| LJM SMSX RETURN 00255 M00S00254.6dc +++| 00256 M00S00255.6dc +++| 00257 M00S00256.6dc +++| PRSA BSS 0 00258 M00S00257.6dc +++| LIST16 00259 M00S00258.6dc +++| 00260 M00S00259.6dc +++| .1 MAX *,BUF+4*5 00261 M00S00260.6dc +++| .1 SET .1+4-MSFW CHECK FOR OVERFLOW 00262 M00S00261.6dc +++| .1 SET .1/5 00263 M00S00262.6dc +++| .1 SET MSFW+.1*5 00264 M00S00263.6dc +++| .2 SET PPFW-5-*-5 BYTES AVAILABLE BEFORE OVERFLOW 00265 M00S00264.6dc +++| ERRNG PPFW-5-.1 DRIVER OVERFLOWS INTO *PPFW*-5 00266 M00S00265.6dc +++| END
cdc/nos2.source/opl.opl871/deck/6dc.txt · Last modified: (external edit)