Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcea +++|          CTEXT  COMPCEA - CONVERT EXTENDED MEMORY ADDRESS.
00002  M00S00002.compcea +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compcea +++|          QUAL   COMPCEA

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compcea +++|          SPACE  4
00006  M00S00005.compcea +++|***       CEA - CONVERT EXTENDED MEMORY ADDRESS.
00007  M00S00006.compcea +++|*         D. A. HIVELEY.     75/01/28.
00008  M00S00007.compcea +++|          SPACE  4
00009  M00S00008.compcea +++|***              CEA CONVERTS A LOGICAL TRACK AND SECTOR ADDRESS
00010  M00S00009.compcea +++|*         INTO AN XM ADDRESS.  DUE TO THE FORMAT OF XM, TWO ADDRESSES
00011  M00S00010.compcea +++|*         ARE RETURNED. THESE ARE THE ADDRESS OF THE LINKAGE BYTES
00012  M00S00011.compcea +++|*         AND THE ADDRESS OF THE DATA SECTOR.
00013  M00S00012.compcea +++|*         LINK WORD ADDR = (TRACK*101B*SLDE) + SECTOR.
00014  M00S00013.compcea +++|*         DATA ADDR = (TRACK*101B*SLDE) + (SECTOR*100B) + SLDE.
00015  M00S00014.compcea +++|*
00016  M00S00015.compcea +++|*         IF *CEI$* IS DEFINED, ROUTINE *CEI* WILL BE ASSEMBLED TO USE
00017  M00S00016.compcea +++|*         THE XM TRACK SHIFT ASSOCIATED WITH THE CPU ACCESSIBLE XM
00018  M00S00017.compcea +++|*         DEVICE.  OTHERWISE, THE XM LINK DEVICE WILL BE USED.
00019  M00S00018.compcea +++|*
00020  M00S00019.compcea +++|*         IF *CEA$* IS DEFINED, REMOTE CODE FOR SUBROUTINE *CEI*
00021  M00S00020.compcea +++|*         WILL BE DEFINED TO INITIALIZE THE TRACK SIZE AND SECTOR
00022  M00S00021.compcea +++|*         LIMIT.  A *CEI* LABELED *HERE* INSTRUCTION MUST BE
00023  M00S00022.compcea +++|*         SPECIFIED TO CAUSE ASSEMBLY OF THE *CEI* SUBROUTINE AT
00024  M00S00023.compcea +++|*         THE APPROPRIATE PLACE WITHIN THE CALLING PP PROGRAM
00025  M00S00024.compcea +++|*         (PRESET RECOMMENDED).  THE CALLING PROGRAM MUST RETURN
00026  M00S00025.compcea +++|*         JUMP TO *CEI* BEFORE MAKING ANY *CEA* CALLS.
00027  M00S00026.compcea +++|*
00028  M00S00027.compcea +++|*         IF *CEA$* IS NOT DEFINED, THE SUBROUTINE *CEI* WILL BE
00029  M00S00028.compcea +++|*         ASSEMBLED IN-LINE, AND THE FIRST EXECUTION OF *CEA* WILL
00030  M00S00029.compcea +++|*         INITIALIZE THE TRACK SIZE AND SECTOR LIMIT CODE.
00031  M00S00030.compcea +++|*         EXECUTION OF *CEI* DESTROYS CM - CM+4.
00032  M00S00031.compcea +++|*
00033  M00S00032.compcea +++|*         ENTRY  (T6) = XM TRACK.
00034  M00S00033.compcea +++|*                (T7) = XM SECTOR.
00035  M00S00034.compcea +++|*
00036  M00S00035.compcea +++|*         EXIT   (CM+3 - CM+4) = XM ADDRESS OF DATA SECTOR.
00037  M00S00036.compcea +++|*                (T0 - T1) = XM ADDRESS OF LINKAGE WORD FOR SECTOR.
00038  M00S00037.compcea +++|
00039  M00S00038.compcea +++|
00040  M00S00039.compcea +++| CEA1     LDD    T6          EXTRACT TRACK
00041  M00S00040.compcea +++|          LPC    3777
00042  M00S00041.compcea +++| CEAA     SHN    4           TRACK*X (X=20B, 40B, 100B OR 200B)
00043  M00S00042.compcea +++|          STD    T1
00044  M00S00043.compcea +++|          SHN    -14
00045  M00S00044.compcea +++|          STD    T0
00046  M00S00045.compcea +++|          SHN    14
00047  M00S00046.compcea +++|          LMD    T1
00048  M00S00047.compcea +++|          SHN    -6
00049  M00S00048.compcea +++|          RAD    T0
00050  M00S00049.compcea +++|          LDD    T1
00051  M00S00050.compcea +++|          LPN    77
00052  M00S00051.compcea +++|          SHN    6
00053  M00S00052.compcea +++|          ADD    T7          PLUS SECTOR
00054  M00S00053.compcea +++|          RAD    T1
00055  M00S00054.compcea +++|          SHN    -14
00056  M00S00055.compcea +++|          RAD    T0
00057  M00S00056.compcea +++|          LDD    T7          ADD (SECTOR*77B) + SECTOR LIMIT
00058  M00S00057.compcea +++|          SHN    6
00059  M00S00058.compcea +++|          SBD    T7
00060  M00S00059.compcea +++|          ADC    **          ADD SECTOR LIMIT
00061  M00S00060.compcea +++| CEAB     EQU    *-1
00062  M00S00061.compcea +++|          ADD    T1
00063  M00S00062.compcea +++|          STD    CM+4
00064  M00S00063.compcea +++|          SHN    -14
00065  M00S00064.compcea +++|          ADD    T0
00066  M00S00065.compcea +++|          STD    CM+3
00067  M00S00066.compcea +++|
00068  M00S00067.compcea +++| CEA      SUBR               ENTRY/EXIT
00069  M00S00068.compcea +++| CEA$     IF     -DEF,CEA$
00070  M00S00069.compcea +++| CEAC     RJM    CEI         INITIALIZE XM ADDRESS FORMULA
00071  M00S00070.compcea +++|*         UJN    CEA1        (INITIALIZATION COMPLETE)
00072  M00S00071.compcea +++| CEA$     ENDIF
00073  M00S00072.compcea +++|          UJP    CEA1        INITIALIZATION COMPLETE
00074  M00S00073.compcea +++| CEA$     IF     DEF,CEA$
00075  M00S00074.compcea +++| CEI      RMT
00076  M00S00075.compcea +++| CEA$     ENDIF
00077  M00S00076.compcea +++| CEI      SPACE  4,10
00078  M00S00077.compcea +++|**        CEI - CEA INITIALIZE.
00079  M00S00078.compcea +++|*
00080  M00S00079.compcea +++|*         ENTRY  (T6) = XM TRACK.
00081  M00S00080.compcea +++|*                (T7) = XM SECTOR.
00082  M00S00081.compcea +++|*
00083  M00S00082.compcea +++|*         EXIT   FORMULA IN *CEA* INITIALIZED TO USE SHIFT COUNT
00084  M00S00083.compcea +++|*                ASSOCIATED WITH DEVICE SPECIFIED BY *CEI$*.
00085  M00S00084.compcea +++|*
00086  M00S00085.compcea +++|*         USES   CM - CM+4.
00087  M00S00086.compcea +++|*
00088  M00S00087.compcea +++|*         MACROS ISTORE.
00089  M00S00088.compcea +++|
00090  M00S00089.compcea +++|
00091  M00S00090.compcea +++| CEI      SUBR               ENTRY/EXIT
00092  M00S00091.compcea +++| CEI$     IF     DEF,CEI$
00093  M00S00092.compcea +++|          LDK    EXML        USE *XMSC* OF CPU-ACCESSIBLE EM DEVICE
00094  M00S00093.compcea +++|          CRD    CM
00095  M00S00094.compcea +++|          LDD    CM+4
00096  M00S00095.compcea +++| CEI$     ELSE
00097  M00S00096.compcea +++|          LDK    MMFL        USE *EMSC* OF LINK DEVICE
00098  M00S00097.compcea +++|          CRD    CM
00099  M00S00098.compcea +++|          LDD    CM+1
00100  M00S00099.compcea +++| CEI$     ENDIF
00101  M00S00100.compcea +++|          LPC    777
00102  M00S00101.compcea +++|          SFA    EST
00103  M00S00102.compcea +++|          ADK    EQAE
00104  M00S00103.compcea +++|          CRD    CM
00105  M00S00104.compcea +++|          LDD    CM+2
00106  M00S00105.compcea +++|          SHN    -6          SET XM SHIFT COUNT
00107  M00S00106.compcea +++|          LPN    3
00108  M00S00107.compcea +++|          RAM    CEAA
00109  M00S00108.compcea +++|          STM    CEIA
00110  M00S00109.compcea +++|          LDN    1
00111  M00S00110.compcea +++| CEIA     SHN    **
00112  M00S00111.compcea +++|          STM    CEAB        SECTORS PER TRACK
00113  M00S00112.compcea +++| CEA$     IF     -DEF,CEA$
00114  M00S00113.compcea +++|          ISTORE CEAC,(UJN CEA1)
00115  M00S00114.compcea +++| CEA$     ENDIF
00116  M00S00115.compcea +++|          UJN    CEIX        FORMULA INITIALIZED
00117  M00S00116.compcea +++| CEA$     IF     DEF,CEA$
00118  M00S00117.compcea +++| CEI      RMT
00119  M00S00118.compcea +++| CEA$     ENDIF
00120  M00S00119.compcea +++|          SPACE  4
00121  M00S00120.compcea +++| QUAL$    IF     -DEF,QUAL$
00122  M00S00121.compcea +++|          QUAL   *
00123  M00S00122.compcea +++| CEA      EQU    /COMPCEA/CEA
00124  M00S00123.compcea +++| QUAL$    ENDIF
00125  M00S00124.compcea +++|          ENDX