cdc:nos2.source:opl.opl871:common:compcea
Common COMPCEA
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compcea +++| CTEXT COMPCEA - CONVERT EXTENDED MEMORY ADDRESS. 00002 M01S00002.compcea +++| IF -DEF,QUAL$,1 00003 M01S00003.compcea +++| QUAL COMPCEA 00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M01S00004.compcea +++| SPACE 4 00006 M01S00005.compcea +++|*** CEA - CONVERT EXTENDED MEMORY ADDRESS. 00007 M01S00006.compcea +++|* D. A. HIVELEY. 75/01/28. 00008 M01S00007.compcea +++| SPACE 4 00009 M01S00008.compcea +++|*** CEA CONVERTS A LOGICAL TRACK AND SECTOR ADDRESS 00010 M01S00009.compcea +++|* INTO AN XM ADDRESS. DUE TO THE FORMAT OF XM, TWO ADDRESSES 00011 M01S00010.compcea +++|* ARE RETURNED. THESE ARE THE ADDRESS OF THE LINKAGE BYTES 00012 M01S00011.compcea +++|* AND THE ADDRESS OF THE DATA SECTOR. 00013 M01S00012.compcea +++|* LINK WORD ADDR = (TRACK*101B*SLDE) + SECTOR. 00014 M01S00013.compcea +++|* DATA ADDR = (TRACK*101B*SLDE) + (SECTOR*100B) + SLDE. 00015 M01S00014.compcea +++|* 00016 M01S00015.compcea +++|* IF *CEI$* IS DEFINED, ROUTINE *CEI* WILL BE ASSEMBLED TO USE 00017 M01S00016.compcea +++|* THE XM TRACK SHIFT ASSOCIATED WITH THE CPU ACCESSIBLE XM 00018 M01S00017.compcea +++|* DEVICE. OTHERWISE, THE XM LINK DEVICE WILL BE USED. 00019 M01S00018.compcea +++|* 00020 M01S00019.compcea +++|* IF *CEA$* IS DEFINED, REMOTE CODE FOR SUBROUTINE *CEI* 00021 M01S00020.compcea +++|* WILL BE DEFINED TO INITIALIZE THE TRACK SIZE AND SECTOR 00022 M01S00021.compcea +++|* LIMIT. A *CEI* LABELED *HERE* INSTRUCTION MUST BE 00023 M01S00022.compcea +++|* SPECIFIED TO CAUSE ASSEMBLY OF THE *CEI* SUBROUTINE AT 00024 M01S00023.compcea +++|* THE APPROPRIATE PLACE WITHIN THE CALLING PP PROGRAM 00025 M01S00024.compcea +++|* (PRESET RECOMMENDED). THE CALLING PROGRAM MUST RETURN 00026 M01S00025.compcea +++|* JUMP TO *CEI* BEFORE MAKING ANY *CEA* CALLS. 00027 M01S00026.compcea +++|* 00028 M01S00027.compcea +++|* IF *CEA$* IS NOT DEFINED, THE SUBROUTINE *CEI* WILL BE 00029 M01S00028.compcea +++|* ASSEMBLED IN-LINE, AND THE FIRST EXECUTION OF *CEA* WILL 00030 M01S00029.compcea +++|* INITIALIZE THE TRACK SIZE AND SECTOR LIMIT CODE. 00031 M01S00030.compcea +++|* EXECUTION OF *CEI* DESTROYS CM - CM+4. 00032 M01S00031.compcea +++|* 00033 M01S00032.compcea +++|* ENTRY (T6) = XM TRACK. 00034 M01S00033.compcea +++|* (T7) = XM SECTOR. 00035 M01S00034.compcea +++|* 00036 M01S00035.compcea +++|* EXIT (CM+3 - CM+4) = XM ADDRESS OF DATA SECTOR. 00037 M01S00036.compcea +++|* (T0 - T1) = XM ADDRESS OF LINKAGE WORD FOR SECTOR. 00038 M01S00037.compcea +++| 00039 M01S00038.compcea +++| 00040 M01S00039.compcea +++| CEA1 LDD T6 EXTRACT TRACK 00041 M01S00040.compcea +++| LPC 3777 00042 M01S00041.compcea +++| CEAA SHN 4 TRACK*X (X=20B, 40B, 100B OR 200B) 00043 M01S00042.compcea +++| STD T1 00044 M01S00043.compcea +++| SHN -14 00045 M01S00044.compcea +++| STD T0 00046 M01S00045.compcea +++| SHN 14 00047 M01S00046.compcea +++| LMD T1 00048 M01S00047.compcea +++| SHN -6 00049 M01S00048.compcea +++| RAD T0 00050 M01S00049.compcea +++| LDD T1 00051 M01S00050.compcea +++| LPN 77 00052 M01S00051.compcea +++| SHN 6 00053 M01S00052.compcea +++| ADD T7 PLUS SECTOR 00054 M01S00053.compcea +++| RAD T1 00055 M01S00054.compcea +++| SHN -14 00056 M01S00055.compcea +++| RAD T0 00057 M01S00056.compcea +++| LDD T7 ADD (SECTOR*77B) + SECTOR LIMIT 00058 M01S00057.compcea +++| SHN 6 00059 M01S00058.compcea +++| SBD T7 00060 M01S00059.compcea +++| ADC ** ADD SECTOR LIMIT 00061 M01S00060.compcea +++| CEAB EQU *-1 00062 M01S00061.compcea +++| ADD T1 00063 M01S00062.compcea +++| STD CM+4 00064 M01S00063.compcea +++| SHN -14 00065 M01S00064.compcea +++| ADD T0 00066 M01S00065.compcea +++| STD CM+3 00067 M01S00066.compcea +++| 00068 M01S00067.compcea +++| CEA SUBR ENTRY/EXIT 00069 M01S00068.compcea +++| CEA$ IF -DEF,CEA$ 00070 M01S00069.compcea +++| CEAC RJM CEI INITIALIZE XM ADDRESS FORMULA 00071 M01S00070.compcea +++|* UJN CEA1 (INITIALIZATION COMPLETE) 00072 M01S00071.compcea +++| CEA$ ENDIF 00073 M01S00072.compcea +++| UJP CEA1 INITIALIZATION COMPLETE 00074 M01S00073.compcea +++| CEA$ IF DEF,CEA$ 00075 M01S00074.compcea +++| CEI RMT 00076 M01S00075.compcea +++| CEA$ ENDIF 00077 M01S00076.compcea +++| CEI SPACE 4,10 00078 M01S00077.compcea +++|** CEI - CEA INITIALIZE. 00079 M01S00078.compcea +++|* 00080 M01S00079.compcea +++|* ENTRY (T6) = XM TRACK. 00081 M01S00080.compcea +++|* (T7) = XM SECTOR. 00082 M01S00081.compcea +++|* 00083 M01S00082.compcea +++|* EXIT FORMULA IN *CEA* INITIALIZED TO USE SHIFT COUNT 00084 M01S00083.compcea +++|* ASSOCIATED WITH DEVICE SPECIFIED BY *CEI$*. 00085 M01S00084.compcea +++|* 00086 M01S00085.compcea +++|* USES CM - CM+4. 00087 M01S00086.compcea +++|* 00088 M01S00087.compcea +++|* MACROS ISTORE. 00089 M01S00088.compcea +++| 00090 M01S00089.compcea +++| 00091 M01S00090.compcea +++| CEI SUBR ENTRY/EXIT 00092 M01S00091.compcea +++| CEI$ IF DEF,CEI$ 00093 M01S00092.compcea +++| LDK EXML USE *XMSC* OF CPU-ACCESSIBLE EM DEVICE 00094 M01S00093.compcea +++| CRD CM 00095 M01S00094.compcea +++| LDD CM+4 00096 M01S00095.compcea +++| CEI$ ELSE 00097 M01S00096.compcea +++| LDK MMFL USE *EMSC* OF LINK DEVICE 00098 M01S00097.compcea +++| CRD CM 00099 M01S00098.compcea +++| LDD CM+1 00100 M01S00099.compcea +++| CEI$ ENDIF 00101 M01S00100.compcea +++| LPC 777 00102 M01S00101.compcea +++| SFA EST 00103 M01S00102.compcea +++| ADK EQAE 00104 M01S00103.compcea +++| CRD CM 00105 M01S00104.compcea +++| LDD CM+2 00106 M01S00105.compcea +++| SHN -6 SET XM SHIFT COUNT 00107 M01S00106.compcea +++| LPN 3 00108 M01S00107.compcea +++| RAM CEAA 00109 M01S00108.compcea +++| STM CEIA 00110 M01S00109.compcea +++| LDN 1 00111 M01S00110.compcea +++| CEIA SHN ** 00112 M01S00111.compcea +++| STM CEAB SECTORS PER TRACK 00113 M01S00112.compcea +++| CEA$ IF -DEF,CEA$ 00114 M01S00113.compcea +++| ISTORE CEAC,(UJN CEA1) 00115 M01S00114.compcea +++| CEA$ ENDIF 00116 M01S00115.compcea +++| UJN CEIX FORMULA INITIALIZED 00117 M01S00116.compcea +++| CEA$ IF DEF,CEA$ 00118 M01S00117.compcea +++| CEI RMT 00119 M01S00118.compcea +++| CEA$ ENDIF 00120 M01S00119.compcea +++| SPACE 4 00121 M01S00120.compcea +++| QUAL$ IF -DEF,QUAL$ 00122 M01S00121.compcea +++| QUAL * 00123 M01S00122.compcea +++| CEA EQU /COMPCEA/CEA 00124 M01S00123.compcea +++| QUAL$ ENDIF 00125 M01S00124.compcea +++| ENDX
cdc/nos2.source/opl.opl871/common/compcea.txt · Last modified: by 127.0.0.1