Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.mte +++| IDENT MTE,PRS
00002 M01S00002.mte +++| PERIPH
00003 M01S00003.mte +++| BASE MIXED
Line S00004 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00004 M02S00004.283l840 ---| SST PPR,LEP,DFM,EXR,.SMS,EPFW,RA,FL,IA,MA
00005 M01S00001.283l840 +++| SST PPR,LEP,DFM,EXR,.SMS,RA,FL,IA,MA,EPFW
00006 M01S00005.mte +++| TITLE MTE - MONITOR EXTENDED MEMORY INTERFACE.
00007 M01S00006.mte +++|*COMMENT MTE - MONITOR EXTENDED MEMORY INTERFACE.
Line S00007 Modification History
M01 (Added by) mte
M02 (Updated by) 281l803
Seq # *Modification Id* Act
----------------------------+
00008 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00010 M01S00008.mte +++| MTE SPACE 4,10
00011 M01S00009.mte +++|*** MTE - MONITOR EXTENDED MEMORY INTERFACE.
00012 M01S00010.mte +++|* W. E. GOEBEL. 86/01/20.
00013 M01S00002.283l840 +++|* R. C. SCHMITTER 94/03/21.
00014 M01S00011.mte +++| SPACE 4,20
00015 M01S00012.mte +++|*** *MTE* IS LOADED INTO A PP AT DEAD START TIME IF THE SYSTEM
00016 M01S00013.mte +++|* IS RUNNING IN MULTI-MAINFRAME MODE, AND THE LINK DEVICE HAS
00017 M01S00014.mte +++|* NO CPU COUPLER ACCESS.
00018 M01S00015.mte +++|*
00019 M01S00016.mte +++|* *MTE* PERFORMS THE FOLLOWING FUNCTIONS.
00020 M01S00017.mte +++|*
00021 M01S00018.mte +++|* 1. PROCESS DEVICE INTERLOCK REQUESTS FOR *DTKM*, *DLKM*,
00022 M01S00019.mte +++|* *RTCM*, *STBM*, AND *VMSM* MONITOR FUNCTIONS.
Line S00020 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00023 M02S00020.ns2783 ---|* 2. PROCESS *AFAM* AND *ECSM* MONITOR FUNCTIONS IN THEIR
Line S00021 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00024 M02S00021.ns2783 ---|* ENTIRETY.
00025 M01S00001.ns2783 +++|* 2. PROCESS *AFAM*, *ECSM* AND *MTEM* MONITOR FUNCTIONS IN
00026 M01S00002.ns2783 +++|* THEIR ENTIRETY.
00027 M01S00022.mte +++|* 3. WRITE DEVICE TABLES TO EXTENDED MEMORY AND CLEAR DEVICE
00028 M01S00023.mte +++|* INTERLOCKS.
00029 M01S00024.mte +++|* 4. SCAN EXTENDED MEMORY CLOCKS TO DETERMINE ACTIVE MACHINES.
Line S00025 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00030 M02S00025.283l840 ---|* 5. PROCESS INTER-MACHINE FUNCTION REQUESTS.
00031 M01S00003.283l840 +++|* 5. PROCESS BUFFER ACCESS TABLE (BAT) REQUESTS WHEN SHARED
00032 M01S00004.283l840 +++|* DAS DEVICES ARE PRESENT.
00033 M01S00026.mte +++|*
00034 M01S00027.mte +++|* *MTE* DOES NOT USE *PPR* ROUTINES PAST *EFTN*. THUS, DISK
00035 M01S00028.mte +++|* DRIVER USAGE, DAYFILE MESSAGES, AND RE-ENTERING *PPR* ARE
00036 M01S00029.mte +++|* NOT ALLOWED. A SPECIAL VERSION OF *EXR* IS INCLUDED IN
00037 M01S00030.mte +++|* *MTE* FOR LOADING CM RESIDENT OVERLAYS. THE *PPR* VERSION
00038 M01S00031.mte +++|* OF *EXR* IS NOT USED.
00039 M01S00032.mte +++| SPACE 4,10
00040 M01S00033.mte +++|*** CALL.
00041 M01S00034.mte +++|*
00042 M01S00035.mte +++|*T 18/ MTE,6/ CP,24/,12/ RM
Figure
0 11 12 29 RM 30 35 36 41 42 59 CP MTE
00043 M01S00036.mte +++|*
00044 M01S00037.mte +++|* CP = SYSTEM CONTROL POINT NUMBER.
00045 M01S00038.mte +++|* RM = RECOVERY MODE.
00046 M01S00039.mte +++| SPACE 4,40
00047 M01S00040.mte +++|*** A MEMORY MAP OF *MTE* IS AS FOLLOWS.
00048 M01S00041.mte +++|*
00049 M01S00042.mte +++|* 0 *************************************************************
00050 M01S00043.mte +++|* * *
00051 M01S00044.mte +++|* * DIRECT CELLS *
00052 M01S00045.mte +++|* * *
00053 M01S00046.mte +++|* *************************************************************
00054 M01S00047.mte +++|* 100 * *
00055 M01S00048.mte +++|* * *PPR* ROUTINES (*FTN*, *.DLY*, *.EST*) *
00056 M01S00049.mte +++|* * *
00057 M01S00050.mte +++|* *************************************************************
00058 M01S00051.mte +++|* EFTN * *
Line S00052 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00059 M02S00052.283l840 ---|* * MST/TRT READ/WRITE BUFFERS *
00060 M01S00005.283l840 +++|* * MST/TRT/BAT/BRT READ/WRITE BUFFERS *
00061 M01S00053.mte +++|* * *MTE* PRESET (OVERLAYS BUFFERS) *
00062 M01S00054.mte +++|* * DOWN MACHINE PROCESSING (OVERLAYS BUFFERS) *
00063 M01S00055.mte +++|* * EXTENDED MEMORY ERROR RECOVERY (OVERLAYS BUFFERS) *
Line S00056 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00064 M02S00056.ns2783 ---|* * *MTE* BREAKPOINT *
00065 M01S00057.mte +++|* * *
00066 M01S00058.mte +++|* *************************************************************
00067 M01S00059.mte +++|* * *
00068 M01S00060.mte +++|* * *MTE* MAIN LOOP *
00069 M01S00061.mte +++|* * *
00070 M01S00062.mte +++|* * MONITOR FUNCTION PROCESSORS *
00071 M01S00063.mte +++|* * *
00072 M01S00064.mte +++|* * SUBROUTINES *
00073 M01S00065.mte +++|* * *
00074 M01S00066.mte +++|* * EXTENDED MEMORY INTERFACE ROUTINES *
00075 M01S00067.mte +++|* * *
00076 M01S00068.mte +++|* *************************************************************
00077 M01S00069.mte +++|* EPFW * *
00078 M01S00070.mte +++|* * EXTENDED MEMORY ERROR PROCESSING AREA *
00079 M01S00071.mte +++|* * *
00080 M01S00072.mte +++|* *************************************************************
00081 M01S00073.mte +++| SPACE 4,10
00082 M01S00074.mte +++|*** *MTE* DEBUG CAPABILITY - UEM EMULATION OF EXTENDED MEMORY.
00083 M01S00075.mte +++|*
00084 M01S00076.mte +++|* *MTE* WILL INTERFACE WITH UEM AS A LINK DEVICE FOR THE
00085 M01S00077.mte +++|* PURPOSE OF TESTING MMF CODE. NO ACTUAL SHARING OF DEVICES
00086 M01S00078.mte +++|* IS POSSIBLE SINCE NO HARDWARE PROVISION EXISTS FOR MULTIPLE
00087 M01S00079.mte +++|* MACHINE ACCESS TO UEM. TO UTILIZE THIS FEATURE, SIMPLY
00088 M01S00080.mte +++|* DEFINE EQUIPMENT 5 AS UEM AND DECLARE IT AS SHARED.
00089 M01S00081.mte +++|* *SET* WILL TREAT IT AS A 180 MMF LINK DEVICE AND *MTE*
00090 M01S00082.mte +++|* WILL BE LOADED. UEM WILL LOOK EXACTLY AS AN EXTENDED MEMORY
00091 M01S00083.mte +++|* DEVICE WITH THE FLAG REGISTER BEING SIMULATED AND ITS
00092 M01S00084.mte +++|* CONTENTS STORED IN *EFRL*.
00093 M01S00085.mte +++| SPACE 4,10
Line S00086 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00094 M02S00086.ns2783 ---|*** *MTE* DEBUG CAPABILITY - BREAKPOINTING *MTE*.
Line S00087 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00095 M02S00087.ns2783 ---|*
Line S00088 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00096 M02S00088.ns2783 ---|* A CAPABILITY EXISTS TO BREAKPOINT *MTE* VIA PP BREAKPOINT.
Line S00089 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00097 M02S00089.ns2783 ---|* *MTE* MUST BE ASSEMBLED WITH THE FOLLOWING *MODIFY*
Line S00090 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00098 M02S00090.ns2783 ---|* DIRECTIVE.
Line S00091 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00099 M02S00091.ns2783 ---|*
Line S00092 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00100 M02S00092.ns2783 ---|* *DEFINE,BKP
Line S00093 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00101 M02S00093.ns2783 ---|*
Line S00094 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00102 M02S00094.ns2783 ---|* THIS ENABLES CODE IN *MTE* WHICH READS ITS MESSAGE BUFFER
Line S00095 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00103 M02S00095.ns2783 ---|* ON EVERY SCAN LOOP CHECKING FOR BREAKPOINT OR DISPLAY
Line S00096 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00104 M02S00096.ns2783 ---|* REQUESTS. *MTE* ALWAYS CONTINUES RUNNING UNLESS A
Line S00097 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00105 M02S00097.ns2783 ---|* BREAKPOINT IS REACHED. THIS IS POSSIBLE DUE TO A VARIATION
Line S00098 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00106 M02S00098.ns2783 ---|* IN THE BREAKPOINT LOGIC WHICH ALLOWS *MTE* TO CONTINUE
Line S00099 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00107 M02S00099.ns2783 ---|* IF NOT AT BREAKPOINT OR IF NO *DSD* COMMUNICATION IS
Line S00100 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00108 M02S00100.ns2783 ---|* REQUESTED. THUS IT IS POSSIBLE TO MONITOR *MTE* MEMORY
Line S00101 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00109 M02S00101.ns2783 ---|* WHILE IT IS RUNNING, OR WHILE WAITING TO REACH A BREAKPOINT.
Line S00102 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00110 M02S00102.ns2783 ---|* A BREAKPOINT MAY ALSO BE CHANGED BEFORE IT IS REACHED.
Line S00103 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00111 M03S00103.ns2783 ---|* THIS CAPABILITY IS IMPLEMENTED IN PP MEMORY AT THE END
Line S00104 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00112 M03S00104.ns2783 ---|* OF THE TRT BUFFER. DUE TO THIS IMPLEMENTATION METHOD IT IS
Line S00105 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00113 M03S00105.ns2783 ---|* NOT POSSIBLE TO DEFINE EXTENDED MEMORY WITH A SIZE OF TWO
Line S00106 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00114 M03S00106.ns2783 ---|* MILLION WORDS AS THE LINK DEVICE. THIS IS THE ONLY DEVICE
Line S00107 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00115 M03S00107.ns2783 ---|* WHICH USES THE END OF THE TRT BUFFER. THE MAXIMUM
Line S00108 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00116 M03S00108.ns2783 ---|* EXTENDED MEMORY SIZE SUPPORTED WHEN IN BREAKPOINT MODE IS
Line S00109 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00117 M03S00109.ns2783 ---|* 7200 BLOCKS (SZ=7200 IN THE EQPDECK ENTRY FOR THE LINK).
Line S00110 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00118 M03S00110.ns2783 ---|* THE ERROR PROCESSOR FWA IS SET TO ALLOW ROOM FOR *BKP*
Line S00111 Modification History
M01 (Added by) mte
M02 (Updated by) ns2780
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00119 M03S00111.ns2783 ---|* WITH A MAXIMUM LENGTH TRT.
Line S00112 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00120 M02S00112.ns2783 ---|
Line S00113 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00121 M03S00113.ns2783 ---| EPFW EQU 7500+16*5 ERROR PROCESSING FWA
Line S00006 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00122 M02S00006.ns2783 ---|*EPFW EQU 7500+16*5 ERROR PROCESSING FWA
00123 M01S00007.283l840 +++| EPFW EQU 7540
00124 M01S00114.mte +++| SPACE 4,10
00125 M01S00115.mte +++|* COMMON DECKS.
00126 M01S00116.mte +++|
00127 M01S00117.mte +++|
00128 M01S00118.mte +++|*CALL COMPMAC
00129 M01S00119.mte +++|*CALL COMPCHI
00130 M01S00120.mte +++|*CALL COMSCPS
00131 M01S00001.252l678 +++| QUAL DSL
00132 M01S00002.252l678 +++|*CALL COMSDSL
00133 M01S00003.252l678 +++| QUAL *
00134 M01S00121.mte +++|*CALL COMSLSD
00135 M01S00122.mte +++| LIST X
00136 M01S00123.mte +++|*CALL COMSMMF
00137 M01S00124.mte +++| LIST *
00138 M01S00125.mte +++|*CALL COMSMRT
00139 M01S00126.mte +++|*CALL COMSMSC
00140 M01S00127.mte +++|*CALL COMSMSP
00141 M01S00128.mte +++|*CALL COMSPFM
00142 M01S00129.mte +++|*CALL COMSPIM
00143 M01S00130.mte +++|*CALL COMS1DS
00144 M01S00001.ns2780 +++| TITLE ASSEMBLY CONSTANTS.
00145 M01S00131.mte +++| SPACE 4,10
00146 M01S00132.mte +++|**** DIRECT LOCATION ASSIGNMENTS.
00147 M01S00133.mte +++|
00148 M01S00134.mte +++|
00149 M01S00135.mte +++| BEGIN BSSN 16 BEGINING OF DIRECT CELL DEFINITIONS
00150 M01S00136.mte +++|
00151 M01S00137.mte +++| T8 BSSN 1 SCRATCH
00152 M01S00138.mte +++| T9 BSSN 1 SCRATCH
00153 M01S00139.mte +++|
Line S00140 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00154 M02S00140.283l840 ---| FN BSSN 5 CM WORD BUFFER
00155 M01S00008.283l840 +++| EA BSSN 5 EXTENDED MEMORY ADDRESS (FIRST TWO BYTES)
00156 M01S00141.mte +++| BR BSSN 1 BYTES NOT TRANSFERED
00157 M01S00142.mte +++| ST BSSN 1 STATUS FROM LOW SPEED PORT/DDP
00158 M01S00143.mte +++| WC BSSN 1 WORD COUNT FOR EXTENDED MEMORY TRANSFER
00159 M01S00009.283l840 +++| RC BSSN 1 ESM ERROR RETRY COUNT
00160 M01S00144.mte +++|
00161 M01S00145.mte +++| FS BSSN 5 CM WORD BUFFER
00162 M01S00010.283l840 +++| RQ BSSN 1 REQUEST PARAMETER (OR/MST ADDRESS)
00163 M01S00146.mte +++| QE BSSN 1 NEXT PP REQUEST QUEUE ENTRY
00164 M01S00147.mte +++| QH BSSN 1 HEAD OF PP RETRY QUEUE
00165 M01S00148.mte +++| QT BSSN 1 TAIL OF PP RETRY QUEUE
00166 M01S00149.mte +++|
Line S00150 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00167 M02S00150.283l840 ---| EA BSSN 5 EXTENDED MEMORY ADDRESS (FIRST TWO BYTES)
Line S00151 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00168 M02S00151.283l840 ---| MX BSSN 1 MAXIMUM REQUESTS PER PASS
Line S00152 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00169 M02S00152.283l840 ---| LL BSSN 1 LOCAL MST LENGTH
Line S00153 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00170 M02S00153.283l840 ---| RC BSSN 1 RETRY COUNT
00171 M01S00011.283l840 +++| FN BSSN 5 CM WORD BUFFER
00172 M01S00012.283l840 +++| OF BSSN 1 FIRST (*MTR*) OUTPUT REGISTER ADDRESS
00173 M01S00154.mte +++| BSSN 50-*
00174 M01S00155.mte +++|
00175 M01S00156.mte +++| IR BSSN 5 INPUT REGISTER
00176 M01S00157.mte +++| BSSN 1 SPARE (DESTROYED BY *FTN*)
00177 M01S00158.mte +++| BSSN 1 SPARE (DESTROYED BY *FTN*)
Line S00159 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00178 M02S00159.273l780 ---| BSSN 1 SPARE
Line S00001 Modification History
M01 (Added by) 273l780
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00179 M02S00001.283l840 ---| OF BSSN 1 FIRST (*MTR*) OUTPUT REGISTER ADDRESS
00180 M01S00160.mte +++|
00181 M01S00013.283l840 +++| CV BSSN 1 LAST TIME CLOCK VALUE
00182 M01S00161.mte +++| OR BSSN 5 PP OUTPUT REGISTER
Line S00162 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00183 M02S00162.283l840 ---| RQ BSSN 1 REQUEST PARAMETER (OR/MST ADDRESS)
Line S00163 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00184 M02S00163.283l840 ---| CV BSSN 1 LAST TIME CLOCK VALUE
Line S00164 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00185 M02S00164.283l840 ---| CC BSSN 1 CYCLE COUNT UNTIL CHANNEL REQUEST SENSED
00186 M01S00014.283l840 +++|
00187 M01S00015.283l840 +++|* THESE THREE CELLS CAN BE USED AS SCRATCH OUTSIDE OF
00188 M01S00016.283l840 +++|* *MTET*/*MTBT* QUEUE PROCESSING FROM *CPUMTR*.
00189 M01S00017.283l840 +++|
00190 M01S00018.283l840 +++| SX BSSN 0
00191 M01S00019.283l840 +++| MX BSSN 1 MAXIMUM REQUESTS PER PASS
00192 M01S00020.283l840 +++| IN BSSN 1 IN POINTER FOR *MTBT* BUFFER
00193 M01S00021.283l840 +++| OT BSSN 1 OUT POINTER FOR *MTBT* BUFFER
00194 M01S00022.283l840 +++|
00195 M01S00165.mte +++| RM EQU IR+4 RECOVERY MODE
00196 M01S00166.mte +++| BSSN 70-*
00197 M01S00167.mte +++| ON BSSN 1 1
00198 M01S00168.mte +++| HN BSSN 1 100
00199 M01S00169.mte +++| TH BSSN 1 1000
00200 M01S00170.mte +++| TR BSSN 1 3
00201 M01S00171.mte +++| CP BSSN 1 CONTROL POINT
00202 M01S00172.mte +++| MA BSSN 1 MESSAGE BUFFER ADDRESS - NON STANDARD
00203 M01S00173.mte +++| OA BSSN 1 OUTPUT REGISTER ADDRESS
00204 M01S00174.mte +++| ZR BSSN 5-1 ZERO WORD
00205 M01S00175.mte +++| MI BSSN 2 MACHINE INDEX (OVERLAYS ZR+4)
00206 M01S00176.mte +++|
00207 M01S00177.mte +++| END BSSN
00208 M01S00178.mte +++| SPACE 4,10
00209 M01S00179.mte +++|* ASSEMBLY CONSTANTS.
00210 M01S00180.mte +++|
00211 M01S00181.mte +++|
00212 M01S00182.mte +++| CH EQU 0 LINK DEVICE CHANNEL
00213 M01S00183.mte +++| SC EQU 5000 LOW SPEED PORT SELECT CODE
00214 M01S00184.mte +++| RDFN EQU 1 READ FUNCTION CODE
00215 M01S00185.mte +++| WTFN EQU 2 WRITE FUNCTION CODE
00216 M01S00186.mte +++| STFN EQU 4 STATUS FUNCTION CODE
00217 M01S00187.mte +++| MCFN EQU 10 MASTER CLEAR PORT FUNCTION CODE
00218 M01S00188.mte +++| ESFN EQU 604 SET ECS MODE ADDRESSING FUNCTION CODE
Line S00189 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00219 M02S00189.ns2783 ---| NPPU EQU 20D NUMBER OF PP-S TO PROCESS REQUESTS FOR
00220 M01S00003.ns2783 +++| NPPU EQU 30D NUMBER OF PP-S TO PROCESS REQUESTS FOR
00221 M01S00190.mte +++| SPACE 4,10
00222 M01S00191.mte +++|* BEGIN TABLES OVERLAYED BY *PRESET*.
00223 M01S00192.mte +++|
00224 M01S00193.mte +++|
00225 M01S00194.mte +++| BEGIN BSSN EFTN
00226 M01S00195.mte +++|
00227 M01S00196.mte +++| MBUF BSSN SDGL*5+5 MST READ/WRITE BUFFER
Line S00197 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00228 M02S00197.283l840 ---| TBUF BSSN 1000*5 TRT READ/WRITE BUFFER
00229 M01S00023.283l840 +++| TBUF BSSN BRTL*5+5 TRT/BAT READ/WRITE BUFFER
00230 M01S00198.mte +++| FATB EQU TBUF FAST ATTACH TABLE READ/WRITE BUFFER
00231 M01S00024.283l840 +++| BRTB EQU TBUF+5 BRT READ/WRITE BUFFER
00232 M01S00199.mte +++| GFAT EQU FATB+5 GLOBAL FAST ATTACH WORD
00233 M01S00200.mte +++| EBUF BSSN 0 END OF BUFFERS
00234 M01S00201.mte +++| END BSSN
00235 M01S00202.mte +++|****
00236 M01S00203.mte +++| TITLE MACRO DEFINITIONS.
00237 M01S00204.mte +++| CFLAG SPACE 4,10
00238 M01S00205.mte +++|** CFLAG - CLEAR FLAG REGISTER BITS.
00239 M01S00206.mte +++|*
00240 M01S00207.mte +++|* CFLAG BIT,NW
00241 M01S00208.mte +++|*
00242 M01S00209.mte +++|* ENTRY *BIT* = NAME OF BIT TO CLEAR.
00243 M01S00210.mte +++|* *NW* = NO WRITE OF FLAG OWNER.
00244 M01S00211.mte +++|*
00245 M01S00212.mte +++|* CALLS IFR, SLA.
00246 M01S00213.mte +++|
00247 M01S00214.mte +++|
00248 M01S00215.mte +++| PURGMAC CFLAG
00249 M01S00216.mte +++|
00250 M01S00217.mte +++| CFLAG MACRO BIT,NW
00251 M01S00001.271l716 +++| MACREF CFLAG
00252 M01S00218.mte +++| .A IFC NE,*TRTI*BIT*
00253 M01S00219.mte +++| .B IFC EQ,$NW$$
00254 M01S00220.mte +++| LDN FRET+BIT
00255 M01S00221.mte +++| RJM SLA
00256 M01S00222.mte +++| WRITEM 1,ZR
00257 M01S00223.mte +++| .B ENDIF
00258 M01S00224.mte +++| .A ENDIF
00259 M01S00225.mte +++| LDC C_BIT
00260 M01S00226.mte +++| RJM IFR
00261 M01S00227.mte +++| CFLAG ENDM
Line S00228 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00262 M02S00228.273l780 ---| INMOD SPACE 4,10
Line S00229 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00263 M02S00229.273l780 ---|** INMOD - INSTRUCTION MODIFICATION.
Line S00230 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00264 M02S00230.273l780 ---|*
Line S00231 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00265 M02S00231.273l780 ---|* INMOD A,V
Line S00232 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00266 M02S00232.273l780 ---|*
Line S00233 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00267 M02S00233.273l780 ---|* ENTRY *A* = ADDRESS OF TWO BYTES TO BE MODIFIED.
Line S00234 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00268 M02S00234.273l780 ---|* *V* = VALUE TO MODIFY WITH.
Line S00235 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00269 M02S00235.273l780 ---|
Line S00236 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00270 M02S00236.273l780 ---|
Line S00237 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00271 M02S00237.273l780 ---| PURGMAC INMOD
Line S00238 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00272 M02S00238.273l780 ---|
Line S00239 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00273 M02S00239.273l780 ---| INMOD MACRO A,V
Line S00240 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00274 M02S00240.273l780 ---| LOCAL B
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00275 M02S00002.273l780 ---| MACREF INMOD
Line S00241 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00276 M02S00241.273l780 ---| B EQU A
Line S00242 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00277 M02S00242.273l780 ---| INM RMT
Line S00243 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00278 M02S00243.273l780 ---| CON B
Line S00244 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00279 M02S00244.273l780 ---| CON V
Line S00245 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00280 M02S00245.273l780 ---| INM RMT
Line S00246 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00281 M02S00246.273l780 ---| INMOD ENDM
00282 M01S00247.mte +++| PPR SPACE 4,10
00283 M01S00248.mte +++|** PPR - SET PP REQUEST PROCESSOR.
00284 M01S00249.mte +++|*
00285 M01S00250.mte +++|* PPR FNC,PRC
00286 M01S00251.mte +++|* ENTRY *FNC* = FUNCTION NUMBER.
00287 M01S00252.mte +++|* *PRC* = PROCESSOR ADDRESS.
00288 M01S00253.mte +++|
00289 M01S00254.mte +++|
00290 M01S00255.mte +++| PURGMAC PPR
00291 M01S00256.mte +++|
00292 M01S00257.mte +++| PPR MACRO FNC,PRC
00293 M01S00258.mte +++| LOCAL K
00294 M01S00259.mte +++| MACREF PPR
00295 M01S00260.mte +++| .A IFC EQ,$PRC$$
00296 M01S00261.mte +++| K MICRO 1,3, FNC
00297 M01S00262.mte +++| K MICRO 1,4,*."K"*
00298 M01S00263.mte +++| "K" CON FNC
00299 M01S00264.mte +++| ORG *-1
00300 M01S00265.mte +++| .A ELSE
00301 M01S00266.mte +++| K MICRO 1,, PRC
00302 M01S00267.mte +++| .A ENDIF
00303 M01S00268.mte +++| PPR RMT
00304 M01S00269.mte +++| ORG TPPR+FNC
Line S00270 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00305 M02S00270.ns2783 ---| CON "K"
00306 M01S00004.ns2783 +++| CON "K" FNC
00307 M01S00271.mte +++| PPR RMT
00308 M01S00003.271l716 +++| IF -DEF,MXFNC,1
00309 M01S00004.271l716 +++| MXFNC SET FNC
00310 M01S00005.271l716 +++| IFGT FNC,MXFNC,1
00311 M01S00006.271l716 +++| MXFNC SET FNC
00312 M01S00272.mte +++| PPR ENDM
00313 M01S00273.mte +++| READEM SPACE 4,10
00314 M01S00274.mte +++|** READEM - READ EXTENDED MEMORY.
00315 M01S00275.mte +++|*
00316 M01S00276.mte +++|* READEM WCT,BUF,ERR
00317 M01S00277.mte +++|*
00318 M01S00278.mte +++|* ENTRY *WCT* = WORD COUNT TO READ.
00319 M01S00279.mte +++|* = *, IF DIRECT CELL WC CONTAINS WORD COUNT.
00320 M01S00280.mte +++|* *BUF* = PP BUFFER ADDRESS TO RECEIVE THE DATA READ.
00321 M01S00281.mte +++|* *ERR* = EXTENDED MEMORY ERROR PROCESSOR ADDRESS.
00322 M01S00282.mte +++|*
00323 M01S00283.mte +++|* CALLS RDW.
00324 M01S00284.mte +++|
00325 M01S00285.mte +++|
00326 M01S00286.mte +++| PURGMAC READEM
00327 M01S00287.mte +++|
00328 M01S00288.mte +++| READEM MACRO WCT,BUF,ERR
00329 M01S00289.mte +++| LOCAL A
00330 M01S00007.271l716 +++| MACREF READEM
00331 M01S00290.mte +++| .A IFC NE,$WCT$*$
00332 M01S00291.mte +++| LDN WCT
00333 M01S00292.mte +++| STD WC
00334 M01S00293.mte +++| .A ENDIF
00335 M01S00294.mte +++| LDK BUF
00336 M01S00295.mte +++| RJM RDW
00337 M01S00296.mte +++| .B IFC NE,$ERR$$
00338 M01S00297.mte +++| A EQU *
00339 M01S00298.mte +++| .ERP MICRO 1,, ".ERP"A,ERR,
00340 M01S00299.mte +++| .B ENDIF
00341 M01S00300.mte +++| READEM ENDM
00342 M01S00301.mte +++| SFLAG SPACE 4,10
00343 M01S00302.mte +++|** SFLAG - SET FLAG REGISTER BITS.
00344 M01S00303.mte +++|*
00345 M01S00304.mte +++|* SFLAG BIT,REJ
00346 M01S00305.mte +++|*
00347 M01S00306.mte +++|* ENTRY *BIT* = NAME OF BIT(S) TO CLEAR.
00348 M01S00307.mte +++|* *REJ* = REJECT ENTRY ADDRESS.
00349 M01S00308.mte +++|*
00350 M01S00309.mte +++|* CALLS IFR, SLA.
00351 M01S00310.mte +++|
00352 M01S00311.mte +++|
00353 M01S00312.mte +++| PURGMAC SFLAG
00354 M01S00313.mte +++|
00355 M01S00314.mte +++| SFLAG MACRO BIT,REJ
00356 M01S00008.271l716 +++| MACREF SFLAG
00357 M01S00315.mte +++| LDC S_BIT
00358 M01S00316.mte +++| RJM IFR
00359 M01S00317.mte +++| .A IFC NE,*REJ**
00360 M01S00318.mte +++| NJP REJ IF INTERLOCK PREVIOUSLY SET
00361 M01S00319.mte +++| .A ENDIF
00362 M01S00320.mte +++| IFC NE,*TRTI*BIT*
00363 M01S00321.mte +++| IFC NE,*COMI*BIT*
00364 M01S00322.mte +++| LDN FRET+BIT
00365 M01S00323.mte +++| RJM SLA
00366 M01S00324.mte +++| WRITEM 1,MI+1-4
00367 M01S00325.mte +++| ENDIF
00368 M01S00326.mte +++| SFLAG ENDM
Line S00327 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00369 M02S00327.ns2783 ---| SUBFUN SPACE 4,10
00370 M01S00005.ns2783 +++| SUBFUN SPACE 4,15
00371 M01S00328.mte +++|** SUBFUN - SET SUBFUNCTION PROCESSOR.
00372 M01S00329.mte +++|*
00373 M01S00330.mte +++|*SFA SUBFUN FNC,SFN
00374 M01S00331.mte +++|*
00375 M01S00332.mte +++|* ENTRY *SFA* = SUBFUNCTION PROCESSOR ENTRY NAME.
00376 M01S00333.mte +++|* *FNC* = FUNCTION NAME.
00377 M01S00334.mte +++|* *SFN* = SUBFUNCTION NAME.
00378 M01S00335.mte +++|*
00379 M01S00336.mte +++|* THIS MACRO BUILDS A TABLE OF SUBFUNCTION PROCESSORS.
00380 M01S00337.mte +++|* THE TABLE IS NAMED T*FNC*, AND EACH ENTRY IS THE
00381 M01S00338.mte +++|* ADDRESS OF THE PROCESSOR FOR THE SUBFUNCTION.
00382 M01S00339.mte +++|
00383 M01S00340.mte +++|
00384 M01S00341.mte +++| PURGMAC SUBFUN
00385 M01S00342.mte +++|
00386 M01S00343.mte +++| MACRO SUBFUN,SFA,FNC,SFN
00387 M01S00009.271l716 +++| MACREF SUBFUN
00388 M01S00344.mte +++| SFA BSS 0
00389 M01S00345.mte +++| IRP SFN
00390 M01S00346.mte +++| T_FNC RMT
00391 M01S00347.mte +++| ORG T_FNC+SFN
Line S00348 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00392 M02S00348.ns2783 ---| CON SFA
00393 M01S00006.ns2783 +++| CON SFA SFN
00394 M01S00349.mte +++| T_FNC RMT
00395 M01S00350.mte +++| IRP
00396 M01S00351.mte +++| SUBFUN ENDM
Line S00352 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00397 M02S00352.273l780 ---| TLDC SPACE 4,10
Line S00353 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00398 M02S00353.273l780 ---|** TLDC - LOAD CONSTANT MODIFIED DURING PRESET.
Line S00354 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00399 M02S00354.273l780 ---|*
Line S00355 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00400 M02S00355.273l780 ---|* TLDC C,M
Line S00356 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00401 M02S00356.273l780 ---|*
Line S00357 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00402 M02S00357.273l780 ---|* ENTRY *C* = CONSTANT.
Line S00358 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00403 M02S00358.273l780 ---|* *M* = MODIFIER.
Line S00359 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00404 M02S00359.273l780 ---|
Line S00360 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00405 M02S00360.273l780 ---|
Line S00361 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00406 M02S00361.273l780 ---| PURGMAC TLDC
Line S00362 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00407 M02S00362.273l780 ---|
Line S00363 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00408 M02S00363.273l780 ---| TLDC MACRO C,M
Line S00364 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00409 M02S00364.273l780 ---| LOCAL A
Line S00010 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00410 M02S00010.273l780 ---| MACREF TLDC
Line S00365 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00411 M02S00365.273l780 ---| A LDC C
Line S00366 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00412 M02S00366.273l780 ---| IRP M
Line S00367 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00413 M02S00367.273l780 ---| INMOD A,M
Line S00368 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00414 M02S00368.273l780 ---| IRP
Line S00369 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00415 M02S00369.273l780 ---| TLDC ENDM
00416 M01S00370.mte +++| WRITEM SPACE 4,10
00417 M01S00371.mte +++|** WRITEM - WRITE EXTENDED MEMORY.
00418 M01S00372.mte +++|*
00419 M01S00373.mte +++|* WRITEM WCT,BUF,ERR
00420 M01S00374.mte +++|*
00421 M01S00375.mte +++|* ENTRY *WCT* = WORD COUNT TO WRITE.
00422 M01S00376.mte +++|* = *, IF DIRECT CELL WC CONTAINS WORD COUNT.
00423 M01S00377.mte +++|* *BUF* = PP BUFFER ADDRESS TO WRITE DATA FROM.
00424 M01S00378.mte +++|* *ERR* = EXTENDED MEMORY ERROR PROCESSOR ADDRESS.
00425 M01S00379.mte +++|*
00426 M01S00380.mte +++|* CALLS WTW.
00427 M01S00381.mte +++|
00428 M01S00382.mte +++|
00429 M01S00383.mte +++| PURGMAC WRITEM
00430 M01S00384.mte +++|
00431 M01S00385.mte +++| WRITEM MACRO WCT,BUF,ERR
00432 M01S00011.271l716 +++| MACREF WRITEM
00433 M01S00386.mte +++| .A IFC NE,$WCT$*$
00434 M01S00387.mte +++| LDN WCT
00435 M01S00388.mte +++| STD WC
00436 M01S00389.mte +++| .A ENDIF
00437 M01S00390.mte +++| LDK BUF
00438 M01S00391.mte +++| RJM WTW
00439 M01S00392.mte +++| .B IFC NE,$ERR$$
00440 M01S00393.mte +++| A EQU *
00441 M01S00394.mte +++| .ERP MICRO 1,, ".ERP"A,ERR,
00442 M01S00395.mte +++| .B ENDIF
00443 M01S00396.mte +++| WRITEM ENDM
00444 M01S00397.mte +++|
00445 M01S00398.mte +++| .ERP MICRO 1,, INITIALIZE ERROR PROCESSOR MICRO
00446 M01S00399.mte +++| TITLE MAIN PROGRAM.
Line S00400 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00447 M02S00400.283l840 ---| ORG 3000
Line S00025 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2780
Seq # *Modification Id* Act
----------------------------+
00448 M02S00025.ns2780 ---| ORG 700
Line S00002 Modification History
M01 (Added by) ns2780
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00449 M02S00002.ns2783 ---| ORG 600
00450 M01S00007.ns2783 +++| FWAP EQU 600 FWA OF *PRS*
00451 M01S00008.ns2783 +++| ERRNG FWAP-315 MAIN OVERLAY DESTROYS *PLL* RETURN ADDRESS
00452 M01S00009.ns2783 +++| ORG FWAP
00453 M01S00010.ns2783 +++| SPACE 4,10
00454 M01S00401.mte +++| USE MAIN
00455 M01S00402.mte +++| SPARES EQU *-EBUF LOCATIONS AVAILABLE IN MAIN BLOCK
00456 M01S00403.mte +++| FWA EQU *L
00457 M01S00404.mte +++| PRQ SPACE 4,15
00458 M01S00405.mte +++|** PRQ - PROCESS QUEUED REQUEST.
00459 M01S00406.mte +++|*
00460 M01S00407.mte +++|* SOME DEVICE INTERLOCK REQUESTS ARE UNABLE TO BE PROCESSED
00461 M01S00408.mte +++|* WHEN PASSED FROM *CPUMTR*. THESE REQUESTS ARE QUEUED TO BE
00462 M01S00409.mte +++|* RETRIED AFTER A DELAY TIME IS EXPIRED. THIS ROUTINE IS
00463 M01S00410.mte +++|* ENTERED WHEN A QUEUED REQUEST IS TO BE PROCESSED.
00464 M01S00411.mte +++|*
00465 M01S00412.mte +++|* ENTRY (A) = OUTPUT REGISTER ADDRESS OF QUEUED REQUEST.
00466 M01S00413.mte +++|*
00467 M01S00414.mte +++|* EXIT (RQ) = PP REQUEST ADDRESS.
00468 M01S00415.mte +++|* TO FUNCTION PROCESSOR.
00469 M01S00416.mte +++|* ENTRY DELETED FROM QUEUE.
00470 M01S00001.ns2575 +++|* TO *CFR1* IF REQUEST HAS BEEN CLEARED.
00471 M01S00417.mte +++|*
00472 M01S00418.mte +++|* USES MX, QH, RQ, T8, OR - OR+4.
00473 M01S00419.mte +++|
00474 M01S00420.mte +++|
00475 M01S00421.mte +++| PRQ STD RQ
00476 M01S00422.mte +++| LDN 0
00477 M01S00423.mte +++| STM TPPQ,QH
00478 M01S00424.mte +++| STD MX
00479 M01S00425.mte +++| LDC MTE1 SET EXIT FOR FUNCTION COMPLETE
00480 M01S00426.mte +++| STM CFR
00481 M01S00427.mte +++| SOD QH
00482 M01S00428.mte +++| PJN PRQ1 IF NO WRAP
00483 M01S00429.mte +++| LDN NPPU-1
00484 M01S00430.mte +++| STD QH
00485 M01S00431.mte +++| PRQ1 LDD RQ
00486 M01S00432.mte +++|
00487 M01S00433.mte +++|* ENTER HERE TO PROCESS REQUEST INITIALLY.
00488 M01S00434.mte +++|
00489 M01S00435.mte +++| PRQ2 CRD OR
00490 M01S00002.ns2575 +++| LDD OR
00491 M01S00003.ns2575 +++| ZJP CFR1 IF REQUEST WAS CLEARED
00492 M01S00436.mte +++| LDM TPPR,OR SET FUNCTION PROCESSOR
00493 M01S00437.mte +++| STD T8
00494 M01S00438.mte +++| LJM 0,T8 ENTER PROCESSOR
Line S00439 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00495 M02S00439.283l840 ---| MTE SPACE 4,10
00496 M01S00026.283l840 +++| MTE SPACE 4,25
00497 M01S00440.mte +++|** MTE - MAIN PROGRAM.
00498 M01S00441.mte +++|*
00499 M01S00442.mte +++|* THE MAIN LOOP OF *MTE* PERFORMS THE FOLLOWING TASKS.
Line S00443 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00500 M02S00443.283l840 ---|* 1. CHECKS FOR REQUESTS PASSED FROM *CPUMTR*.
Line S00444 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00501 M02S00444.283l840 ---|* 2. RELEASES THE LOW SPEED PORT CHANNEL WHEN IT IS
00502 M01S00027.283l840 +++|* 1. CHECKS FOR REQUESTS PASSED FROM *CPUMTR* IN THE *MTET*
00503 M01S00028.283l840 +++|* QUEUE.
00504 M01S00029.283l840 +++|* 2. RETRIES ANY BUFFER ACCESS TABLE REQUESTS THAT HAVE
00505 M01S00030.283l840 +++|* BEEN QUEUED IN THE BUFFER REQUEST TABLE (BRT).
00506 M01S00031.283l840 +++|* 3. CHECKS FOR NEW BAT REQUESTS PASSED FROM *CPUMTR* IN
00507 M01S00032.283l840 +++|* THE *MTBT* QUEUE.
00508 M01S00033.283l840 +++|* 4 CHECKS THE BRT-S OF ANY OTHER MAINFRAMES FOR REQUESTS
00509 M01S00034.283l840 +++|* UNABLE TO BE PROCESSED BECAUSE OF LOCKS HELD BY THIS
00510 M01S00035.283l840 +++|* MAINFRAME.
00511 M01S00036.283l840 +++|* 5. RELEASES THE LOW SPEED PORT CHANNEL WHEN IT IS
00512 M01S00445.mte +++|* REQUESTED.
Line S00446 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00513 M02S00446.283l840 ---|* 3. WRITES MACHINE CLOCK TO EXTENDED MEMORY ONCE A
00514 M01S00037.283l840 +++|* 6. WRITES MACHINE CLOCK TO EXTENDED MEMORY ONCE A
00515 M01S00447.mte +++|* SECOND.
Line S00448 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00516 M02S00448.283l840 ---|* 4. CHECKS THE STATE OF OTHER MACHINES ONCE EVERY TWO
00517 M01S00038.283l840 +++|* 7. CHECKS THE STATE OF OTHER MACHINES ONCE EVERY TWO
00518 M01S00449.mte +++|* SECONDS.
Line S00450 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00519 M02S00450.283l840 ---|* 5. INITIATES EXTENDED MEMORY ERROR RECOVERY WHEN
00520 M01S00039.283l840 +++|* 8. INITIATES EXTENDED MEMORY ERROR RECOVERY WHEN
00521 M01S00451.mte +++|* REQUIRED.
00522 M01S00040.283l840 +++|* 9. UPDATES *MTE* STATISTICS.
00523 M01S00452.mte +++|
00524 M01S00453.mte +++|
00525 M01S00454.mte +++| MTE LDM TPPQ,QH
00526 M01S00455.mte +++| NJN PRQ IF QUEUED REQUESTS
00527 M01S00456.mte +++| MTE1 RJM CFR CHECK FOR REQUESTS PASSED FROM *CPUMTR*
Line S00457 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00528 M02S00457.283l840 ---| SOD CC
Line S00458 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00529 M02S00458.283l840 ---| NJN MTE IF NOT TIME TO CHECK CHANNEL REQUEST
00530 M01S00041.283l840 +++| MTED UJN MTE1.1 CHECK FOR CHANNEL REQUESTED
00531 M01S00042.283l840 +++|* PSN (SHARED BUFFERED DEVICES PRESENT)
00532 M01S00043.283l840 +++|
00533 M01S00044.283l840 +++|* PROCESS BAT/BRT REQUESTS.
00534 M01S00045.283l840 +++|
00535 M01S00046.283l840 +++| RJM RBR REPROCESS BRT REQUESTS
00536 M01S00047.283l840 +++| RJM PBR PROCESS NEW BAT REQUESTS
00537 M01S00048.283l840 +++| RJM CBM CHECK BRT-S FROM OTHER M/F-S
00538 M01S00049.283l840 +++|
00539 M01S00050.283l840 +++|* CHECK FOR CHANNEL REQUESTED.
00540 M01S00051.283l840 +++|
00541 M01S00052.283l840 +++| MTE1.1 SOM CRCC
00542 M01S00053.283l840 +++| NJP MTE5 IF NOT TIME TO CHECK CHANNEL REQUEST
00543 M01S00459.mte +++| LDN 10
Line S00460 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00544 M02S00460.283l840 ---| STD CC
00545 M01S00054.283l840 +++| STM CRCC
Line S00055 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00546 M02S00055.ns2783 ---|
Line S00461 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00547 M02S00461.ns2783 ---|*IF DEF,BKP
Line S00462 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00548 M02S00462.ns2783 ---| RJM BKP CHECK FOR BREAKPOINT COMMUNICATION
Line S00056 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00549 M02S00056.ns2783 ---|*ELSE
Line S00057 Modification History
M01 (Added by) 283l840
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00550 M02S00057.ns2783 ---|* RJM BKP CHECK FOR BREAKPOINT COMMUNICATION
Line S00463 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00551 M02S00463.ns2783 ---|*ENDIF
Line S00464 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00552 M02S00464.ns2783 ---| .BKP BSS 0
Line S00465 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00553 M03S00465.ns2783 ---|
Line S00466 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
M03 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00554 M03S00466.ns2783 ---|* CHECK FOR CHANNEL REQUESTED.
Line S00467 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00555 M02S00467.ns2783 ---|
00556 M01S00468.mte +++| MTEA LDC ** SET CHANNEL INTERLOCK TABLE ADDRESS
00557 M01S00469.mte +++| MTEB ADN ** ADD WORD NUMBER
00558 M01S00470.mte +++| CRD CM
00559 M01S00471.mte +++| MTEC LDD ** CHECK APPROPRIATE BYTE
00560 M01S00472.mte +++| SHN 0-13
00561 M01S00473.mte +++| ZJN MTE2 IF CHANNEL NOT REQUESTED
00562 M01S00474.mte +++| LDN 0 RELEASE CHANNEL
00563 M01S00475.mte +++| RJM DSW
00564 M01S00476.mte +++| LDN 1 REQUEST CHANNEL
00565 M01S00477.mte +++| RJM DSW
00566 M01S00478.mte +++|
00567 M01S00479.mte +++|* CHECK IF TIME TO WRITE MACHINE CLOCK.
00568 M01S00480.mte +++|
00569 M01S00481.mte +++| MTE2 LDC PDTL CHECK IF ONE SECOND ELAPSED
00570 M01S00482.mte +++| CRD FS
00571 M01S00483.mte +++| LDD FS+4
00572 M01S00484.mte +++| SBD CV
Line S00485 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00573 M02S00485.283l840 ---| MTE3 ZJN MTE IF NOT TIME TO WRITE CLOCK
00574 M01S00058.283l840 +++| ZJN MTE3 IF NOT TIME TO WRITE CLOCK
00575 M01S00486.mte +++| RAD CV
00576 M01S00487.mte +++|
00577 M01S00488.mte +++|* WRITE PACKED DATE AND TIME TO EXTENDED MEMORY.
00578 M01S00489.mte +++|
Line S00490 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00579 M02S00490.273l780 ---| MTED LDN SMET-1
Line S00491 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00580 M02S00491.273l780 ---| INMOD MTED-1,MI
00581 M01S00002.273l780 +++| TLDN SMET-1,MI
00582 M01S00492.mte +++| RJM SLA SET LABEL TRACK ADDRESS
00583 M01S00493.mte +++| WRITEM 1,FS IGNORE ERROR IN WRITING CLOCK
00584 M01S00494.mte +++| LDD CV
00585 M01S00495.mte +++| LPN 1
Line S00496 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00586 M02S00496.283l840 ---| ZJN MTE3 IF NOT TIME TO STATUS MACHINES
00587 M01S00059.283l840 +++| MTE3 ZJN MTE5 IF NOT TIME TO STATUS MACHINES
00588 M01S00497.mte +++|
00589 M01S00498.mte +++|* CHECK FOR CHANGE IN MACHINE STATE.
00590 M01S00499.mte +++|
00591 M01S00500.mte +++| RJM CAM CHECK MACHINE STATUS
00592 M01S00501.mte +++| ZJN MTE4 IF NO CHANGE IN MACHINE STATE
00593 M01S00502.mte +++| EXECUTE 2EA PROCESS MACHINE STATE CHANGE
00594 M01S00503.mte +++| RJM CFR CHECK FOR REQUESTS PASSED FROM *CPUMTR*
00595 M01S00504.mte +++|
00596 M01S00505.mte +++|* CHECK IF EXTENDED MEMORY ERROR RECOVERY NEEDED.
00597 M01S00506.mte +++|
00598 M01S00507.mte +++| MTE4 LDC TCOMI CHECK ERROR RECOVERY REQUESTED
00599 M01S00508.mte +++| RJM IFR
00600 M01S00509.mte +++| ZJN MTE5 IF NO ERROR RECOVERY PROCESSING
00601 M01S00510.mte +++| EXECUTE 2EB PROCESS EXTENDED MEMORY TABLE ERRORS
Line S00511 Modification History
M01 (Added by) mte
M02 (Updated by) 283l840
Seq # *Modification Id* Act
----------------------------+
00602 M02S00511.283l840 ---| MTE5 LJM MTE1 LOOP
00603 M01S00060.283l840 +++| MTE5 RJM UMS UPDATE *MTE* STATISTICS
00604 M01S00061.283l840 +++| LJM MTE LOOP
00605 M01S00062.283l840 +++|
00606 M01S00063.283l840 +++|
00607 M01S00064.283l840 +++| CRCC CON 10 CHANNEL REQUEST CYCLE COUNT
00608 M01S00065.283l840 +++| CYTM CON 0 *MTE* CYCLE TIME
00609 M01S00066.283l840 +++| BRTF CON 0 BRT FULL FLAG (=*NBRR* IF BRT IS FULL)
00610 M01S00067.283l840 +++| BRTP CON 0 BRT TRACK NUMBER
00611 M01S00068.283l840 +++|
00612 M01S00069.283l840 +++|** BAT/BRT STATISTICS (MUST BE CONTIGUOUS).
00613 M01S00070.283l840 +++|
00614 M01S00071.283l840 +++| BRTS BSS 0
00615 M01S00072.283l840 +++| BATT CON 0 TOTAL BAT REQUESTS
00616 M01S00073.283l840 +++| BRTT CON 0 TOTAL BRT ENTRIES
00617 M01S00074.283l840 +++| BREC CON 0 CURRENT BRT ENTRY COUNT
00618 M01S00075.283l840 +++| BIAA CON 0 *BATI* INTERLOCK ATTEMPTS ABANDONED
00619 M01S00076.283l840 +++| BRTR CON 0 BRT ENTRIES REJECTED
00620 M01S00077.283l840 +++|
00621 M01S00512.mte +++| TITLE PP REQUEST PROCESSING.
00622 M01S00513.mte +++| HNG SPACE 4,10
00623 M01S00514.mte +++|** HNG - HANG PPU.
00624 M01S00515.mte +++|*
00625 M01S00516.mte +++|* ENTRY (RQ) = OUTPUT REGISTER ADDRESS.
00626 M01S00517.mte +++|
00627 M01S00518.mte +++|
00628 M01S00519.mte +++| HNG LDD RQ SET ADDRESS OF FUNCTION IN ERROR
00629 M01S00520.mte +++| STD CM+1
00630 M01S00521.mte +++| MONITOR HNGM
00631 M01S00522.mte +++| FNR SPACE 4,10
00632 M01S00523.mte +++|** FNR - FUNCTION NOT READY.
00633 M01S00524.mte +++|*
00634 M01S00525.mte +++|* ENTRY (RQ) = OUTPUT REGISTER ADDRESS.
00635 M01S00526.mte +++|
00636 M01S00527.mte +++|
00637 M01S00528.mte +++| FNR LDD RQ REJECT FUNCTION
00638 M01S00529.mte +++| STM TPPQ,QT LINK TO TAIL OF QUEUE
00639 M01S00530.mte +++| SOD QT
00640 M01S00531.mte +++| PJN CFR1 IF NO WRAP
00641 M01S00532.mte +++| LDN NPPU-1
00642 M01S00533.mte +++| STD QT
00643 M01S00534.mte +++| UJN CFR1 PROCESS NEXT REQUEST
00644 M01S00535.mte +++| CPF SPACE 4,10
00645 M01S00536.mte +++|** CPF - PASS REQUEST TO *CPUMTR*.
00646 M01S00537.mte +++|*
00647 M01S00538.mte +++|* ENTRY (RQ) = OUTPUT REGISTER ADDRESS.
00648 M01S00539.mte +++|*
00649 M01S00540.mte +++|* USES OR.
00650 M01S00541.mte +++|
00651 M01S00542.mte +++|
00652 M01S00543.mte +++| CPF LDC 5000
00653 M01S00544.mte +++| RAD OR
00654 M01S00545.mte +++| UJN FNC1 WRITE OUTPUT REGISTER
00655 M01S00546.mte +++| FNC SPACE 4,10
00656 M01S00547.mte +++|** FNC - FUNCTION RETURN TO CLEAR UPPER BYTE OF *OR*.
00657 M01S00548.mte +++|*
00658 M01S00549.mte +++|* ENTRY (RQ) = OUTPUT REGISTER ADDRESS.
00659 M01S00550.mte +++|*
00660 M01S00551.mte +++|* USES OR - OR+4.
00661 M01S00552.mte +++|
00662 M01S00553.mte +++|
00663 M01S00554.mte +++| FNC LDN 0 SET FUNCTION COMPLETE
00664 M01S00555.mte +++| STD OR
00665 M01S00556.mte +++| FNC1 LDD RQ
00666 M01S00557.mte +++| CWD OR
00667 M01S00558.mte +++| UJN CFR1 CHECK NEXT FUNCTION
00668 M01S00559.mte +++| CFR SPACE 4,10
00669 M01S00560.mte +++|** CFR - CHECK FOR REQUESTS PASSED FROM *CPUMTR*.
00670 M01S00561.mte +++|*
00671 M01S00562.mte +++|* EXIT TO FUNCTION PROCESSOR WITH (A) = (RQ).
00672 M01S00563.mte +++|*
00673 M01S00564.mte +++|* USES MX, QE, RQ, FN - FN+4.
00674 M01S00565.mte +++|
00675 M01S00566.mte +++|
00676 M01S00567.mte +++| CFR SUBR ENTRY/EXIT
00677 M01S00568.mte +++| LDN 10 SET MAXIMUM REQUESTS PER PASS
00678 M01S00569.mte +++| STD MX
00679 M01S00570.mte +++| CFR1 TLDC MTET,PQ PP QUEUE ADDRESS
00680 M01S00571.mte +++| ADD QE
00681 M01S00572.mte +++| CRD FN
00682 M01S00573.mte +++| LDD FN+4 CHECK FUNCTION PRESENT
00683 M01S00574.mte +++| ZJN CFRX IF NO REQUEST PRESENT
00684 M01S00575.mte +++| SOD MX
00685 M01S00576.mte +++| ZJN CFRX IF AT MAXIMUM
00686 M01S00577.mte +++| TLDC MTET,PQ CLEAR REQUEST FROM LIST
00687 M01S00578.mte +++| ADD QE
00688 M01S00579.mte +++| CWD ZR
00689 M01S00580.mte +++| SOD QE ADVANCE PAST CURRENT ENTRY
00690 M01S00581.mte +++| PJN CFR2 IF NO WRAP ON QUEUE
00691 M01S00582.mte +++| LDN MXQP-1
00692 M01S00583.mte +++| STD QE
00693 M01S00584.mte +++| CFR2 LDD FN+3 ENTRY
00694 M01S00585.mte +++| STD RQ
00695 M01S00586.mte +++| LJM TCFR,FN+4 ENTER REQUEST PROCESSOR
00696 M01S00587.mte +++| TCFR SPACE 4,10
00697 M01S00588.mte +++|** TCFR - TABLE OF *CPUMTR* FUNCTION REQUESTS.
00698 M01S00589.mte +++|*
00699 M01S00590.mte +++|* ENTRY = ONE WORD.
00700 M01S00591.mte +++|* 12/ ADDRESS OF FUNCTION PROCESSOR
00701 M01S00592.mte +++|
00702 M01S00593.mte +++|
00703 M01S00594.mte +++| TCFR EQU *-1
00704 M01S00595.mte +++| LOC 1
00705 M01S00596.mte +++| PPRF LJM PRQ2 PROCESS PP REQUEST
00706 M01S00597.mte +++| CDIF LJM CDI CLEAR DEVICE INTERLOCK
00707 M01S00598.mte +++| LOC *O
Line S00599 Modification History
M01 (Added by) mte
M02 (Updated by) 271l716
Seq # *Modification Id* Act
----------------------------+
00708 M02S00599.271l716 ---| TPPR SPACE 4,10
Line S00600 Modification History
M01 (Added by) mte
M02 (Updated by) 271l716
Seq # *Modification Id* Act
----------------------------+
00709 M02S00600.271l716 ---|** TPPR - TABLE OF QUEUED PP REQUESTS.
00710 M01S00012.271l716 +++| TPPQ SPACE 4,10
00711 M01S00013.271l716 +++|** TPPQ - TABLE OF QUEUED PP REQUESTS.
00712 M01S00601.mte +++|
00713 M01S00602.mte +++|
00714 M01S00603.mte +++| TPPQ BSS NPPU QUEUED PP REQUESTS
00715 M01S00604.mte +++| EXR SPACE 4,10
00716 M01S00605.mte +++|** EXR - EXECUTE CM RESIDENT ROUTINE.
00717 M01S00606.mte +++|*
00718 M01S00607.mte +++|* ENTRY (A) = ROUTINE NAME.
00719 M01S00608.mte +++|*
00720 M01S00609.mte +++|* EXIT TO CALLED ROUTINE VIA SIMULATED RETURN JUMP.
00721 M01S00610.mte +++|*
00722 M01S00611.mte +++|* USES CM+2, CM+3.
00723 M01S00612.mte +++|*
00724 M01S00613.mte +++|* MACROS MONITOR.
00725 M01S00614.mte +++|
00726 M01S00615.mte +++|
00727 M01S00616.mte +++| EXR CON 0 ENTRY
00728 M01S00617.mte +++| STD CM+3
00729 M01S00618.mte +++| SHN -14
00730 M01S00619.mte +++| STD CM+2
00731 M01S00620.mte +++| MONITOR SPLM
00732 M01S00621.mte +++| LDD CM+4 SET LOAD ADDRESS
00733 M01S00622.mte +++| STM EXRA
00734 M01S00623.mte +++| LDD CM+1 READ IN PROGRAM
00735 M01S00624.mte +++| LPN 77
00736 M01S00625.mte +++| SHN 14
00737 M01S00626.mte +++| ADD CM+2
00738 M01S00627.mte +++| CRM *,CM+3
00739 M01S00628.mte +++| EXRA EQU *-1
00740 M01S00629.mte +++| LDM EXR SET RETURN ADDRESS
00741 M01S00630.mte +++| STM 6,CM+4
00742 M01S00631.mte +++| LJM 7,CM+4 ENTER ROUTINE
Line S00632 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00743 M02S00632.ns2783 ---| TITLE PP REQUEST FUNCTION PROCESSORS.
00744 M01S00011.ns2783 +++| TITLE *AFAM* MONITOR FUNCTION PROCESSING.
00745 M01S00633.mte +++| AFAM SPACE 4,30
00746 M01S00634.mte +++|*** AFAM - ACCESS FAST ATTACH.
00747 M01S00635.mte +++|* *AFAM* ATTACHES OR RELEASES FAST ATTACH FILES.
00748 M01S00636.mte +++|*
00749 M01S00637.mte +++|* ENTRY
00750 M01S00638.mte +++|*T OR 12/ AFAM,12/ EQ,1/N,11/ MD,12/ SF,12/ FO
Figure
OR
0 11 12 23 24 29 FO SF MD 30 34 35 36 47 48 59 MD N EQ AFAM
00751 M01S00639.mte +++|* EQ EST ORDINAL OF DEVICE WHERE THE FAST
00752 M01S00640.mte +++|* ATTACH FILE RESIDES, IF GLOBAL FAST ATTACH FILE.
00753 M01S00641.mte +++|* 0, IF LOCAL FAST ATTACH FILE.
00754 M01S00642.mte +++|* N NON-ROLLABLE OPTION (VALID ONLY ON WRITABLE MODES
00755 M01S00643.mte +++|* FOR *AFAS* SUBFUNCTION).
00756 M01S00644.mte +++|* MD MODE OF ATTACH.
00757 M01S00645.mte +++|* SF SUBFUNCTION CODE AS DEFINED IN COMSCPS.
00758 M01S00646.mte +++|* *AFAS* = 0 = ATTACH FAST ATTACH FILE.
00759 M01S00647.mte +++|* *RFAS* = 1 = RETURN FAST ATTACH FILE.
00760 M01S00648.mte +++|* FO FNT ORDINAL.
00761 M01S00649.mte +++|*
00762 M01S00650.mte +++|* EXIT
00763 M01S00651.mte +++|*T, OR 12/ 0,12/ ST,24/ ,4/ WF,6/ ,1/N,1/
Figure
OR
0 1 2 7 8 11 12 29 N WF 30 35 36 47 48 59 ST 0
00764 M01S00652.mte +++|* ST = 0 IF FUNCTION COMPLETE.
00765 M01S00653.mte +++|* ST = 1 IF FUNCTION CANNOT BE COMPLETED AT THIS TIME.
00766 M01S00654.mte +++|* FILE IS ATTACHED IN A CONFLICTING MODE.
00767 M01S00655.mte +++|* WF .NE. 0 IF FILE ALREADY ATTACHED IN A WRITABLE MODE (AFAS
00768 M01S00656.mte +++|* REJECT ONLY).
00769 M01S00657.mte +++|* N = NON-ROLLABLE FLAG (*AFAS* REJECT ONLY).
00770 M01S00658.mte +++|*
00771 M01S00659.mte +++|* NOTE - *CPUMTR* CHECKS FOR ALL HANG CONDITIONS BEFORE PASSING
00772 M01S00660.mte +++|* THE REQUEST TO *MTE*.
00773 M01S00661.mte +++| AFP SPACE 4,10
00774 M01S00662.mte +++|** AFP - *AFAM* PRESET PROCESSING.
00775 M01S00663.mte +++|*
00776 M01S00664.mte +++|* *AFAM* PRESET MAY NOT BE EXECUTED UNTIL THE DAT/FAT TRACK
00777 M01S00665.mte +++|* IS ALLOCATED BY *0MF*. FOR THIS REASON THE FIRST CALL TO
00778 M01S00666.mte +++|* *AFAM* DOES THE PRESET OPERATION.
00779 M01S00667.mte +++|
00780 M01S00668.mte +++|
00781 M01S00669.mte +++| AFP LDC ALGL READ DAT/FAT TRACK
00782 M01S00670.mte +++| CRD CM
00783 M01S00671.mte +++| LDD CM+4
00784 M01S00672.mte +++| LPC 3777
00785 M01S00673.mte +++| STD CM+4
00786 M01S00674.mte +++| SHN 6
00787 M01S00675.mte +++| ADD CM+4 101 * TRACK
Line S00676 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
00788 M02S00676.252l678 ---| SHN 4 2020 * TRACK
00789 M01S00004.252l678 +++| AFPA SHN 4 2020 * TRACK
00790 M01S00005.252l678 +++|* SHN 4+EMSC 2020 * EMSC * TRACK
00791 M01S00677.mte +++| RAM AFAA+1
00792 M01S00678.mte +++| SHN -14
00793 M01S00679.mte +++| RAM AFAA
00794 M01S00680.mte +++| LDN AFA-AFP
00795 M01S00681.mte +++| RAM TPPR+AFAM
00796 M01S00682.mte +++|* UJN AFA ENTER PROCESSOR
00797 M01S00683.mte +++|
00798 M01S00684.mte +++|
00799 M01S00685.mte +++| PPR AFAM,AFP
00800 M01S00686.mte +++| AFA LDD OR+2
00801 M01S00687.mte +++| LPC 3777
00802 M01S00688.mte +++| SHN 1
00803 M01S00689.mte +++| ADD OR+3
00804 M01S00690.mte +++| STD T8
00805 M01S00691.mte +++| LDM TAFAM,T8 SET PROCESSOR ADDRESS
00806 M01S00692.mte +++| STD T9
00807 M01S00693.mte +++|
00808 M01S00694.mte +++|* READ FNT/FST.
00809 M01S00695.mte +++|
00810 M01S00696.mte +++| SFA FNT,OR+4
00811 M01S00697.mte +++| ADK FNTG
00812 M01S00698.mte +++| CRD FN
00813 M01S00699.mte +++| ADK FSTG-FNTG
00814 M01S00700.mte +++| CRD FS
00815 M01S00701.mte +++| SOD FN+4 CLEAR BUSY
00816 M01S00702.mte +++|
00817 M01S00703.mte +++|* READ FAT OF REQUESTED FILE.
00818 M01S00704.mte +++|
00819 M01S00705.mte +++| SFLAG FATI,FNR SET FAT INTERLOCK
00820 M01S00706.mte +++| LDD FN+3
00821 M01S00707.mte +++| LPN 77
00822 M01S00708.mte +++| SHN FATS
Line S00709 Modification History
M01 (Added by) mte
M02 (Updated by) 252l678
Seq # *Modification Id* Act
----------------------------+
00823 M02S00709.252l678 ---| AFAA ADC SLDE+FAST*100B (ADDRESS OF FAT)
00824 M01S00006.252l678 +++| AFAA ADC FAST*100B (ADDRESS OF FAT)
00825 M01S00007.252l678 +++|* ADC FAST*100B+(SECTORS PER TRACK)
00826 M01S00710.mte +++| STD EA+1
00827 M01S00711.mte +++| SHN -14
00828 M01S00712.mte +++| STD EA
00829 M01S00713.mte +++| READEM MXMF+2,FATB,AFA1 READ FAST ATTACH TABLE
00830 M01S00714.mte +++| LDM GFAT+4
00831 M01S00715.mte +++| LJM 0,T9 ENTER PROCESSOR
00832 M01S00716.mte +++|
00833 M01S00717.mte +++|* FAT READ ERROR PROCESSOR.
00834 M01S00718.mte +++|
00835 M01S00719.mte +++| AFA1 SFLAG COMI
00836 M01S00720.mte +++| RJM CFI CLEAR FAT INTERLOCK
00837 M01S00721.mte +++| UJP FNR RETRY FUNCTION
00838 M01S00722.mte +++|
00839 M01S00723.mte +++|* ATTACH PROCESSOR RETURN WHEN ATTACH IS ALLOWED.
00840 M01S00724.mte +++|
00841 M01S00725.mte +++| AFAX WRITEM *,FATB WRITE UPDATED FAT
00842 M01S00726.mte +++| RJM CFI CLEAR FAT INTERLOCK
00843 M01S00727.mte +++| ADK FSTG WRITE FNT/FST
00844 M01S00728.mte +++| CWD FS
00845 M01S00729.mte +++| ADK FNTG-FSTG
00846 M01S00730.mte +++| CWD FN
00847 M01S00731.mte +++| LDN 0
00848 M01S00732.mte +++| AFA2 STD OR+1
00849 M01S00733.mte +++| LJM FNC COMPLETE FUNCTION
00850 M01S00734.mte +++|
00851 M01S00735.mte +++|* ATTACH PROCESSOR REJECT RETURN.
00852 M01S00736.mte +++|
00853 M01S00737.mte +++| AFAR RJM CFI CLEAR FAT INTERLOCK
00854 M01S00738.mte +++| ADK FNTG WRITE FNT
00855 M01S00739.mte +++| CWD FN
00856 M01S00740.mte +++| LDM GFAT+4 RETURN PRESENT WRITE MODE BITS
00857 M01S00741.mte +++| LPC 7402
00858 M01S00742.mte +++| STD OR+4
00859 M01S00743.mte +++| LDN 1
00860 M01S00744.mte +++| UJN AFA2 RETURN
Line S00745 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
00861 M02S00745.ns2783 ---| AFA SPACE 4,10
00862 M01S00012.ns2783 +++| AFA SPACE 4,15
00863 M01S00746.mte +++|** THE FOLLOWING ARE *AFAM* SUBFUNCTION PROCESSORS.
00864 M01S00747.mte +++|* THE SUBFUNCTION NUMBER IS MADE UP OF THE ATTACHMENT MODE * 2
00865 M01S00748.mte +++|* FOR AN ATTACH, OR THE ATTACHMENT MODE * 2 + 1 FOR A RETURN.
00866 M01S00749.mte +++|* THE FOLLOWING ARE THE ENTRY CONDITIONS TO THE ATTACH/RETURN
00867 M01S00750.mte +++|* PROCESSORS.
00868 M01S00751.mte +++|*
00869 M01S00752.mte +++|* ENTRY (A) = (GFAT+4) = BYTE 4 OF GLOBAL FAT ENTRY.
00870 M01S00753.mte +++|* (FATB) = FAT ENTRY FROM EXTENDED MEMORY.
00871 M01S00754.mte +++|* (FS - FS+4) = LOCAL MACHINE FST ENTRY.
00872 M01S00755.mte +++|*
00873 M01S00756.mte +++|* EXIT (FATB) UPDATED FOR NEW ACCESS MODE.
00874 M01S00757.mte +++|* (FS - FS+4) = UPDATED FST.
00875 M01S00758.mte +++|
00876 M01S00759.mte +++|
00877 M01S00760.mte +++|* WRITE MODE ATTACH.
00878 M01S00761.mte +++|
00879 M01S00762.mte +++| AWT SUBFUN AFAM,PTWR*2
00880 M01S00763.mte +++| SCN 3
00881 M01S00764.mte +++| ADM GFAT+3
00882 M01S00765.mte +++| ADM GFAT+2
00883 M01S00766.mte +++| AWT1 NJN AFAR IF FILE BUSY
00884 M01S00767.mte +++| LDN 7
00885 M01S00768.mte +++| AWT2 SHN 10
00886 M01S00769.mte +++| STD T2
00887 M01S00770.mte +++| LDD OR+2 SET NON-ROLLABLE BIT
00888 M01S00771.mte +++| SHN 1-13
00889 M01S00772.mte +++| RAD T2
00890 M01S00773.mte +++| RAD FS+4
Line S00774 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00891 M02S00774.273l780 ---| INMOD *,MI5
Line S00775 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00892 M02S00775.273l780 ---| STM FATB+1*5+4
00893 M01S00003.273l780 +++| TSTM FATB+1*5+4,,MI5
00894 M01S00776.mte +++| LDD T2
00895 M01S00777.mte +++| AWT3 RAM GFAT+4
00896 M01S00778.mte +++| LJM AFAX RETURN
00897 M01S00779.mte +++|
00898 M01S00780.mte +++|* APPEND MODE ATTACH.
00899 M01S00781.mte +++|
00900 M01S00782.mte +++| AAP SUBFUN AFAM,PTAP*2
00901 M01S00783.mte +++| SCN 3
00902 M01S00784.mte +++| NJN AWT1 IF APPEND MODE NOT ALLOWED
00903 M01S00785.mte +++| LDM GFAT+3
00904 M01S00786.mte +++| LPN 77
00905 M01S00787.mte +++| AAP1 NJN AWT1 IF APPEND MODE NOT ALLOWED
00906 M01S00788.mte +++| LDN 1
00907 M01S00789.mte +++| UJN AWT2 SET APPEND MODE
00908 M01S00790.mte +++|
00909 M01S00791.mte +++|* MODIFY MODE ATTACH.
00910 M01S00792.mte +++|
00911 M01S00793.mte +++| AMD SUBFUN AFAM,PTMD*2
00912 M01S00794.mte +++| SCN 3
00913 M01S00795.mte +++| ADM GFAT+3
00914 M01S00796.mte +++| NJN AAP1 IF MODE CONFLICT
00915 M01S00797.mte +++| LDN 3
00916 M01S00798.mte +++| UJN AWT2 SET MODIFY MODE
00917 M01S00799.mte +++|
00918 M01S00800.mte +++|* UPDATE MODE ATTACH.
00919 M01S00801.mte +++|
00920 M01S00802.mte +++| AUP SUBFUN AFAM,PTUP*2
00921 M01S00803.mte +++| SHN -10
00922 M01S00804.mte +++| ADM GFAT+3
00923 M01S00805.mte +++| NJN AAP1 IF MODE CONFLICT
00924 M01S00806.mte +++| LDN 10
00925 M01S00807.mte +++| UJP AWT2 SET MODIFY MODE
00926 M01S00808.mte +++|
00927 M01S00809.mte +++|* WRITE MODE RETURN.
00928 M01S00810.mte +++|
00929 M01S00811.mte +++| RWT SUBFUN AFAM,PTWR*2+1
00930 M01S00812.mte +++| LDN 7
00931 M01S00813.mte +++| RWT1 SHN 10
00932 M01S00814.mte +++| LMD FS+4
00933 M01S00815.mte +++| SHN -10
00934 M01S00816.mte +++| NJP HNG IF NOT IN WRITE MODE
00935 M01S00817.mte +++| LDD FS+4
00936 M01S00818.mte +++| LPC 7402
00937 M01S00819.mte +++| STD T2
00938 M01S00820.mte +++| LMD FS+4 UPDATE LOCAL MODE BITS
00939 M01S00821.mte +++| STD FS+4
Line S00822 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00940 M02S00822.273l780 ---| INMOD *,MI5
Line S00823 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00941 M02S00823.273l780 ---| STM FATB+1*5+4
00942 M01S00004.273l780 +++| TSTM FATB+1*5+4,,MI5
00943 M01S00824.mte +++| LDN 0
00944 M01S00825.mte +++| SBD T2
00945 M01S00826.mte +++| UJP AWT3 RETURN
00946 M01S00827.mte +++|
00947 M01S00828.mte +++|* APPEND MODE RETURN.
00948 M01S00829.mte +++|
00949 M01S00830.mte +++| RAP SUBFUN AFAM,PTAP*2+1
00950 M01S00831.mte +++| LDN 1
00951 M01S00832.mte +++| UJN RWT1 COMPLETE PROCESSING
00952 M01S00833.mte +++|
00953 M01S00834.mte +++|* MODIFY MODE RETURN.
00954 M01S00835.mte +++|
00955 M01S00836.mte +++| RMD SUBFUN AFAM,PTMD*2+1
00956 M01S00837.mte +++| LDN 3
00957 M01S00838.mte +++| UJN RWT1 COMPLETE PROCESSING
00958 M01S00839.mte +++|
00959 M01S00840.mte +++|* UPDATE MODE RETURN.
00960 M01S00841.mte +++|
00961 M01S00842.mte +++| RUP SUBFUN AFAM,PTUP*2+1
00962 M01S00843.mte +++| LDN 10
00963 M01S00844.mte +++| UJN RWT1 COMPLETE PROCESSING
00964 M01S00845.mte +++|
00965 M01S00846.mte +++|* READ ALLOW MODIFY MODE RETURN.
00966 M01S00847.mte +++|
00967 M01S00848.mte +++| RRM SUBFUN AFAM,PTRM*2+1
00968 M01S00849.mte +++| LDD FS+2
00969 M01S00850.mte +++| ZJN RRA2 IF NO R/M COUNT SET
00970 M01S00851.mte +++| SOM GFAT+2
00971 M01S00852.mte +++| SOD FS+2
Line S00853 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00972 M02S00853.273l780 ---| INMOD *,MI5
Line S00854 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00973 M02S00854.273l780 ---| RRM1 STM FATB+1*5+2
00974 M01S00005.273l780 +++| RRM1 TSTM FATB+1*5+2,,MI5
00975 M01S00855.mte +++| UJN RRD2 RETURN
00976 M01S00856.mte +++|
00977 M01S00857.mte +++|* READ/EXECUTE MODE RETURN.
00978 M01S00858.mte +++|
00979 M01S00859.mte +++| RRD SUBFUN AFAM,(PTRD*2+1,PTEX*2+1)
00980 M01S00860.mte +++| LDD FS+3
00981 M01S00861.mte +++| LPN 77
00982 M01S00862.mte +++| ZJN RRA2 IF NO READ COUNT SET
00983 M01S00863.mte +++| SOM GFAT+3
00984 M01S00864.mte +++| SOD FS+3
Line S00865 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00985 M02S00865.273l780 ---| INMOD *,MI5
Line S00866 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
00986 M02S00866.273l780 ---| RRD1 STM FATB+1*5+3
00987 M01S00006.273l780 +++| RRD1 TSTM FATB+1*5+3,,MI5
00988 M01S00867.mte +++| RRD2 LJM AFAX RETURN
00989 M01S00868.mte +++|
00990 M01S00869.mte +++|* READ ALLOW APPEND MODE RETURN.
00991 M01S00870.mte +++|
00992 M01S00871.mte +++| RRA SUBFUN AFAM,PTRA*2+1
00993 M01S00872.mte +++| LDC -100
00994 M01S00873.mte +++| RAM GFAT+3
00995 M01S00874.mte +++| LDC -100
00996 M01S00875.mte +++| RRA1 RAD FS+3
00997 M01S00876.mte +++| PJN RRD1 IF R/A COUNT SET
00998 M01S00877.mte +++| RRA2 LJM HNG HANG
00999 M01S00878.mte +++|
01000 M01S00879.mte +++|* READ ALLOW UPDATE MODE RETURN.
01001 M01S00880.mte +++|
01002 M01S00881.mte +++| RRU SUBFUN AFAM,PTRU*2+1
01003 M01S00882.mte +++| LDD FS+4
01004 M01S00883.mte +++| LPC 374
01005 M01S00884.mte +++| ZJN RRA2 IF NO R/U COUNT SET
01006 M01S00885.mte +++| LCN 4
01007 M01S00886.mte +++| RAM GFAT+4
01008 M01S00887.mte +++| LCN 4
01009 M01S00888.mte +++| RRU1 RAD FS+4
Line S00889 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
01010 M02S00889.273l780 ---| INMOD *,MI5
Line S00890 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
01011 M02S00890.273l780 ---| STM FATB+1*5+4
01012 M01S00007.273l780 +++| TSTM FATB+1*5+4,,MI5
01013 M01S00891.mte +++| UJN RRD2 RETURN
01014 M01S00892.mte +++|
01015 M01S00893.mte +++|* READ/EXECUTE MODE ATTACH.
01016 M01S00894.mte +++|
01017 M01S00895.mte +++| ARD SUBFUN AFAM,(PTRD*2,PTEX*2)
01018 M01S00896.mte +++| SHN -10
01019 M01S00897.mte +++| NJN ARA1 IF FILE IN WRITABLE MODE
01020 M01S00898.mte +++| AOM GFAT+3
01021 M01S00899.mte +++| LPN 77
01022 M01S00900.mte +++| ZJN ARU1 IF READ COUNT EXCEEDED
01023 M01S00901.mte +++| AOD FS+3 ADVANCE LOCAL READ COUNT
01024 M01S00902.mte +++| UJP RRD1 RETURN
01025 M01S00903.mte +++|
01026 M01S00904.mte +++|* READ ALLOW MODIFY MODE ATTACH.
01027 M01S00905.mte +++|
01028 M01S00906.mte +++| AMR SUBFUN AFAM,PTRM*2
01029 M01S00907.mte +++| SHN 21-12
01030 M01S00908.mte +++| MJN ARA1 IF FILE IN WRITE MODE
01031 M01S00909.mte +++| AOM GFAT+2
01032 M01S00910.mte +++| SHN -14
01033 M01S00911.mte +++| NJN ARA1 IF R/M COUNT EXCEEDED
01034 M01S00912.mte +++| AOD FS+2 ADVANCE LOCAL R/M COUNT
01035 M01S00913.mte +++| UJP RRM1 RETURN
01036 M01S00914.mte +++|
01037 M01S00915.mte +++|* READ ALLOW APPEND MODE ATTACH.
01038 M01S00916.mte +++|
01039 M01S00917.mte +++| ARA SUBFUN AFAM,PTRA*2
01040 M01S00918.mte +++| SHN -11
01041 M01S00919.mte +++| NJN ARU1 IF FILE IN WRITE OR MODIFY MODE
01042 M01S00920.mte +++| LDD HN
01043 M01S00921.mte +++| RAM GFAT+3
01044 M01S00922.mte +++| SHN -14
01045 M01S00923.mte +++| ARA1 NJN ARU1 IF R/M COUNT EXCEEDED
01046 M01S00924.mte +++| LDD HN
01047 M01S00925.mte +++| UJP RRA1 UPDATE LOCAL COUNTS
01048 M01S00926.mte +++|
01049 M01S00927.mte +++|* READ ALLOW UPDATE MODE ATTACH.
01050 M01S00928.mte +++|
01051 M01S00929.mte +++| ARU SUBFUN AFAM,PTRU*2
01052 M01S00930.mte +++| LPC 3774
01053 M01S00931.mte +++| ADC -374
01054 M01S00932.mte +++| MJN ARU2 IF NOT CONFLICTING MODE OR COUNT EXCEEDED
01055 M01S00933.mte +++| ARU1 LJM AFAR REJECT
01056 M01S00934.mte +++|
01057 M01S00935.mte +++| ARU2 LDN 4
01058 M01S00936.mte +++| RAM GFAT+4
01059 M01S00937.mte +++| LDN 4
01060 M01S00938.mte +++| UJP RRU1 ADVANCE LOCAL R/U COUNT
01061 M01S00939.mte +++| TAFAM SPACE 4,10
01062 M01S00940.mte +++|** TAFAM - TABLE OF *AFAM* SUBFUNCTION PROCESSOR ADDRESSES.
01063 M01S00941.mte +++|*
01064 M01S00942.mte +++|* INDEXED BY ATTACH/RETURN MODE.
01065 M01S00943.mte +++|* 12/ ATTACH PROCESSOR, 12/ RETURN PROCESSOR
01066 M01S00944.mte +++|
01067 M01S00945.mte +++|
01068 M01S00946.mte +++| MXAFAM EQU 2*PTLM
01069 M01S00947.mte +++|
01070 M01S00948.mte +++| TAFAM BSS 0
01071 M01S00949.mte +++| DUP MXAFAM,1
01072 M01S00950.mte +++| CON HNG
01073 M01S00013.ns2783 +++| LIST G
01074 M01S00951.mte +++| TAFAM HERE
01075 M01S00014.ns2783 +++| LIST *
01076 M01S00952.mte +++| ORG TAFAM+MXAFAM
Line S00953 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01077 M02S00953.ns2783 ---| DLKM SPACE 4,10
Line S00954 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01078 M02S00954.ns2783 ---|*** DLKM - DELINK TRACKS.
Line S00955 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01079 M02S00955.ns2783 ---|*
Line S00956 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01080 M02S00956.ns2783 ---|* ENTRY
Line S00957 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01081 M02S00957.ns2783 ---|*T, OR 12/ DLKM,12/ EQ,36/
Line S00958 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01082 M02S00958.ns2783 ---|* EQ EST ORDINAL
Line S00959 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01083 M02S00959.ns2783 ---|*
Line S00960 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01084 M02S00960.ns2783 ---|* EXIT.
Line S00961 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01085 M02S00961.ns2783 ---|*T, OR 60/ UNCHANGED
Figure
OR
0 29 UNCHANGED 30 59 UNCHANGED
Line S00962 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01086 M02S00962.ns2783 ---|* THE REQUEST IS PASSED TO *CPUMTR* AFTER THE MST/TRT
Line S00963 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01087 M02S00963.ns2783 ---|* INTERLOCK IS GAINED.
Line S00964 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01088 M02S00964.ns2783 ---|
Line S00965 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01089 M02S00965.ns2783 ---|
Line S00966 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01090 M02S00966.ns2783 ---| PPR DLKM,SDI
Line S00967 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01091 M02S00967.ns2783 ---| DTKM SPACE 4,10
Line S00968 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01092 M02S00968.ns2783 ---|*** DTKM - DROP TRACKS.
Line S00969 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01093 M02S00969.ns2783 ---|*
Line S00970 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01094 M02S00970.ns2783 ---|* ENTRY
Line S00971 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01095 M02S00971.ns2783 ---|*T, OR 12/ DTKM,12/ EQ,36/
Line S00972 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01096 M02S00972.ns2783 ---|* EQ EST ORDINAL
Line S00973 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01097 M02S00973.ns2783 ---|*
Line S00974 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01098 M02S00974.ns2783 ---|* EXIT
Line S00975 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01099 M02S00975.ns2783 ---|*T, OR 60/ UNCHANGED
Figure
OR
0 29 UNCHANGED 30 59 UNCHANGED
Line S00976 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01100 M02S00976.ns2783 ---|* THE REQUEST IS PASSED TO *CPUMTR* AFTER THE MST/TRT
Line S00977 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01101 M02S00977.ns2783 ---|* INTERLOCK IS GAINED.
Line S00978 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01102 M02S00978.ns2783 ---|
Line S00979 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01103 M02S00979.ns2783 ---|
Line S00980 Modification History
M01 (Added by) mte
M02 (Updated by) ns2783
Seq # *Modification Id* Act
----------------------------+
01104 M02S00980.ns2783 ---| PPR DTKM,SDI
01105 M01S00015.ns2783 +++| TITLE *ECSM* MONITOR FUNCTION PROCESSING.
01106 M01S00981.mte +++| ECSM SPACE 4,10
01107 M01S00982.mte +++|*** ECSM - EXTENDED MEMORY TRANSFER.
01108 M01S00983.mte +++|* 1.) TRANSFER FROM 1 TO 100B WORDS TO/FROM RELATIVE
01109 M01S00984.mte +++|* EXTENDED MEMORY USING A USER SPECIFIED CM BUFFER.
01110 M01S00985.mte +++|* ILLEGAL FOR *MTE* REQUEST.
01111 M01S00986.mte +++|* 2.) TRANSFER FROM 1 TO 100B WORDS TO/FROM EXTENDED
01112 M01S00987.mte +++|* MEMORY USING A USER SPECIFIED CM BUFFER.
01113 M01S00988.mte +++|* 3.) TRANSFER EXTENDED MEMORY ACCORDING TO A LIST OF
01114 M01S00989.mte +++|* ADDRESSES.
01115 M01S00990.mte +++|* 4.) PERFORM FLAG REGISTER OPERATIONS.
01116 M01S00991.mte +++|
01117 M01S00992.mte +++|
01118 M01S00993.mte +++| PPR ECSM
01119 M01S00994.mte +++| LDD OR+1 SET WORD COUNT
01120 M01S00995.mte +++| SHN -6
01121 M01S00996.mte +++| ADN 1
01122 M01S00997.mte +++| STD WC
01123 M01S00998.mte +++| LDD OR+3 SET SUBFUNCTION
01124 M01S00999.mte +++| SHN -11
01125 M01S01000.mte +++| STD T8
01126 M01S01001.mte +++| LDM TECSM,T8
01127 M01S01002.mte +++| STD T9
01128 M01S01003.mte +++| LJM 0,T9 ENTER PROCESSOR
01129 M01S01004.mte +++|
01130 M01S01005.mte +++| MXECSM EQU 10 MAXIMUM NUMBER OF *ECSM* SUBFUNCTIONS
01131 M01S01006.mte +++| SPACE 4,10
01132 M01S01007.mte +++|*** RRES-WRES - READ/WRITE RELATIVE USER EXTENDED MEMORY.
01133 M01S01008.mte +++|*
01134 M01S01009.mte +++|* THESE SUBFUNCTIONS ARE NOT LEGAL FOR A MULTI-MAINFRAME
01135 M01S01010.mte +++|* LINK DEVICE WITH NO CPU PORT.
01136 M01S01011.mte +++|
01137 M01S01012.mte +++|
01138 M01S01013.mte +++|*HNG SUBFUN ECSM,(RRES,WRES) INVALID FUNCTION WHEN NO CPU PATH
01139 M01S01014.mte +++| SPACE 4,20
01140 M01S01015.mte +++|*** RECS-WECS - READ/WRITE ABSOLUTE SYSTEM EXTENDED MEMORY.
01141 M01S01016.mte +++|*
01142 M01S01017.mte +++|* ENTRY
01143 M01S01018.mte +++|*T, OR 12/ ECSM,6/ WC,18/ CMA,3/ SF,21/ ECA
Figure
OR
0 20 21 23 24 29 ECA SF CMA 30 41 42 47 48 59 CMA WC ECSM
01144 M01S01019.mte +++|* WC NUMBER OF WORDS TO TRANSFER - 1.
01145 M01S01020.mte +++|* WC = 0 TRANSFER 1 WORD.
01146 M01S01021.mte +++|* WC = 1 TRANSFER 2 WORDS.
01147 M01S01022.mte +++|* .
01148 M01S01023.mte +++|* .
01149 M01S01024.mte +++|* WC = 77B TRANSFER 100B WORDS.
01150 M01S01025.mte +++|* CMA RELATIVE+400000B OR ABSOLUTE CM ADDRESS OF BUFFER.
01151 M01S01026.mte +++|* SF *RECS* OR *WECS* SUBFUNCTION CODE.
01152 M01S01027.mte +++|* ECA ABSOLUTE SYSTEM EXTENDED MEMORY ADDRESS OF TRANSFER.
01153 M01S01028.mte +++|*
01154 M01S01029.mte +++|* EXIT
01155 M01S01030.mte +++|*T, OR 12/ 0,12/ ST,12/,24/ ECD
Figure
OR
0 23 24 29 ECD 30 35 36 47 48 59 ST 0
01156 M01S01031.mte +++|* ST 0 FOR TRANSFER COMPLETE.
01157 M01S01032.mte +++|* 7777 FOR TRANSFER ABORTED.
01158 M01S01033.mte +++|* ECD ABSOLUTE SYSTEM EXTENDED MEMORY ADDRESS WHERE ERROR
01159 M01S01034.mte +++|* OCCURRED IF ABORTED.
01160 M01S01035.mte +++|
01161 M01S01036.mte +++|
01162 M01S01037.mte +++| RWE SUBFUN ECSM,(RECS,WECS)
01163 M01S01038.mte +++| LDD OR+3
01164 M01S01039.mte +++| LPC 777 SET EXTENDED MEMORY ADDRESS
01165 M01S01040.mte +++| STD EA
01166 M01S01041.mte +++| LDD OR+4
01167 M01S01042.mte +++| STD EA+1
01168 M01S01043.mte +++| LCN RECS
01169 M01S01044.mte +++| ERRNZ WECS-RECS-1 CODE DEPENDS ON VALUE OF TAG
01170 M01S01045.mte +++| RAD T8 (T8) = 0 IF READ, = 1 IF WRITE
01171 M01S01046.mte +++| NJN RWE1 IF WRITE REQUEST
01172 M01S01047.mte +++| READEM *,TBUF READ EXTENDED MEMORY WORDS
01173 M01S01048.mte +++| STD T2
01174 M01S01049.mte +++| RWE1 LDD OR+1 GET ABSOLUTE CM ADDRESS
01175 M01S01050.mte +++| LPN 77
01176 M01S01051.mte +++| SHN 14
01177 M01S01052.mte +++| PJN RWE2 IF ABSOLUTE CM ADDRESS
01178 M01S01053.mte +++| LDD RQ READ CONTROL POINT
Line S01054 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
01179 M02S01054.273l780 ---| SBN 1
Line S01055 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
01180 M02S01055.273l780 ---| CRD FS
Line S01056 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
01181 M02S01056.273l780 ---| LDD FS+1
Line S01057 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
01182 M02S01057.273l780 ---| LPN 37
Line S01058 Modification History
M01 (Added by) mte
M02 (Updated by) 273l780
Seq # *Modification Id* Act
----------------------------+
01183 M02S01058.273l780 ---| SHN 7
01184 M01S00008.273l780 +++| SBD OF
01185 M01S00009.273l780 +++| SHN PPXES-PPCES
01186 M01S00010.273l780 +++| TADC ACPP,PPX
01187 M01S00011.273l780 +++| CRD FS READ ASSIGNED CP ADDRESS
01188 M01S00012.273l780 +++| LDD FS+4
01189 M01S01059.mte +++| RWEA ADN FLSW
01190 M01S01060.mte +++|* ADN FLSW+1 (CME PRESENT)
01191 M01S01061.mte +++| CRD CM
01192 M01S01062.mte +++| LRD CM+1
01193 M01S01063.mte +++| LDD OR+1 SET ABSOLUTE ADDRESS
01194 M01S01064.mte +++| LPN 37
01195 M01S01065.mte +++| SHN 6
01196 M01S01066.mte +++| ADD CM+3
01197 M01S01067.mte +++| SHN 6
01198 M01S01068.mte +++| RWE2 ADD OR+2
01199 M01S01069.mte +++| LJM TRWE,T8 ENTER PROCESSOR
01200 M01S01070.mte +++|
01201 M01S01071.mte +++| TRWE UJN RWE4 READ
01202 M01S01072.mte +++|* UJN RWE3 WRITE
01203 M01S01073.mte +++|
01204 M01S01074.mte +++| RWE3 CRM TBUF,WC
01205 M01S01075.mte +++| WRITEM *,TBUF WRITE DATA TO EXTENDED MEMORY
01206 M01S01076.mte +++| UJN RWE5 STORE STATUS AND EXIT
01207 M01S01077.mte +++|
01208 M01S01078.mte +++| RWE4 CWM TBUF,WC
01209 M01S01079.mte +++| LDD T2
01210 M01S01080.mte +++| RWE5 STD OR+1
01211 M01S01081.mte +++| LJM FNC COMPLETE FUNCTION
01212 M01S01082.mte +++| SPACE 4,15
01213 M01S01083.mte +++|*** SFRS-CFRS - SET/CLEAR FLAG REGISTER BITS.
01214 M01S01084.mte +++|*
01215 M01S01085.mte +++|* *SFRS* IS THE TEST AND SET FLAG REGISTER FUNCTION.
01216 M01S01086.mte +++|* *CFRS* IS THE UNCONDITIONAL CLEAR FLAG REGISTER FUNCTION.
01217 M01S01087.mte +++|*
01218 M01S01088.mte +++|* ENTRY
01219 M01S01089.mte +++|*T, OR 12/ ECSM,6/ ECB,18/,3/ SF,21/
Figure
OR
0 20 21 23 24 29 SF 30 41 42 47 48 59 ECB ECSM
01220 M01S01090.mte +++|* ECB FLAG REGISTER BIT NUMBER TO SET/CLEAR.
01221 M01S01091.mte +++|* SF *SFRS* OR *CFRS* SUBFUNCTION CODE.
01222 M01S01092.mte +++|*
01223 M01S01093.mte +++|* EXIT
01224 M01S01094.mte +++|*T, OR 12/ 0,12/ ST,12/,12/,12/
Figure
OR
0 11 12 23 24 29 30 35 36 47 48 59 ST 0
01225 M01S01095.mte +++|* ST 0 IF FUNCTION COMPLETED.
01226 M01S01096.mte +++|* ST 7777 IF *SFRS* FUNCTION PERFORMED ON A BIT WHICH WAS
01227 M01S01097.mte +++|* ALREADY SET.
01228 M01S01098.mte +++|
01229 M01S01099.mte +++|
01230 M01S01100.mte +++| SFR SUBFUN ECSM,(CFRS,SFRS)
01231 M01S01101.mte +++| LDN FRET-1 SET FLAG BIT OWNER ADDRESS
01232 M01S01102.mte +++| ADD WC
01233 M01S01103.mte +++| RJM SLA SET ADDRESS IN LABEL TRACK
01234 M01S01104.mte +++| LDN 1 SET WORD COUNT
01235 M01S01105.mte +++| STD WC
01236 M01S01106.mte +++| LDD T8
01237 M01S01107.mte +++| LMN SFRS
01238 M01S01108.mte +++| ZJN SFR1 IF SET FUNCTION
01239 M01S01109.mte +++| WRITEM *,ZR CLEAR FLAG BIT OWNER
01240 M01S01110.mte +++| SFR1 LDD OR+1 SET FLAG BIT
01241 M01S01111.mte +++| SHN -6
01242 M01S01112.mte +++| ADD TH
01243 M01S01113.mte +++| STM SFRA
01244 M01S01114.mte +++| LDN 1
01245 M01S01115.mte +++| SFRA SHN **
01246 M01S01116.mte +++| STD FN+1
01247 M01S01117.mte +++| SHN -14
01248 M01S01118.mte +++| ADM TSFR,T8
01249 M01S01119.mte +++| STD FN
01250 M01S01120.mte +++| LDN FN
01251 M01S01121.mte +++| RJM IFR ISSUE FLAG REGISTER REQUEST
01252 M01S01122.mte +++| STD OR+1
01253 M01S01123.mte +++| NJN SFR2 IF INTERLOCK NOT GAINED
01254 M01S01124.mte +++| LDD T8
01255 M01S01125.mte +++| LMN SFRS
01256 M01S01126.mte +++| NJN SFR2 IF NOT SET FUNCTION
01257 M01S01127.mte +++| WRITEM *,MI+1-4 SET FLAG BIT OWNER
01258 M01S01128.mte +++| SFR2 LJM FNC COMPLETE FUNCTION
01259 M01S01129.mte +++|
01260 M01S01130.mte +++|
01261 M01S01131.mte +++| TSFR EQU *-SFRS TABLE OF FLAG REGISTER FUNCTIONS
01262 M01S01132.mte +++| LOC SFRS
01263 M01S01133.mte +++| SFRS CON 4000
01264 M01S01134.mte +++| CFRS CON 7000
01265 M01S01135.mte +++| LOC *O
01266 M01S01136.mte +++| SPACE 4,35
01267 M01S01137.mte +++|*** PELS - PROCESS EXTENDED MEMORY ACCORDING TO LIST.
01268 M01S01138.mte +++|*
01269 M01S01139.mte +++|* ENTRY
01270 M01S01140.mte +++|*T, OR 12/ ECSM,6/ WC,18/ CML,3/ SF,1/W,1/U,19/
Figure
OR
0 18 19 20 21 23 24 29 U W SF CML 30 41 42 47 48 59 CML WC ECSM
01271 M01S01141.mte +++|* WC NUMBER OF LIST ENTRIES TO PROCESS.
01272 M01S01142.mte +++|* CML ABSOLUTE CM FWA OF LIST.
01273 M01S01143.mte +++|* SF *PELS* SUBFUNCTION CODE.
01274 M01S01144.mte +++|* W SET IF LIST OF WORDS TO BE WRITTEN.
01275 M01S01145.mte +++|* CLEAR IF LIST OF WORDS TO BE READ.
01276 M01S01146.mte +++|* U SET IF LIST CONTAINS ABSOLUTE USER EXTENDED MEMORY
01277 M01S01147.mte +++|* ADDRESSES.
01278 M01S01148.mte +++|* CLEAR IF LIST CONTAINS ABSOLUTE SYSTEM EXTENDED MEMORY
01279 M01S01149.mte +++|* ADDRESSES.
01280 M01S01150.mte +++|*
01281 M01S01151.mte +++|*T,CML 12/0,6/ CT,18/0,24/ EM
Figure
CML
0 23 24 29 EM 0 30 41 42 47 48 59 0 CT 0
01282 M01S01152.mte +++|* CT WORD COUNT TO TRANSFER (MAXIMUM OF 60D).
01283 M01S01153.mte +++|* EM ABSOLUTE SYSTEM OR USER EXTENDED MEMORY ADDRESS.
01284 M01S01154.mte +++|*
01285 M01S01155.mte +++|* THE LIST OF EXTENDED MEMORY DATA WORDS IMMEDIATELY FOLLOW THE
01286 M01S01156.mte +++|* LIST OF EXTENDED MEMORY ADDRESSES. DATA IS WRITTEN FROM THIS
01287 M01S01157.mte +++|* BUFFER OR READ TO THIS BUFFER.
01288 M01S01158.mte +++|*
01289 M01S01159.mte +++|* EXIT
01290 M01S01160.mte +++|*T, OR 12/ 0,12/ ST,36/ 0
01291 M01S01161.mte +++|* ST 0 FOR TRANSFER COMPLETE.
01292 M01S01162.mte +++|* 7777 FOR TRANSFER ABORTED.
01293 M01S01163.mte +++|*
01294 M01S01164.mte +++|*T, CML 60/ EF
01295 M01S01165.mte +++|* EF ERROR FLAGS INDICATING WORDS ON WHICH
01296 M01S01166.mte +++|* ERROR OCCURRED IF TRANSFER ABORTED.
01297 M01S01167.mte +++|* BIT 0 SET = ERROR OCCURRED ON WORD
01298 M01S01168.mte +++|* AT *EM* + 0.
01299 M01S01169.mte +++|* ...
01300 M01S01170.mte +++|* BIT *CT* - 1 SET = ERROR OCCURRED ON WORD
01301 M01S01171.mte +++|* AT *EM* + *CT* - 1.
01302 M01S01172.mte +++|
01303 M01S01173.mte +++|
01304 M01S01174.mte +++| PEL SUBFUN ECSM,PELS
01305 M01S01175.mte +++|
01306 M01S01176.mte +++|* TEST FLAG BITS TO UPDATE *EFRL* STATUS.
01307 M01S01177.mte +++|
01308 M01S01178.mte +++| LDK EFRL SET FLAG REGISTER STATUS
01309 M01S01179.mte +++| CRD FN
01310 M01S01180.mte +++| LDN 0
01311 M01S01181.mte +++| STD FN+3
01312 M01S01182.mte +++| STD FN+4
01313 M01S01183.mte +++| LDD TH
01314 M01S01184.mte +++| ERRNZ SHNI-1000 CODE DEPENDS ON VALUE OF TAG
01315 M01S01185.mte +++| STM PELA
01316 M01S01186.mte +++| PEL1 LDN 1 TEST FLAG BIT
01317 M01S01187.mte +++| PELA SHN **
01318 M01S01188.mte +++| STD EA+1
01319 M01S01189.mte +++| SHN -14
01320 M01S01190.mte +++| ADC 6000
01321 M01S01191.mte +++| STD EA
01322 M01S01192.mte +++| AOM PELA
01323 M01S01193.mte +++| LPN 77
01324 M01S01194.mte +++| LMN 23
01325 M01S01195.mte +++| ZJN PEL2 IF END OF BITS TO CHECK
01326 M01S01196.mte +++| LDN EA
01327 M01S01197.mte +++| RJM IFR
01328 M01S01198.mte +++| ZJN PEL1 IF BIT NOT SET
01329 M01S01199.mte +++| LDD EA
01330 M01S01200.mte +++| LPN 77
01331 M01S01201.mte +++| RAD FN+3
01332 M01S01202.mte +++| LDD EA+1
01333 M01S01203.mte +++| RAD FN+4
01334 M01S01204.mte +++| UJN PEL1 CHECK NEXT BIT
01335 M01S01205.mte +++|
01336 M01S01206.mte +++| PEL2 LDK EFRL WRITE UPDATED FLAG REGISTER
01337 M01S01207.mte +++| CWD FN
01338 M01S01208.mte +++| LDN 0
01339 M01S01209.mte +++| STD T9 SET RELATIVE LIST ADDRESS
01340 M01S01210.mte +++| SOD WC SET WORD COUNT OF LIST
01341 M01S01211.mte +++| STD T8
01342 M01S01212.mte +++| STD T3 SET DATA ADDRESS IN LIST
01343 M01S01213.mte +++| PEL3 LDD OR+1 READ LIST ENTRY
01344 M01S01214.mte +++| LPN 77
01345 M01S01215.mte +++| SHN 14
01346 M01S01216.mte +++| ADD OR+2
01347 M01S01217.mte +++| ADD T9
01348 M01S01218.mte +++| CRD FN
01349 M01S01219.mte +++| LDD FN+1 SET WORD COUNT
01350 M01S01220.mte +++| SHN -6
01351 M01S01221.mte +++| STD WC
01352 M01S01222.mte +++| LDD FN+3 SET EM ADDRESS
01353 M01S01223.mte +++| STD EA
01354 M01S01224.mte +++| LDD FN+4
01355 M01S01225.mte +++| STD EA+1
01356 M01S01226.mte +++| LDD OR+3
01357 M01S01227.mte +++| SHN 21-10
01358 M01S01228.mte +++| PJN PEL4 IF READ
01359 M01S01229.mte +++| LDD OR+1 READ DATA TO WRITE
01360 M01S01230.mte +++| LPN 77
01361 M01S01231.mte +++| SHN 14
01362 M01S01232.mte +++| ADD OR+2
01363 M01S01233.mte +++| ADD T3
01364 M01S01234.mte +++| CRM TBUF,WC
01365 M01S01235.mte +++| WRITEM *,TBUF WRITE DATA
01366 M01S01236.mte +++| UJN PEL5 CONTINUE