cdc:nos2.source:opl.opl871:deck:6dd
Deck 6DD
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.6dd +++| IDENT 6DD,MSFW 00002 M01S00002.6dd +++| PERIPH 00003 M01S00003.6dd +++| BASE MIXED 00004 M01S00004.6dd +++| SST 00005 M01S00005.6dd +++| TITLE 6DD - CONCURRENT PP MS OVERLAY LOADER. 00006 M01S00006.6dd +++|*COMMENT 6DD - CONCURRENT PP MS OVERLAY LOADER.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 6dd |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1986. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.6dd +++| 6DD SPACE 4,10 00010 M01S00009.6dd +++|*** 6DD - CONCURRENT PP MS OVERLAY LOADER. 00011 M01S00010.6dd +++|* 00012 M01S00011.6dd +++|* S. L. BETH. 86/08/14. 00013 M01S00012.6dd +++| SPACE 4,20 00014 M01S00013.6dd +++|*** *6DD* LOADS MS OVERLAYS INTO CONCURRENT PPS (CPP). IT IS 00015 M01S00014.6dd +++|* EXPECTED THAT THE ONLY CPP SUBROUTINE TO CALL *6DD* WILL BE 00016 M01S00015.6dd +++|* THE PERIPHERAL LIBRARY LOADER (PLL) IN PP RESIDENT. *6DD* IS 00017 M01S00016.6dd +++|* LOADED INTO THE DRIVER OVERLAY AREA WHEN A CPP PROGRAM ISSUES 00018 M01S00017.6dd +++|* A *SETMS* REQUEST FOR A 12 BIT MS OVERLAY LOAD. 6DD PROVIDES 00019 M01S00018.6dd +++|* THE STANDARD DRIVER ENTRY POINTS, *RDS*, *WDS*, AND *EMS*. 00020 M01S00019.6dd +++|* 00021 M01S00020.6dd +++|* WHEN IT IS CALLED AT *RDS*, IT ISSUES A CALL TO *1MA* TO AID 00022 M01S00021.6dd +++|* THE LOAD. *1MA* WILL READ THE DISK AND PASS THE DATA TO 00023 M01S00022.6dd +++|* *6DD* VIA THE MESSAGE BUFFER. 00024 M01S00023.6dd +++|* 00025 M01S00024.6dd +++|* WHEN *6DD* IS CALLED AT *WDS*, IT HANGS THE *CPP*. 00026 M01S00025.6dd +++|* 00027 M01S00026.6dd +++|* WHEN IT IS CALLED AT *EMS*, IT SIMPLY RETURNS TO THE CALLER. 00028 M01S00027.6dd +++|* 00029 M01S00028.6dd +++| SPACE 4,10 00030 M01S00029.6dd +++|*** ENTRY CONDITIONS. 00031 M01S00030.6dd +++|* 00032 M01S00031.6dd +++|* MS RESIDENT OVERLAY. 00033 M01S00032.6dd +++|* (T5 - T7) = 6/ ESTO,12/ TRACK,12/ SECTOR 00034 M01S00033.6dd +++|* 00035 M01S00034.6dd +++|* MS READ. (NOT SUPPORTED) 00036 M01S00035.6dd +++|* (T5 - T7) = 3/0, 9/ ESTO,12/ TRACK,12/ SECTOR 00037 M01S00036.6dd +++| COMMON SPACE 4,10 00038 M01S00037.6dd +++|* COMMON DECKS. 00039 M01S00038.6dd +++| 00040 M01S00039.6dd +++| 00041 M01S00040.6dd +++|*CALL COMPMAC 00042 M01S00041.6dd +++|*CALL COMPIOU 00043 M01S00042.6dd +++|*CALL COMSMSC 00044 M01S00043.6dd +++|*CALL COMSMSP 00045 M01S00044.6dd +++| EJECT 00046 M01S00045.6dd +++|** ENTRY POINT TRANSFERS. 00047 M01S00046.6dd +++| 00048 M01S00047.6dd +++| 00049 M01S00048.6dd +++| ORG MSFW 00050 M01S00049.6dd +++| 00051 M01S00050.6dd +++| CON PRS PRESET ADDRESS 00052 M01S00051.6dd +++| 00053 M01S00052.6dd +++| 00054 M01S00053.6dd +++| RDS CON 0 ENTRY 00055 M01S00054.6dd +++| UJN RDS. ENTER DRIVER 00056 M01S00055.6dd +++| 00057 M01S00056.6dd +++| 00058 M01S00057.6dd +++| WDS CON 0 ENTRY 00059 M01S00058.6dd +++| UJN WDS. ENTER DRIVER 00060 M01S00059.6dd +++| EMS SPACE 4,10 00061 M01S00060.6dd +++|** EMS - END MASS STORAGE OPERATION. 00062 M01S00061.6dd +++|* 00063 M01S00062.6dd +++|* EXIT (A) = 0. 00064 M01S00063.6dd +++| 00065 M01S00064.6dd +++| 00066 M01S00065.6dd +++| .EMS SUBR ENTRY/EXIT 00067 M01S00066.6dd +++| LDN 0 00068 M01S00067.6dd +++| STM CHRV 00069 M01S00068.6dd +++| UJN .EMSX RETURN 00070 M01S00069.6dd +++| WDS SPACE 4,10 00071 M01S00070.6dd +++|** WDS - WRITE SECTOR. 00072 M01S00071.6dd +++|* 00073 M01S00072.6dd +++|* *WDS* HANGS THE PP WHEN IT IS CALLED. 00074 M01S00073.6dd +++|* 00075 M01S00074.6dd +++|* ENTRY (A) = BUFFER ADDRESS FOR SECTOR. 00076 M01S00075.6dd +++| 00077 M01S00076.6dd +++| 00078 M01S00077.6dd +++| WDS. MONITOR HNGM HANG THE PP 00079 M01S00078.6dd +++| WDS1 UJN WDS. CONTINUE HANGING 00080 M01S00079.6dd +++| RDS SPACE 4,10 00081 M01S00080.6dd +++|** RDS - READ SECTOR. 00082 M01S00081.6dd +++|* 00083 M01S00082.6dd +++|* ENTRY (LA) = BUFFER ADDRESS FOR SECTOR. 00084 M01S00083.6dd +++|* 00085 M01S00084.6dd +++|* EXIT (A) = 0 IF TRANSFER COMPLETE. 00086 M01S00085.6dd +++|* .LT O, IF ERROR OCCURRED. 00087 M01S00086.6dd +++| 00088 M01S00087.6dd +++| 00089 M01S00088.6dd +++| RDS. LDD IA 00090 M01S00089.6dd +++| STM RDSB+4 00091 M01S00090.6dd +++| LDN 0 00092 M01S00091.6dd +++| STD T4 00093 M01S00092.6dd +++| STD CM+1 00094 M01S00093.6dd +++| LDD T5 CLEAR RECORD TYPE DATA 00095 M01S00094.6dd +++| LPC 377 00096 M01S00095.6dd +++| STD T5 00097 M01S00096.6dd +++| LDD MA CALL *1MA* TO ASSIST IN THE LOAD 00098 M01S00097.6dd +++| CWM RDSB,ON 00099 M01S00098.6dd +++| STD CM 00100 M01S00099.6dd +++| CWD T4 00101 M01S00100.6dd +++| MONITOR RPPM 00102 M01S00101.6dd +++| LDDL LA SET LOAD ADDRESS 00103 M01S00102.6dd +++| STML RDSA
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | 6dd |
M02 (Updated by) | 6dd1 |
Seq # *Modification Id* Act ----------------------------+ 00104 M02S00103.6dd1 ---| RDS1 LDD MA 00105 M01S00001.6dd1 +++| RDS1 PAUSE 00106 M01S00002.6dd1 +++| LDD MA 00107 M01S00104.6dd +++| ADN 1 00108 M01S00105.6dd +++| CRD CM 00109 M01S00106.6dd +++| LDD CM CHECK FOR DATA READY 00110 M01S00107.6dd +++| SHN 21-13 00111 M01S00108.6dd +++| MJN RDS2 IF ERROR IN LOAD 00112 M01S00109.6dd +++| SHN 13-12 00113 M01S00110.6dd +++| MJN RDS3 IF EOR ENCOUNTERED 00114 M01S00111.6dd +++| ZJN RDS1 IF DATA NOT READY 00115 M01S00112.6dd +++| LDD MA READ DATA 00116 M01S00113.6dd +++| ADN 2 00117 M01S00114.6dd +++| CRM **,CM 00118 M01S00115.6dd +++| RDSA EQU *-1 00119 M01S00116.6dd +++| LDD CM ADVANCE READ ADDRESS 00120 M01S00117.6dd +++| SHN 2 00121 M01S00118.6dd +++| ADD CM 00122 M01S00119.6dd +++| RAML RDSA 00123 M01S00120.6dd +++| LDN 0 INDICATE READY FOR NEXT BLOCK 00124 M01S00121.6dd +++| STD CM 00125 M01S00122.6dd +++| LDD MA 00126 M01S00123.6dd +++| ADN 1 00127 M01S00124.6dd +++| CWD CM 00128 M01S00125.6dd +++| UJN RDS1 LOOP FOR MORE DATA 00129 M01S00126.6dd +++| 00130 M01S00127.6dd +++| RDS2 LDML RDS SET RETURN ADDRESS 00131 M01S00128.6dd +++| STDL CM 00132 M01S00129.6dd +++| LCN 1 SET ERROR FLAG 00133 M01S00130.6dd +++| LJM 0,CM RETURN 00134 M01S00131.6dd +++| 00135 M01S00132.6dd +++| RDS3 LDML RDS SET RETURN ADDRESS 00136 M01S00133.6dd +++| STDL CM 00137 M01S00134.6dd +++| LDN 0 INDICATE READ COMPLETE 00138 M01S00135.6dd +++| LJM 0,CM RETURN 00139 M01S00136.6dd +++| 00140 M01S00137.6dd +++| 00141 M01S00138.6dd +++| RDSB VFD 18/3L1MA,6/0,12/11,24/0 00142 M01S00139.6dd +++| PRS SPACE 4,10 00143 M01S00140.6dd +++|** PRS - PRESET. 00144 M01S00141.6dd +++|* 00145 M01S00142.6dd +++|* MACROS BLI. 00146 M01S00143.6dd +++| 00147 M01S00144.6dd +++| 00148 M01S00145.6dd +++| PRS LDC PRSA GET TABLE OF LONG INSTRUCTIONS 00149 M01S00146.6dd +++| STD CM+4 00150 M01S00147.6dd +++| LDD T3 PRESERVE *T3* 00151 M01S00148.6dd +++| STD CM+3 00152 M01S00149.6dd +++| PRS1 LDI CM+4 GET NEXT INSTRUCTION ADDRESS 00153 M01S00150.6dd +++| ZJN PRS2 IF END OF LIST 00154 M01S00151.6dd +++| STD T3 00155 M01S00152.6dd +++| BLI T3 BUILD LONG INSTRUCTION 00156 M01S00153.6dd +++| AOD CM+4 00157 M01S00154.6dd +++| UJN PRS1 PROCESS NEXT INSTRUCTION 00158 M01S00155.6dd +++| 00159 M01S00156.6dd +++| PRS2 LDD CM+3 RESTORE *T3* 00160 M01S00157.6dd +++| STD T3 00161 M01S00158.6dd +++| LDC SMSX ENSURE PRESET IS NOT RE-EXECUTED 00162 M01S00159.6dd +++| STM MSFW 00163 M01S00160.6dd +++| LJM SMSX RETURN 00164 M01S00161.6dd +++| 00165 M01S00162.6dd +++| 00166 M01S00163.6dd +++| PRSA BSS 0 00167 M01S00164.6dd +++| LIST16 00168 M01S00165.6dd +++| 00169 M01S00166.6dd +++| .1 MAX * 00170 M01S00167.6dd +++| .1 SET .1+4-MSFW CHECK FOR OVERFLOW 00171 M01S00168.6dd +++| .1 SET .1/5 00172 M01S00169.6dd +++| .1 SET MSFW+.1*5 00173 M01S00170.6dd +++| .2 SET PPFW-5-*-5 BYTES AVAILABLE BEFORE OVERFLOW 00174 M01S00171.6dd +++| ERRNG PPFW-5-.1 DRIVER OVERFLOWS INTO *PPFW*-5 00175 M01S00172.6dd +++| END
cdc/nos2.source/opl.opl871/deck/6dd.txt · Last modified: by 127.0.0.1