User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:mte

Deck MTE

10 Modifications

Listing Sections

Source

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

0111229 RM303536414259 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

01112232429 FO SF MD30343536474859 MDN 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

01278111229N WF 303536474859 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/
Figure OR

029303536474859 EQ DLKM


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

029 UNCHANGED3059 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/
Figure OR

029303536474859 EQ DTKM


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

029 UNCHANGED3059 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

02021232429 ECA SF CMA304142474859 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

0232429 ECD303536474859 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

02021232429 SF304142474859 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

01112232429303536474859 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

018192021232429UW SF CML304142474859 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

0232429 EM03041424748590 CT0

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
Figure OR

029 0303536474859 0 ST 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
Figure CML

029 EF3059 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
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/mte.txt · Last modified: by 127.0.0.1