cdc:nos2.source:opl.opl871:deck:6dd
Deck 6DD
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.6dd +++| IDENT 6DD,MSFW 00002 M00S00002.6dd +++| PERIPH 00003 M00S00003.6dd +++| BASE MIXED 00004 M00S00004.6dd +++| SST 00005 M00S00005.6dd +++| TITLE 6DD - CONCURRENT PP MS OVERLAY LOADER. 00006 M00S00006.6dd +++|*COMMENT 6DD - CONCURRENT PP MS OVERLAY LOADER.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 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.6dd +++| 6DD SPACE 4,10 00010 M00S00009.6dd +++|*** 6DD - CONCURRENT PP MS OVERLAY LOADER. 00011 M00S00010.6dd +++|* 00012 M00S00011.6dd +++|* S. L. BETH. 86/08/14. 00013 M00S00012.6dd +++| SPACE 4,20 00014 M00S00013.6dd +++|*** *6DD* LOADS MS OVERLAYS INTO CONCURRENT PPS (CPP). IT IS 00015 M00S00014.6dd +++|* EXPECTED THAT THE ONLY CPP SUBROUTINE TO CALL *6DD* WILL BE 00016 M00S00015.6dd +++|* THE PERIPHERAL LIBRARY LOADER (PLL) IN PP RESIDENT. *6DD* IS 00017 M00S00016.6dd +++|* LOADED INTO THE DRIVER OVERLAY AREA WHEN A CPP PROGRAM ISSUES 00018 M00S00017.6dd +++|* A *SETMS* REQUEST FOR A 12 BIT MS OVERLAY LOAD. 6DD PROVIDES 00019 M00S00018.6dd +++|* THE STANDARD DRIVER ENTRY POINTS, *RDS*, *WDS*, AND *EMS*. 00020 M00S00019.6dd +++|* 00021 M00S00020.6dd +++|* WHEN IT IS CALLED AT *RDS*, IT ISSUES A CALL TO *1MA* TO AID 00022 M00S00021.6dd +++|* THE LOAD. *1MA* WILL READ THE DISK AND PASS THE DATA TO 00023 M00S00022.6dd +++|* *6DD* VIA THE MESSAGE BUFFER. 00024 M00S00023.6dd +++|* 00025 M00S00024.6dd +++|* WHEN *6DD* IS CALLED AT *WDS*, IT HANGS THE *CPP*. 00026 M00S00025.6dd +++|* 00027 M00S00026.6dd +++|* WHEN IT IS CALLED AT *EMS*, IT SIMPLY RETURNS TO THE CALLER. 00028 M00S00027.6dd +++|* 00029 M00S00028.6dd +++| SPACE 4,10 00030 M00S00029.6dd +++|*** ENTRY CONDITIONS. 00031 M00S00030.6dd +++|* 00032 M00S00031.6dd +++|* MS RESIDENT OVERLAY. 00033 M00S00032.6dd +++|* (T5 - T7) = 6/ ESTO,12/ TRACK,12/ SECTOR 00034 M00S00033.6dd +++|* 00035 M00S00034.6dd +++|* MS READ. (NOT SUPPORTED) 00036 M00S00035.6dd +++|* (T5 - T7) = 3/0, 9/ ESTO,12/ TRACK,12/ SECTOR 00037 M00S00036.6dd +++| COMMON SPACE 4,10 00038 M00S00037.6dd +++|* COMMON DECKS. 00039 M00S00038.6dd +++| 00040 M00S00039.6dd +++| 00041 M00S00040.6dd +++|*CALL COMPMAC 00042 M00S00041.6dd +++|*CALL COMPIOU 00043 M00S00042.6dd +++|*CALL COMSMSC 00044 M00S00043.6dd +++|*CALL COMSMSP 00045 M00S00044.6dd +++| EJECT 00046 M00S00045.6dd +++|** ENTRY POINT TRANSFERS. 00047 M00S00046.6dd +++| 00048 M00S00047.6dd +++| 00049 M00S00048.6dd +++| ORG MSFW 00050 M00S00049.6dd +++| 00051 M00S00050.6dd +++| CON PRS PRESET ADDRESS 00052 M00S00051.6dd +++| 00053 M00S00052.6dd +++| 00054 M00S00053.6dd +++| RDS CON 0 ENTRY 00055 M00S00054.6dd +++| UJN RDS. ENTER DRIVER 00056 M00S00055.6dd +++| 00057 M00S00056.6dd +++| 00058 M00S00057.6dd +++| WDS CON 0 ENTRY 00059 M00S00058.6dd +++| UJN WDS. ENTER DRIVER 00060 M00S00059.6dd +++| EMS SPACE 4,10 00061 M00S00060.6dd +++|** EMS - END MASS STORAGE OPERATION. 00062 M00S00061.6dd +++|* 00063 M00S00062.6dd +++|* EXIT (A) = 0. 00064 M00S00063.6dd +++| 00065 M00S00064.6dd +++| 00066 M00S00065.6dd +++| .EMS SUBR ENTRY/EXIT 00067 M00S00066.6dd +++| LDN 0 00068 M00S00067.6dd +++| STM CHRV 00069 M00S00068.6dd +++| UJN .EMSX RETURN 00070 M00S00069.6dd +++| WDS SPACE 4,10 00071 M00S00070.6dd +++|** WDS - WRITE SECTOR. 00072 M00S00071.6dd +++|* 00073 M00S00072.6dd +++|* *WDS* HANGS THE PP WHEN IT IS CALLED. 00074 M00S00073.6dd +++|* 00075 M00S00074.6dd +++|* ENTRY (A) = BUFFER ADDRESS FOR SECTOR. 00076 M00S00075.6dd +++| 00077 M00S00076.6dd +++| 00078 M00S00077.6dd +++| WDS. MONITOR HNGM HANG THE PP 00079 M00S00078.6dd +++| WDS1 UJN WDS. CONTINUE HANGING 00080 M00S00079.6dd +++| RDS SPACE 4,10 00081 M00S00080.6dd +++|** RDS - READ SECTOR. 00082 M00S00081.6dd +++|* 00083 M00S00082.6dd +++|* ENTRY (LA) = BUFFER ADDRESS FOR SECTOR. 00084 M00S00083.6dd +++|* 00085 M00S00084.6dd +++|* EXIT (A) = 0 IF TRANSFER COMPLETE. 00086 M00S00085.6dd +++|* .LT O, IF ERROR OCCURRED. 00087 M00S00086.6dd +++| 00088 M00S00087.6dd +++| 00089 M00S00088.6dd +++| RDS. LDD IA 00090 M00S00089.6dd +++| STM RDSB+4 00091 M00S00090.6dd +++| LDN 0 00092 M00S00091.6dd +++| STD T4 00093 M00S00092.6dd +++| STD CM+1 00094 M00S00093.6dd +++| LDD T5 CLEAR RECORD TYPE DATA 00095 M00S00094.6dd +++| LPC 377 00096 M00S00095.6dd +++| STD T5 00097 M00S00096.6dd +++| LDD MA CALL *1MA* TO ASSIST IN THE LOAD 00098 M00S00097.6dd +++| CWM RDSB,ON 00099 M00S00098.6dd +++| STD CM 00100 M00S00099.6dd +++| CWD T4 00101 M00S00100.6dd +++| MONITOR RPPM 00102 M00S00101.6dd +++| LDDL LA SET LOAD ADDRESS 00103 M00S00102.6dd +++| STML RDSA
| Line S00103 Modification History | |
|---|---|
M01 (Removed by) | 6dd1 |
Seq # *Modification Id* Act ----------------------------+ 00104 M01S00103.6dd1 ---| RDS1 LDD MA
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 6dd1 |
Seq # *Modification Id* Act ----------------------------+ 00105 M01S00001.6dd1 +++| RDS1 PAUSE 00106 M01S00002.6dd1 +++| LDD MA 00107 M00S00104.6dd +++| ADN 1 00108 M00S00105.6dd +++| CRD CM 00109 M00S00106.6dd +++| LDD CM CHECK FOR DATA READY 00110 M00S00107.6dd +++| SHN 21-13 00111 M00S00108.6dd +++| MJN RDS2 IF ERROR IN LOAD 00112 M00S00109.6dd +++| SHN 13-12 00113 M00S00110.6dd +++| MJN RDS3 IF EOR ENCOUNTERED 00114 M00S00111.6dd +++| ZJN RDS1 IF DATA NOT READY 00115 M00S00112.6dd +++| LDD MA READ DATA 00116 M00S00113.6dd +++| ADN 2 00117 M00S00114.6dd +++| CRM **,CM 00118 M00S00115.6dd +++| RDSA EQU *-1 00119 M00S00116.6dd +++| LDD CM ADVANCE READ ADDRESS 00120 M00S00117.6dd +++| SHN 2 00121 M00S00118.6dd +++| ADD CM 00122 M00S00119.6dd +++| RAML RDSA 00123 M00S00120.6dd +++| LDN 0 INDICATE READY FOR NEXT BLOCK 00124 M00S00121.6dd +++| STD CM 00125 M00S00122.6dd +++| LDD MA 00126 M00S00123.6dd +++| ADN 1 00127 M00S00124.6dd +++| CWD CM 00128 M00S00125.6dd +++| UJN RDS1 LOOP FOR MORE DATA 00129 M00S00126.6dd +++| 00130 M00S00127.6dd +++| RDS2 LDML RDS SET RETURN ADDRESS 00131 M00S00128.6dd +++| STDL CM 00132 M00S00129.6dd +++| LCN 1 SET ERROR FLAG 00133 M00S00130.6dd +++| LJM 0,CM RETURN 00134 M00S00131.6dd +++| 00135 M00S00132.6dd +++| RDS3 LDML RDS SET RETURN ADDRESS 00136 M00S00133.6dd +++| STDL CM 00137 M00S00134.6dd +++| LDN 0 INDICATE READ COMPLETE 00138 M00S00135.6dd +++| LJM 0,CM RETURN 00139 M00S00136.6dd +++| 00140 M00S00137.6dd +++| 00141 M00S00138.6dd +++| RDSB VFD 18/3L1MA,6/0,12/11,24/0 00142 M00S00139.6dd +++| PRS SPACE 4,10 00143 M00S00140.6dd +++|** PRS - PRESET. 00144 M00S00141.6dd +++|* 00145 M00S00142.6dd +++|* MACROS BLI. 00146 M00S00143.6dd +++| 00147 M00S00144.6dd +++| 00148 M00S00145.6dd +++| PRS LDC PRSA GET TABLE OF LONG INSTRUCTIONS 00149 M00S00146.6dd +++| STD CM+4 00150 M00S00147.6dd +++| LDD T3 PRESERVE *T3* 00151 M00S00148.6dd +++| STD CM+3 00152 M00S00149.6dd +++| PRS1 LDI CM+4 GET NEXT INSTRUCTION ADDRESS 00153 M00S00150.6dd +++| ZJN PRS2 IF END OF LIST 00154 M00S00151.6dd +++| STD T3 00155 M00S00152.6dd +++| BLI T3 BUILD LONG INSTRUCTION 00156 M00S00153.6dd +++| AOD CM+4 00157 M00S00154.6dd +++| UJN PRS1 PROCESS NEXT INSTRUCTION 00158 M00S00155.6dd +++| 00159 M00S00156.6dd +++| PRS2 LDD CM+3 RESTORE *T3* 00160 M00S00157.6dd +++| STD T3 00161 M00S00158.6dd +++| LDC SMSX ENSURE PRESET IS NOT RE-EXECUTED 00162 M00S00159.6dd +++| STM MSFW 00163 M00S00160.6dd +++| LJM SMSX RETURN 00164 M00S00161.6dd +++| 00165 M00S00162.6dd +++| 00166 M00S00163.6dd +++| PRSA BSS 0 00167 M00S00164.6dd +++| LIST16 00168 M00S00165.6dd +++| 00169 M00S00166.6dd +++| .1 MAX * 00170 M00S00167.6dd +++| .1 SET .1+4-MSFW CHECK FOR OVERFLOW 00171 M00S00168.6dd +++| .1 SET .1/5 00172 M00S00169.6dd +++| .1 SET MSFW+.1*5 00173 M00S00170.6dd +++| .2 SET PPFW-5-*-5 BYTES AVAILABLE BEFORE OVERFLOW 00174 M00S00171.6dd +++| ERRNG PPFW-5-.1 DRIVER OVERFLOWS INTO *PPFW*-5 00175 M00S00172.6dd +++| END
cdc/nos2.source/opl.opl871/deck/6dd.txt · Last modified: (external edit)