User Tools

Site Tools


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

Deck MPF

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.mpf     +++|          IDENT  MPF,MPF
00002  M01S00002.mpf     +++|          PERIPH
00003  M01S00003.mpf     +++|          BASE   MIXED
00004  M01S00004.mpf     +++|          SST
00005  M01S00005.mpf     +++|          TITLE  MPF - *PACKER* UTILITY HELPER.
00006  M01S00006.mpf     +++|          SPACE  4,10
00007  M01S00007.mpf     +++|*COMMENT  MPF - *PACKER* UTILITY HELPER.
Line S00008 Modification History
M01 (Added by) mpf
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00008.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1988.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00009.mpf     +++|          SPACE  4,10
00011  M01S00010.mpf     +++|***       MPF - *PACKER* UTILITY PP HELPER ROUTINE.
00012  M01S00011.mpf     +++|*
00013  M01S00012.mpf     +++|*         W. J. STURGIS.     78/02/14.
00014  M01S00013.mpf     +++|*         K. A. GILLIAM.     80/08/11.
00015  M01S00014.mpf     +++|*         D. G. BEAUSANG.    80/08/26.
00016  M01S00015.mpf     +++|*         A. J. NATHANSON.   83/10/25.
00017  M01S00016.mpf     +++|*         K. R. DELAY.       84/03/26.
00018  M01S00017.mpf     +++|*         P. C. SMITH.       87/12/01.
00019  M01S00018.mpf     +++|          SPACE  4,10
00020  M01S00019.mpf     +++|***       MPF IS A PP HELPER PROGRAM FOR THE UTILITY *PACKER*.
00021  M01S00020.mpf     +++|          SPACE  4,10
00022  M01S00021.mpf     +++|***       CALL -
00023  M01S00022.mpf     +++|*
00024  M01S00023.mpf     +++|*T        18/ *MPF*,6/ R,12/ FN,6/ ,18/ ADDR
Figure

01718232429 ADDR FN303536414259 FN R *MPF*

00025  M01S00024.mpf     +++|*
00026  M01S00025.mpf     +++|*                FN = FUNCTION CODE.
00027  M01S00026.mpf     +++|*                ADDR = ADDRESS OF FET OR PARAMETER BLOCK.
00028  M01S00027.mpf     +++|*
00029  M01S00028.mpf     +++|*         SEE INDIVIDUAL FUNCTIONS FOR MORE DETAILS.
00030  M01S00029.mpf     +++|*
00031  M01S00030.mpf     +++|*         FN = 0, DROP TRACKS ON IAPF CHAIN.
00032  M01S00031.mpf     +++|*         FN = 1, REWRITE EOI.
00033  M01S00032.mpf     +++|*         FN = 2, DELINK TRACKS FROM IAPF CHAIN.
00034  M01S00033.mpf     +++|*         FN = 3, (RESERVED).
00035  M01S00034.mpf     +++|*         FN = 4, READ SYSTEM SECTOR.
00036  M01S00035.mpf     +++|*         FN = 5, WRITE SYSTEM SECTOR.
00037  M01S00036.mpf     +++|*         FN = 6, RETURN FST FOR CATALOG OVERFLOW TRACK.
00038  M01S00037.mpf     +++|*         FN = 7, REWRITE CATALOG SECTOR.
00039  M01S00038.mpf     +++|          SPACE  4,10
00040  M01S00039.mpf     +++|***       DAYFILE MESSAGES.
00041  M01S00040.mpf     +++|*
00042  M01S00041.mpf     +++|*         THESE MESSAGES ARE ISSUED TO THE SYSTEM AND LOCAL
00043  M01S00042.mpf     +++|*         DAYFILES, AND THE CALLING JOB IS ABORTED.
00044  M01S00043.mpf     +++|*
00045  M01S00044.mpf     +++|*         * MPF - ADDRESS OUT OF RANGE.*
00046  M01S00045.mpf     +++|*                 THE SPECIFIED ADDRESS WAS .LE. 1 OR .GE. FL.
00047  M01S00046.mpf     +++|*
00048  M01S00047.mpf     +++|*         * MPF - BUFFER ARGUMENT ERROR.*
00049  M01S00048.mpf     +++|*                 BUFFER ARGUMENTS (FIRST/IN/OUT/LIMIT) ARE INCORRECT.
00050  M01S00049.mpf     +++|*
00051  M01S00050.mpf     +++|*         * MPF - CATALOG REWRITE LINK BYTE ERROR.*
00052  M01S00051.mpf     +++|*                 AN INCORRECT LINK BYTE WAS READ FROM THE
00053  M01S00052.mpf     +++|*                 CATALOG TRACK.
00054  M01S00053.mpf     +++|*
00055  M01S00054.mpf     +++|*         * MPF - DEVICE ERROR IDLE SET.*
00056  M01S00055.mpf     +++|*                 A DEVICE ERROR IDLE WAS SET AS THE RESULT OF AN
00057  M01S00056.mpf     +++|*                 INCORRECT CATALOG SECTOR WRITE.
00058  M01S00057.mpf     +++|*
00059  M01S00058.mpf     +++|*         * MPF - EQXX  TKYYYY  SCZZZZ.*
00060  M01S00059.mpf     +++|*                 THE EST ORDINAL, TRACK AND SECTOR LOCATION OF THE
00061  M01S00060.mpf     +++|*                 INCORRECT SECTOR WRITE.
00062  M01S00061.mpf     +++|*
00063  M01S00062.mpf     +++|*         * MPF - FET COMPLETE BIT SET.*
00064  M01S00063.mpf     +++|*                 THE FET COMPLETE BIT WAS SET ON ENTRY FOR FN=7.
00065  M01S00064.mpf     +++|*
00066  M01S00065.mpf     +++|*         * MPF - FET TOO SHORT.*
00067  M01S00066.mpf     +++|*                 THE FET WAS TOO SHORT FOR FN=7.
00068  M01S00067.mpf     +++|*
00069  M01S00068.mpf     +++|*         * MPF - FILE NOT FOUND.*
00070  M01S00069.mpf     +++|*                 THE LOCAL FILE SPECIFIED IN THE FET WAS NOT FOUND.
00071  M01S00070.mpf     +++|*
00072  M01S00071.mpf     +++|*         * MPF - FM DN FFFFFFF NN.*
00073  M01S00072.mpf     +++|*                 THE FAMILY NAME (FFFFFFF) AND DEVICE NUMBER (NN)
00074  M01S00073.mpf     +++|*                 OF THE DEVICE ON WHICH ERROR IDLE WAS SET.
00075  M01S00074.mpf     +++|*
00076  M01S00075.mpf     +++|*         * MPF - INACCESSIBLE DEVICE.*
00077  M01S00076.mpf     +++|*                 THE DEVICE STATUS RETURNED BY THE *SETMS* MACRO
00078  M01S00077.mpf     +++|*                 INDICATES THAT THE DEVICE IS NOT ACCESSIBLE.
00079  M01S00078.mpf     +++|*
00080  M01S00079.mpf     +++|*         * MPF - INCORRECT CALL.*
00081  M01S00080.mpf     +++|*                 CALLER WAS NOT *SSJ=* PROGRAM, OR *MPF* WAS
00082  M01S00081.mpf     +++|*                 NOT CALLED WITH AUTO RECALL.
00083  M01S00082.mpf     +++|*
00084  M01S00083.mpf     +++|*         * MPF - INCORRECT CATALOG REWRITE REQUEST.*
00085  M01S00084.mpf     +++|*                 INCORRECT SECTOR LENGTH, INCORRECT RANDOM ADDRESS,
00086  M01S00085.mpf     +++|*                 INCORRECT EST ORDINAL, ET CETERA.
00087  M01S00086.mpf     +++|*
00088  M01S00087.mpf     +++|*         * MPF - INCORRECT CIO CODE IN CATALOG REWRITE.*
00089  M01S00088.mpf     +++|*                 THE CIO CODE FOR *REWRITE* MUST BE SET IN THE FET
00090  M01S00089.mpf     +++|*                 FOR A SECTOR REWRITE WITH 100B WORDS; THE CIO CODE
00091  M01S00090.mpf     +++|*                 FOR *REWRITER* MUST BE SET IN THE FET FOR A SECTOR
00092  M01S00091.mpf     +++|*                 WITH LESS THAN 100B WORDS.
00093  M01S00092.mpf     +++|*
00094  M01S00093.mpf     +++|*         * MPF - INCORRECT FUNCTION.*
00095  M01S00094.mpf     +++|*                 FUNCTION NUMBER NOT RECOGNIZED.
00096  M01S00095.mpf     +++|*
00097  M01S00096.mpf     +++|*         * MPF - INCORRECT LINK BYTE IN CATALOG SCAN.*
00098  M01S00097.mpf     +++|*                 THE CONTROL BYTES IN THE SECTOR AT END OF A TRACK
00099  M01S00098.mpf     +++|*                 WERE NOT LINK BYTES, THE LINK BYTE POINTED TO AN
00100  M01S00099.mpf     +++|*                 UNRESERVED TRACK, OR THE LINK BYTE POINTED TO A
00101  M01S00100.mpf     +++|*                 TRACK WHICH WAS NOT ON THE TRACK CHAIN WHICH STARTED
00102  M01S00101.mpf     +++|*                 WITH THE LABEL TRACK.
00103  M01S00102.mpf     +++|*
00104  M01S00103.mpf     +++|*         * MPF - INCORRECT OVERFLOW FST REQUEST.*
00105  M01S00104.mpf     +++|*                 THE PARAMETER BLOCK FOR FN=6 WAS INCORRECT.
00106  M01S00105.mpf     +++|*
00107  M01S00106.mpf     +++|*         * MPF - INCORRECT SECTOR READ IN CATALOG REWRITE.*
00108  M01S00107.mpf     +++|*                 AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED
00109  M01S00108.mpf     +++|*                 ON A SECTOR READ.
00110  M01S00109.mpf     +++|*
00111  M01S00110.mpf     +++|*         * MPF - INCORRECT SECTOR READ IN CATALOG SCAN.*
00112  M01S00111.mpf     +++|*                 AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED
00113  M01S00112.mpf     +++|*                 ON A CATALOG TRACK.
00114  M01S00113.mpf     +++|*
00115  M01S00114.mpf     +++|*         * MPF - INCORRECT SYSTEM SECTOR.*
00116  M01S00115.mpf     +++|*                 THE LINKAGE BYTES IN THE BUFFER WERE NOT CORRECT
00117  M01S00116.mpf     +++|*                 FOR THE WRITE SYSTEM SECTOR FUNCTION.
00118  M01S00117.mpf     +++|*
00119  M01S00118.mpf     +++|*         * MPF - INCORRECT WORD COUNT IN CATALOG REWRITE.*
00120  M01S00119.mpf     +++|*                 THE WORD COUNT IN THE CIO BUFFER IS .GE. THAN 100B.
00121  M01S00120.mpf     +++|*
00122  M01S00121.mpf     +++|*         * MPF - INCORRECT WRITE IN CATALOG REWRITE.*
00123  M01S00122.mpf     +++|*                 AN UNRECOVERED MASS STORAGE ERROR WAS ENCOUNTERED
00124  M01S00123.mpf     +++|*                 ON A SECTOR WRITE.  THIS ERROR WILL SET ERROR IDLE
00125  M01S00124.mpf     +++|*                 ON THE DEVICE.
00126  M01S00125.mpf     +++|*
00127  M01S00126.mpf     +++|*         * MPF - I/O SEQUENCE ERROR.*
00128  M01S00127.mpf     +++|*                 FST ENTRY FOR REWRITE EOI WAS BUSY.
00129  M01S00128.mpf     +++|*
00130  M01S00129.mpf     +++|*         * MPF - RANDOM ADDRESS NOT ON IAPF CHAIN.*
00131  M01S00130.mpf     +++|*                 THE SPECIFIED RANDOM ADDRESS WAS NOT FOUND ON
00132  M01S00131.mpf     +++|*                 THE IAPF CHAIN.
00133  M01S00132.mpf     +++|*
00134  M01S00133.mpf     +++|*         * MPF - SYSTEM SECTOR ERROR.*
00135  M01S00134.mpf     +++|*                 A MASS STORAGE ERROR WAS ENCOUNTERED WHEN READING
00136  M01S00135.mpf     +++|*                 OR WRITING A SYSTEM SECTOR.
00137  M01S00136.mpf     +++|*
00138  M01S00137.mpf     +++|*         * MPF - WRITE LOCK-OUT ON CATALOG FILE.*
00139  M01S00138.mpf     +++|*                 THE CATALOG FILE WAS NOT IN WRITE MODE.
00140  M01S00139.mpf     +++|          TITLE  COMMON DECKS.
00141  M01S00140.mpf     +++|          SPACE  4,10
00142  M01S00141.mpf     +++|*         COMMON DECKS.
00143  M01S00142.mpf     +++|          SPACE  4,10
00144  M01S00143.mpf     +++|*CALL     COMPMAC
00145  M01S00144.mpf     +++|*CALL     COMSCPS
00146  M01S00145.mpf     +++|*CALL     COMSLSD
00147  M01S00146.mpf     +++|*CALL     COMSMSP
00148  M01S00147.mpf     +++|*CALL     COMSMST
00149  M01S00148.mpf     +++|*CALL     COMSPIM
00150  M01S00149.mpf     +++|*CALL     COMSWEI
00151  M01S00150.mpf     +++|          TITLE  MACRO DEFINITIONS.
00152  M01S00151.mpf     +++|          SPACE  4,10
00153  M01S00152.mpf     +++|*         MACRO DEFINITIONS.
00154  M01S00153.mpf     +++| ERROR    SPACE  4,10
00155  M01S00154.mpf     +++|**        ERROR - ISSUE ERROR MESSAGE AND ABORT.
00156  M01S00155.mpf     +++|*
00157  M01S00156.mpf     +++|*         ERROR  MSG
00158  M01S00157.mpf     +++|*
00159  M01S00158.mpf     +++|*         MSG = ADDRESS OF ERROR MESSAGE.
00160  M01S00159.mpf     +++|*
00161  M01S00160.mpf     +++|*         CALLS  ERR.
00162  M01S00161.mpf     +++|
00163  M01S00162.mpf     +++|
00164  M01S00163.mpf     +++|          PURGMAC  ERROR
00165  M01S00164.mpf     +++|
00166  M01S00165.mpf     +++| ERROR    MACRO  M
00167  M01S00166.mpf     +++|          MACREF ERROR
00168  M01S00167.mpf     +++|          LDC    M
00169  M01S00168.mpf     +++|          RJM    ERR
00170  M01S00169.mpf     +++| ERROR    ENDM
00171  M01S00170.mpf     +++| LDCA     SPACE  4,10
00172  M01S00171.mpf     +++|**        LDCA - LOAD AND CHECK CENTRAL ADDRESS.
00173  M01S00172.mpf     +++|*
00174  M01S00173.mpf     +++|*         LDCA   ADDR,OFFSET
00175  M01S00174.mpf     +++|*
00176  M01S00175.mpf     +++|*         (ADDR - ADDR+1) = RELATIVE ADDRESS.
00177  M01S00176.mpf     +++|*         OFFSET = ADDED TO ADDRESS.
00178  M01S00177.mpf     +++|*
00179  M01S00178.mpf     +++|*         CALLS  VCA.
00180  M01S00179.mpf     +++|*
00181  M01S00180.mpf     +++|*         USES   T1, T2.
00182  M01S00181.mpf     +++|
00183  M01S00182.mpf     +++|
00184  M01S00183.mpf     +++|          PURGMAC LDCA
00185  M01S00184.mpf     +++|
00186  M01S00185.mpf     +++| LDCA     MACRO  A,N
00187  M01S00186.mpf     +++|          MACREF LDCA
00188  M01S00187.mpf     +++|          LDD    A
00189  M01S00188.mpf     +++|          LPN    37
00190  M01S00189.mpf     +++|          SHN    14
00191  M01S00190.mpf     +++|          ADD    A+1
00192  M01S00191.mpf     +++|          IFC    NE,$N$$,1
00193  M01S00192.mpf     +++|          ADK    N
00194  M01S00193.mpf     +++|          RJM    VCA
00195  M01S00194.mpf     +++| LDCA     ENDM
00196  M01S00195.mpf     +++|          TITLE  DIRECT CELL DEFINITIONS.
00197  M01S00196.mpf     +++|          SPACE  4,10
00198  M01S00197.mpf     +++|*         DIRECT CELL DEFINITIONS.
00199  M01S00198.mpf     +++|
00200  M01S00199.mpf     +++|
00201  M01S00200.mpf     +++| FS       EQU    20 - 24     FST ENTRY
00202  M01S00201.mpf     +++| RI       EQU    25 - 26     RANDOM INDEX
00203  M01S00202.mpf     +++| CT       EQU    35          OVERFLOW TRACK NUMBER
00204  M01S00203.mpf     +++| TK       EQU    36          LABEL TRACK
00205  M01S00204.mpf     +++| FN       EQU    40 - 44     FNT ENTRY
00206  M01S00205.mpf     +++| FA       EQU    57          FNT ADDRESS
00207  M01S00206.mpf     +++| FT       EQU    60 - 61     FIRST
00208  M01S00207.mpf     +++| IN       EQU    62 - 63     IN
00209  M01S00208.mpf     +++| OT       EQU    64 - 65     OUT
00210  M01S00209.mpf     +++| LM       EQU    66 - 67     LIMIT
00211  M01S00210.mpf     +++|          TITLE  MAIN PROGRAM.
00212  M01S00211.mpf     +++|          SPACE  4,10
00213  M01S00212.mpf     +++|          ORG    PPFW
00214  M01S00213.mpf     +++| MPF      SPACE  4,10
00215  M01S00214.mpf     +++|**        MPF - MAIN PROGRAM.
00216  M01S00215.mpf     +++|
00217  M01S00216.mpf     +++|
00218  M01S00217.mpf     +++| MPF      BSS    0           ENTRY
00219  M01S00218.mpf     +++|          RJM    PRS         PRESET
00220  M01S00219.mpf     +++|          RJM    0,T1        EXECUTE FUNCTION
00221  M01S00220.mpf     +++|          MONITOR  DPPM      DROP PP
00222  M01S00221.mpf     +++|          LJM    PPR         EXIT TO PP RESIDENT
00223  M01S00222.mpf     +++|          TITLE  ERROR PROCESSING.
00224  M01S00223.mpf     +++| ERR      SPACE  4,10
00225  M01S00224.mpf     +++|**        ERR - ERROR PROCESSOR.
00226  M01S00225.mpf     +++|*
00227  M01S00226.mpf     +++|*         ENTRY  (A) = ADDRESS OF ERROR MESSAGE TEXT.
00228  M01S00227.mpf     +++|*
00229  M01S00228.mpf     +++|*         EXIT   TO *PPR*.
00230  M01S00229.mpf     +++|*                PP HUNG IF *SYSTEM DEBUG* ENABLED.
00231  M01S00230.mpf     +++|*
00232  M01S00231.mpf     +++|*         CALLS  DFM, SFC.
00233  M01S00232.mpf     +++|*
00234  M01S00233.mpf     +++|*         MACROS MONITOR.
00235  M01S00234.mpf     +++|
00236  M01S00235.mpf     +++|
00237  M01S00236.mpf     +++| ERR      SUBR               ENTRY
00238  M01S00237.mpf     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
00239  M01S00238.mpf     +++|          RJM    SFC         SET FST COMPLETE
00240  M01S00239.mpf     +++|          LDK    ZERL
00241  M01S00240.mpf     +++|          CRD    CM
00242  M01S00241.mpf     +++|          LDM    ERR         SET ADDRESS OF CALLER
00243  M01S00242.mpf     +++|          STD    CM+1
00244  M01S00243.mpf     +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
00245  M01S00244.mpf     +++|          MONITOR  ABTM      ABORT CONTROL POINT
00246  M01S00245.mpf     +++|          LJM    PPR         EXIT TO PP RESIDENT
00247  M01S00246.mpf     +++| ERRMSG   SPACE  4,10
00248  M01S00247.mpf     +++|*         ERROR MESSAGES.
00249  M01S00248.mpf     +++|
00250  M01S00249.mpf     +++|
00251  M01S00250.mpf     +++| ERAR     DATA   C* MPF - ADDRESS OUT OF RANGE.*
00252  M01S00251.mpf     +++| ERBA     DATA   C* MPF - BUFFER ARGUMENT ERROR.*
00253  M01S00252.mpf     +++| ERCC     DATA   C* MPF - INCORRECT CIO CODE IN CATALOG REWRITE.*
00254  M01S00253.mpf     +++| ERCR     DATA   C* MPF - INCORRECT CATALOG REWRITE REQUEST.*
00255  M01S00254.mpf     +++| EREI     DATA   C* MPF - DEVICE ERROR IDLE SET.*
00256  M01S00255.mpf     +++| ERFC     DATA   C* MPF - FET COMPLETE BIT SET.*
00257  M01S00256.mpf     +++| ERFS     DATA   C* MPF - FET TOO SHORT.*
00258  M01S00257.mpf     +++| ERIC     DATA   C* MPF - INCORRECT CALL.*
00259  M01S00258.mpf     +++| ERID     DATA   C* MPF - INACCESSIBLE DEVICE.*
00260  M01S00259.mpf     +++| ERIF     DATA   C* MPF - INCORRECT FUNCTION.*
00261  M01S00260.mpf     +++| ERIO     DATA   C* MPF - I/O SEQUENCE ERROR.*
00262  M01S00261.mpf     +++| ERIS     DATA   C* MPF - INCORRECT SYSTEM SECTOR.*
00263  M01S00262.mpf     +++| ERLR     DATA   C* MPF - CATALOG REWRITE LINK BYTE ERROR.*
00264  M01S00263.mpf     +++| ERLS     DATA   C* MPF - INCORRECT LINK BYTE IN CATALOG SCAN.*
00265  M01S00264.mpf     +++| ERNF     DATA   C* MPF - FILE NOT FOUND.*
00266  M01S00265.mpf     +++| EROF     DATA   C* MPF - INCORRECT OVERFLOW FST REQUEST.*
00267  M01S00266.mpf     +++| ERRA     DATA   C* MPF - RANDOM ADDRESS NOT ON IAPF CHAIN.*
00268  M01S00267.mpf     +++| ERRR     DATA   C* MPF - INCORRECT SECTOR READ IN CATALOG REWRITE.*
00269  M01S00268.mpf     +++| ERSR     DATA   C* MPF - INCORRECT SECTOR READ IN CATALOG SCAN.*
00270  M01S00269.mpf     +++| ERSS     DATA   C* MPF - SYSTEM SECTOR ERROR.*
00271  M01S00270.mpf     +++| ERWL     DATA   C* MPF - WRITE LOCK-OUT ON CATALOG FILE.*
00272  M01S00271.mpf     +++| ERWR     DATA   C* MPF - INCORRECT WORD COUNT IN CATALOG REWRITE.*
00273  M01S00272.mpf     +++| ERWW     DATA   C* MPF - INCORRECT WRITE IN CATALOG REWRITE.*
00274  M01S00273.mpf     +++|          TITLE  FUNCTION PROCESSORS.
00275  M01S00274.mpf     +++| DTK      SPACE  4,10
00276  M01S00275.mpf     +++|***       DTK (0) - DROP TRACKS ON IAPF CHAIN.
00277  M01S00276.mpf     +++|*
00278  M01S00277.mpf     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER ADDRESS.
00279  M01S00278.mpf     +++|*
00280  M01S00279.mpf     +++|*T ADDR   12/ EQ,24/ ,24/ EOI
Figure ADDR

0232429 EOI 30474859 EQ

00281  M01S00280.mpf     +++|*
00282  M01S00281.mpf     +++|*                EQ  = EST ORDINAL.
00283  M01S00282.mpf     +++|*                EOI = RANDOM ADDRESS OF NEW EOI.
00284  M01S00283.mpf     +++|*
00285  M01S00284.mpf     +++|*         EXIT   TRT UPDATED.
00286  M01S00285.mpf     +++|*                DEVICE CHECKPOINT REQUESTED.
00287  M01S00286.mpf     +++|
00288  M01S00287.mpf     +++|
00289  M01S00288.mpf     +++| DTK      SUBR
00290  M01S00289.mpf     +++|          LDCA   IR+3        SET EST ORDINAL
00291  M01S00290.mpf     +++|          CRD    CM
00292  M01S00291.mpf     +++|          LDD    CM
00293  M01S00292.mpf     +++|          LPC    3777
00294  M01S00293.mpf     +++|          STD    T5
00295  M01S00294.mpf     +++|          LDCA   IR+3
00296  M01S00295.mpf     +++|          RJM    CDA         COMPUTE DISK ADDRESS
00297  M01S00296.mpf     +++|          LDD    T5
00298  M01S00297.mpf     +++|          ADC    4000        DEVICE CHECKPOINT FLAG
00299  M01S00298.mpf     +++|          STD    CM+1
00300  M01S00299.mpf     +++|          LDD    T6          SET EOI TRACK
00301  M01S00300.mpf     +++|          LPC    3777        CLEAR LINK BIT
00302  M01S00301.mpf     +++|          STD    CM+2
00303  M01S00302.mpf     +++|          LDD    T7          SET EOI SECTOR
00304  M01S00303.mpf     +++|          STD    CM+3
00305  M01S00304.mpf     +++|          MONITOR  DTKM
00306  M01S00305.mpf     +++|          LJM    DTKX        RETURN
00307  M01S00306.mpf     +++| RWE      SPACE   4,10
00308  M01S00307.mpf     +++|***       RWE (1) - REWRITE EOI.
00309  M01S00308.mpf     +++|*
00310  M01S00309.mpf     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00311  M01S00310.mpf     +++|*                LOCAL FILE POSITIONED TO CORRECT SECTOR FOR EOI WRITE.
00312  M01S00311.mpf     +++|*
00313  M01S00312.mpf     +++|*         EXIT   EOI WRITTEN.
00314  M01S00313.mpf     +++|
00315  M01S00314.mpf     +++|
00316  M01S00315.mpf     +++| RWE      SUBR
00317  M01S00316.mpf     +++|          RJM    SFP         SET FILE PARAMETERS
00318  M01S00317.mpf     +++|          SETMS  IO,RW
00319  M01S00318.mpf     +++|          RJM    PDS         PROCESS DEVICE STATUS
00320  M01S00319.mpf     +++|          RJM    WEI         WRITE EOI SECTOR
00321  M01S00320.mpf     +++|          ENDMS
00322  M01S00321.mpf     +++|          RJM    SFC         SET FST COMPLETE
00323  M01S00322.mpf     +++|          UJN    RWEX        RETURN
00324  M01S00323.mpf     +++| DLK      SPACE  4,15
00325  M01S00324.mpf     +++|***       DLK (2) - DELINK TRACKS FROM IAPF CHAIN.
00326  M01S00325.mpf     +++|*
00327  M01S00326.mpf     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER ADDRESS.
00328  M01S00327.mpf     +++|*
00329  M01S00328.mpf     +++|*T ADDR   12/ ,12/ EQ,12/ FT,12/ NT,12/ LT
Figure ADDR

01112232429 LT NT FT303536474859 FT EQ

00330  M01S00329.mpf     +++|*
00331  M01S00330.mpf     +++|*                EQ = EST ORDINAL.
00332  M01S00331.mpf     +++|*                FT = FIRST TRACK.
00333  M01S00332.mpf     +++|*                NT = NEXT TRACK.
00334  M01S00333.mpf     +++|*                LT = LAST TRACK.
00335  M01S00334.mpf     +++|*
00336  M01S00335.mpf     +++|*         EXIT   TRACKS DELINKED FROM IAPF CHAIN.
00337  M01S00336.mpf     +++|*                DEVICE CHECKPOINT REQUESTED.
00338  M01S00337.mpf     +++|
00339  M01S00338.mpf     +++|
00340  M01S00339.mpf     +++| DLK      SUBR
00341  M01S00340.mpf     +++|          LDCA   IR+3
00342  M01S00341.mpf     +++|          CRD    CM          READ PARAMETER
00343  M01S00342.mpf     +++|          LDD    CM+1
00344  M01S00343.mpf     +++|          LPC    3777
00345  M01S00344.mpf     +++|          LMC    4000        DEVICE CHECKPOINT FLAG
00346  M01S00345.mpf     +++|          STD    CM+1
00347  M01S00346.mpf     +++|          LDD    CM+2        ENSURE LINK BIT CLEAR
00348  M01S00347.mpf     +++|          LPC    3777
00349  M01S00348.mpf     +++|          STD    CM+2
00350  M01S00349.mpf     +++|          MONITOR  DLKM
00351  M01S00350.mpf     +++|          UJN    DLKX        RETURN
00352  M01S00351.mpf     +++| RSC      SPACE  4,10
00353  M01S00352.mpf     +++|***       RSC (4) - READ SYSTEM SECTOR.
00354  M01S00353.mpf     +++|*
00355  M01S00354.mpf     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00356  M01S00355.mpf     +++|*                RANDOM ADDRESS OF SYSTEM SECTOR IN FET+6.
00357  M01S00356.mpf     +++|*
00358  M01S00357.mpf     +++|*         EXIT   SYSTEM SECTOR RETURNED TO BUFFER STARTING AT *FIRST*.
00359  M01S00358.mpf     +++|*                RANDOM ADDRESS IN FET+6 UPDATED.
00360  M01S00359.mpf     +++|
00361  M01S00360.mpf     +++|
00362  M01S00361.mpf     +++| RSC      SUBR               ENTRY/EXIT
00363  M01S00362.mpf     +++|          RJM    SFP         SET FILE PARAMETERS
00364  M01S00363.mpf     +++|          LDCA   IR+3,6      GET RANDOM ADDRESS
00365  M01S00364.mpf     +++|          RJM    CDA         COMPUTE DISK ADDRESS
00366  M01S00365.mpf     +++|          SETMS  IO
00367  M01S00366.mpf     +++|          RJM    PDS         PROCESS DEVICE STATUS
00368  M01S00367.mpf     +++|          LDN    0           DO NOT COMPARE FILE NAME
00369  M01S00368.mpf     +++|          RJM    RSS         READ SYSTEM SECTOR
00370  M01S00369.mpf     +++|          ZJN    RSC2        IF SYSTEM SECTOR VALID
00371  M01S00370.mpf     +++| RSC1     ERROR  ERSS        * SYSTEM SECTOR ERROR.*
00372  M01S00371.mpf     +++|
00373  M01S00372.mpf     +++| RSC2     ENDMS
00374  M01S00373.mpf     +++|          LDCA   IR+3,6
00375  M01S00374.mpf     +++|          CRD    CM
00376  M01S00375.mpf     +++|          AOD    CM+4        UPDATE RANDOM ADDRESS IN FET+6
00377  M01S00376.mpf     +++|          SHN    -14
00378  M01S00377.mpf     +++|          RAD    CM+3
00379  M01S00378.mpf     +++|          LDCA   IR+3,6
00380  M01S00379.mpf     +++|          CWD    CM
00381  M01S00380.mpf     +++|          SBN    5           FIRST
00382  M01S00381.mpf     +++|          CRD    CM
00383  M01S00382.mpf     +++|          LDCA   CM+3,101    ENSURE THAT SYSTEM SECTOR FITS IN CM FL
00384  M01S00383.mpf     +++|          LDCA   CM+3
00385  M01S00384.mpf     +++|          CWM    BFMS,ON     WRITE CONTROL BYTES TO CM BUFFER
00386  M01S00385.mpf     +++|          CWM    BFMS+2,HN   WRITE SYSTEM SECTOR TO CM BUFFER
00387  M01S00386.mpf     +++|          RJM    SFC         SET FST COMPLETE
00388  M01S00387.mpf     +++|          LJM    RSCX        RETURN
00389  M01S00388.mpf     +++| WSC      SPACE  4,10
00390  M01S00389.mpf     +++|***       WSC (5) - WRITE SYSTEM SECTOR.
00391  M01S00390.mpf     +++|*
00392  M01S00391.mpf     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00393  M01S00392.mpf     +++|*                SYSTEM SECTOR IN BUFFER STARTING AT *FIRST*.
00394  M01S00393.mpf     +++|*                RANDOM ADDRESS OF SYSTEM SECTOR IN FET+6.
00395  M01S00394.mpf     +++|*
00396  M01S00395.mpf     +++|*         EXIT   SYSTEM SECTOR WRITTEN.
00397  M01S00396.mpf     +++|*                RANDOM ADDRESS IN FET+6 UPDATED.
00398  M01S00397.mpf     +++|
00399  M01S00398.mpf     +++|
00400  M01S00399.mpf     +++| WSC      SUBR               ENTRY/EXIT
00401  M01S00400.mpf     +++|          RJM    SFP         SET FILE PARAMETERS
00402  M01S00401.mpf     +++|          LDCA   IR+3,6      RANDOM ADDRESS
00403  M01S00402.mpf     +++|          RJM    CDA         COMPUTE DISK ADDRESS
00404  M01S00403.mpf     +++|          LDCA   IR+3,1      FIRST
00405  M01S00404.mpf     +++|          CRD    CM
00406  M01S00405.mpf     +++|          LDCA   CM+3,101    ENSURE SYSTEM SECTOR IS WITHIN CM FL
00407  M01S00406.mpf     +++|          LDCA   CM+3
00408  M01S00407.mpf     +++|          CRM    BFMS,ON     READ CONTROL BYTES FROM CM BUFFER
00409  M01S00408.mpf     +++|          CRM    BFMS+2,HN   READ SYSTEM SECTOR FROM CM BUFFER
00410  M01S00409.mpf     +++|          LDM    BFMS
00411  M01S00410.mpf     +++|          LMC    3777        CHECK CONTROL BYTES
00412  M01S00411.mpf     +++|          LMM    BFMS+1
00413  M01S00412.mpf     +++|          LMN    77
00414  M01S00413.mpf     +++|          ZJN    WSC1        IF CONTROL BYTES VALID
00415  M01S00414.mpf     +++|          ERROR  ERIS        * INCORRECT SYSTEM SECTOR.*
00416  M01S00415.mpf     +++|
00417  M01S00416.mpf     +++| WSC1     LDD    T6
00418  M01S00417.mpf     +++|          STM    FTSS        SET FIRST TRACK
00419  M01S00418.mpf     +++|          LDD    T7
00420  M01S00419.mpf     +++|          ADN    FSMS
00421  M01S00420.mpf     +++|          STM    NSSS        NEXT SECTOR
00422  M01S00421.mpf     +++|          LMM    SLM
00423  M01S00422.mpf     +++|          NJN    WSC2        IF NOT END OF TRACK
00424  M01S00423.mpf     +++|          RJM    SNT
00425  M01S00424.mpf     +++|          STM    NSSS
00426  M01S00425.mpf     +++| WSC2     SETMS  IO,RW
00427  M01S00426.mpf     +++|          RJM    PDS         PROCESS DEVICE STATUS
00428  M01S00427.mpf     +++|          LDC    BFMS+WLSF
00429  M01S00428.mpf     +++|          RJM    WDS         WRITE SYSTEM SECTOR
00430  M01S00429.mpf     +++|          PJN    WSC3        IF NO DISK ERROR
00431  M01S00430.mpf     +++|          ERROR  ERSS        * SYSTEM SECTOR ERROR.*
00432  M01S00431.mpf     +++|
00433  M01S00432.mpf     +++| WSC3     ENDMS
00434  M01S00433.mpf     +++|          RJM    SFC         SET FST COMPLETE
00435  M01S00434.mpf     +++|          LDCA   IR+3,6
00436  M01S00435.mpf     +++|          CRD    CM
00437  M01S00436.mpf     +++|          AOD    CM+4        UPDATE RANDOM ADDRESS IN FET+6
00438  M01S00437.mpf     +++|          SHN    -14
00439  M01S00438.mpf     +++|          RAD    CM+3
00440  M01S00439.mpf     +++|          LDCA   IR+3,6
00441  M01S00440.mpf     +++|          CWD    CM
00442  M01S00441.mpf     +++|          LJM    WSCX        RETURN
00443  M01S00442.mpf     +++| RTF      SPACE  4,25
00444  M01S00443.mpf     +++|***       RTF (6) - RETURN FST FOR CATALOG OVERFLOW TRACK.
00445  M01S00444.mpf     +++|*
00446  M01S00445.mpf     +++|*         ENTRY  (IR+3 - IR+4) = PARAMETER BLOCK ADDRESS.
00447  M01S00446.mpf     +++|*
00448  M01S00447.mpf     +++|*T ADDR   12/ EQ,12/ FT,12/ CT,12/ CS,12/ ST
Figure ADDR

01112232429 ST CS CT303536474859 CT FT EQ

00449  M01S00448.mpf     +++|*T,ADDR+1 48/ ,12/ OT
Figure ADDR+1

0111229 OT 3059

00450  M01S00449.mpf     +++|*T,ADDR+2 60/
Figure ADDR+2

0293059

00451  M01S00450.mpf     +++|*
00452  M01S00451.mpf     +++|*                EQ = EST ORDINAL.
00453  M01S00452.mpf     +++|*                FT = FIRST TRACK.
00454  M01S00453.mpf     +++|*                CT = CURRENT TRACK (IGNORED).
00455  M01S00454.mpf     +++|*                CS = CURRENT SECTOR (IGNORED).
00456  M01S00455.mpf     +++|*                ST = STATUS (IGNORED).
00457  M01S00456.mpf     +++|*                OT = OVERFLOW TRACK INDEX.
00458  M01S00457.mpf     +++|*
00459  M01S00458.mpf     +++|*         EXIT   (ADDR+2) = FST ENTRY FOR THE *OT*-TH OVERFLOW TRACK.
00460  M01S00459.mpf     +++|*
00461  M01S00460.mpf     +++|*T ADDR+2 12/ EQ,12/ FT,12/ CT,12/ CS,12/ ST
Figure ADDR+2

01112232429 ST CS CT303536474859 CT FT EQ

00462  M01S00461.mpf     +++|*
00463  M01S00462.mpf     +++|*                EQ = EST ORDINAL.
00464  M01S00463.mpf     +++|*                FT = FIRST TRACK.
00465  M01S00464.mpf     +++|*                CT = FIRST TRACK.
00466  M01S00465.mpf     +++|*                CS = 0.
00467  M01S00466.mpf     +++|*                ST = 5.
00468  M01S00467.mpf     +++|
00469  M01S00468.mpf     +++|
00470  M01S00469.mpf     +++| RTF6     LDCA   IR+3,2      RETURN LOCATION IN PARAMETER BLOCK
00471  M01S00470.mpf     +++|          CWD    FS          WRITE REPLY
00472  M01S00471.mpf     +++|
00473  M01S00472.mpf     +++| RTF      SUBR               ENTRY/EXIT
00474  M01S00473.mpf     +++|          LDCA   IR+3        READ PARAMETER BLOCK
00475  M01S00474.mpf     +++|          CRD    FS
00476  M01S00475.mpf     +++|          LDCA   IR+3,1
00477  M01S00476.mpf     +++|          CRD    CM
00478  M01S00477.mpf     +++|          LDD    CM+4
00479  M01S00478.mpf     +++|          ZJN    RTF1        IF NO OVERFLOW TRACK INDEX
00480  M01S00479.mpf     +++|          STD    CT
00481  M01S00480.mpf     +++|          AOD    CT          INCREMENT FOR ENTRY INTO LOOP
00482  M01S00481.mpf     +++|          LDD    FS          EST ORDINAL
00483  M01S00482.mpf     +++|          LPC    3777
00484  M01S00483.mpf     +++|          STD    T5
00485  M01S00484.mpf     +++|          LDD    FS+1        TRACK
00486  M01S00485.mpf     +++|          LPC    3777
00487  M01S00486.mpf     +++|          LMC    4000
00488  M01S00487.mpf     +++|          STD    T6
00489  M01S00488.mpf     +++|          LDN    0           SET FST FIELDS FOR RETURN
00490  M01S00489.mpf     +++|          STD    FS+3
00491  M01S00490.mpf     +++|          LDN    5
00492  M01S00491.mpf     +++|          STD    FS+4
00493  M01S00492.mpf     +++|          RJM    CMS         CHECK MASS STORAGE
00494  M01S00493.mpf     +++|          NJN    RTF1        IF ERROR
00495  M01S00494.mpf     +++|          LDD    FS+1        STARTING TRACK
00496  M01S00495.mpf     +++|          LPC    3777
00497  M01S00496.mpf     +++|          ADC    4000
00498  M01S00497.mpf     +++|          RJM    VTB         VALIDATE TRACK BYTE
00499  M01S00498.mpf     +++|          ZJN    RTF2        IF TRACK BYTE VALID
00500  M01S00499.mpf     +++| RTF1     ERROR  EROF        * INCORRECT OVERFLOW FST REQUEST.*
00501  M01S00500.mpf     +++|
00502  M01S00501.mpf     +++| RTF2     SOD    CT          DECREMENT COUNTER
00503  M01S00502.mpf     +++|          ZJP    RTF6        IF DONE
00504  M01S00503.mpf     +++|          LDD    FS+1        TRACK
00505  M01S00504.mpf     +++|          STD    T6
00506  M01S00505.mpf     +++|          SETMS  IO
00507  M01S00506.mpf     +++|          RJM    PDS         PROCESS DEVICE STATUS
00508  M01S00507.mpf     +++|          LDM    SLM         SECTOR LIMIT
00509  M01S00508.mpf     +++|          SBN    1           LAST SECTOR ON TRACK
00510  M01S00509.mpf     +++|          STD    T7
00511  M01S00510.mpf     +++|          LDC    BFMS
00512  M01S00511.mpf     +++|          RJM    RDS         READ SECTOR
00513  M01S00512.mpf     +++|          PJN    RTF3        IF NO ERROR
00514  M01S00513.mpf     +++|          ERROR  ERSR        * INCORRECT SECTOR READ IN CATALOG SCAN.*
00515  M01S00514.mpf     +++|
00516  M01S00515.mpf     +++| RTF3     ENDMS
00517  M01S00516.mpf     +++|          LDM    BFMS        GET LINK BYTE
00518  M01S00517.mpf     +++|          NJN    RFT4        IF NOT EOF/EOI
00519  M01S00518.mpf     +++|          LDM    BFMS+1      GET SECOND LINK BYTE
00520  M01S00519.mpf     +++| RFT4     SHN    21-13
00521  M01S00520.mpf     +++|          PJN    RTF5        IF NOT LINK BYTE
00522  M01S00521.mpf     +++|          SHN    -6
00523  M01S00522.mpf     +++|          STD    FS+1
00524  M01S00523.mpf     +++|          STD    FS+2
00525  M01S00524.mpf     +++|          RJM    VTB         VALIDATE TRACK LINK BYTE
00526  M01S00525.mpf     +++|          ZJP    RTF2        IF NO ERROR
00527  M01S00526.mpf     +++| RTF5     ERROR  ERLS        * INCORRECT LINK BYTE IN CATALOG SCAN.*
00528  M01S00527.mpf     +++| RWC      SPACE  4,25
00529  M01S00528.mpf     +++|***       RWC (7) - REWRITE CATALOG SECTOR.
00530  M01S00529.mpf     +++|*
00531  M01S00530.mpf     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00532  M01S00531.mpf     +++|*                RANDOM ADDRESS FOR REWRITE IN FET+6.
00533  M01S00532.mpf     +++|*                SECTOR DATA IN CM BUFFER.
00534  M01S00533.mpf     +++|*
00535  M01S00534.mpf     +++|*         EXIT   SECTOR REWRITTEN, FET UPDATED AND SET COMPLETE.
00536  M01S00535.mpf     +++|*                CRI NOT UPDATED, RR NOT CLEARED, FST POSITION
00537  M01S00536.mpf     +++|*                  IS THE TRACK AND SECTOR JUST WRITTEN.
00538  M01S00537.mpf     +++|*
00539  M01S00538.mpf     +++|*                TO *ERR* IF ERROR; ERROR IDLE SET ON DEVICE
00540  M01S00539.mpf     +++|*                  IF UNRECOVERABLE MS ERROR RETURNED ON REWRITE
00541  M01S00540.mpf     +++|*                  OF CATALOG SECTOR.
00542  M01S00541.mpf     +++|
00543  M01S00542.mpf     +++|
00544  M01S00543.mpf     +++| RWC      SUBR               ENTRY/EXIT
00545  M01S00544.mpf     +++|          LDN    5+2         MINIMUM FET LENGTH REQUIRED
00546  M01S00545.mpf     +++|          RJM    IFQ         INITIAL FET QUERY
00547  M01S00546.mpf     +++|          RJM    PIO         PRESET I/O
00548  M01S00547.mpf     +++|          RJM    CMS         CHECK MASS STORAGE
00549  M01S00548.mpf     +++|          NJN    RWC1        IF ERROR
00550  M01S00549.mpf     +++|          LDD    FS+1        FIRST TRACK
00551  M01S00550.mpf     +++|          RJM    VTB         VALIDATE THAT TRACK IS ON LABEL TRT CHAIN
00552  M01S00551.mpf     +++|          ZJN    RWC2        IF NO ERROR
00553  M01S00552.mpf     +++| RWC1     ERROR  ERCR        * INCORRECT CATALOG REWRITE REQUEST.*
00554  M01S00553.mpf     +++|
00555  M01S00554.mpf     +++| RWC2     NFA    FA,R        READ FNT
00556  M01S00555.mpf     +++|          CRD    CM
00557  M01S00556.mpf     +++|          LDD    CM+3
00558  M01S00557.mpf     +++|          LPN    1
00559  M01S00558.mpf     +++|          ZJN    RWC3        IF FILE IN WRITE MODE
00560  M01S00559.mpf     +++|          ERROR  ERWL        * WRITE LOCK-OUT ON CATALOG FILE.*
00561  M01S00560.mpf     +++|
00562  M01S00561.mpf     +++| RWC3     LDD    FS+1        FIRST TRACK
00563  M01S00562.mpf     +++|          STD    T6
00564  M01S00563.mpf     +++|          LDCA   IR+3,6      RANDOM ADDRESS FROM FET (RR)
00565  M01S00564.mpf     +++|          CRD    CM
00566  M01S00565.mpf     +++|          LDD    CM+4
00567  M01S00566.mpf     +++|          STD    RI+1        RANDOM INDEX
00568  M01S00567.mpf     +++|          LDD    CM+3
00569  M01S00568.mpf     +++|          STD    RI
00570  M01S00569.mpf     +++|          LDN    0           ENSURE CURRENT TRT
00571  M01S00570.mpf     +++|          RJM    CRA         CONVERT RANDOM ADDRESS
00572  M01S00571.mpf     +++|          MJP    RWC1        IF ADDRESS NOT VALID
00573  M01S00572.mpf     +++|          LDD    T6
00574  M01S00573.mpf     +++|          LMD    FS+1
00575  M01S00574.mpf     +++|          NJP    RWC1        IF TRACK IS NOT THE SAME AS FIRST TRACK
00576  M01S00575.mpf     +++|          LDD    T7          CHECK TRACK AT SECTOR LIMIT
00577  M01S00576.mpf     +++|          ADN    1
00578  M01S00577.mpf     +++|          STM    BFMS        NEXT SECTOR
00579  M01S00578.mpf     +++|          LMM    SLM
00580  M01S00579.mpf     +++|          ZJN    RWC4        IF AT LAST SECTOR IN TRACK
00581  M01S00580.mpf     +++|          RJM    COB         CHECK OUTPUT BUFFER (GET WORDS IN BUFFER)
00582  M01S00581.mpf     +++|          MJP    RWC11       IF BUFFER ARGUMENT ERROR
00583  M01S00582.mpf     +++|          STM    BFMS+1      WORDS IN SECTOR
00584  M01S00583.mpf     +++|          SBD    HN
00585  M01S00584.mpf     +++|          ZJN    RWC5        IF FULL SECTOR
00586  M01S00585.mpf     +++|          MJN    RWC6        IF SHORT SECTOR
00587  M01S00586.mpf     +++|          ERROR  ERWR        * INCORRECT WORD COUNT IN CAT REWRITE.*
00588  M01S00587.mpf     +++|
00589  M01S00588.mpf     +++| RWC4     SETMS  IO          READ TO OBTAIN LINK BYTES
00590  M01S00589.mpf     +++|          RJM    PDS         PROCESS DEVICE STATUS
00591  M01S00590.mpf     +++|          LDC    BFMS
00592  M01S00591.mpf     +++|          RJM    RDS
00593  M01S00592.mpf     +++|          PJN    RWC8        IF NO ERROR
00594  M01S00593.mpf     +++|          ERROR  ERRR        * INCORRECT SECTOR READ IN CAT REWRITE.*
00595  M01S00594.mpf     +++|
00596  M01S00595.mpf     +++| RWC5     LDC    214         *REWRITE* CODE
00597  M01S00596.mpf     +++|          UJN    RWC7        SET *CIO* FUNCTION CODE
00598  M01S00597.mpf     +++|
00599  M01S00598.mpf     +++| RWC6     LDC    224         *REWRITER* CODE
00600  M01S00599.mpf     +++| RWC7     STD    T3          SET *CIO* FUNCTION CODE
00601  M01S00600.mpf     +++|          LDCA   IR+3        GET *CIO* FUNCTION CODE FROM FET+0
00602  M01S00601.mpf     +++|          CRD    CM
00603  M01S00602.mpf     +++|          LDD    CM+4
00604  M01S00603.mpf     +++|          LPC    1774        CODE FIELD
00605  M01S00604.mpf     +++|          LMD    T3
00606  M01S00605.mpf     +++|          ZJN    RWC12       IF *CIO* FUNCTION CODE MATCHES
00607  M01S00606.mpf     +++|          ERROR  ERCC        * INCORRECT CIO CODE IN CAT REWRITE.*
00608  M01S00607.mpf     +++|
00609  M01S00608.mpf     +++| RWC8     LDM    BFMS        CHECK LINKAGE BYTES
00610  M01S00609.mpf     +++|          ZJN    RWC9        IF EOF OR EOI
00611  M01S00610.mpf     +++|          LMC    3777
00612  M01S00611.mpf     +++|          ZJN    RWC9        IF SYSTEM SECTOR
00613  M01S00612.mpf     +++|          RJM    COB         CHECK OUTPUT BUFFER (GET WORDS IN BUFFER)
00614  M01S00613.mpf     +++|          MJN    RWC10       IF BUFFER ARGUMENT ERROR
00615  M01S00614.mpf     +++|          LMM    BFMS+1
00616  M01S00615.mpf     +++|          ZJN    RWC12       IF SECTOR LENGTH DID NOT CHANGE
00617  M01S00616.mpf     +++| RWC9     ENDMS
00618  M01S00617.mpf     +++|          ERROR  ERLR        * CATALOG REWRITE LINK BYTE ERROR.*
00619  M01S00618.mpf     +++|
00620  M01S00619.mpf     +++| RWC10    ENDMS
00621  M01S00620.mpf     +++| RWC11    ERROR  ERBA        * BUFFER ARGUMENT ERROR.*
00622  M01S00621.mpf     +++|
00623  M01S00622.mpf     +++| RWC12    LDM    BFMS+1      NUMBER OF WORDS IN SECTOR
00624  M01S00623.mpf     +++|          STM    T3          NUMBER OF WORDS TO READ
00625  M01S00624.mpf     +++|          LDC    BFMS+2      PP BUFFER ADDRESS
00626  M01S00625.mpf     +++|          RJM    RBB         READ BINARY BUFFER
00627  M01S00626.mpf     +++|          SETMS  IO,RW,EBMS
00628  M01S00627.mpf     +++|          RJM    PDS         PROCESS DEVICE STATUS
00629  M01S00628.mpf     +++|          LDC    BFMS+WLSF
00630  M01S00629.mpf     +++|          RJM    WDS
00631  M01S00630.mpf     +++|          PJN    RWC13       IF NO ERROR
00632  M01S00631.mpf     +++|          LDC    ERWW        * MPF - INCORRECT WRITE IN CAT REWRITE.*
00633  M01S00632.mpf     +++|          RJM    DFM
00634  M01S00633.mpf     +++|          RJM    LTD         LOG LOCATION TO DAYFILE
00635  M01S00634.mpf     +++|          RJM    FDD         LOG FAMILY NAME, DEVICE NUMBER TO DAYFILE
00636  M01S00635.mpf     +++|          LDN    STEI        SET ERROR IDLE STATUS
00637  M01S00636.mpf     +++|          RJM    SES
00638  M01S00637.mpf     +++|          SMSTF  GDEI
00639  M01S00638.mpf     +++|          ERROR  EREI        * DEVICE ERROR IDLE SET.*
00640  M01S00639.mpf     +++|
00641  M01S00640.mpf     +++| RWC13    ENDMS
00642  M01S00641.mpf     +++|          LDN    ZERL        UPDATE OUT POINTER IN FET
00643  M01S00642.mpf     +++|          CRD    CM
00644  M01S00643.mpf     +++|          LDD    OT+1
00645  M01S00644.mpf     +++|          STD    CM+4
00646  M01S00645.mpf     +++|          LDD    OT
00647  M01S00646.mpf     +++|          STD    CM+3
00648  M01S00647.mpf     +++|          LDCA   IR+3,3
00649  M01S00648.mpf     +++|          CWD    CM
00650  M01S00649.mpf     +++|
00651  M01S00650.mpf     +++|*         T6 AND T7 (CURRENT TRACK AND CURRENT SECTOR) ARE NOT
00652  M01S00651.mpf     +++|*         UPDATED TO REFLECT THE NEXT SECTOR TO AVOID THE NON-
00653  M01S00652.mpf     +++|*         STANDARD NEXT TRACK LINKAGE PROBLEM.  THUS, THE FST
00654  M01S00653.mpf     +++|*         CURRENT POSITION WILL POINT AT THE SECTOR WRITTEN.
00655  M01S00654.mpf     +++|
00656  M01S00655.mpf     +++|          RJM    CIO         COMPLETE I/O
00657  M01S00656.mpf     +++|          LJM    RWCX        RETURN
00658  M01S00657.mpf     +++|          TITLE  SUBROUTINES.
00659  M01S00658.mpf     +++| CDA      SPACE  4,15
00660  M01S00659.mpf     +++|**        CDA - COMPUTE DISK ADDRESS.
00661  M01S00660.mpf     +++|*
00662  M01S00661.mpf     +++|*         ENTRY  (A) = CM ADDRESS OF RANDOM ADDRESS.
00663  M01S00662.mpf     +++|*                (T5) = EST ORDINAL.
00664  M01S00663.mpf     +++|*
00665  M01S00664.mpf     +++|*         EXIT   (T6) = TRACK.
00666  M01S00665.mpf     +++|*                (T7) = SECTOR.
00667  M01S00666.mpf     +++|*                (RI - RI+1) = RANDOM ADDRESS.
00668  M01S00667.mpf     +++|*
00669  M01S00668.mpf     +++|*         USES   T6, CM - CM+4, RI - RI+1.
00670  M01S00669.mpf     +++|*
00671  M01S00670.mpf     +++|*         CALLS  CRA.
00672  M01S00671.mpf     +++|*
00673  M01S00672.mpf     +++|*         MACROS ERROR, SFA.
00674  M01S00673.mpf     +++|
00675  M01S00674.mpf     +++|
00676  M01S00675.mpf     +++| CDA      SUBR               ENTRY/EXIT
00677  M01S00676.mpf     +++|          CRD    CM
00678  M01S00677.mpf     +++|          LDD    CM+3
00679  M01S00678.mpf     +++|          STD    RI
00680  M01S00679.mpf     +++|          LDD    CM+4
00681  M01S00680.mpf     +++|          STD    RI+1
00682  M01S00681.mpf     +++|          SFA    EST,T5
00683  M01S00682.mpf     +++|          ADK    EQDE
00684  M01S00683.mpf     +++|          CRD    CM          READ EST ENTRY
00685  M01S00684.mpf     +++|          LDD    CM+4
00686  M01S00685.mpf     +++|          SHN    3           MST ADDRESS
00687  M01S00686.mpf     +++|          ADN    ALGL
00688  M01S00687.mpf     +++|          CRD    CM
00689  M01S00688.mpf     +++|          LDD    CM          FIRST TRACK OF IAPF CHAIN
00690  M01S00689.mpf     +++|          STD    T6
00691  M01S00690.mpf     +++|          LDN    0           ENSURE CURRENT TRT
00692  M01S00691.mpf     +++|          RJM    CRA         COMPUTE RANDOM ADDRESS
00693  M01S00692.mpf     +++|          PJN    CDAX        IF ADDRESS IS IN TRACK CHAIN
00694  M01S00693.mpf     +++|          ERROR  ERRA        * RANDOM ADDRESS NOT ON IAPF CHAIN.*
00695  M01S00694.mpf     +++| CFS      SPACE  4,10
00696  M01S00695.mpf     +++|**        CFS - COMPLETE FET STATUS.
00697  M01S00696.mpf     +++|*
00698  M01S00697.mpf     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00699  M01S00698.mpf     +++|*
00700  M01S00699.mpf     +++|*         EXIT   FET STATUS SET COMPLETE (IF FET ADDRESS VALID).
00701  M01S00700.mpf     +++|*                (IR+3 - IR+4) = 0 (IF FET STATUS SET COMPLETE).
00702  M01S00701.mpf     +++|*
00703  M01S00702.mpf     +++|*         USES   CM - CM+4, IR+3 - IR+4.
00704  M01S00703.mpf     +++|*
00705  M01S00704.mpf     +++|*         MACROS LDCA.
00706  M01S00705.mpf     +++|
00707  M01S00706.mpf     +++|
00708  M01S00707.mpf     +++| CFS      SUBR               ENTRY/EXIT
00709  M01S00708.mpf     +++|          LDCA   IR+3        FET ADDRESS
00710  M01S00709.mpf     +++|          CRD    CM
00711  M01S00710.mpf     +++|          AOD    CM+4
00712  M01S00711.mpf     +++|          LDCA   IR+3
00713  M01S00712.mpf     +++|          CWD    CM
00714  M01S00713.mpf     +++|          LDN    0           CLEAR FET ADDRESS
00715  M01S00714.mpf     +++|          STD    IR+3
00716  M01S00715.mpf     +++|          STD    IR+4
00717  M01S00716.mpf     +++|          UJN    CFSX        RETURN
00718  M01S00717.mpf     +++| CIO      SPACE  4,20
00719  M01S00718.mpf     +++|**        CIO - COMPLETE I/O.
00720  M01S00719.mpf     +++|*
00721  M01S00720.mpf     +++|*         COMPLETE FST WRITE AND SET FET STATUS COMPLETE.
00722  M01S00721.mpf     +++|*
00723  M01S00722.mpf     +++|*         ENTRY  OPERATION COMPLETED ON FILE.
00724  M01S00723.mpf     +++|*                (T5) = EST ORDINAL.
00725  M01S00724.mpf     +++|*                (T6) = TRACK.
00726  M01S00725.mpf     +++|*                (T7) = SECTOR.
00727  M01S00726.mpf     +++|*
00728  M01S00727.mpf     +++|*         EXIT   FET STATUS SET COMPLETE.
00729  M01S00728.mpf     +++|*                FST WRITTEN.
00730  M01S00729.mpf     +++|*
00731  M01S00730.mpf     +++|*         USES   FS - FS+4.
00732  M01S00731.mpf     +++|*
00733  M01S00732.mpf     +++|*         CALLS  CFS, SFC.
00734  M01S00733.mpf     +++|
00735  M01S00734.mpf     +++|
00736  M01S00735.mpf     +++| CIO      SUBR               ENTRY/EXIT
00737  M01S00736.mpf     +++|
00738  M01S00737.mpf     +++|*         UPDATE FST ENTRY AND WRITE.
00739  M01S00738.mpf     +++|
00740  M01S00739.mpf     +++|          LDD    FS+4        SET FILE STATUS
00741  M01S00740.mpf     +++|          SCN    16
00742  M01S00741.mpf     +++|          LMN    4
00743  M01S00742.mpf     +++|          STD    FS+4
00744  M01S00743.mpf     +++|          LDD    T6          SET TRACK
00745  M01S00744.mpf     +++|          STD    FS+2
00746  M01S00745.mpf     +++|          LDD    T7          SET SECTOR
00747  M01S00746.mpf     +++|          STD    FS+3
00748  M01S00747.mpf     +++|          LDD    T5          SET EST ORDINAL
00749  M01S00748.mpf     +++|          STD    FS
00750  M01S00749.mpf     +++|          RJM    SFC         SET FST COMPLETE
00751  M01S00750.mpf     +++|          RJM    CFS         COMPLETE FET STATUS
00752  M01S00751.mpf     +++|          UJP    CIOX        RETURN
00753  M01S00752.mpf     +++| CMS      SPACE  4,15
00754  M01S00753.mpf     +++|**        CMS - CHECK MASS STORAGE.
00755  M01S00754.mpf     +++|*
00756  M01S00755.mpf     +++|*         ENTRY  (T5) = EST ORDINAL.
00757  M01S00756.mpf     +++|*                (T6) = TRACK.
00758  M01S00757.mpf     +++|*
00759  M01S00758.mpf     +++|*         EXIT   (A) = 0 IF NO ERROR.
00760  M01S00759.mpf     +++|*                (TK) = LABEL TRACK.
00761  M01S00760.mpf     +++|*
00762  M01S00761.mpf     +++|*         USES   T1, CM - CM+4.
00763  M01S00762.mpf     +++|*
00764  M01S00763.mpf     +++|*         MACROS SFA.
00765  M01S00764.mpf     +++|
00766  M01S00765.mpf     +++|
00767  M01S00766.mpf     +++| CMS1     LDN    1           INDICATE ERROR
00768  M01S00767.mpf     +++|
00769  M01S00768.mpf     +++| CMS      SUBR               ENTRY/EXIT
00770  M01S00769.mpf     +++|          SFA    EST,T5      READ EST ENTRY
00771  M01S00770.mpf     +++|          ADK    EQDE
00772  M01S00771.mpf     +++|          CRD    CM
00773  M01S00772.mpf     +++|          LDD    CM
00774  M01S00773.mpf     +++|          SHN    21-13
00775  M01S00774.mpf     +++|          PJN    CMS1        IF NOT MASS STORAGE
00776  M01S00775.mpf     +++|          LDD    CM+4        MST/10
00777  M01S00776.mpf     +++|          STD    T1
00778  M01S00777.mpf     +++|          SHN    3
00779  M01S00778.mpf     +++|          ADK    TDGL
00780  M01S00779.mpf     +++|          CRD    CM
00781  M01S00780.mpf     +++|          LDD    CM+2        LENGTH OF TRT
00782  M01S00781.mpf     +++|          ADD    TH          4000/4
00783  M01S00782.mpf     +++|          SHN    2
00784  M01S00783.mpf     +++|          SBD    T6          REQUESTED TRACK
00785  M01S00784.mpf     +++|          MJN    CMS1        IF INCORRECT TRACK
00786  M01S00785.mpf     +++|          LDD    T1
00787  M01S00786.mpf     +++|          SHN    3
00788  M01S00787.mpf     +++|          ADN    ALGL
00789  M01S00788.mpf     +++|          CRD    CM
00790  M01S00789.mpf     +++|          LDD    CM+1        LABEL TRACK
00791  M01S00790.mpf     +++|          LPC    3777
00792  M01S00791.mpf     +++|          ADC    4000
00793  M01S00792.mpf     +++|          STD    TK
00794  M01S00793.mpf     +++|          LDD    CM+3
00795  M01S00794.mpf     +++|          ZJP    CMS1        IF NO CATALOG TRACKS
00796  M01S00795.mpf     +++|          LDN    0           INDICATE NO ERROR
00797  M01S00796.mpf     +++|          UJP    CMSX        RETURN
00798  M01S00797.mpf     +++| FDD      SPACE  4,15
00799  M01S00798.mpf     +++|**        FDD - LOG FAMILY NAME AND DEVICE NUMBER TO DAYFILE.
00800  M01S00799.mpf     +++|*
00801  M01S00800.mpf     +++|*         ENTRY  (T5) = EST ORDINAL.
00802  M01S00801.mpf     +++|*
00803  M01S00802.mpf     +++|*         EXIT   MESSAGE ISSUED.
00804  M01S00803.mpf     +++|*
00805  M01S00804.mpf     +++|*         USES   CM - CM+4.
00806  M01S00805.mpf     +++|*
00807  M01S00806.mpf     +++|*         CALLS  C2D, DFM.
00808  M01S00807.mpf     +++|*
00809  M01S00808.mpf     +++|*         MACROS SFA.
00810  M01S00809.mpf     +++|
00811  M01S00810.mpf     +++|
00812  M01S00811.mpf     +++| FDD      SUBR               ENTRY/EXIT
00813  M01S00812.mpf     +++|          SFA    EST,T5      READ EST ENTRY
00814  M01S00813.mpf     +++|          ADK    EQDE
00815  M01S00814.mpf     +++|          CRD    CM
00816  M01S00815.mpf     +++|          LDD    CM+4        GET MST ADDRESS
00817  M01S00816.mpf     +++|          SHN    3
00818  M01S00817.mpf     +++|          ADK    PFGL        READ FAMILY NAME / DEVICE NUMBER
00819  M01S00818.mpf     +++|          CRM    FDDA+6,ON   MERGE INTO MESSAGE
00820  M01S00819.mpf     +++|          LDM    FDDA+11     CONVERT DEVICE NUMBER
00821  M01S00820.mpf     +++|          RJM    C2D
00822  M01S00821.mpf     +++|          STM    FDDA+12     SET DEVICE NUMBER INTO MESSAGE
00823  M01S00822.mpf     +++|          LDM    FDDA+11     BLANK FILL FAMILY NAME
00824  M01S00823.mpf     +++|          SCN    77          CLEAR BINARY DEVICE NUMBER
00825  M01S00824.mpf     +++|          ZJN    FDD1        IF TWO OR MORE BLANKS NEEDED
00826  M01S00825.mpf     +++|          LMN    1R          MERGE SINGLE BLANK INTO MESSAGE
00827  M01S00826.mpf     +++|          STM    FDDA+11
00828  M01S00827.mpf     +++|          UJN    FDD4        ISSUE MESSAGE
00829  M01S00828.mpf     +++|
00830  M01S00829.mpf     +++| FDD1     LDC    2R          SET TWO BLANKS INTO MESSAGE
00831  M01S00830.mpf     +++|          STM    FDDA+11
00832  M01S00831.mpf     +++|          LDN    3           NUMBER OF BYTES MAY NEED TO BLANK FILL
00833  M01S00832.mpf     +++|          STD    CM
00834  M01S00833.mpf     +++| FDD2     LDM    FDDA+5,CM
00835  M01S00834.mpf     +++|          NJN    FDD3        IF END OF FAMILY NAME FOUND
00836  M01S00835.mpf     +++|          LDC    2R          SET TWO MORE BLANKS INTO MESSAGE
00837  M01S00836.mpf     +++|          STM    FDDA+5,CM
00838  M01S00837.mpf     +++|          SOD    CM          DECREMENT COUNTER
00839  M01S00838.mpf     +++|          NJN    FDD2        IF NOT DONE
00840  M01S00839.mpf     +++|          UJN    FDD4        ISSUE MESSAGE
00841  M01S00840.mpf     +++|
00842  M01S00841.mpf     +++| FDD3     LPN    77          CHECK IF SINGLE BLANK NEEDED
00843  M01S00842.mpf     +++|          NJN    FDD4        IF NO BLANK NEEDED
00844  M01S00843.mpf     +++|          LDM    FDDA+5,CM
00845  M01S00844.mpf     +++|          LMN    1R          SINGLE BLANK
00846  M01S00845.mpf     +++|          STM    FDDA+5,CM
00847  M01S00846.mpf     +++| FDD4     LDC    FDDA
00848  M01S00847.mpf     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
00849  M01S00848.mpf     +++|          LJM    FDDX        RETURN
00850  M01S00849.mpf     +++|
00851  M01S00850.mpf     +++|
00852  M01S00851.mpf     +++| FDDA     DATA   C*MPF - FM DN FFFFFFF NN.*
00853  M01S00852.mpf     +++| IFQ      SPACE  4,15
00854  M01S00853.mpf     +++|**        IFQ - INITIAL FET QUERY.
00855  M01S00854.mpf     +++|*
00856  M01S00855.mpf     +++|*         VALIDATE THAT THE FET IS LONG ENOUGH, IS WITHIN FL,
00857  M01S00856.mpf     +++|*         AND DOES NOT HAVE COMPLETE BIT SET.
00858  M01S00857.mpf     +++|*
00859  M01S00858.mpf     +++|*         ENTRY  (A) = MINIMUM FET LENGTH REQUIRED.
00860  M01S00859.mpf     +++|*                (IR+3 - IR+4) = FET ADDRESS.
00861  M01S00860.mpf     +++|*
00862  M01S00861.mpf     +++|*         EXIT   TO *ERR* IF FET IS NOT VALID.
00863  M01S00862.mpf     +++|*
00864  M01S00863.mpf     +++|*         USES   T2, T3, CM - CM+4.
00865  M01S00864.mpf     +++|*
00866  M01S00865.mpf     +++|*         CALLS  VCA.
00867  M01S00866.mpf     +++|*
00868  M01S00867.mpf     +++|*         MACROS LDCA.
00869  M01S00868.mpf     +++|
00870  M01S00869.mpf     +++|
00871  M01S00870.mpf     +++| IFQ      SUBR               ENTRY/EXIT
00872  M01S00871.mpf     +++|          STD    T3          REQUIRED FET LENGTH
00873  M01S00872.mpf     +++|          LDCA   IR+3        VALIDATE FET+0 ADDRESS
00874  M01S00873.mpf     +++|          CRD    CM          CHECK COMPLETE BIT CLEAR
00875  M01S00874.mpf     +++|          LDD    CM+4
00876  M01S00875.mpf     +++|          LPN    1
00877  M01S00876.mpf     +++|          ZJN    IFQ1        IF COMPLETE BIT IS CLEAR
00878  M01S00877.mpf     +++|          ERROR  ERFC        * FET COMPLETE BIT SET.*
00879  M01S00878.mpf     +++|
00880  M01S00879.mpf     +++| IFQ1     LDCA   IR+3,1      GET FET LENGTH
00881  M01S00880.mpf     +++|          CRD    CM
00882  M01S00881.mpf     +++|          LDD    CM+3
00883  M01S00882.mpf     +++|          SHN    -6
00884  M01S00883.mpf     +++|          ADN    5
00885  M01S00884.mpf     +++|          STD    T2          CHECK FET LENGTH
00886  M01S00885.mpf     +++|          SBD    T3
00887  M01S00886.mpf     +++|          PJN    IFQ2        IF FET IS LONG ENOUGH
00888  M01S00887.mpf     +++|          ERROR  ERFS        * FET TOO SHORT.*
00889  M01S00888.mpf     +++|
00890  M01S00889.mpf     +++| IFQ2     LDD    IR+3        CHECK IF LAST WORD OF FET IS WITHIN FL
00891  M01S00890.mpf     +++|          SHN    14
00892  M01S00891.mpf     +++|          LMD    IR+4
00893  M01S00892.mpf     +++|          ADD    T2
00894  M01S00893.mpf     +++|          SBN    1
00895  M01S00894.mpf     +++|          RJM    VCA         VALIDATE CENTRAL ADDRESS
00896  M01S00895.mpf     +++|          UJP    IFQX        RETURN
00897  M01S00896.mpf     +++| LTD      SPACE  4,10
00898  M01S00897.mpf     +++|**        LTD - LOG LOCATION TO DAYFILE.
00899  M01S00898.mpf     +++|*
00900  M01S00899.mpf     +++|*         ENTRY  (T5) = EST ORDINAL.
00901  M01S00900.mpf     +++|*                (T6) = TRACK.
00902  M01S00901.mpf     +++|*                (T7) = SECTOR.
00903  M01S00902.mpf     +++|*
00904  M01S00903.mpf     +++|*         EXIT   MESSAGE ISSUED TO DAYFILE.
00905  M01S00904.mpf     +++|*
00906  M01S00905.mpf     +++|*         CALLS  C2D, DFM.
00907  M01S00906.mpf     +++|
00908  M01S00907.mpf     +++|
00909  M01S00908.mpf     +++| LTD      SUBR               ENTRY/EXIT
00910  M01S00909.mpf     +++|          LDD    T5          CONVERT EST ORDINAL
00911  M01S00910.mpf     +++|          RJM    C2D
00912  M01S00911.mpf     +++|          STM    LTDA+5
00913  M01S00912.mpf     +++|          LDD    T5
00914  M01S00913.mpf     +++|          SHN    -6
00915  M01S00914.mpf     +++|          RJM    C2D
00916  M01S00915.mpf     +++|          STM    LTDA+4
00917  M01S00916.mpf     +++|          LDD    T6          CONVERT TRACK
00918  M01S00917.mpf     +++|          RJM    C2D
00919  M01S00918.mpf     +++|          STM    LTDA+11
00920  M01S00919.mpf     +++|          LDD    T6
00921  M01S00920.mpf     +++|          SHN    -6
00922  M01S00921.mpf     +++|          RJM    C2D
00923  M01S00922.mpf     +++|          STM    LTDA+10
00924  M01S00923.mpf     +++|          LDD    T7          CONVERT SECTOR
00925  M01S00924.mpf     +++|          RJM    C2D
00926  M01S00925.mpf     +++|          STM    LTDA+15
00927  M01S00926.mpf     +++|          LDD    T7
00928  M01S00927.mpf     +++|          SHN    -6
00929  M01S00928.mpf     +++|          RJM    C2D
00930  M01S00929.mpf     +++|          STM    LTDA+14
00931  M01S00930.mpf     +++|          LDC    LTDA        ISSUE MESSAGE
00932  M01S00931.mpf     +++|          RJM    DFM
00933  M01S00932.mpf     +++|          UJP    LTDX        RETURN
00934  M01S00933.mpf     +++|
00935  M01S00934.mpf     +++|
00936  M01S00935.mpf     +++| LTDA     DATA   C*MPF - EQXXXX  TKYYYY  SCZZZZ.*
00937  M01S00936.mpf     +++| PDS      SPACE  4,10
00938  M01S00937.mpf     +++|**        PDS - PROCESS DEVICE STATUS.
00939  M01S00938.mpf     +++|*
Line S00939 Modification History
M01 (Added by) mpf
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00939.ns2776  ---|*         ENTRY  (A) .NE. 0 IF DEVICE INACCESSIBLE.
00941  M01S00001.ns2776  +++|*         ENTRY  (MSD) = DEVICE STATUS UPON EXIT FROM *SETMS*.
00942  M01S00940.mpf     +++|*                (T5) = EST ORDINAL OF THE DEVICE.
00943  M01S00941.mpf     +++|*                DRIVER SOFTWARE IS LOADED.
00944  M01S00942.mpf     +++|*
00945  M01S00943.mpf     +++|*         EXIT   TO *ERR* IF DEVICE IS INACCESSIBLE.
00946  M01S00944.mpf     +++|*
00947  M01S00945.mpf     +++|*         MACROS ENDMS, ERROR.
00948  M01S00946.mpf     +++|
00949  M01S00947.mpf     +++|
00950  M01S00948.mpf     +++| PDS      SUBR               ENTRY/EXIT
Line S00949 Modification History
M01 (Added by) mpf
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00951  M02S00949.ns2776  ---|          ZJN    PDSX        IF DEVICE IS AVAILABLE, RETURN
00952  M01S00002.ns2776  +++|          LDM    MSD
00953  M01S00003.ns2776  +++|          SHN    21-6
00954  M01S00004.ns2776  +++|          PJN    PDSX        IF DEVICE IS AVAILABLE, RETURN
00955  M01S00950.mpf     +++|          ENDMS
00956  M01S00951.mpf     +++|          ERROR  ERID        * INACCESSIBLE DEVICE.*
00957  M01S00952.mpf     +++| PIO      SPACE  4,20
00958  M01S00953.mpf     +++|**        PIO - PRESET I/O.
00959  M01S00954.mpf     +++|*
00960  M01S00955.mpf     +++|*         SET DIRECT CELLS FOR I/O OPERATION.
00961  M01S00956.mpf     +++|*
00962  M01S00957.mpf     +++|*         ENTRY  (IR+3 - IR+4) = VALIDATED FET ADDRESS.
00963  M01S00958.mpf     +++|*
00964  M01S00959.mpf     +++|*         EXIT   (FA) = FST ADDRESS OF FILE.
00965  M01S00960.mpf     +++|*                (FS - FS+4) = FST ENTRY FOR FILE.
00966  M01S00961.mpf     +++|*                (T5) = EST ORDINAL.
00967  M01S00962.mpf     +++|*                (T6) = TRACK.
00968  M01S00963.mpf     +++|*                (T7) = SECTOR.
00969  M01S00964.mpf     +++|*                (FT - FT+1) = FIRST.
00970  M01S00965.mpf     +++|*                (IN - IN+1) = IN.
00971  M01S00966.mpf     +++|*                (OT - OT+1) = OUT.
00972  M01S00967.mpf     +++|*                (LM - LM+1) = LIMIT.
00973  M01S00968.mpf     +++|*
00974  M01S00969.mpf     +++|*         CALLS  SBA, SFP, VBA.
00975  M01S00970.mpf     +++|
00976  M01S00971.mpf     +++|
00977  M01S00972.mpf     +++| PIO      SUBR               ENTRY/EXIT
00978  M01S00973.mpf     +++|          RJM    SFP         SET FILE PARAMETERS
00979  M01S00974.mpf     +++|          RJM    SBA         SET BUFFER ADDRESSES
00980  M01S00975.mpf     +++|          RJM    VBA         VALIDATE BUFFER ADDRESSES
00981  M01S00976.mpf     +++|          UJN    PIOX        RETURN
00982  M01S00977.mpf     +++| SBA      SPACE  4,15
00983  M01S00978.mpf     +++|**        SBA - SET BUFFER ARGUMENTS.
00984  M01S00979.mpf     +++|*
00985  M01S00980.mpf     +++|*         READ BUFFER POINTERS INTO DIRECT CELLS.
00986  M01S00981.mpf     +++|*
00987  M01S00982.mpf     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
00988  M01S00983.mpf     +++|*
00989  M01S00984.mpf     +++|*         EXIT   (FT - FT+1) = FIRST.
00990  M01S00985.mpf     +++|*                (IN - IN+1) = IN.
00991  M01S00986.mpf     +++|*                (OT - OT+1) = OUT.
00992  M01S00987.mpf     +++|*                (LM - LM+1) = LIMIT.
00993  M01S00988.mpf     +++|*
00994  M01S00989.mpf     +++|*         USES   CM - CM+4, FT - FT+1, IN - IN+1, LM - LM+1, OT - OT+1.
00995  M01S00990.mpf     +++|
00996  M01S00991.mpf     +++|
00997  M01S00992.mpf     +++| SBA      SUBR               ENTRY/EXIT
00998  M01S00993.mpf     +++|          LDCA   IR+3,4      READ LIMIT
00999  M01S00994.mpf     +++|          CRD    LM-3
01000  M01S00995.mpf     +++|          SBN    1           READ OUT
01001  M01S00996.mpf     +++|          CRD    OT-3
01002  M01S00997.mpf     +++|          SBN    1           READ IN
01003  M01S00998.mpf     +++|          CRD    CM
01004  M01S00999.mpf     +++|          LDD    CM+3
01005  M01S01000.mpf     +++|          STD    IN
01006  M01S01001.mpf     +++|          LDD    CM+4
01007  M01S01002.mpf     +++|          STD    IN+1
01008  M01S01003.mpf     +++|          LDCA   IR+3,1      READ FIRST
01009  M01S01004.mpf     +++|          CRD    CM
01010  M01S01005.mpf     +++|          LDD    CM+3
01011  M01S01006.mpf     +++|          LPN    77
01012  M01S01007.mpf     +++|          STD    FT
01013  M01S01008.mpf     +++|          LDD    CM+4
01014  M01S01009.mpf     +++|          STD    FT+1
01015  M01S01010.mpf     +++|          UJP    SBAX        RETURN
01016  M01S01011.mpf     +++| SFC      SPACE  4,15
01017  M01S01012.mpf     +++|**        SFC - SET FST COMPLETE.
01018  M01S01013.mpf     +++|*
01019  M01S01014.mpf     +++|*         ENTRY  (FS - FS+4) = FST.
01020  M01S01015.mpf     +++|*                (FA) = FNT ADDRESS.
01021  M01S01016.mpf     +++|*                (FA) = 0, IF NO FILE CURRENTLY SET BUSY.
01022  M01S01017.mpf     +++|*
01023  M01S01018.mpf     +++|*         EXIT   FST SET COMPLETE AND WRITTEN TO CENTRAL.
01024  M01S01019.mpf     +++|*                (FA) = 0.
01025  M01S01020.mpf     +++|*
01026  M01S01021.mpf     +++|*         USES   FA, FS+4.
01027  M01S01022.mpf     +++|*
01028  M01S01023.mpf     +++|*         MACROS NFA.
01029  M01S01024.mpf     +++|
01030  M01S01025.mpf     +++|
01031  M01S01026.mpf     +++| SFC      SUBR               ENTRY/EXIT
01032  M01S01027.mpf     +++|          AOD    FS+4        SET STATUS COMPLETE
01033  M01S01028.mpf     +++|          LDD    FA
01034  M01S01029.mpf     +++|          ZJN    SFCX        IF NO FST ADDRESS
01035  M01S01030.mpf     +++|          NFA    FA,R        WRITE FST
01036  M01S01031.mpf     +++|          ADK    FSTL
01037  M01S01032.mpf     +++|          CWD    FS
01038  M01S01033.mpf     +++|          LDN    0           CLEAR FNT ADDRESS
01039  M01S01034.mpf     +++|          STD    FA
01040  M01S01035.mpf     +++|          UJN    SFCX        RETURN
01041  M01S01036.mpf     +++| SFP      SPACE  4,10
01042  M01S01037.mpf     +++|**        SFP - SET FILE PARAMETERS.
01043  M01S01038.mpf     +++|*
01044  M01S01039.mpf     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
01045  M01S01040.mpf     +++|*
01046  M01S01041.mpf     +++|*         EXIT   (FA) = FNT ADDRESS.
01047  M01S01042.mpf     +++|*                (FS - FS+4) = FST ENTRY.
01048  M01S01043.mpf     +++|*                (T5) = EST ORDINAL.
01049  M01S01044.mpf     +++|*                (T6) = TRACK.
01050  M01S01045.mpf     +++|*                (T7) = SECTOR.
01051  M01S01046.mpf     +++|*                FST SET BUSY.
01052  M01S01047.mpf     +++|*
01053  M01S01048.mpf     +++|*         USES   FA, T5, T6, T7, FN - FN+4, FS - FS+4.
01054  M01S01049.mpf     +++|*
01055  M01S01050.mpf     +++|*         CALLS  SAF, SFB.
01056  M01S01051.mpf     +++|*
01057  M01S01052.mpf     +++|*         MACROS ERROR, LDCA.
01058  M01S01053.mpf     +++|
01059  M01S01054.mpf     +++|
01060  M01S01055.mpf     +++| SFP      SUBR               ENTRY/EXIT
01061  M01S01056.mpf     +++|          LDCA   IR+3        READ FILE NAME
01062  M01S01057.mpf     +++|          CRD    FN
01063  M01S01058.mpf     +++|          LDCA   IR+3,4      READ FNT ADDRESS
01064  M01S01059.mpf     +++|          CRD    FS
01065  M01S01060.mpf     +++|          LDD    FS
01066  M01S01061.mpf     +++|          RJM    SAF         SEARCH FOR ASSIGNED FILE
01067  M01S01062.mpf     +++|          NJN    SFP1        IF FILE FOUND
01068  M01S01063.mpf     +++|          ERROR  ERNF        * FILE NOT FOUND.*
01069  M01S01064.mpf     +++|
01070  M01S01065.mpf     +++| SFP1     RJM    SFB         SET FILE BUSY
01071  M01S01066.mpf     +++|          ZJN    SFP2        IF FILE SET BUSY
01072  M01S01067.mpf     +++|          LDN    0           CLEAR FNT ADDRESS
01073  M01S01068.mpf     +++|          STD    FA
01074  M01S01069.mpf     +++|          ERROR  ERIO        * I/O SEQUENCE ERROR.*
01075  M01S01070.mpf     +++|
01076  M01S01071.mpf     +++| SFP2     LDD    FS
01077  M01S01072.mpf     +++|          LPC    3777
01078  M01S01073.mpf     +++|          STD    T5          EST ORDINAL
01079  M01S01074.mpf     +++|          LDD    FS+2
01080  M01S01075.mpf     +++|          STD    T6          TRACK
01081  M01S01076.mpf     +++|          LDD    FS+3
01082  M01S01077.mpf     +++|          STD    T7          SECTOR
01083  M01S01078.mpf     +++|          UJP    SFPX        RETURN
01084  M01S01079.mpf     +++| VBA      SPACE  4,10
01085  M01S01080.mpf     +++|**        VBA - VALIDATE BUFFER ADDRESSES.
01086  M01S01081.mpf     +++|*
01087  M01S01082.mpf     +++|*         ENTRY  (FT - FT+1) = FIRST.
01088  M01S01083.mpf     +++|*                (IN - IN+1) = IN.
01089  M01S01084.mpf     +++|*                (OT - OT+1) = OUT.
01090  M01S01085.mpf     +++|*                (LM - LM+1) = LIMIT.
01091  M01S01086.mpf     +++|*
01092  M01S01087.mpf     +++|*         EXIT   TO *ERR* IF BUFFER ARGUMENT ERROR.
01093  M01S01088.mpf     +++|*
01094  M01S01089.mpf     +++|*         MACROS ERROR.
01095  M01S01090.mpf     +++|
01096  M01S01091.mpf     +++|
01097  M01S01092.mpf     +++| VBA      SUBR               ENTRY/EXIT
01098  M01S01093.mpf     +++|          LDD    LM          CHECK LIMIT
01099  M01S01094.mpf     +++|          SHN    14
01100  M01S01095.mpf     +++|          LMD    LM+1
01101  M01S01096.mpf     +++|          SBN    1
01102  M01S01097.mpf     +++|          SHN    -6
01103  M01S01098.mpf     +++|          SBD    FL
01104  M01S01099.mpf     +++|          PJN    VBA1        IF LIMIT .GT. FL
01105  M01S01100.mpf     +++|          LDD    OT          CHECK OUT
01106  M01S01101.mpf     +++|          SBD    LM
01107  M01S01102.mpf     +++|          SHN    14
01108  M01S01103.mpf     +++|          ADD    OT+1
01109  M01S01104.mpf     +++|          SBD    LM+1
01110  M01S01105.mpf     +++|          PJN    VBA1        IF OUT .GE. LIMIT
01111  M01S01106.mpf     +++|          LDD    OT
01112  M01S01107.mpf     +++|          SBD    FT
01113  M01S01108.mpf     +++|          SHN    14
01114  M01S01109.mpf     +++|          ADD    OT+1
01115  M01S01110.mpf     +++|          SBD    FT+1
01116  M01S01111.mpf     +++|          MJN    VBA1        IF OUT .LT. FIRST
01117  M01S01112.mpf     +++|          LDD    IN          CHECK IN
01118  M01S01113.mpf     +++|          SBD    LM
01119  M01S01114.mpf     +++|          SHN    14
01120  M01S01115.mpf     +++|          ADD    IN+1
01121  M01S01116.mpf     +++|          SBD    LM+1
01122  M01S01117.mpf     +++|          PJN    VBA1        IF IN .GE. LIMIT
01123  M01S01118.mpf     +++|          LDD    IN
01124  M01S01119.mpf     +++|          SBD    FT
01125  M01S01120.mpf     +++|          SHN    14
01126  M01S01121.mpf     +++|          ADD    IN+1
01127  M01S01122.mpf     +++|          SBD    FT+1
01128  M01S01123.mpf     +++|          MJN    VBA1        IF IN .LT. FIRST
01129  M01S01124.mpf     +++|          UJP    VBAX        RETURN
01130  M01S01125.mpf     +++|
01131  M01S01126.mpf     +++| VBA1     ERROR  ERBA        * BUFFER ARGUMENT ERROR.*
01132  M01S01127.mpf     +++| VCA      SPACE  4,10
01133  M01S01128.mpf     +++|**        VCA - VALIDATE CENTRAL ADDRESS.
01134  M01S01129.mpf     +++|*
01135  M01S01130.mpf     +++|*         ENTRY  (A) = RELATIVE ADDRESS.
01136  M01S01131.mpf     +++|*
01137  M01S01132.mpf     +++|*         EXIT   (A) = ABSOLUTE ADDRESS IF ADDRESS VALID.
01138  M01S01133.mpf     +++|*
01139  M01S01134.mpf     +++|*         USES   T1, T2.
01140  M01S01135.mpf     +++|*
01141  M01S01136.mpf     +++|*         MACROS ERROR.
01142  M01S01137.mpf     +++|
01143  M01S01138.mpf     +++|
01144  M01S01139.mpf     +++| VCA      SUBR
01145  M01S01140.mpf     +++|          STD    T2
01146  M01S01141.mpf     +++|          SCN    1
01147  M01S01142.mpf     +++|          ZJN    VCA1        IF ADDRESS .LE. 1
01148  M01S01143.mpf     +++|          SCN    77
01149  M01S01144.mpf     +++|          SHN    6
01150  M01S01145.mpf     +++|          STD    T1
01151  M01S01146.mpf     +++|          SHN    6
01152  M01S01147.mpf     +++|          SBD    FL
01153  M01S01148.mpf     +++|          PJN    VCA1        IF ADDRESS .GE. FL
01154  M01S01149.mpf     +++|          LDD    T1          FORM ABSOLUTE ADDRESS
01155  M01S01150.mpf     +++|          SHN    6
01156  M01S01151.mpf     +++|          ADD    RA
01157  M01S01152.mpf     +++|          SHN    6
01158  M01S01153.mpf     +++|          ADD    T2
01159  M01S01154.mpf     +++|          UJP    VCAX        RETURN
01160  M01S01155.mpf     +++|
01161  M01S01156.mpf     +++| VCA1     ERROR  ERAR        * ADDRESS OUT OF RANGE.*
01162  M01S01157.mpf     +++| VTB      SPACE  4,10
01163  M01S01158.mpf     +++|**        VTB - VALIDATE TRACK LINK BYTE.
01164  M01S01159.mpf     +++|*
01165  M01S01160.mpf     +++|*         ENTRY  (A) = TRACK LINK BYTE TO VALIDATE.
01166  M01S01161.mpf     +++|*                (TK) = LABEL TRACK.
01167  M01S01162.mpf     +++|*                (T5) = EST ORDINAL.
01168  M01S01163.mpf     +++|*
01169  M01S01164.mpf     +++|*         EXIT   (A) = 0 IF NO ERROR.
01170  M01S01165.mpf     +++|*
01171  M01S01166.mpf     +++|*         USES   T1, T2, T6, CM - CM+4.
01172  M01S01167.mpf     +++|*
01173  M01S01168.mpf     +++|*         CALLS  SNT.
01174  M01S01169.mpf     +++|*
01175  M01S01170.mpf     +++|*         MACROS MONITOR.
01176  M01S01171.mpf     +++|
01177  M01S01172.mpf     +++|
01178  M01S01173.mpf     +++| VTB      SUBR               ENTRY/EXIT
01179  M01S01174.mpf     +++|          STD    T2          SAVE BYTE
01180  M01S01175.mpf     +++|          LDD    TK          LABEL TRACK
01181  M01S01176.mpf     +++|          STD    T6
01182  M01S01177.mpf     +++|          LDN    UTRS        SET SUBFUNCTION CODE
01183  M01S01178.mpf     +++|          STD    CM+3
01184  M01S01179.mpf     +++|          LDD    T5          SET EST ORDINAL
01185  M01S01180.mpf     +++|          STD    CM+1
01186  M01S01181.mpf     +++|          MONITOR  STBM      GET CURRENT TRT
01187  M01S01182.mpf     +++| VTB1     RJM    SNT         GET LINK
01188  M01S01183.mpf     +++|          STD    T6
01189  M01S01184.mpf     +++|          LMD    T2
01190  M01S01185.mpf     +++|          ZJN    VTB3        IF LINKED TO REQUESTED TRACK BYTE
01191  M01S01186.mpf     +++|          LDD    T6
01192  M01S01187.mpf     +++|          SHN    21-13
01193  M01S01188.mpf     +++|          MJN    VTB1        IF LINK BYTE
01194  M01S01189.mpf     +++| VTB2     LDN    1           INDICATE ERROR
01195  M01S01190.mpf     +++|          UJN    VTBX        RETURN
01196  M01S01191.mpf     +++|
01197  M01S01192.mpf     +++| VTB3     LDD    T6
01198  M01S01193.mpf     +++|          SHN    21-13
01199  M01S01194.mpf     +++|          PJN    VTB2        IF NOT A LINK BYTE
01200  M01S01195.mpf     +++|          RJM    SNT
01201  M01S01196.mpf     +++|          LDD    T1
01202  M01S01197.mpf     +++|          ADC    SHNI+6+14-4
01203  M01S01198.mpf     +++|          STM    VTBA
01204  M01S01199.mpf     +++|          LDD    CM+4
01205  M01S01200.mpf     +++| VTBA     SHN    **
01206  M01S01201.mpf     +++|          PJN    VTB2        IF NOT RESERVED
01207  M01S01202.mpf     +++|          LDN    0           INDICATE NO ERROR
01208  M01S01203.mpf     +++|          UJP    VTBX        RETURN
01209  M01S01204.mpf     +++|          TITLE  BUFFER ALLOCATION.
01210  M01S01205.mpf     +++|          SPACE  4,10
01211  M01S01206.mpf     +++|*         BUFFER ALLOCATION.
01212  M01S01207.mpf     +++|
01213  M01S01208.mpf     +++|
01214  M01S01209.mpf     +++| WEIA     BSSZ   WCEI*5+2    EOI SECTOR BUFFER (FOR *COMPWEI*)
01215  M01S01210.mpf     +++|
01216  M01S01211.mpf     +++| EBMS     EQU    BFMS-502    MASS STORAGE ERROR BUFFER
01217  M01S01212.mpf     +++|          TITLE  COMMON DECKS.
01218  M01S01213.mpf     +++|          SPACE  4,10
01219  M01S01214.mpf     +++|*         COMMON DECKS.
01220  M01S01215.mpf     +++|
01221  M01S01216.mpf     +++|
01222  M01S01217.mpf     +++|*CALL     COMPCOB
01223  M01S01218.mpf     +++| CRA$     EQU    0           ENSURE CURRENT TRT
01224  M01S01219.mpf     +++|*CALL     COMPCRA
01225  M01S01220.mpf     +++|*CALL     COMPCRS
01226  M01S01221.mpf     +++|*CALL     COMPC2D
01227  M01S01222.mpf     +++|*CALL     COMPRBB
01228  M01S01223.mpf     +++| RIS$     EQU    1           READ IAPF SYSTEM SECTOR
01229  M01S01224.mpf     +++|*CALL     COMPRSS
01230  M01S01225.mpf     +++| SAF$     EQU    0           SEARCH SPECIFIC ENTRY FIRST
01231  M01S01226.mpf     +++|*CALL     COMPSAF
01232  M01S01227.mpf     +++|*CALL     COMPSES
01233  M01S01228.mpf     +++|*CALL     COMPSFB
01234  M01S01229.mpf     +++|*CALL     COMPSNT
01235  M01S01230.mpf     +++|*CALL     COMPTGB
01236  M01S01231.mpf     +++|*CALL     COMPWEI
01237  M01S01232.mpf     +++|          SPACE  4,10
01238  M01S01233.mpf     +++|          ERRPL  *-EBMS      OVERFLOW INTO MS ERROR BUFFER
01239  M01S01234.mpf     +++|          ERRPL  *-BFMS      OVERFLOW INTO MS BUFFER
01240  M01S01235.mpf     +++|          TITLE  PRESET.
01241  M01S01236.mpf     +++| PRS      SPACE  4,15
01242  M01S01237.mpf     +++|**        PRS - PRESET.
01243  M01S01238.mpf     +++|*
01244  M01S01239.mpf     +++|*         ENTRY  (IR+2) = FUNCTION CODE.
01245  M01S01240.mpf     +++|*
01246  M01S01241.mpf     +++|*         EXIT   (T1) = FUNCTION PROCESSOR ADDRESS.
01247  M01S01242.mpf     +++|*
01248  M01S01243.mpf     +++|*         USES   FA, T1, CM - CM+4.
01249  M01S01244.mpf     +++|*
01250  M01S01245.mpf     +++|*         CALLS  CRS.
01251  M01S01246.mpf     +++|*
01252  M01S01247.mpf     +++|*         MACROS ERROR.
01253  M01S01248.mpf     +++|
01254  M01S01249.mpf     +++|
01255  M01S01250.mpf     +++| PRS      SUBR
01256  M01S01251.mpf     +++|          LDN    0           CLEAR FST ADDRESS
01257  M01S01252.mpf     +++|          STD    FA
01258  M01S01253.mpf     +++|          LDD    CP          CHECK IF CALLER IS *SSJ=*
01259  M01S01254.mpf     +++|          ADK    SEPW
01260  M01S01255.mpf     +++|          CRD    CM
01261  M01S01256.mpf     +++|          LDD    CM
01262  M01S01257.mpf     +++|          SHN    21-2
01263  M01S01258.mpf     +++|          MJN    PRS2        IF CALLER IS *SSJ=*
01264  M01S01259.mpf     +++| PRS1     ERROR  ERIC        * INCORRECT CALL.*
01265  M01S01260.mpf     +++|
01266  M01S01261.mpf     +++| PRS2     RJM    CRS
01267  M01S01262.mpf     +++|          ZJN    PRS1        IF NOT CALLED WITH AUTO RECALL
01268  M01S01263.mpf     +++|          LDD    IR+2
01269  M01S01264.mpf     +++|          STD    T1          FUNCTION CODE
01270  M01S01265.mpf     +++|          SBN    TFCNL
01271  M01S01266.mpf     +++|          MJN    PRS4        IF LEGAL FUNCTION
01272  M01S01267.mpf     +++| PRS3     ERROR  ERIF        * INCORRECT FUNCTION.*
01273  M01S01268.mpf     +++|
01274  M01S01269.mpf     +++| PRS4     LDM    TFCN,T1     FUNCION PROCESSOR ADDRESS
01275  M01S01270.mpf     +++|          STD    T1
01276  M01S01271.mpf     +++|          ZJN    PRS3        IF INCORRECT FUNCTION
01277  M01S01272.mpf     +++|          UJP    PRSX        RETURN
01278  M01S01273.mpf     +++|          SPACE  4,10
01279  M01S01274.mpf     +++|*         TFCN - TABLE OF FUNCTION PROCESSORS.
01280  M01S01275.mpf     +++|
01281  M01S01276.mpf     +++|
01282  M01S01277.mpf     +++| TFCN     BSS    0
01283  M01S01278.mpf     +++|          CON    DTK         DROP TRACKS
01284  M01S01279.mpf     +++|          CON    RWE         REWRITE END OF INFORMATION
01285  M01S01280.mpf     +++|          CON    DLK         DELINK TRACKS
01286  M01S01281.mpf     +++|          CON    0           (RESERVED)
01287  M01S01282.mpf     +++|          CON    RSC         READ SYSTEM SECTOR
01288  M01S01283.mpf     +++|          CON    WSC         WRITE SYSTEM SECTOR
01289  M01S01284.mpf     +++|          CON    RTF         RETURN FST FOR CATALOG OVERFLOW TRACK
01290  M01S01285.mpf     +++|          CON    RWC         REWRITE CATALOG SECTOR
01291  M01S01286.mpf     +++| TFCNL    EQU    *-TFCN
01292  M01S01287.mpf     +++|          SPACE  4,10
01293  M01S01288.mpf     +++|          OVERFLOW  PPFW,EPFW
01294  M01S01289.mpf     +++|          SPACE  4
01295  M01S01290.mpf     +++|          END
cdc/nos2.source/opl.opl871/deck/mpf.txt ยท Last modified: by 127.0.0.1