Deck MSM Part 002

30 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
02643  M01S02403.msm     +++|*         FILES RECOVERED ON EST ORDINAL XXX.
02644  M01S02404.msm     +++|*
02645  M01S02405.msm     +++|*         *EQXXX NNNN QUEUED FILES IGNORED.* = COUNT OF QUEUED FILES
02646  M01S02406.msm     +++|*         NOT WRITTEN TO THE *IQFT* FILE DUE TO LACK OF SPACE.
02647  M01S02407.msm     +++|*
02648  M01S02408.msm     +++|*         *EQXXX, PF CATALOG SIZE ERROR.* = THE PERMANENT FILE CATALOGS
02649  M01S02409.msm     +++|*         ON EST ORDINAL XXX ARE THE WRONG SIZE FOR THE CURRENT SYSTEM.
02650  M01S02410.msm     +++|*
02651  M01S02411.msm     +++|*         *EQXXX, PPPPPPP RECOVERED.* = RECOVERY COMPLETE ON EST
02652  M01S02412.msm     +++|*         ORDINAL XXX WITH PACKNAME PPPPPPP.
02653  M01S02413.msm     +++|*
02654  M01S00001.msm41   +++|*         *EQXXX, PRESERVED FILE RECOVERY INITIATED.* = PRESERVED FILE
02655  M01S00002.msm41   +++|*         RECOVERY WAS STARTED FOR EST ORDINAL XXX.
02656  M01S00003.msm41   +++|*
02657  M01S02414.msm     +++|*         *EQXXX, TRACK LIMIT ON IQFT.* = NO TRACK AVAILABLE FOR IQFT.
02658  M01S02415.msm     +++|*
Line S02416 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02659  M02S02416.ns2788  ---|*         *PF LENGTH ERROR UINDEX  FILENAME* = PERMANENT FILE LENGTH
Line S02417 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02660  M02S02417.ns2788  ---|*         WAS INCORRECT.
02661  M01S00004.ns2788  +++|*         *EQXXX PF LENGTH ERROR UINDEX  FILENAME* = PERMANENT FILE
02662  M01S00005.ns2788  +++|*         LENGTH WAS INCORRECT.
02663  M01S02418.msm     +++|*
Line S02419 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02664  M02S02419.ns2788  ---|*         *QF LENGTH ERROR         FILENAME* = QUEUED FILE LENGTH WAS
Line S02420 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02665  M02S02420.ns2788  ---|*         INCORRECT.
02666  M01S00006.ns2788  +++|*         *EQXXX QF LENGTH ERROR         FILENAME* = QUEUED FILE
02667  M01S00007.ns2788  +++|*         LENGTH WAS INCORRECT.
02668  M01S02421.msm     +++|          SPACE  4
02669  M01S02422.msm     +++|***       ACCOUNT FILE MESSAGES.
02670  M01S02423.msm     +++|*
02671  M01S02424.msm     +++|*         *ADDR, XXX, FFFFFFF, DD, LVLL, LVLU.* = EST ORDINAL XXX
02672  M01S02425.msm     +++|*         WITH FAMILY NAME FFFFFFF, DEVICE NUMBER DD, LOWER SECURITY
02673  M01S02426.msm     +++|*         ACCESS LEVEL LVLL AND UPPER SECURITY ACCESS LEVEL LVLU
02674  M01S02427.msm     +++|*         HAS BEEN RECOVERED.
02675  M01S02428.msm     +++|*
02676  M01S02429.msm     +++|*         *ADPM, XXX, PPPPPPP, UUUUUUU, LVLL, LVLU.* = EST ORDINAL
02677  M01S02430.msm     +++|*         XXX WITH PACKNAME PPPPPPP, LOWER SECURITY ACCESS LEVEL
02678  M01S02431.msm     +++|*         LVLL AND UPPER SECURITY ACCESS LEVEL LVLU HAS BEEN MOUNTED.
02679  M01S02432.msm     +++|*         IF PRESENT, UUUUUUU INDICATES THAT THE PACK WAS A PRIVATE
02680  M01S02433.msm     +++|*         PACK BELONGING TO THAT USER.
02681  M01S02434.msm     +++|          SPACE  4
02682  M01S02435.msm     +++|***       ERROR LOG MESSAGES.
02683  M01S02436.msm     +++|*
02684  M01S02437.msm     +++|*         *EQXXX, ANNNN PF RECOVERY ERROR.* = SYSTEM SECTOR ERROR OR
02685  M01S02438.msm     +++|*         UNIDENTIFIED FILE TYPE WHILE PROCESSING A PRESERVED FILE ON
02686  M01S02439.msm     +++|*         TRACK NNNN OF EST ORDINAL XXX.
02687  M01S02440.msm     +++|*
02688  M01S02441.msm     +++|*         *EQXXX, ANNNN TYYYY SZZZZ LINKAGE ERROR.* = LENGTH / LINKAGE
02689  M01S02442.msm     +++|*         ERROR AT TRACK YYYY SECTOR ZZZZ OF A PRESERVED FILE WHOSE BOI
02690  M01S02443.msm     +++|*         IS ON TRACK NNNN OF EST ORDINAL XXX.
02691  M01S02444.msm     +++|*
02692  M01S02445.msm     +++|*         *EQXXX, ERROR IDLE SET.* = THIS FOLLOWS THE *PF LENGTH ERROR*
02693  M01S02446.msm     +++|*         OR *QF LENGTH ERROR* MESSAGE IF ERROR IDLE WAS FORCED BY THE
02694  M01S02447.msm     +++|*         SYSTEM OR THE OPERATOR ENTERED *PAUSE*.
02695  M01S02448.msm     +++|*
02696  M01S02449.msm     +++|*         *EQXXX, PF CATALOG SIZE ERROR.* = THE PERMANENT FILE CATALOGS
02697  M01S02450.msm     +++|*         ON EST ORDINAL XXX ARE THE WRONG SIZE FOR THE CURRENT SYSTEM.
02698  M01S02451.msm     +++|*
02699  M01S02452.msm     +++|*         *EQXXX, TYYYY SZZZZ LINKAGE ERROR.* = THIS MESSAGE FOLLOWS
02700  M01S02453.msm     +++|*         THE *PF LENGTH ERROR* AND *QF LENGTH ERROR* MESSAGES, GIVING
02701  M01S02454.msm     +++|*         ADDITIONAL DETAILS ON THE LOCATION OF THE ERROR - EST ORDINAL
02702  M01S02455.msm     +++|*         XXX, TRACK YYYY, SECTOR ZZZZ.
02703  M01S02456.msm     +++|*
02704  M01S00001.msm46   +++|*         *LI LENGTH ERROR         FILENAME* = LIBRARY FILE LENGTH
02705  M01S00002.msm46   +++|*         WAS INCORRECT.  THE *LINKAGE ERROR.* MESSAGE FOLLOWS THIS
02706  M01S00003.msm46   +++|*         MESSAGE.
02707  M01S00004.msm46   +++|*
02708  M01S02457.msm     +++|*         *PF LENGTH ERROR UINDEX  FILENAME* = PERMANENT FILE LENGTH
02709  M01S02458.msm     +++|*         WAS INCORRECT.  THE *LINKAGE ERROR.* MESSAGE FOLLOWS THIS
02710  M01S02459.msm     +++|*         MESSAGE.
02711  M01S02460.msm     +++|*
02712  M01S02461.msm     +++|*         *QF LENGTH ERROR         FILENAME* = QUEUED FILE LENGTH WAS
02713  M01S02462.msm     +++|*         INCORRECT.  THE *LINKAGE ERROR.* MESSAGE FOLLOWS THIS
02714  M01S02463.msm     +++|*         MESSAGE.
02715  M01S02464.msm     +++|          SPACE  4
02716  M01S02465.msm     +++| O4DA     MAX    /CMS/SDVR+5,/1RF/SDVR+5
02717  M01S02466.msm     +++|
02718  M01S02467.msm     +++|          QUAL   RDA
02719  M01S02468.msm     +++|          SPACE  4
02720  M01S02469.msm     +++|*CALL     COMSJIO
02721  M01S02470.msm     +++|*CALL     COMSPFM
02722  M01S02471.msm     +++|*CALL     COMSSSE
02723  M01S02472.msm     +++|          SPACE  4,10
02724  M01S02473.msm     +++|**        ASSEMBLY CONSTANTS.
02725  M01S02474.msm     +++|
02726  M01S02475.msm     +++|
02727  M01S02476.msm     +++| EQV$     EQU    1           DO NOT VERIFY EQUIPMENT IN *COMPRSS*
02728  M01S02477.msm     +++| IRA$     EQU    1           RANDOM ACCESS PROCESSORS INITIALIZED
02729  M01S02478.msm     +++| NSDF     EQU    5           NUMBER OF SPECIAL DAFS
02730  M01S02479.msm     +++| SBUF     EQU    BFMS-502    SCRATCH BUFFER FOR EOI SECTOR
02731  M01S02480.msm     +++|          SPACE  4
02732  M01S02481.msm     +++| DATB     EQU    O4DA-5      BUFFER FOR DEVICE ACCESS TABLE ENTRY
02733  M01S02482.msm     +++|
02734  M01S02483.msm     +++|          ORG    O4DA
02735  M01S02484.msm     +++|
02736  M01S02485.msm     +++| RDE      SUBR               ENTRY/EXIT
Line S02486 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
02737  M02S02486.ns2552  ---|          LJM    PRS         PRESET
02738  M01S02487.msm     +++|          TITLE  MAIN LOOP.
02739  M01S02488.msm     +++| RDA      SPACE  4
02740  M01S02489.msm     +++|**        RDA - MAIN ROUTINE.
02741  M01S02490.msm     +++|
02742  M01S02491.msm     +++|
Line S02492 Modification History
M01 (Added by) msm
M02 (Updated by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
02743  M02S02492.ns2552  ---| RDA      SUBR               ENTRY EXIT
02744  M01S00019.ns2552  +++| RDA      SUBR   PRS         ENTRY/EXIT
02745  M01S00020.ns2552  +++|          ERRNZ  RDE+1-RDAX  CODE DEPENDS ON VALUE
Line S02493 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02746  M02S02493.msm48   ---|          STM    BADA        SAVE RA FLAG
Line S02494 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02747  M02S02494.msm48   ---|          SHN    -14
Line S02495 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02748  M02S02495.msm48   ---|          STD    T3
02749  M01S00029.msm48   +++|          STD    T3          SAVE INITIALIZE FLAG
02750  M01S02496.msm     +++|          ZJN    RDA1        IF DEVICE NOT BEING INITIALIZED
02751  M01S02497.msm     +++|          UJMF   RDAX
02752  M01S02498.msm     +++| RDA1     LDD    T5          CONVERT UPPER TWO DIGITS OF EST ORDINAL
02753  M01S02499.msm     +++|          SHN    -3
02754  M01S02500.msm     +++|          RJM    C2D
02755  M01S02501.msm     +++|          STM    RDAD
02756  M01S02502.msm     +++|          STM    IQFB+1
02757  M01S02503.msm     +++|          STM    IDMC+1
02758  M01S02504.msm     +++|          STM    IRMB+1
02759  M01S02505.msm     +++|          STM    CPSB+1
02760  M01S02506.msm     +++|          STM    RDAI+1
02761  M01S00004.msm41   +++|          STM    RDAJ+1
02762  M01S00008.ns2788  +++|          STM    PFEE+1
02763  M01S02507.msm     +++|          LDD    T5          CONVERT LOWER DIGIT OF EST ORDINAL
02764  M01S02508.msm     +++|          LPN    7
02765  M01S02509.msm     +++|          SHN    6
02766  M01S02510.msm     +++|          ADC    2R0,
02767  M01S02511.msm     +++|          STM    CPSB+2
02768  M01S02512.msm     +++|          STM    IQFB+2
02769  M01S02513.msm     +++|          STM    IRMB+2
02770  M01S02514.msm     +++|          STM    RDAD+1
02771  M01S02515.msm     +++|          STM    RDAI+2
02772  M01S00005.msm41   +++|          STM    RDAJ+2
Line S02516 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02773  M02S02516.ns2788  ---|          LMN    1R &1R,     REMOVE COMMA FROM FILE COUNT MESSAGE
02774  M01S00009.ns2788  +++|          LMN    1R &1R,     REMOVE COMMA FROM MESSAGE
02775  M01S02517.msm     +++|          STM    IDMC+2
02776  M01S00010.ns2788  +++|          STM    PFEE+2
02777  M01S00030.msm48   +++|          LDD    T3
02778  M01S00031.msm48   +++|          NJN    RDA1.1      IF DEVICE BEING INITIALIZED
02779  M01S00006.msm41   +++|          LDC    RDAJ+NMSN   *PRESERVED FILE RECOVERY INITIATED*
02780  M01S00007.msm41   +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
Line S02518 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02781  M02S02518.msm48   ---|          LDD    FN+4        READ TDGL WORD OF MST
02782  M01S00032.msm48   +++| RDA1.1   LDD    FN+4        READ TDGL WORD OF MST
02783  M01S02519.msm     +++|          SHN    3
02784  M01S02520.msm     +++|          ADK    TDGL
02785  M01S02521.msm     +++|          CRD    CN
02786  M01S02522.msm     +++|          ADN    MDGL-TDGL   GET MASS STORAGE DRIVER WORD
02787  M01S02523.msm     +++|          CRD    T7
02788  M01S02524.msm     +++|          SBN    MDGL-ALGL   GET DAT TRACK ADDRESS
02789  M01S02525.msm     +++|          CRD    CM
02790  M01S02526.msm     +++|          LDD    CM+4        SAVE DAT TRACK ADDRESS
02791  M01S02527.msm     +++|          STM    SPFD
02792  M01S02528.msm     +++|          LDD    T7          SAVE 16-WORD PFC FLAG
02793  M01S02529.msm     +++|          SHN    -11
02794  M01S02530.msm     +++|          LPN    1
02795  M01S02531.msm     +++|          STD    T1
02796  M01S02532.msm     +++|          STM    CPSA
02797  M01S02533.msm     +++|          LDM    RDAH,T1     ENABLE / DISABLE DAF PROCESSING
02798  M01S02534.msm     +++|          STM    RDAG
02799  M01S02535.msm     +++|          RJM    PTA         PRESET TRT ADDRESS
02800  M01S02536.msm     +++|          RJM    GDE         GET *DAT* ENTRY
02801  M01S02537.msm     +++|          SETMS  IO,DF
Line S02538 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02802  M02S02538.ns2776  ---|          LDN    0
02803  M01S00001.ns2776  +++|*         LDN    0
02804  M01S02539.msm     +++|          STD    CN+3        INITIALIZE TRACK SEARCH
02805  M01S02540.msm     +++| RDAA     UJN    RDA2        CONTINUE
02806  M01S02541.msm     +++|*         PSN                (LEVEL-0 RECOVERY)
02807  M01S02542.msm     +++|          RJM    IQF         INITIALIZE THE *IQFT* FILE
02808  M01S02543.msm     +++|          STM    CQFA
02809  M01S02544.msm     +++|          ZJN    RDA2        IF TRACK NOT ASSIGNED
02810  M01S02545.msm     +++|          AOM    CQFC        FLAG *IQFT* INITIALIZED
02811  M01S02546.msm     +++|          STM    TQFA
02812  M01S02547.msm     +++|
02813  M01S02548.msm     +++|*         LOOP FOR EACH TRACK ON DEVICE.
02814  M01S02549.msm     +++|
Line S02550 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02815  M02S02550.ns2788  ---| RDA2     RJM    SPF
Line S02551 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02816  M02S02551.ns2788  ---|          NJN    RDA5        IF PRESERVED FILE FOUND
02817  M01S00011.ns2788  +++| RDA2     RJM    SPF         SEARCH FOR PRESERVED FILE
02818  M01S00012.ns2788  +++|          NJP    RDA5        IF PRESERVED FILE FOUND
02819  M01S02552.msm     +++|
02820  M01S02553.msm     +++|*         COMPLETE PROCESSING FOR THIS DEVICE.
02821  M01S02554.msm     +++|
02822  M01S02555.msm     +++|          LDD    RS
02823  M01S02556.msm     +++|          NJN    RDA3        IF RECOVERY DEADSTART
02824  M01S02557.msm     +++|          RJM    TQF         TERMINATE *IQFT*
Line S02558 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02825  M02S02558.ns2788  ---| RDA3     ENDMS              RELEASE CHANEL
02826  M01S00013.ns2788  +++| RDA3     ENDMS              RELEASE CHANNEL
02827  M01S02559.msm     +++|          RJM    IDM         ISSUE DAYFILE MESSAGES
02828  M01S02560.msm     +++|          RJM    WDE         UPDATE DAT ENTRY
02829  M01S00014.ns2788  +++|          LDC    0           SET ERROR IDLE IF NON-ZERO
02830  M01S00015.ns2788  +++| RDAM     EQU    *-1
02831  M01S00016.ns2788  +++|          ZJN    RDA4        IF NO ERROR IDLE TO BE SET
02832  M01S00017.ns2788  +++|          LDC    RDAI+NMSN   SEND ERROR IDLE MESSAGES
02833  M01S00018.ns2788  +++|          RJM    DFM
02834  M01S00019.ns2788  +++|          LDC    RDAI+ERLN
02835  M01S00020.ns2788  +++|          RJM    DFM
02836  M01S00021.ns2788  +++|          SMSTF  GDEI        SET DEVICE ERROR IDLE STATUS
02837  M01S00022.ns2788  +++|          LDN    STEI
02838  M01S00023.ns2788  +++|          RJM    SES
02839  M01S00024.ns2788  +++|          CMSTF  LCKP        CLEAR POSSIBLE CHECKPOINT REQUEST
02840  M01S02561.msm     +++| RDA4     LDN    0           CLEAR CONSOLE MESSAGE
02841  M01S02562.msm     +++|          STD    CM
Line S02563 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02842  M02S02563.msm48   ---|          LDD    CP
02843  M01S00033.msm48   +++| RDAK     LDD    CP
02844  M01S00034.msm48   +++|*         LDD    CF          (*1RF* CALL)
02845  M01S02564.msm     +++|          ADN    MS2W
02846  M01S02565.msm     +++|          CWD    CM
02847  M01S02566.msm     +++|          RJM    CPS         CHECK PFC SIZE
02848  M01S02567.msm     +++|          RJM    CUS         CLEAR UNAVAILABLE STATUS
02849  M01S02568.msm     +++|          LJM    RDAX        EXIT
02850  M01S02569.msm     +++|
02851  M01S02570.msm     +++|*         CONVERT TRACK NUMBER AND DISPLAY MESSAGE.
02852  M01S02571.msm     +++|
02853  M01S02572.msm     +++| RDA5     RJM    C2D
02854  M01S02573.msm     +++|          STM    RDAE+1
02855  M01S02574.msm     +++|          LDD    T6
02856  M01S02575.msm     +++|          SHN    -6
02857  M01S02576.msm     +++|          RJM    C2D
02858  M01S02577.msm     +++|          STM    RDAE
Line S02578 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
02859  M02S02578.msm48   ---|          LDD    CP
02860  M01S00035.msm48   +++| RDAL     LDD    CP
02861  M01S00036.msm48   +++|*         LDD    CF          (*1RF* CALL)
02862  M01S02579.msm     +++|          ADN    MS2W
02863  M01S02580.msm     +++|          CWM    RDAC,TR
02864  M01S02581.msm     +++|          SBN    1           SAVE ADDRESS FOR *RDC* MESSAGE
02865  M01S02582.msm     +++|          STM    RDCA
02866  M01S02583.msm     +++|          SETMS  POSITION
02867  M01S00002.ns2776  +++|*         LDN    0
02868  M01S02584.msm     +++|          STD    CN          CLEAR FILE TYPE
Line S02585 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02869  M02S02585.ns2776  ---|*         LDN    0           READ SYSTEM SECTOR
Line S02586 Modification History
M01 (Added by) msm
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
02870  M02S02586.ns2776  ---|          RJM    RSS
02871  M01S00003.ns2776  +++|          RJM    RSS         READ SYSTEM SECTOR
02872  M01S02587.msm     +++|          NJN    RDA6        IF ERROR
02873  M01S02588.msm     +++|
02874  M01S02589.msm     +++|*         DETERMINE TYPE OF PRESERVED FILE.
02875  M01S02590.msm     +++|
02876  M01S02591.msm     +++|          RJM    SFT         SET FILE TYPE
Line S02592 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02877  M02S02592.ns2788  ---|          RJM    RDB         RECOVERY DEADSTART FILE VERIFICATION
Line S02593 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02878  M02S02593.ns2788  ---|*         RJM    CQF         (CHECK QUEUED FILE)
Line S02594 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02879  M02S02594.ns2788  ---| RDAB     EQU    *-1
Line S02595 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02880  M02S02595.ns2788  ---|          ZJN    RDA7        IF QUEUED FILE - CONTINUE TO NEXT TRACK
Line S02596 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02881  M02S02596.ns2788  ---|          LDD    CN          CHECK FILE TYPE
Line S02597 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02882  M02S02597.ns2788  ---|          LMN    PMFT
Line S02598 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02883  M02S02598.ns2788  ---|          ZJN    RDA9        IF DAF
02884  M01S00025.ns2788  +++|          NJN    RDA6        IF UNKNOWN FILE TYPE
02885  M01S00026.ns2788  +++|          LDD    RS
02886  M01S00027.ns2788  +++|          ZJN    RDA5.1      IF NOT RECOVERY DEADSTART
02887  M01S00028.ns2788  +++|          RJM    VFR         VERIFY FILE FOR RECOVERY DEADSTART
02888  M01S00029.ns2788  +++|          UJN    RDA7        PROCESS NEXT TRACK
02889  M01S00030.ns2788  +++|
02890  M01S00031.ns2788  +++| RDA5.1   LDD    CN          CHECK FILE TYPE
02891  M01S00032.ns2788  +++|          NJN    RDA5.2      IF NOT QUEUED FILE
02892  M01S00033.ns2788  +++|          RJM    CQF         CREATE QUEUED FILE ENTRY
02893  M01S00034.ns2788  +++|          UJN    RDA7        PROCESS NEXT TRACK
02894  M01S00035.ns2788  +++|
02895  M01S00036.ns2788  +++| RDA5.2   LMN    PMFT        CHECK FILE TYPE
02896  M01S00037.ns2788  +++|          ZJN    RDA9        IF DIRECT ACCESS PERMANENT FILE
02897  M01S02599.msm     +++|          LMN    FAFT&PMFT
02898  M01S02600.msm     +++|          ZJN    RDA9        IF FAST ATTACH FILE
02899  M01S02601.msm     +++|          LJM    RDA10       PROCESS SPECIAL PRESERVED FILE
02900  M01S02602.msm     +++|
02901  M01S02603.msm     +++| RDA6     RJM    IEM         ISSUE ERROR LOG MESSAGE
02902  M01S02604.msm     +++| RDA7     LJM    RDA2        PROCESS NEXT TRACK
02903  M01S02605.msm     +++|
02904  M01S02606.msm     +++|*         RELEASE FILE.
02905  M01S02607.msm     +++|
02906  M01S02608.msm     +++| RDA8     ENDMS
02907  M01S02609.msm     +++|          LDD    T5          DROP TRACK CHAIN FOR FILE
02908  M01S02610.msm     +++|          LMC    4000        ADD CHECKPOINT REQUEST
02909  M01S02611.msm     +++|          STD    CM+1
02910  M01S02612.msm     +++|          LDD    T6
02911  M01S02613.msm     +++|          STD    CM+2
02912  M01S02614.msm     +++|          MONITOR DTKM
02913  M01S02615.msm     +++|          UJN    RDA7
02914  M01S02616.msm     +++|
02915  M01S02617.msm     +++|*         PROCESS PERMANENT FILES.
02916  M01S02618.msm     +++|
02917  M01S02619.msm     +++| RDA9     LDM    CASS        CHECK FILE ACCESS
02918  M01S02620.msm     +++|*         UJN    RDA7        (8-WORD PFC DEVICE)
02919  M01S02621.msm     +++| RDAG     EQU    RDA9
Line S02622 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02920  M02S02622.ns2788  ---|          STD    CN+1
02921  M01S00038.ns2788  +++|          STD    CN+1        SET SYSTEM SECTOR REWRITE STATUS
02922  M01S02623.msm     +++|          SHN    21-5
02923  M01S02624.msm     +++|          MJN    RDA8        IF PURGE FLAG SET
02924  M01S02625.msm     +++|          SHN    5-4
02925  M01S02626.msm     +++|          MJN    RDA11       IF FILE CAN BE SHORTENED
02926  M01S02627.msm     +++|          LDM    UCSS+1
02927  M01S02628.msm     +++|          ADM    UCSS+2
02928  M01S02629.msm     +++|          ADM    UCSS+3
02929  M01S02630.msm     +++|          ADM    UCSS+4
02930  M01S02631.msm     +++|          ADM    FISS
02931  M01S02632.msm     +++|          RAD    CN+1        SET SYSTEM SECTOR REWRITE STATUS
02932  M01S02633.msm     +++| RDA10    RJM    VFL         VERIFY FILE LENGTH
Line S02634 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02933  M02S02634.ns2788  ---|          ZJN    RDA13       IF NO LENGTH ERROR
02934  M01S00039.ns2788  +++|          ZJN    RDA12       IF NO LENGTH ERROR
02935  M01S02635.msm     +++| RDA11    RJM    RDC         READ DISK CHAIN
Line S02636 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02936  M02S02636.ns2788  ---|          PJN    RDA12       IF NO DISK ERROR BEFORE EOI
Line S02637 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02937  M02S02637.ns2788  ---|          LJM    RDA6        ISSUE ERROR LOG MESSAGE
02938  M01S00040.ns2788  +++|          ZJN    RDA12       IF NO LENGTH/LINKAGE/DISK ERROR
02939  M01S00041.ns2788  +++|          RJM    CFL         CHANGE FILE LENGTH
02940  M01S00042.ns2788  +++|          LDD    CN
02941  M01S00043.ns2788  +++|          LMN    LIFT
02942  M01S00044.ns2788  +++|          ZJN    RDA15       IF LIBRARY TYPE FILE
02943  M01S00045.ns2788  +++|          UJN    RDA13       ISSUE FILE ERROR MESSAGE
02944  M01S02638.msm     +++|
Line S02639 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02945  M02S02639.ns2788  ---| RDA12    ZJN    RDA13       IF EOI ON DISK MATCHES EOI IN TRT
Line S00005 Modification History
M01 (Added by) msm46
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02946  M02S00005.ns2788  ---|          LDD    CN
Line S00006 Modification History
M01 (Added by) msm46
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02947  M02S00006.ns2788  ---|          LMN    LIFT
Line S00007 Modification History
M01 (Added by) msm46
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02948  M02S00007.ns2788  ---|          ZJN    RDA12.1     IF LIBRARY TYPE FILE
Line S02640 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02949  M02S02640.ns2788  ---|          RJM    PFE
Line S02641 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02950  M02S02641.ns2788  ---|          NJP    RDB3        IF *NOGO* FOR RECOVERY
Line S02642 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
M03 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02951  M03S02642.ns2788  ---|          RJM    CFL         CHANGE FILE LENGTH
Line S00008 Modification History
M01 (Added by) msm46
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02952  M02S00008.ns2788  ---| RDA12.1  RJM    CFL         CHANGE FILE LENGTH
Line S02643 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02953  M02S02643.ns2788  ---| RDA13    LDD    FS+1
02954  M01S00046.ns2788  +++| RDA12    LDD    FS+1
02955  M01S02644.msm     +++|          LMM    SBUF+FTEI
Line S02645 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02956  M02S02645.ns2788  ---|          NJN    RDB2        IF BOI/EOI ERROR
02957  M01S00047.ns2788  +++|          ZJN    RDA14       IF NO BOI/EOI ERROR
02958  M01S00048.ns2788  +++| RDA13    RJM    PFE         ISSUE FILE ERROR MESSAGE
02959  M01S02646.msm     +++| RDA14    RJM    CTU         CLEAR USER COUNTS
Line S02647 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02960  M02S02647.ns2788  ---|          ENDMS
Line S02648 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02961  M02S02648.ns2788  ---| RDA15    LJM    RDA2        LOOP FOR NEXT TRACK
02962  M01S00049.ns2788  +++| RDA15    ENDMS
02963  M01S00050.ns2788  +++|          LJM    RDA2        LOOP FOR NEXT TRACK
02964  M01S02649.msm     +++|
Line S02650 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02965  M02S02650.ns2788  ---| RDB      CON    0           ENTRY ON RECOVERY DEADSTART
Line S02651 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02966  M02S02651.ns2788  ---|          ENDMS
Line S02652 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02967  M02S02652.ns2788  ---|          LDD    CN
Line S02653 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02968  M02S02653.ns2788  ---|          NJN    RDB1        IF NOT QUEUED FILE
Line S02654 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02969  M02S02654.ns2788  ---|          LDM    FLSS
Line S02655 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02970  M02S02655.ns2788  ---|          SHN    21-13
Line S02656 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02971  M02S02656.ns2788  ---|          MJN    RDA15       IF LENGTH ERROR
Line S02657 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02972  M02S02657.ns2788  ---| RDB1     RJM    VTC         VERIFY TRACK CHAIN
Line S02658 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02973  M02S02658.ns2788  ---|          NJN    RDB2        IF ERROR IN TRT CHAIN
Line S02659 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02974  M02S02659.ns2788  ---|          RJM    VFL         VERIFY FILE LENGTH
Line S02660 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02975  M02S02660.ns2788  ---|          STD    CN+1
Line S02661 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02976  M02S02661.ns2788  ---|          ZJN    RDA13       IF NOT LENGTH ERROR
Line S00001 Modification History
M01 (Added by) msm38
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02977  M02S00001.ns2788  ---|          LDD    CN
Line S00002 Modification History
M01 (Added by) msm38
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02978  M02S00002.ns2788  ---|          LMN    LIFT
Line S00003 Modification History
M01 (Added by) msm38
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02979  M02S00003.ns2788  ---|          ZJN    RDA15       IF A LIBRARY FILE TYPE
Line S02662 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02980  M02S02662.ns2788  ---| RDB2     LDN    0           ISSUE ERROR MESSAGE
Line S02663 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02981  M02S02663.ns2788  ---|          RJM    PFE
Line S02664 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02982  M02S02664.ns2788  ---| RDB3     LDN    0
Line S02665 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02983  M02S02665.ns2788  ---|          STM    PQIC        CLEAR QUEUED FILE INDICATORS
Line S02666 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02984  M02S02666.ns2788  ---|          STD    QT
Line S02667 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02985  M02S02667.ns2788  ---|          LDN    ZERL
Line S02668 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02986  M02S02668.ns2788  ---|          CRM    IDMA,ON
Line S02669 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02987  M02S02669.ns2788  ---|          RJM    TQF         RELEASE *IQFT* IF PRESENT
Line S02670 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02988  M02S02670.ns2788  ---|          LDC    RDAI+NMSN   SEND ERROR IDLE MESSAGES
Line S02671 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02989  M02S02671.ns2788  ---|          RJM    DFM
Line S02672 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02990  M02S02672.ns2788  ---|          LDC    RDAI+ERLN
Line S02673 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02991  M02S02673.ns2788  ---|          RJM    DFM
Line S02674 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02992  M02S02674.ns2788  ---|          SMSTF  GDEI        SET DEVICE ERROR IDLE STATUS
Line S02675 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02993  M02S02675.ns2788  ---|          LDN    STEI
Line S02676 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02994  M02S02676.ns2788  ---|          RJM    SES
Line S02677 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02995  M02S02677.ns2788  ---|          CMSTF  LCKP        CLEAR POSSIBLE CHECKPOINT REQUEST
Line S02678 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
02996  M02S02678.ns2788  ---|          LJM    RDA4        RELEASE INTERLOCK AND EXIT
02997  M01S02679.msm     +++|
02998  M01S02680.msm     +++| RDAC     DATA   H*RECOVER EQ*
02999  M01S02681.msm     +++| RDAD     DATA   6HXXX, A
03000  M01S02682.msm     +++| RDAE     DATA   4HNNNN
03001  M01S02683.msm     +++| RDAF     CON    0
03002  M01S02684.msm     +++|          DATA   C*F RECOVERY ERROR.*
03003  M01S02685.msm     +++|
03004  M01S02686.msm     +++| RDAH     BSS    0           TABLE OF INSTRUCTIONS TO PLUG
03005  M01S02687.msm     +++|          LOC    RDAG
03006  M01S02688.msm     +++|          UJN    RDA7
03007  M01S02689.msm     +++|          LOC    *O
03008  M01S02690.msm     +++|          CON    LDMI
03009  M01S02691.msm     +++|
03010  M01S02692.msm     +++| RDAI     DATA   C*EQXXX, ERROR IDLE SET.*
03011  M01S00008.msm41   +++|
03012  M01S00009.msm41   +++| RDAJ     DATA   C*EQXXX, PRESERVED FILE RECOVERY INITIATED.*
03013  M01S02693.msm     +++|          TITLE  SUBROUTINES.
Line S02694 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03014  M02S02694.msm48   ---| BAD      SPACE  4
Line S02695 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03015  M02S02695.msm48   ---|**        BAD - COMPUTE IQFT BUFFER ADDRESS.
Line S02696 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03016  M02S02696.msm48   ---|*
Line S02697 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03017  M02S02697.msm48   ---|*         ENTRY  (BADA) = RA IF *REC* CALL.
Line S02698 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03018  M02S02698.msm48   ---|*
Line S02699 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03019  M02S02699.msm48   ---|*         EXIT   (A) = IQFT BUFFER ADDRESS.
Line S02700 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03020  M02S02700.msm48   ---|
Line S02701 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03021  M02S02701.msm48   ---|
Line S02702 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03022  M02S02702.msm48   ---| BAD      SUBR               ENTRY/EXIT
Line S02703 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03023  M02S02703.msm48   ---|          LDC    **
Line S02704 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03024  M02S02704.msm48   ---| BADA     EQU    *-1
Line S02705 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03025  M02S02705.msm48   ---|          NJN    BAD1        IF REC CALL
Line S02706 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03026  M02S02706.msm48   ---|          LDD    RA
Line S02707 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03027  M02S02707.msm48   ---| BAD1     SHN    6
Line S02708 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03028  M02S02708.msm48   ---|          ADD    CR          FWA OF IQFT BUFFER
Line S02709 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03029  M02S02709.msm48   ---|          UJN    BADX
03030  M01S02710.msm     +++| CFL      SPACE  4,15
03031  M01S02711.msm     +++|**        CFL - CHANGE FILE LENGTH.
03032  M01S02712.msm     +++|*
03033  M01S02713.msm     +++|*         ENTRY  (T6) = TRACK FOR EOI.
03034  M01S02714.msm     +++|*                (T7) = SECTOR FOR EOI.
03035  M01S02715.msm     +++|*                (CN) = FILE TYPE.
03036  M01S00051.ns2788  +++|*                (FS+4) = 0, IF EOI REWRITE REQUIRED.
03037  M01S02716.msm     +++|*                (BFMS) LOADED WITH SYSTEM SECTOR.
03038  M01S02717.msm     +++|*
03039  M01S02718.msm     +++|*         EXIT   EOI IN TRT CHANGED.
03040  M01S00052.ns2788  +++|*                EOI REWRITTEN, IF (FS+4) = 0.
03041  M01S02719.msm     +++|*                ERROR FLAG SET IN SYSTEM SECTOR CATALOG IMAGE.
03042  M01S00053.ns2788  +++|*                (CN+1) NONZERO (SYSTEM SECTOR REWRITE FLAG).
03043  M01S02720.msm     +++|*
03044  M01S02721.msm     +++|*         USES   CM - CM+4.
03045  M01S02722.msm     +++|*
Line S02723 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03046  M02S02723.ns2788  ---|*         CALLS  CLF.
03047  M01S00054.ns2788  +++|*         CALLS  CLF, WEI.
03048  M01S02724.msm     +++|
03049  M01S02725.msm     +++|
03050  M01S02726.msm     +++| CFL      SUBR               ENTRY/EXIT
03051  M01S02727.msm     +++|          RJM    CLF         CHANGE LENGTH OF FILE IN TRT
Line S02728 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03052  M02S02728.ns2788  ---|          LDD    CN          CHECK FILE TYPE
03053  M01S00055.ns2788  +++|          LDD    FS+4
03054  M01S00056.ns2788  +++|          NJN    CFL1        IF NO REWRITE OF EOI REQUIRED
03055  M01S00057.ns2788  +++|          LDD    MA          COPY FNT/FST FROM SYSTEM SECTOR TO EOI
03056  M01S00058.ns2788  +++|          CWM    FNSS,TW
03057  M01S00059.ns2788  +++|          SBN    2
03058  M01S00060.ns2788  +++|          CRM    SBUF+FNEI,TW
03059  M01S00061.ns2788  +++|          RJM    WEI         WRITE EOI
03060  M01S00062.ns2788  +++| CFL1     LDD    CN          CHECK FILE TYPE
03061  M01S02729.msm     +++|          LMN    LIFT
03062  M01S02730.msm     +++|          ZJN    CFLX        IF LIBRARY FILE
03063  M01S02731.msm     +++|          LDM    CTSS+FCEC   SET ERROR FLAG IN SYSTEM SECTOR
03064  M01S02732.msm     +++|          LPC    7077
03065  M01S02733.msm     +++|          LMC    400
03066  M01S02734.msm     +++|          STM    CTSS+FCEC
03067  M01S00063.ns2788  +++|          AOD    CN+1        SET SYSTEM SECTOR REWRITE STATUS
03068  M01S02735.msm     +++|          UJN    CFLX        RETURN
03069  M01S02736.msm     +++| CPS      SPACE  4,10
03070  M01S02737.msm     +++|**        CPS - CHECK PFC SIZE.
03071  M01S02738.msm     +++|*
03072  M01S02739.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03073  M01S02740.msm     +++|*
03074  M01S02741.msm     +++|*         CALLS  DFM, SES.
03075  M01S02742.msm     +++|*
03076  M01S02743.msm     +++|*         MACROS CMSTF, SMSTF.
03077  M01S02744.msm     +++|
03078  M01S02745.msm     +++|
03079  M01S02746.msm     +++| CPS      SUBR               ENTRY/EXIT
03080  M01S02747.msm     +++|          LDC    *
03081  M01S02748.msm     +++|*         LDC    0           (8-WORD PFC DEVICE)
03082  M01S02749.msm     +++| CPSA     EQU    *-1
03083  M01S02750.msm     +++|          NJN    CPSX        IF NOT 8-WORD PFC DEVICE
03084  M01S02751.msm     +++|          LDC    CPSB        ISSUE DAYFILE MESSAGE
03085  M01S02752.msm     +++|          RJM    DFM
03086  M01S02753.msm     +++|          LDC    CPSB+ERLN   ISSUE MESSAGE TO ERROR LOG
03087  M01S02754.msm     +++|          RJM    DFM
03088  M01S02755.msm     +++|          SMSTF  GDEI        SET GLOBAL ERROR IDLE FLAG
03089  M01S02756.msm     +++|          LDN    STCS        SET PF CATALOG SIZE ERROR STATUS
03090  M01S02757.msm     +++|          RJM    SES
03091  M01S02758.msm     +++|          CMSTF  LCKP        CLEAR POSSIBLE CHECKPOINT
03092  M01S02759.msm     +++|          UJN    CPSX        RETURN
03093  M01S02760.msm     +++|
03094  M01S02761.msm     +++| CPSB     DATA   C*EQXXX, PF CATALOG SIZE ERROR.*
Line S02762 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03095  M02S02762.ns2669  ---| CQF      SPACE  4,16
03096  M01S00001.ns2669  +++| CQF      SPACE  4,20
03097  M01S02763.msm     +++|**        CQF - CREATE QUEUED FILE ENTRY.
03098  M01S02764.msm     +++|*
03099  M01S02765.msm     +++|*         CQF CREATES THE ENTRY REPRESENTING A QUEUED FILE IN
03100  M01S02766.msm     +++|*         THE INACTIVE QUEUED FILE LIST.
03101  M01S02767.msm     +++|*
Line S02768 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03102  M02S02768.ns2669  ---|*
Line S02769 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03103  M02S02769.ns2788  ---|*         ENTRY  (A) = 0 IF QUEUE FILE.
Line S02770 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03104  M02S02770.ns2788  ---|*                (BFMS) = SYSTEM SECTOR.
03105  M01S00064.ns2788  +++|*         ENTRY  (BFMS) = SYSTEM SECTOR.
03106  M01S02771.msm     +++|*                (CQFA) = 0 IF NOT *IQFT* SPACE AVAILABLE.
03107  M01S02772.msm     +++|*
Line S02773 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03108  M02S02773.ns2788  ---|*         EXIT   (A) .LT. 0 NOT A QUEUED FILE.
Line S02774 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03109  M02S02774.ns2788  ---|*                (A) = 0 QUEUED FILE RECOVERED.
03110  M01S00065.ns2788  +++|*         EXIT   *IQFT* ENTRY CREATED, IF QUEUE FILE RECOVERED.
03111  M01S02775.msm     +++|*
Line S02776 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03112  M02S02776.ns2669  ---|*         USES   T2, CM - CM+4, QI.
03113  M01S00002.ns2669  +++|*         USES   QI, T1, T6, CM - CM+4.
03114  M01S02777.msm     +++|*
Line S02778 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03115  M02S02778.ns2669  ---|*         CALLS  IQF, PFE, RSS, VFL, WEI, WQF, WSS.
Line S00003 Modification History
M01 (Added by) ns2669
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03116  M02S00003.msm48   ---|*         CALLS  BAD, IQF, PFE, RSS, VFL, WEI, WQF, WSR.
03117  M01S00037.msm48   +++|*         CALLS  IQF, PFE, RSS, VFL, WEI, WQF, WSR.
03118  M01S02779.msm     +++|*
03119  M01S02780.msm     +++|*         MACROS FILEREC, SETMS.
Line S02781 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03120  M02S02781.ns2669  ---|
03121  M01S02782.msm     +++|
03122  M01S02783.msm     +++|
03123  M01S02784.msm     +++| CQF7     AOM    PQIC        ADVANCE QUEUE FILE IGNORED COUNT
Line S02785 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03124  M02S02785.ns2788  ---|          LDN    0
03125  M01S02786.msm     +++|
03126  M01S02787.msm     +++| CQF      SUBR               ENTRY/EXIT
Line S02788 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03127  M02S02788.ns2788  ---|          NJN    CQFX        IF NOT QUEUE FILE
03128  M01S02789.msm     +++|          LDC    1
03129  M01S02790.msm     +++| CQFA     EQU    *-1
03130  M01S02791.msm     +++|          ZJN    CQF7        IF NO SPACE FOR/ON *IQFT*
03131  M01S02792.msm     +++| CQFC     LDN    0
03132  M01S02793.msm     +++|*         LDN    1           (QUEUE FILE PROCESSING INITIATED)
03133  M01S02794.msm     +++|          NJN    CQF2        IF QUEUE FILE PROCESSING INITIATED
03134  M01S02795.msm     +++|          RJM    IQF         INITIALIZE *IQFT*
03135  M01S02796.msm     +++|          STM    CQFA
03136  M01S02797.msm     +++|          ZJN    CQF7        IF TRACK UNAVAILABLE FOR *IQFT*
03137  M01S02798.msm     +++|          LDD    FS+1        REREAD THE QUEUE FILE SYSTEM SECTOR
03138  M01S02799.msm     +++|          STD    T6
03139  M01S02800.msm     +++|          SETMS  POSITION
03140  M01S02801.msm     +++|*         LDN    0           READ SYSTEM SECTOR
03141  M01S02802.msm     +++|          RJM    RSS
03142  M01S02803.msm     +++|          AOM    CQFC
03143  M01S02804.msm     +++|          STM    TQFA
03144  M01S02805.msm     +++| CQF2     RJM    VFL         VERIFY FILE LENGTH
03145  M01S02806.msm     +++|          NJN    CQF4        IF LENGTH ERROR
Line S02807 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03146  M02S02807.ns2788  ---|          AOM    PMRC        ADVANCE QUEUED FILE RECOVERY COUNT
03147  M01S02808.msm     +++|          LDM    DTSS
03148  M01S02809.msm     +++|          NJN    CQF3        IF ENHANCED EOI INDICATED
03149  M01S00066.ns2788  +++|          LDD    MA          COPY FNT/FST FROM SYSTEM SECTOR TO EOI
03150  M01S00067.ns2788  +++|          CWM    FNSS,TW
03151  M01S00068.ns2788  +++|          SBN    2
03152  M01S00069.ns2788  +++|          CRM    SBUF+FNEI,TW
03153  M01S02810.msm     +++|          RJM    WEI         REWRITE EOI
Line S02811 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03154  M02S02811.ns2788  ---|          LDD    FS+1        RESET SYSTEM SECTOR ADDRESS
Line S02812 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03155  M02S02812.ns2788  ---|          STM    SBUF+FTEI
03156  M01S00070.ns2788  +++|          UJN    CQF5        ADVANCE RECOVERY COUNT
03157  M01S00071.ns2788  +++|
03158  M01S02813.msm     +++| CQF3     LDD    FS+1        VERIFY BOI/EOI
03159  M01S02814.msm     +++|          STD    T6
03160  M01S02815.msm     +++|          LMM    SBUF+FTEI
03161  M01S02816.msm     +++|          ZJN    CQF5        IF VERIFY GOOD
Line S02817 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03162  M02S02817.ns2788  ---|          SOM    PMRC        DECREMENT QUEUED FILE RECOVERY COUNT
03163  M01S02818.msm     +++| CQF4     LCN    0           SET LENGTH ERROR
03164  M01S02819.msm     +++|          STM    FLSS
03165  M01S02820.msm     +++|          STM    FLSS+1
03166  M01S02821.msm     +++|          RJM    PFE         ISSUE ERROR MESSAGE
Line S02822 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03167  M02S02822.ns2788  ---|          ZJN    CQF5        IF OPERATOR NOT SELECTING ERROR IDLE
Line S02823 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03168  M02S02823.ns2788  ---|          LJM    RDB3        SET ERROR IDLE
03169  M01S00072.ns2788  +++|          LJM    CQF7        IGNORE THIS FILE AND RETURN
03170  M01S02824.msm     +++|
Line S02825 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03171  M02S02825.ns2788  ---| CQF5     LDM    FGSS        SET INACTIVE QUEUE FILE STATUS
03172  M01S00073.ns2788  +++| CQF5     AOM    PMRC        ADVANCE QUEUED FILE RECOVERY COUNT
03173  M01S00074.ns2788  +++|          LDM    FGSS        SET INACTIVE QUEUE FILE STATUS
03174  M01S02826.msm     +++|          SCN    2
03175  M01S02827.msm     +++|          STM    FGSS
03176  M01S02828.msm     +++|          LDD    FS+1        RESET SYSTEM SECTOR ADDRESS
Line S02829 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03177  M02S02829.ns2669  ---|          STD    T6
Line S02830 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03178  M02S02830.ns2669  ---|          SETMS  POSITION
Line S02831 Modification History
M01 (Added by) msm
M02 (Updated by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03179  M02S02831.ns2669  ---|          RJM    WSS         REWRITE SYSTEM SECTOR
03180  M01S00004.ns2669  +++|          RJM    WSR         WRITE SYSTEM SECTOR WITH REWRITE
03181  M01S02832.msm     +++|
03182  M01S02833.msm     +++|*         ENTER THIS FILE IN *IQFT* BUFFER IN CM.
03183  M01S02834.msm     +++|
03184  M01S02835.msm     +++|          LDM    FLSS+1      INSERT FILE LENGTH
03185  M01S02836.msm     +++|          STM    CDSS+1
03186  M01S02837.msm     +++|          LDM    FLSS
03187  M01S02838.msm     +++|          STM    CDSS
03188  M01S02839.msm     +++|          LDD    T5          SET EST ORDINAL
03189  M01S02840.msm     +++|          STM    IOSS+5*ENTQ
03190  M01S02841.msm     +++|          LDN    10          MAXIMUM QFT ENTRY LENGTH
03191  M01S02842.msm     +++|          STD    T1
03192  M01S02843.msm     +++|          LDM    RMSS        USE THE RESIDENT MACHINE ID FOR RECOVERY
03193  M01S02844.msm     +++|          STM    FMSS+4
Line S02845 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03194  M02S02845.msm48   ---|          RJM    BAD         GET CM BUFFER ADDRESS
03195  M01S00038.msm48   +++|          LDD    RA
03196  M01S00039.msm48   +++|          SHN    6
03197  M01S00040.msm48   +++|          ADD    CR          FWA OF IQFT BUFFER
03198  M01S02846.msm     +++|          ADD    QI
03199  M01S02847.msm     +++|          CWM    IOSS,T1     QFT ENTRY
03200  M01S02848.msm     +++|          CWM    CDSS,ON     DATE, TIME AND FILE LENGTH IN SECTORS
03201  M01S02849.msm     +++|          CWM    FMSS,ON     WRITE FAMILY NAME
03202  M01S02850.msm     +++|          CWM    FDSS,ON     DESTINATION FAMILY NAME
03203  M01S02851.msm     +++|          CWM    OASS,ON     OWNER USER NAME, USER INDEX
03204  M01S02852.msm     +++|          CWM    FOSS,ON     OWNER FAMILY NAME
03205  M01S02853.msm     +++|          LDN    QFEWL       QUEUED FILE ENTRY WORD COUNT
03206  M01S02854.msm     +++|          RAD    QI          ADVANCE BUFFER POINTER
03207  M01S02855.msm     +++|          SHN    -6          WORDS/PRU (0-77)
03208  M01S02856.msm     +++|          ZJN    CQF6        IF NOT FULL SECTOR
03209  M01S02857.msm     +++|          RJM    WQF         WRITE QUEUED FILE SECTOR
Line S02858 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03210  M02S02858.ns2788  ---|          LDN    0
03211  M01S02859.msm     +++| CQF6     LJM    CQFX        RETURN
03212  M01S02860.msm     +++|
03213  M01S02861.msm     +++|
03214  M01S02862.msm     +++|*         QUEUED FILE RECOVERY TABLE. (RDAT)
03215  M01S02863.msm     +++|
03216  M01S00075.ns2788  +++|          LIST   G
03217  M01S02864.msm     +++|          FILEREC
03218  M01S00076.ns2788  +++|          LIST   *
03219  M01S02865.msm     +++|          CON    PMFT+100
03220  M01S02866.msm     +++|          CON    FAFT+100
03221  M01S02867.msm     +++|          CON    LIFT+100
03222  M01S02868.msm     +++| RDATBL   EQU    *-RDAT
Line S02869 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03223  M02S02869.ns2788  ---| CUS      SPACE  4,10
03224  M01S00077.ns2788  +++| CUS      SPACE  4,15
03225  M01S02870.msm     +++|**        CUS - CLEAR UNAVAILABLE STATUS.
03226  M01S02871.msm     +++|*
03227  M01S02872.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03228  M01S02873.msm     +++|*                (FN - FN+4) = EST ENTRY.
03229  M01S02874.msm     +++|*
03230  M01S02875.msm     +++|*         USES   T1, T3, T6, T7, CM - CM+4.
03231  M01S02876.msm     +++|*
Line S02877 Modification History
M01 (Added by) msm
M02 (Updated by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
03232  M02S02877.ns2547  ---|*         CALLS  RDS, SDA, SMI, WDS.
03233  M01S00002.ns2547  +++|*         CALLS  CDC, RDS, SDA, SMI, WDS.
03234  M01S02878.msm     +++|*
03235  M01S02879.msm     +++|*         MACROS DELAY, ENDMS, PAUSE, SETMS.
03236  M01S02880.msm     +++|
03237  M01S02881.msm     +++|
03238  M01S02882.msm     +++| CUS6     LDD    RS          CHECK RECOVERY STATUS
03239  M01S02883.msm     +++|          LPN    FLMK
03240  M01S02884.msm     +++|          LMN    FLCM
03241  M01S02885.msm     +++|          ZJN    CUSX        IF CM RECOVERY
03242  M01S02886.msm     +++|          RJM    SDA         SET DEVICE AVAILABLE
03243  M01S02887.msm     +++|
03244  M01S02888.msm     +++| CUS      SUBR               ENTRY/EXIT
03245  M01S02889.msm     +++|          LDD    FN
03246  M01S02890.msm     +++|          LPN    20
03247  M01S02891.msm     +++|          ZJN    CUS6        IF NOT INDEPENDENT SHARED DEVICE
03248  M01S02892.msm     +++|          SETMS  IO,(DE,DF,NS)
03249  M01S02893.msm     +++|          LDN    FN+1        PRESET ERROR RETRY STATUS
03250  M01S02894.msm     +++|          STD    T3
03251  M01S02895.msm     +++|          LDD    FN+4        SET LABEL TRACK
03252  M01S02896.msm     +++|          SHN    3
03253  M01S02897.msm     +++|          ADN    ALGL
03254  M01S02898.msm     +++|          CRD    CM
03255  M01S02899.msm     +++|          LDD    CM+1
03256  M01S02900.msm     +++|          STD    T6
03257  M01S02901.msm     +++|          LDN    0
03258  M01S02902.msm     +++|          STD    T7
03259  M01S02903.msm     +++| CUS1     LDC    BFMS        READ LABEL FOR *DIT*
03260  M01S02904.msm     +++|          RJM    RDS
03261  M01S02905.msm     +++|          MJN    CUS3        IF READ ERROR
03262  M01S02906.msm     +++|          LDM    N4SS+5*SDGL+4
03263  M01S02907.msm     +++|          LPN    77
03264  M01S02908.msm     +++|          SHN    -1
03265  M01S02909.msm     +++|          ZJN    CUS5        IF SOFTWARE INTERLOCK NOT SET
Line S02910 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03266  M02S02910.msm48   ---|          LDD    CP
03267  M01S00041.msm48   +++| CUSA     LDD    CP
03268  M01S00042.msm48   +++|*         LDD    CF          (*1RF* CALL)
03269  M01S02911.msm     +++|          ADN    MS2W
03270  M01S02912.msm     +++|          CWM    CUSB,TR     *WAITING FOR INTERLOCK.*
03271  M01S02913.msm     +++| CUS2     ENDMS
03272  M01S02914.msm     +++|          DELAY
03273  M01S02915.msm     +++|          PAUSE
03274  M01S02916.msm     +++|          LDD    CM+1        CHECK ERROR FLAG
03275  M01S02917.msm     +++|          LMN    ORET
03276  M01S02918.msm     +++|          NJN    CUS1        IF NOT OPERATOR OVERRIDE
03277  M01S02919.msm     +++| CUS3     AOD    T3
03278  M01S02920.msm     +++|          LMN    FN+3
03279  M01S02921.msm     +++|          ZJN    CUS4        IF BOTH CHANNELS TRIED
03280  M01S02922.msm     +++|          LDI    T3
03281  M01S02923.msm     +++|          NJN    CUS2        IF ANOTHER CHANNEL PRESENT
03282  M01S02924.msm     +++| CUS4     ENDMS
03283  M01S02925.msm     +++|          LJM    RDAX        EXIT
03284  M01S02926.msm     +++|
03285  M01S02927.msm     +++| CUS5     RJM    SMI         CALCULATE *DIT* ENTRY ADDRESS
03286  M01S02928.msm     +++|          STD    T1
03287  M01S02929.msm     +++|          SHN    2
03288  M01S02930.msm     +++|          ADC    //DISS-5+3
03289  M01S02931.msm     +++|          RAD    T1
03290  M01S02932.msm     +++|          LDI    T1          CLEAR DIT INTERLOCK
03291  M01S02933.msm     +++|          SCN    1
03292  M01S02934.msm     +++|          STI    T1
03293  M01S00003.ns2547  +++|          RJM    CDC         COMPUTE LABEL CHECKSUM
03294  M01S00004.ns2547  +++|          STM    CKSS
03295  M01S02935.msm     +++|          LDC    BFMS+WLSF   REWRITE LABEL
03296  M01S02936.msm     +++|          RJM    WDS
03297  M01S02937.msm     +++|          MJN    CUS4        IF WRITE ERROR
03298  M01S02938.msm     +++|          ENDMS
03299  M01S02939.msm     +++|          LJM    CUS6        SET DEVICE AVAILABLE
03300  M01S02940.msm     +++|
03301  M01S02941.msm     +++|
03302  M01S02942.msm     +++| CUSB     DATA   C*WAITING FOR INTERLOCK.*
Line S02943 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03303  M02S02943.ns2788  ---| IEM      SPACE  4
03304  M01S00078.ns2788  +++| IEM      SPACE  4,15
03305  M01S02944.msm     +++|**        IEM - ISSUE ERROR LOG MESSAGE.
03306  M01S02945.msm     +++|*
03307  M01S02946.msm     +++|*         ENTRY  (T4) = CHANNEL NUMBER.
03308  M01S02947.msm     +++|*                (CN) = FILE TYPE.
03309  M01S02948.msm     +++|*
03310  M01S02949.msm     +++|*         EXIT   ERROR COUNT (PMPC) ADVANCED.
03311  M01S02950.msm     +++|*
03312  M01S02951.msm     +++|*         CALLS  DFM.
03313  M01S02952.msm     +++|*
03314  M01S02953.msm     +++|*         MACROS ENDMS.
03315  M01S02954.msm     +++|
03316  M01S02955.msm     +++|
03317  M01S02956.msm     +++| IEM      SUBR               ENTRY/EXIT
03318  M01S02957.msm     +++|          LDD    CN
03319  M01S02958.msm     +++|          LMN    SYFT
03320  M01S02959.msm     +++|          ZJN    IEMX        IF SYSTEM FILE
03321  M01S02960.msm     +++|          AOM    PMPC        ADVANCE ERROR COUNT
03322  M01S02961.msm     +++|          LDC    2R P
03323  M01S02962.msm     +++|          STM    RDAF
03324  M01S02963.msm     +++|          ENDMS              RELEASE CHANNEL
03325  M01S02964.msm     +++|          LDC    ERLN+RDAD-1 ISSUE MESSAGE TO ERROR LOG
03326  M01S02965.msm     +++|          RJM    DFM
03327  M01S02966.msm     +++|*         LDN    0           CLEAR END OF CP MESSAGE
03328  M01S02967.msm     +++|          STM    RDAF
03329  M01S02968.msm     +++|          UJN    IEMX        RETURN
03330  M01S02969.msm     +++| IQF      SPACE  4,15
03331  M01S02970.msm     +++|**        IQF - INITIALIZE *IQFT*.
03332  M01S02971.msm     +++|*
03333  M01S02972.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03334  M01S02973.msm     +++|*
03335  M01S02974.msm     +++|*         EXIT   (A) = 0 IF TRACK UNAVAILABLE FOR *IQFT*.
03336  M01S02975.msm     +++|*                (QF) = (QT) = FIRST TRACK OF *IQFT*.
03337  M01S02976.msm     +++|*                (QS) = FIRST SECTOR OF *IQFT*.
03338  M01S02977.msm     +++|*                (QI) = 0.
03339  M01S02978.msm     +++|*
03340  M01S02979.msm     +++|*         USES   T3, CM - CM+4.
03341  M01S02980.msm     +++|*
Line S02981 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03342  M02S02981.msm48   ---|*         CALLS  BAD, DFM, WSS.
03343  M01S00043.msm48   +++|*         CALLS  DFM, WSS.
03344  M01S02982.msm     +++|*
03345  M01S02983.msm     +++|*         MACROS ENDMS, MONITOR, SETMS.
03346  M01S02984.msm     +++|
03347  M01S02985.msm     +++|
03348  M01S02986.msm     +++| IQF2     LDC    IQFB        *EQXXX, TRACK LIMIT ON IQFT.*
03349  M01S02987.msm     +++|          RJM    DFM
03350  M01S02988.msm     +++|*         LDN    0
03351  M01S02989.msm     +++|
03352  M01S02990.msm     +++| IQF      SUBR               ENTRY/EXIT
03353  M01S02991.msm     +++|          ENDMS
03354  M01S02992.msm     +++|          LDN    ZERL
03355  M01S02993.msm     +++|          CRD    CM
03356  M01S02994.msm     +++|          LDD    T5          REQUEST *IQFT* TRACK
03357  M01S02995.msm     +++|          STD    CM+1
03358  M01S02996.msm     +++|          MONITOR  RTCM
03359  M01S02997.msm     +++|          LDD    CM+4
03360  M01S02998.msm     +++|          ZJN    IQF2        IF NO TRACK AVAILABLE
03361  M01S02999.msm     +++|          STD    T6
03362  M01S03000.msm     +++|          STD    QF
03363  M01S03001.msm     +++|          STD    QT
03364  M01S03002.msm     +++|          LDC    500
03365  M01S03003.msm     +++|          STD    T3
03366  M01S03004.msm     +++| IQF1     LDN    0           CLEAR SYSTEM SECTOR BUFFER
03367  M01S03005.msm     +++|          STM    BFMS+1,T3
03368  M01S03006.msm     +++|          SOD    T3
03369  M01S03007.msm     +++|          NJN    IQF1        IF NOT START OF BUFFER
03370  M01S03008.msm     +++|          STD    QI
Line S03009 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03371  M02S03009.msm48   ---|          RJM    BAD         CLEAR CM BUFFER
Line S03010 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03372  M02S03010.msm48   ---|          CWM    BFMS,HN
03373  M01S00044.msm48   +++|          LDD    RA
03374  M01S00045.msm48   +++|          SHN    6
03375  M01S00046.msm48   +++|          ADD    CR          FWA OF IQFT BUFFER
03376  M01S00047.msm48   +++|          CWM    BFMS,HN     CLEAR CM BUFFER
03377  M01S03011.msm     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
03378  M01S03012.msm     +++|          CWM    IQFA,ON
03379  M01S03013.msm     +++|          SBN    1
03380  M01S03014.msm     +++|          CRM    FNSS,ON
03381  M01S03015.msm     +++|          SETMS  POSITION
03382  M01S03016.msm     +++|          RJM    WSS         WRITE *IQFT* SYSTEM SECTOR
03383  M01S03017.msm     +++|          LDN    FSMS        SET FIRST *IQFT* SECTOR
03384  M01S03018.msm     +++|          STD    QS
03385  M01S03019.msm     +++|          LJM    IQFX        RETURN
03386  M01S03020.msm     +++|
03387  M01S03021.msm     +++| IQFA     VFD    42/0LQUEUES,6/1,6/SYFT,6/0
03388  M01S03022.msm     +++|
03389  M01S03023.msm     +++| IQFB     DATA   C*EQXXX, TRACK LIMIT ON IQFT.*
03390  M01S03024.msm     +++| PTA      SPACE  4,10
03391  M01S03025.msm     +++|**        PTA - PRESET FIRST WORD ADDRESS OF TRT.
03392  M01S03026.msm     +++|*
03393  M01S03027.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY OF DEVICE.
03394  M01S03028.msm     +++|*
03395  M01S03029.msm     +++|*         USES   CM - CM+4.
03396  M01S03030.msm     +++|
03397  M01S03031.msm     +++|
03398  M01S03032.msm     +++| PTA      SUBR               ENTRY/EXIT
03399  M01S03033.msm     +++|          LDD    FN+4        GET FWA OF TRT
03400  M01S03034.msm     +++|          SHN    3
03401  M01S03035.msm     +++|          ADN    TRLL
03402  M01S03036.msm     +++|          CRD    CM
03403  M01S03037.msm     +++|          LDD    CM+3        SET FWA OF TRT
03404  M01S03038.msm     +++|          LPN    77
03405  M01S03039.msm     +++|          LMC    ADCI
03406  M01S03040.msm     +++|          STM    SPFA-1
03407  M01S03041.msm     +++|          STM    GDEC-1
03408  M01S03042.msm     +++|          LPN    77
03409  M01S03043.msm     +++|          SHN    14
03410  M01S03044.msm     +++|          LMD    CM+4
03411  M01S03045.msm     +++|          STM    SPFA
03412  M01S03046.msm     +++|          STM    GDEC
03413  M01S03047.msm     +++|          SBD    TH
03414  M01S03048.msm     +++|          STM    SEIA+1
03415  M01S03049.msm     +++|          STM    SNTA+1
03416  M01S03050.msm     +++|          SHN    -14
03417  M01S03051.msm     +++|          LMC    ADCI
03418  M01S03052.msm     +++|          STM    SEIA
03419  M01S03053.msm     +++|          STM    SNTA
03420  M01S03054.msm     +++|          UJP    PTAX        RETURN
03421  M01S03055.msm     +++| SFT      SPACE  4,10
03422  M01S03056.msm     +++|**        SFT - SET FILE TYPE.
03423  M01S03057.msm     +++|*
03424  M01S03058.msm     +++|*         ENTRY  (BFMS) = SYSTEM SECTOR.
03425  M01S03059.msm     +++|*
Line S03060 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03426  M02S03060.ns2788  ---|*         EXIT   (A) = (CN) = 0 IF QUEUE FILE.
Line S03061 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03427  M02S03061.ns2788  ---|*                (CN) = FILE TYPE IF NOT QUEUE FILE.
Line S03062 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03428  M02S03062.ns2788  ---|*                TO *RDA6* IF FILE TYPE NOT IN *RDAT* TABLE.
03429  M01S00079.ns2788  +++|*         EXIT   (A) = 0, IF VALID FILE TYPE.
03430  M01S00080.ns2788  +++|*                (CN) = 0, IF QUEUE FILE.
03431  M01S00081.ns2788  +++|*                (CN) = FILE TYPE, IF NOT QUEUE FILE.
03432  M01S03063.msm     +++|*
03433  M01S03064.msm     +++|*         USES   T2.
03434  M01S03065.msm     +++|
03435  M01S03066.msm     +++|
03436  M01S03067.msm     +++| SFT2     LDM    RDAT,T2
03437  M01S03068.msm     +++|          SHN    -6
Line S03069 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03438  M02S03069.ns2788  ---|          NJN    SFTX        IF NOT QUEUED FILE
03439  M01S00082.ns2788  +++|          NJN    SFT3        IF NOT QUEUED FILE
03440  M01S03070.msm     +++|          STD    CN
03441  M01S00083.ns2788  +++| SFT3     LDN    0           RETURN SUCCESSFUL STATUS
03442  M01S03071.msm     +++|
03443  M01S03072.msm     +++| SFT      SUBR               ENTRY/EXIT
03444  M01S03073.msm     +++|          LDN    RDATBL-1    SET TABLE LENGTH
03445  M01S03074.msm     +++|          STD    T2
03446  M01S03075.msm     +++|          LDM    FNSS+4      SET FILE TYPE
03447  M01S03076.msm     +++|          SHN    -6
03448  M01S03077.msm     +++|          STD    CN
03449  M01S03078.msm     +++| SFT1     LDD    CN          CHECK PRESERVED FILE TYPE
03450  M01S03079.msm     +++|          LMM    RDAT,T2
03451  M01S03080.msm     +++|          LPN    77
03452  M01S03081.msm     +++|          ZJN    SFT2        IF FILE TYPE MATCH
03453  M01S03082.msm     +++|          SOD    T2
03454  M01S03083.msm     +++|          PJN    SFT1        IF NOT END OF TABLE
Line S03084 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03455  M02S03084.ns2788  ---|          LJM    RDA6        EXIT FILE TYPE NOT IN TABLE
03456  M01S00084.ns2788  +++|          LDN    1
03457  M01S00085.ns2788  +++|          UJN    SFTX        RETURN ERROR STATUS
03458  M01S03085.msm     +++| SPF      SPACE  4,10
03459  M01S03086.msm     +++|**        SPF - SEARCH FOR PRESERVED FILE.
03460  M01S03087.msm     +++|*
03461  M01S03088.msm     +++|*         ENTRY  (CN+2) = TRT LENGTH.
03462  M01S03089.msm     +++|*                (CN+3) = CURRENT TRACK - 4000.
03463  M01S03090.msm     +++|*
03464  M01S03091.msm     +++|*         EXIT   (A) = (T6) = (FS+1) = FIRST TRACK OF FILE.
03465  M01S03092.msm     +++|*                    = 0 IF END OF TRT (ALL FILES CHECKED).
03466  M01S00086.ns2788  +++|*                (FS+4) NONZERO.
03467  M01S03093.msm     +++|*
03468  M01S03094.msm     +++|*         USES   T1, T2, CM - CM+4.
03469  M01S03095.msm     +++|
03470  M01S03096.msm     +++|
03471  M01S03097.msm     +++| SPF      SUBR               ENTRY/EXIT
03472  M01S00087.ns2788  +++|          LDN    1           ENSURE (FS+4) NONZERO
03473  M01S00088.ns2788  +++|          STD    FS+4
03474  M01S03098.msm     +++|          AOD    CN+3
03475  M01S03099.msm     +++|          SHN    21-1
03476  M01S03100.msm     +++|          STD    T2          SET TRT WORD INDEX
03477  M01S03101.msm     +++|          LMD    CN+2
03478  M01S03102.msm     +++|          ZJN    SPFX        IF END OF TRT
03479  M01S03103.msm     +++|          SHN    1-21
03480  M01S03104.msm     +++|          STD    T1          SET BYTE INDEX
03481  M01S03105.msm     +++| SPF1     LDD    T2
03482  M01S03106.msm     +++|          ADC    0           READ TRT WORD
03483  M01S03107.msm     +++| SPFA     EQU    *-1
03484  M01S03108.msm     +++|          CRD    CM
03485  M01S03109.msm     +++|          LDD    CM+4        CHECK FOR PRESERVED FILES
03486  M01S03110.msm     +++|          SHN    -10
03487  M01S03111.msm     +++|          STM    SPFB
03488  M01S03112.msm     +++|          NJN    SPF5        IF 1 TO 4 PRESERVED FILES THIS WORD
03489  M01S03113.msm     +++| SPF2     STD    T1
03490  M01S03114.msm     +++|          AOD    T2          ADVANCE TRT WORD INDEX
03491  M01S03115.msm     +++|          LMD    CN+2
03492  M01S03116.msm     +++|          NJN    SPF1        IF NOT END OF TRT
03493  M01S03117.msm     +++|*         LDN    0
03494  M01S03118.msm     +++|          UJN    SPFX        RETURN
03495  M01S03119.msm     +++|
03496  M01S03120.msm     +++| SPF4     AOD    T1          ADVANCE BYTE INDEX
03497  M01S03121.msm     +++|          LPN    3
03498  M01S03122.msm     +++|          ZJN    SPF2        IF END OF TRT WORD
03499  M01S03123.msm     +++| SPF5     LDM    SPFC,T1
03500  M01S03124.msm     +++|          LPC    0           CHECK FIRST TRACK OF PRESERVED FILE
03501  M01S03125.msm     +++| SPFB     EQU    *-1
03502  M01S03126.msm     +++|          ZJN    SPF4        IF FILE NOT PRESERVED
03503  M01S03127.msm     +++|          LDD    T2
03504  M01S03128.msm     +++|          SHN    2           CALCULATE TRT POSITION
03505  M01S03129.msm     +++|          LMD    T1
03506  M01S03130.msm     +++|          STD    CN+3
03507  M01S03131.msm     +++|          LMC    4000        SET TRACK NUMBER
03508  M01S03132.msm     +++|          STD    T6
03509  M01S03133.msm     +++|          LMC    **
03510  M01S03134.msm     +++| SPFD     EQU    *-1
03511  M01S03135.msm     +++|          ZJN    SPF4        IF *DAT* TRACK
03512  M01S03136.msm     +++|          LDD    T6
03513  M01S03137.msm     +++|          STD    FS+1
03514  M01S03138.msm     +++|          LJM    SPFX        RETURN
03515  M01S03139.msm     +++|
03516  M01S03140.msm     +++| SPFC     CON    10,4,2,1    PRESERVED FILE TRT FLAGS
03517  M01S03141.msm     +++| TQF      SPACE  4,15
03518  M01S03142.msm     +++|**        TQF - TERMINATE *IQFT*.
03519  M01S03143.msm     +++|*
03520  M01S03144.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03521  M01S03145.msm     +++|*                (T4) = CHANNEL.
03522  M01S03146.msm     +++|*                (QF) = FIRST TRACK OF *IQFT*.
03523  M01S03147.msm     +++|*                (QT) = CURRENT *IQFT* TRACK.
03524  M01S03148.msm     +++|*                (QS) = CURRENT *IQFT* SECTOR.
03525  M01S03149.msm     +++|*
03526  M01S03150.msm     +++|*         EXIT    EOI SECTOR WRITTEN ON *IQFT*.
03527  M01S03151.msm     +++|*
03528  M01S03152.msm     +++|*         USES   T1, T6, T7, CM - CM+4.
03529  M01S03153.msm     +++|*
03530  M01S03154.msm     +++|*         CALLS  WEI, WQF.
03531  M01S03155.msm     +++|*
03532  M01S03156.msm     +++|*         MACROS MONITOR, SMSTF.
03533  M01S03157.msm     +++|
03534  M01S03158.msm     +++|
03535  M01S03159.msm     +++| TQF2     LDD    QF          RELEASE *IQFT* CHAIN
03536  M01S03160.msm     +++|          STD    CM+2
03537  M01S03161.msm     +++|          LDD    T5
03538  M01S03162.msm     +++|          STD    CM+1
03539  M01S03163.msm     +++|          MONITOR  DTKM
03540  M01S03164.msm     +++| TQF3     AOM    CQFA        RESET QUEUE FILE PROCESSING ENABLED
03541  M01S03165.msm     +++|
03542  M01S03166.msm     +++| TQF      SUBR               ENTRY/EXIT
03543  M01S03167.msm     +++| TQFA     LDN    0
03544  M01S03168.msm     +++|*         LDN    1           (QUEUE FILE PROCESSING INITIATED)
03545  M01S03169.msm     +++|          ZJN    TQF3        IF NO QUEUE FILE PROCESSING
03546  M01S03170.msm     +++|          SOM    TQFA
03547  M01S03171.msm     +++|          STM    CQFC
03548  M01S03172.msm     +++|          LDD    QT
03549  M01S03173.msm     +++|          ZJN    TQF2        IF RELEASING *IQFT*
03550  M01S03174.msm     +++|          RJM    WQF         WRITE LAST *IQFT* SECTOR
03551  M01S03175.msm     +++|          LDC    500
03552  M01S03176.msm     +++|          STD    T1
03553  M01S03177.msm     +++| TQF1     LDN    0           CLEAR EOI SECTOR BUFFER
Line S03178 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03554  M02S03178.ns2788  ---|          STM    BFMS+1,T1
03555  M01S00089.ns2788  +++|          STM    SBUF+1,T1
03556  M01S03179.msm     +++|          SOD    T1
03557  M01S03180.msm     +++|          NJN    TQF1        LOOP TO START OF BUFFER
03558  M01S03181.msm     +++|          LDD    MA          MOVE FILE NAME TO BUFFER
03559  M01S03182.msm     +++|          CWM    IQFA,ON
03560  M01S03183.msm     +++|          SBN    1
Line S03184 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03561  M02S03184.ns2788  ---|          CRM    BFMS+FNEI,ON
03562  M01S00090.ns2788  +++|          CRM    SBUF+FNEI,ON
03563  M01S03185.msm     +++|          LDD    T5          SETUP EOI/SYSTEM SECTOR BUFFER
Line S03186 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03564  M02S03186.ns2788  ---|          STM    BFMS+FSEI
03565  M01S00091.ns2788  +++|          STM    SBUF+FSEI
03566  M01S03187.msm     +++|          LDD    QF
Line S03188 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03567  M02S03188.ns2788  ---|          STM    BFMS+FTEI
03568  M01S00092.ns2788  +++|          STM    SBUF+FTEI
03569  M01S03189.msm     +++|          LDD    QT          SET CURRENT *IQFT* TRACK AND SECTOR
03570  M01S03190.msm     +++|          STD    T6
03571  M01S03191.msm     +++|          LDD    QS
03572  M01S03192.msm     +++|          STD    T7
03573  M01S03193.msm     +++|          RJM    WEI         WRITE EOI SECTOR
03574  M01S03194.msm     +++|          ENDMS
03575  M01S03195.msm     +++|          LDD    T5          SET EOI IN TRT
03576  M01S03196.msm     +++|          STD    CM+1
03577  M01S03197.msm     +++|          LDD    QT
03578  M01S03198.msm     +++|          LPC    3777
03579  M01S03199.msm     +++|          STD    CM+2
03580  M01S03200.msm     +++|          LDD    QS
03581  M01S03201.msm     +++|          STD    CM+3
03582  M01S03202.msm     +++|          MONITOR  DTKM
03583  M01S03203.msm     +++|          LDN    SPFS        SET PRESERVED FILE STATUS ON *IQFT*
03584  M01S03204.msm     +++|          STD    CM+3
03585  M01S03205.msm     +++|          LDD    QF
03586  M01S03206.msm     +++|          STD    CM+2
03587  M01S03207.msm     +++|          LDD    T5
03588  M01S03208.msm     +++|          STD    CM+1
03589  M01S03209.msm     +++|          MONITOR  STBM
03590  M01S03210.msm     +++|          LDN    SIQS        SET *IQFT* INDICATOR IN MST
03591  M01S03211.msm     +++|          STD    CM+3
03592  M01S03212.msm     +++|          LDD    QF
03593  M01S03213.msm     +++|          STD    CM+2
03594  M01S03214.msm     +++|          LDD    T5
03595  M01S03215.msm     +++|          STD    CM+1
03596  M01S03216.msm     +++|          MONITOR  STBM
03597  M01S03217.msm     +++|          SMSTF  LCKP        SET CHECKPOINT REQUEST
03598  M01S03218.msm     +++|          LJM    TQF3        RETURN
03599  M01S00093.ns2788  +++| VFR      SPACE  4,10
03600  M01S00094.ns2788  +++|**        VFR - VERIFY FILE FOR RECOVERY DEADSTART.
03601  M01S00095.ns2788  +++|*
03602  M01S00096.ns2788  +++|*         ENTRY  SYSTEM SECTOR IN *BFMS*.
03603  M01S00097.ns2788  +++|*
03604  M01S00098.ns2788  +++|*         EXIT   (RDAM) NONZERO IF ERROR IN TRT CHAIN.
03605  M01S00099.ns2788  +++|*
03606  M01S00100.ns2788  +++|*         CALLS  PFE, VTC.
03607  M01S00101.ns2788  +++|*
03608  M01S00102.ns2788  +++|*         MACROS ENDMS.
03609  M01S00103.ns2788  +++|
03610  M01S00104.ns2788  +++|
03611  M01S00105.ns2788  +++| VFR      SUBR               ENTRY/EXIT
03612  M01S00106.ns2788  +++|          ENDMS
03613  M01S00107.ns2788  +++|          LDD    CN
03614  M01S00108.ns2788  +++|          NJN    VFR1        IF NOT QUEUED FILE
03615  M01S00109.ns2788  +++|          LDM    FLSS
03616  M01S00110.ns2788  +++|          SHN    21-13
03617  M01S00111.ns2788  +++|          MJN    VFRX        IF LENGTH ERROR STATUS ALREADY SET
03618  M01S00112.ns2788  +++| VFR1     RJM    VTC         VERIFY TRACK CHAIN
03619  M01S00113.ns2788  +++|          ZJN    VFRX        IF NO TRT CHAIN ERROR
03620  M01S00114.ns2788  +++|          RJM    PFE         ISSUE FILE ERROR MESSAGE
03621  M01S00115.ns2788  +++|          AOM    RDAM        FORCE SETTING OF ERROR IDLE STATUS
03622  M01S00116.ns2788  +++|          UJN    VFRX        RETURN
03623  M01S03219.msm     +++| VTC      SPACE  4,10
03624  M01S03220.msm     +++|**        VTC - VERIFY TRACK CHAIN.
03625  M01S03221.msm     +++|*
03626  M01S03222.msm     +++|*         ENTRY  (T5) = EST ORDINAL.
03627  M01S03223.msm     +++|*                (T6) = FIRST TRACK OF PRESERVED FILE.
03628  M01S03224.msm     +++|*
03629  M01S03225.msm     +++|*         EXIT   (A) = 0 IF TRACK CHAIN GOOD / VALIDATION DISABLED.
03630  M01S03226.msm     +++|*
03631  M01S03227.msm     +++|*         USES   CM - CM+4.
03632  M01S03228.msm     +++|
03633  M01S03229.msm     +++|
03634  M01S03230.msm     +++| VTC      SUBR               ENTRY/EXIT
03635  M01S03231.msm     +++| VTCA     LDN    0
03636  M01S03232.msm     +++|          ZJN    VTCX        IF MASS STORAGE VALIDATION DISABLED
03637  M01S03233.msm     +++|          LDD    T5
03638  M01S03234.msm     +++|          STD    CM+1
03639  M01S03235.msm     +++|          LDD    T6          SET UP MONITOR CALL
03640  M01S03236.msm     +++|          STD    CM+2
03641  M01S03237.msm     +++|          LDN    VTCS        REQUEST TRACK CHAIN VALIDATION
03642  M01S03238.msm     +++|          STD    CM+3
03643  M01S03239.msm     +++|          MONITOR VMSM
03644  M01S03240.msm     +++|          LDD    CM+1
03645  M01S03241.msm     +++|          UJN    VTCX        RETURN
03646  M01S03242.msm     +++| WQF      SPACE  4,15
03647  M01S03243.msm     +++|**        WQF - WRITE QUEUED FILE SECTOR.
03648  M01S03244.msm     +++|*
03649  M01S03245.msm     +++|*         WQF WRITES THE SECTOR OF QUEUED FILE ENTRIES.
03650  M01S03246.msm     +++|*
03651  M01S03247.msm     +++|*         ENTRY  (QT) = INACTIVE QUEUES FILE TRACK.
03652  M01S03248.msm     +++|*                (QS) = INACTIVE QUEUES FILE SECTOR.
03653  M01S03249.msm     +++|*                (QI) = INACTIVE QUEUED FILE INDEX.
03654  M01S03250.msm     +++|*
03655  M01S03251.msm     +++|*         USES   T3, T6, T7, QS, CM - CM+4, CSSA.
03656  M01S03252.msm     +++|*
Line S03253 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03657  M02S03253.msm48   ---|*         CALLS  BAD, DFM, WDS.
03658  M01S00048.msm48   +++|*         CALLS  DFM, WDS.
03659  M01S03254.msm     +++|*
03660  M01S03255.msm     +++|*         MACROS ENDMS, MONITOR, SETMS.
03661  M01S03256.msm     +++|
03662  M01S03257.msm     +++|
03663  M01S03258.msm     +++| WQF      SUBR               ENTRY/EXIT
03664  M01S03259.msm     +++|          LDD    QT          SET *IQFT* TRACK
03665  M01S03260.msm     +++|          STD    T6
03666  M01S03261.msm     +++|          LDD    QS          SET *IQFT* SECTOR
03667  M01S03262.msm     +++|          STD    T7
03668  M01S03263.msm     +++|          ADN    1           SET SECTOR LINKAGE
03669  M01S03264.msm     +++|          STM    SBUF
03670  M01S03265.msm     +++|          STD    QS          SET NEXT *IQFT* SECTOR
03671  M01S03266.msm     +++|          LMM    SLM
03672  M01S03267.msm     +++|          NJN    WQF1        IF NOT LAST SECTOR
03673  M01S03268.msm     +++|          ENDMS
03674  M01S03269.msm     +++|*         LDN    0
03675  M01S03270.msm     +++|          STD    CM+3        RESET SECTOR
03676  M01S03271.msm     +++|          STD    CM+4
03677  M01S03272.msm     +++|          STD    QS
03678  M01S03273.msm     +++|          LDD    T5
03679  M01S03274.msm     +++|          STD    CM+1
03680  M01S03275.msm     +++|          LDD    T6
03681  M01S03276.msm     +++|          STD    CM+2
03682  M01S03277.msm     +++|          MONITOR RTCM       REQUEST TRACK
03683  M01S03278.msm     +++|          LDD    CM+4
03684  M01S03279.msm     +++|          STM    SBUF        DISK LINKAGE
03685  M01S03280.msm     +++|          ZJN    WQF4        IF TRACK NOT ASSIGNED
03686  M01S03281.msm     +++|          STD    QT
03687  M01S03282.msm     +++| WQF1     SETMS  POSITION
03688  M01S03283.msm     +++|          LDD    QI          SET WORD COUNT IN LINKAGE
03689  M01S03284.msm     +++|          STM    SBUF+1
03690  M01S03285.msm     +++|          ZJN    WQF2        IF EMPTY SECTOR
Line S03286 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
Seq #  *Modification Id* Act 
----------------------------+
03691  M02S03286.msm48   ---|          RJM    BAD         GET CM BUFFER ADDRESS
03692  M01S00049.msm48   +++|          LDD    RA
03693  M01S00050.msm48   +++|          SHN    6
03694  M01S00051.msm48   +++|          ADD    CR          FWA OF IQFT BUFFER
03695  M01S03287.msm     +++|          CRM    SBUF+2,QI   READ PRU BACK
03696  M01S03288.msm     +++| WQF2     LDC    SBUF+WLSF
03697  M01S03289.msm     +++|          RJM    WDS         WRITE SECTOR
03698  M01S03290.msm     +++|          LDN    0
03699  M01S03291.msm     +++|          STD    QI          RESET QUEUE INDEX
03700  M01S03292.msm     +++| WQF3     LJM    WQFX        RETURN
03701  M01S03293.msm     +++|
03702  M01S03294.msm     +++|*         NO SPACE AVAILABLE LEAVE PRU FOR EOI SECTOR.
03703  M01S03295.msm     +++|
03704  M01S03296.msm     +++| WQF4     STM    CQFA        DISABLE QUEUE FILE PROCESSING
03705  M01S03297.msm     +++|          LDD    T7          RESET SECTOR
03706  M01S03298.msm     +++|          STD    QS
03707  M01S03299.msm     +++|          LDC    IQFB        *EQXXX, TRACK LIMIT ON IQFT.*
03708  M01S03300.msm     +++|          RJM    DFM
03709  M01S03301.msm     +++|          UJN    WQF3        RETURN
Line S03302 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03710  M02S03302.ns2788  ---| IDM      SPACE  4
03711  M01S00117.ns2788  +++| IDM      SPACE  4,20
03712  M01S03303.msm     +++|**        IDM - ISSUE DAYFILE MESSAGES FOR FILES PROCESSED.
03713  M01S03304.msm     +++|*
03714  M01S03305.msm     +++|*         ENTRY  (PMPC) = PRESERVED FILE ERROR COUNT.
03715  M01S03306.msm     +++|*                (PMEC) = FILE ERROR COUNT.
03716  M01S03307.msm     +++|*                (PMFC) = FILE RECOVERY COUNT.
03717  M01S03308.msm     +++|*                (PMRC) = QUEUED FILE RECOVERY COUNT.
03718  M01S03309.msm     +++|*                (PMQC) = QUEUED FILE ERROR COUNT.
03719  M01S03310.msm     +++|*                (PQIC) = QUEUED FILES IGNORED COUNT.
03720  M01S03311.msm     +++|*                (FN - FN+4) = EST ENTRY.
03721  M01S03312.msm     +++|*                (T5) = EQUIPMENT.
03722  M01S03313.msm     +++|*
03723  M01S03314.msm     +++|*         EXIT   APPROPRIATE MESSAGES ISSUED TO DAYFILE.
03724  M01S03315.msm     +++|*
03725  M01S03316.msm     +++|*         USES   T1, T7, CM - CM+4.
03726  M01S03317.msm     +++|*
03727  M01S03318.msm     +++|*         CALLS  ACS, DFM, IRM.
03728  M01S03319.msm     +++|
03729  M01S03320.msm     +++|
03730  M01S03321.msm     +++| IDM3     RJM    IRM         ISSUE RECOVERY MESSAGES
03731  M01S03322.msm     +++|
03732  M01S03323.msm     +++| IDM      SUBR               ENTRY/EXIT
03733  M01S03324.msm     +++|          LDC    IDMA-1      SET BIASED MESSAGE ADDRESS
03734  M01S03325.msm     +++|          STD    T7
03735  M01S03326.msm     +++|
03736  M01S03327.msm     +++|*         ISSUE FILES PROCESSED.
03737  M01S03328.msm     +++|
03738  M01S03329.msm     +++| IDM1     AOD    T7          ADVANCE ADDRESS
03739  M01S03330.msm     +++|          LMC    IDMB
03740  M01S03331.msm     +++|          ZJN    IDM3        IF END OF MESSAGES
03741  M01S03332.msm     +++|          LDI    T7
03742  M01S03333.msm     +++|          ZJN    IDM1        IF NO COUNT
03743  M01S03334.msm     +++|          LDN    ZERL        CLEAR COUNT
03744  M01S03335.msm     +++|          CRD    CM
03745  M01S03336.msm     +++|
03746  M01S03337.msm     +++|*         SET COUNT TO COUNT*1000.
03747  M01S03338.msm     +++|
03748  M01S03339.msm     +++| IDM2     LDC    1000D
03749  M01S03340.msm     +++|          RAD    CM+4
03750  M01S03341.msm     +++|          SHN    -14
03751  M01S03342.msm     +++|          RAD    CM+3
03752  M01S03343.msm     +++|          SOI    T7          DECREMENT COUNT
03753  M01S03344.msm     +++|          NJN    IDM2        IF MORE TO CONVERT
03754  M01S03345.msm     +++|          LDC    IDMD
03755  M01S03346.msm     +++|          STD    T1
03756  M01S03347.msm     +++|          LDD    MA          CONVERT COUNT
03757  M01S03348.msm     +++|          CWD    CM
03758  M01S03349.msm     +++|          MONITOR RDCM
03759  M01S03350.msm     +++|          STI    T1
03760  M01S03351.msm     +++|          LDD    MA
03761  M01S03352.msm     +++|          CRD    CM
03762  M01S03353.msm     +++|          LDD    CM+1
03763  M01S03354.msm     +++|          STM    IDMC+3
03764  M01S03355.msm     +++|          LDD    CM+2
03765  M01S03356.msm     +++|          STM    IDMC+4
03766  M01S03357.msm     +++|          LDM    IDMB-IDMA,T7  ADD DESCRIPTION TO MESSAGE
03767  M01S03358.msm     +++|          RJM    ACS
03768  M01S03359.msm     +++|          LDC    IDMC        ISSUE MESSAGE
03769  M01S03360.msm     +++|          RJM    DFM
03770  M01S03361.msm     +++|          LJM    IDM1        LOOP FOR NEXT MESSAGE
03771  M01S03362.msm     +++|
03772  M01S03363.msm     +++|
03773  M01S03364.msm     +++| IDMA     BSS    0
03774  M01S03365.msm     +++| PMFC     CON    0           FILE RECOVERY COUNT
03775  M01S03366.msm     +++| PMPC     CON    0           PRESERVED FILE ERROR COUNT
03776  M01S03367.msm     +++| PMEC     CON    0           PERMANENT FILE ERROR COUNT
03777  M01S03368.msm     +++| PMRC     CON    0           QUEUED FILE RECOVERY COUNT
03778  M01S03369.msm     +++| PMQC     CON    0           QUEUED FILE ERROR COUNT
03779  M01S03370.msm     +++| PQIC     CON    0           QUEUED FILES IGNORED COUNT
03780  M01S03371.msm     +++|
03781  M01S03372.msm     +++| IDMB     CON    =C* DIRECT ACCESS FILES RECOVERED.*
03782  M01S03373.msm     +++|          CON    =C* PRESERVED FILE ERRORS.*
03783  M01S03374.msm     +++|          CON    =C* DIRECT ACCESS FILE ERRORS.*
03784  M01S03375.msm     +++|          CON    =C* QUEUED FILES RECOVERED.*
03785  M01S03376.msm     +++|          CON    =C* QUEUED FILE ERRORS.*
03786  M01S03377.msm     +++|          CON    =C* QUEUED FILES IGNORED.*
03787  M01S03378.msm     +++|
03788  M01S03379.msm     +++| IDMC     DATA   H*EQXXX NNNN*
03789  M01S03380.msm     +++| IDMD     BSS    21
Line S03381 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03790  M02S03381.ns2788  ---| IRM      SPACE  4
03791  M01S00118.ns2788  +++| IRM      SPACE  4,10
03792  M01S03382.msm     +++|**        IRM - ISSUE RECOVERY MESSAGES.
03793  M01S03383.msm     +++|*
03794  M01S03384.msm     +++|*         ENTRY  (FN - FN+4) = EST ENTRY.
03795  M01S03385.msm     +++|*
03796  M01S03386.msm     +++|*         EXIT   MESSAGES ISSUED TO ACCOUNTING AND SYSTEM DAYFILES.
03797  M01S03387.msm     +++|*                EVENT SET FOR AUXILIARY DEVICE.
03798  M01S03388.msm     +++|*
03799  M01S03389.msm     +++|*         USES   T1, T3, T4, T6, T7, CM - CM+4, CN - CN+4.
03800  M01S03390.msm     +++|*
03801  M01S03391.msm     +++|*         CALLS  ACS, C2D, DFM.
03802  M01S03392.msm     +++|
03803  M01S03393.msm     +++|
03804  M01S03394.msm     +++| IRM      SUBR               ENTRY/EXIT
03805  M01S03395.msm     +++|          LDD    FN+4        GET FAMILY/PACKNAME
03806  M01S03396.msm     +++|          SHN    3
03807  M01S03397.msm     +++|          ADN    PFGL
03808  M01S03398.msm     +++|          CRD    CM
03809  M01S03399.msm     +++|          ADN    PUGL-PFGL   READ USER NAME
03810  M01S03400.msm     +++|          CRD    CN
03811  M01S03401.msm     +++|          LDC    2REQ
03812  M01S03402.msm     +++|          STM    IRMB
03813  M01S03403.msm     +++|          LDC    IRMB+3      SET ADDRESS OF ASSEMBLY BUFFER
03814  M01S03404.msm     +++|          STD    T1
03815  M01S03405.msm     +++|          LDC    2L          RESET BUFFER
03816  M01S03406.msm     +++|          STI    T1
03817  M01S03407.msm     +++|          LDD    CM+4        SAVE SECURITY ACCESS LEVELS
03818  M01S03408.msm     +++|          SHN    -6
03819  M01S03409.msm     +++|          STD    T4
03820  M01S03410.msm     +++|          LDN    0           SET *END OF LINE* IN (CM+4)
03821  M01S03411.msm     +++|          STD    CM+4
03822  M01S03412.msm     +++|          LDD    CM+3        EXTRACT DEVICE NUMBER
03823  M01S03413.msm     +++|          LPN    77
03824  M01S03414.msm     +++|          STD    T7
03825  M01S03415.msm     +++|          LMD    CM+3        CLEAR DEVICE NUMBER
03826  M01S03416.msm     +++|          STD    CM+3
03827  M01S03417.msm     +++|          ADD    CM+2        BUILD PACKNAME HASH
03828  M01S03418.msm     +++|          ADD    CM+1
03829  M01S03419.msm     +++|          ADD    CM
03830  M01S03420.msm     +++|          STD    CN+4        SAVE PACKNAME HASH
03831  M01S03421.msm     +++|          LDD    CN+3        SET END OF USER NAME
03832  M01S03422.msm     +++|          SCN    77
03833  M01S03423.msm     +++|          STD    CN+3
03834  M01S03424.msm     +++|          LDN    CM          ADD FAMILY/PACKNAME TO MESSAGE
03835  M01S03425.msm     +++|          RJM    ACS
03836  M01S03426.msm     +++|          LDD    T7
03837  M01S03427.msm     +++|          ZJN    IRM1        IF AUXILIARY DEVICE
03838  M01S03428.msm     +++|          RJM    C2D         CONVERT DEVICE NUMBER
03839  M01S03429.msm     +++|          STD    CM+3
03840  M01S03430.msm     +++|          LDC    =C*, *      ADD SEPARATOR
03841  M01S03431.msm     +++|          RJM    ACS
03842  M01S03432.msm     +++|          LDN    CM+3        ADD DEVICE NUMBER TO MESSAGE
03843  M01S03433.msm     +++|          RJM    ACS
03844  M01S03434.msm     +++|          LDC    2RPM&2RDR   SET ACCOUNT FILE MESSAGE PREFIX
03845  M01S03435.msm     +++| IRM1     LMC    2RPM
03846  M01S03436.msm     +++|          STM    IRMA+1
03847  M01S03437.msm     +++|          LDD    T1          SAVE CURRENT END OF ASSEMBLY
03848  M01S03438.msm     +++|          STD    T3
03849  M01S03439.msm     +++|          LDI    T1
03850  M01S03440.msm     +++|          STD    T6
03851  M01S03441.msm     +++|          LDC    IRMD        ADD * RECOVERED.* TO MESSAGE
03852  M01S03442.msm     +++|          RJM    ACS
03853  M01S03443.msm     +++|          LDC    IRMB        ISSUE SYSTEM DAYFILE MESSAGE
03854  M01S03444.msm     +++|          RJM    DFM
03855  M01S03445.msm     +++|          LDD    T3          SET START OF NEW ASSEMBLY
03856  M01S03446.msm     +++|          STD    T1
03857  M01S03447.msm     +++|          LDD    T6
03858  M01S03448.msm     +++|          STI    T1
03859  M01S03449.msm     +++|          LDC    2R,         REPLACE *EQ* WITH *, *
03860  M01S03450.msm     +++|          STM    IRMB
03861  M01S03451.msm     +++|          LDC    =C*, *      INSERT SEPARATOR
03862  M01S03452.msm     +++|          RJM    ACS
03863  M01S03453.msm     +++|          LDD    T7
03864  M01S03454.msm     +++|          NJN    IRM2        IF PERMANENT FILE DEVICE
03865  M01S03455.msm     +++|          LDN    CN          ADD USER NAME TO MESSAGE
03866  M01S03456.msm     +++|          RJM    ACS
03867  M01S03457.msm     +++|          LDC    =C*, *      INSERT SEPARATOR
03868  M01S03458.msm     +++|          RJM    ACS
03869  M01S03459.msm     +++| IRM2     LDD    T4          GET LOWER SECURITY ACCESS LEVEL
03870  M01S03460.msm     +++|          SHN    -3
03871  M01S03461.msm     +++|          SHN    2           CALCULATE INDEX INTO ACCESS TABLE
03872  M01S03462.msm     +++|          ADC    TALV        INSERT LOWER ACCESS LEVEL
03873  M01S03463.msm     +++|          RJM    ACS
03874  M01S03464.msm     +++|          LDC    =C*, *      INSERT SEPARATOR
03875  M01S03465.msm     +++|          RJM    ACS
03876  M01S03466.msm     +++|          LDD    T4          GET UPPER ACCESS LEVEL
03877  M01S03467.msm     +++|          LPN    7
03878  M01S03468.msm     +++|          SHN    2           CALCULATE INDEX INTO ACCESS TABLE
03879  M01S03469.msm     +++|          ADC    TALV        INSERT UPPER ACCESS LEVEL
03880  M01S03470.msm     +++|          RJM    ACS
03881  M01S03471.msm     +++|          LDC    IRME        ADD *.* TO END OF MESSAGE
03882  M01S03472.msm     +++|          RJM    ACS
03883  M01S03473.msm     +++|          LDC    IRMA+ACFN   ISSUE ACCOUNT FILE MESSAGE
03884  M01S03474.msm     +++|          RJM    DFM
03885  M01S03475.msm     +++|          LDK    SSTL
03886  M01S03476.msm     +++|          CRD    CM
03887  M01S03477.msm     +++|          LDD    CM+1
03888  M01S03478.msm     +++|          SHN    21-5
03889  M01S03479.msm     +++|          PJN    IRM3        IF DISK VALIDATION IS ENABLED
03890  M01S03480.msm     +++|          LDD    T7
03891  M01S03481.msm     +++|          NJN    IRM3        IF NOT AUXILIARY DEVICE
03892  M01S03482.msm     +++|          STD    CM+1        SET EVENT
03893  M01S03483.msm     +++|          LDN    VSNE/10000
03894  M01S03484.msm     +++|          STD    CM+3
03895  M01S03485.msm     +++|          LDD    CN+4        READ PACKNAME HASH
03896  M01S03486.msm     +++|          STD    CM+4
03897  M01S03487.msm     +++|          MONITOR EATM
03898  M01S03488.msm     +++| IRM3     LJM    IRMX        RETURN
03899  M01S03489.msm     +++|
03900  M01S03490.msm     +++|
03901  M01S03491.msm     +++| IRMA     DATA   4HADDR
03902  M01S03492.msm     +++| IRMB     DATA   H*EQXXX, *
03903  M01S03493.msm     +++| IRMC     BSS    22
03904  M01S03494.msm     +++|
03905  M01S03495.msm     +++| IRMD     DATA   10H RECOVERED
03906  M01S03496.msm     +++| IRME     DATA   C*.*
03907  M01S00003.284l847 +++| LSN      SPACE  4,15
03908  M01S00004.284l847 +++|**        LSN - LIST PACK SERIAL NUMBERS.
03909  M01S00005.284l847 +++|*
03910  M01S00006.284l847 +++|*         ENTRY  (EQ) = EST ORDINAL.
03911  M01S00007.284l847 +++|*                (FN - FN+4) = EST ENTRY FOR EQUIPMENT.
03912  M01S00008.284l847 +++|*
03913  M01S00009.284l847 +++|*         EXIT   PACK SERIAL NUMBER IDENTIFICATION MESSAGES ISSUED TO
03914  M01S00010.284l847 +++|*                THE ERROR LOG FOR ALL UNITS OF THE EQUIPMENT.
03915  M01S00011.284l847 +++|*
03916  M01S00012.284l847 +++|*         USES   CM+1, T1, T2, CN - CN+4, FS+1 - FS+3.
03917  M01S00013.284l847 +++|*
03918  M01S00014.284l847 +++|*         CALLS  DFM, SDR, *0PI*.
03919  M01S00015.284l847 +++|*
03920  M01S00016.284l847 +++|*         MACROS EXECUTE.
03921  M01S00017.284l847 +++|
03922  M01S00018.284l847 +++|
03923  M01S00019.284l847 +++| LSN4     LDN    TLSNL-1     CHECK DEVICE TYPE FOR NON-*LDAM* DEVICE
03924  M01S00020.284l847 +++|          STD    T1
03925  M01S00021.284l847 +++| LSN5     LDD    FN+3
03926  M01S00022.284l847 +++|          LMM    TLSN,T1
03927  M01S00023.284l847 +++|          ZJN    LSNX        IF DEVICE TYPE MATCHES
03928  M01S00024.284l847 +++|          SOD    T1
03929  M01S00025.284l847 +++|          PJN    LSN5        IF MORE DEVICE TYPES TO CHECK
03930  M01S00026.284l847 +++| LSN6     LDN    LDIF
03931  M01S00027.284l847 +++|          RJM    /RDA/SDR    SET BUFFERED DEVICE REQUEST
03932  M01S00028.284l847 +++|
03933  M01S00029.284l847 +++| LSN      SUBR               ENTRY/EXIT
03934  M01S00030.284l847 +++|          LDD    FN+4
03935  M01S00031.284l847 +++|          SHN    3
03936  M01S00032.284l847 +++|          ADN    DDLL        GET LOGICAL UNIT COUNT
03937  M01S00033.284l847 +++|          CRD    CN
03938  M01S00034.284l847 +++|          LDD    CN          EXTRACT UNIT COUNT
03939  M01S00035.284l847 +++|          LPN    7
03940  M01S00036.284l847 +++|          STD    CN
03941  M01S00037.284l847 +++|          STD    T2
03942  M01S00038.284l847 +++|          LDD    FN
03943  M01S00039.284l847 +++|          SHN    21-7
03944  M01S00040.284l847 +++|          PJN    LSN4        IF NOT *LDAM* DEVICE
03945  M01S00041.284l847 +++|          LDD    FN+1
03946  M01S00042.284l847 +++|          SHN    21-5
03947  M01S00043.284l847 +++|          MJN    LSN6        IF CONCURRENT CHANNEL
03948  M01S00044.284l847 +++|          LDD    T5
03949  M01S00045.284l847 +++|          STM    /RDA/SBUF
03950  M01S00046.284l847 +++|          EXECUTE 0PI,/RDA/SBUF+1
03951  M01S00047.284l847 +++|          STD    FS+3        SAVE MAIN PROCESSOR ADDRESS
03952  M01S00048.284l847 +++|          LDN    0           SET TO FIRST LOGICAL UNIT
03953  M01S00049.284l847 +++|          STD    FS+1
03954  M01S00050.284l847 +++| LSN1     LDD    FS+1        GET MESSAGE FOR A LOGICAL UNIT
03955  M01S00051.284l847 +++|          RJM    0,FS+3
03956  M01S00052.284l847 +++|          ZJN    LSN2        IF MASS STORAGE ERROR
03957  M01S00053.284l847 +++|          STD    FS+2        SAVE MESSAGE TABLE ADDRESS
03958  M01S00054.284l847 +++|          SHN    -14         SET BML MESSAGE LENGTH
03959  M01S00055.284l847 +++|          STD    CM+1
03960  M01S00056.284l847 +++|          LDC    BMLN
03961  M01S00057.284l847 +++|          ADM    1,FS+2      ADD BML MESSAGE ADDRESS
03962  M01S00058.284l847 +++|          RJM    DFM
03963  M01S00059.284l847 +++|          LDI    FS+2        GET ERROR LOG MESSAGE ADDRESS
03964  M01S00060.284l847 +++|          LMC    ERLN        SEND MESSAGE TO ERROR LOG
03965  M01S00061.284l847 +++|          RJM    DFM
03966  M01S00062.284l847 +++| LSN2     AOD    FS+1        ADVANCE LOGICAL UNIT
03967  M01S00063.284l847 +++|          SOD    CN          DECREMENT LOGICAL UNIT COUNT
03968  M01S00064.284l847 +++|          PJN    LSN1        IF MORE LOGICAL UNITS
03969  M01S00065.284l847 +++|          LJM    LSNX        EXIT
03970  M01S00066.284l847 +++|
03971  M01S00067.284l847 +++|
03972  M01S00068.284l847 +++| TLSN     BSS    0           NON-*LDAM* DEVICES WITH NO PSN-S TO LIST
03973  M01S00069.284l847 +++|          CON    2RDE        EXTENDED MEMORY
03974  M01S00070.284l847 +++|          CON    2RDP        EXTENDED MEMORY/STORNET
03975  M01S00071.284l847 +++|          CON    2RDV        819
03976  M01S00072.284l847 +++|          CON    2RDW        819
03977  M01S00073.284l847 +++|
03978  M01S00074.284l847 +++| TLSNL    EQU    *-TLSN      LENGTH OF TABLE
Line S03497 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03979  M02S03497.ns2788  ---| PFE      SPACE  4
03980  M01S00119.ns2788  +++| PFE      SPACE  4,15
03981  M01S03498.msm     +++|**        PFE - PERMANENT FILE ERROR.
03982  M01S03499.msm     +++|*
Line S03500 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03983  M02S03500.ns2788  ---|*         ENTRY  (A) = 0 IF OPERATOR INTERVENTION NOT ALLOWED.
Line S03501 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03984  M02S03501.ns2788  ---|*                (CN) = FILE TYPE.
03985  M01S00120.ns2788  +++|*         ENTRY  (CN) = FILE TYPE.
03986  M01S03502.msm     +++|*                (BFMS) LOADED WITH SYSTEM SECTOR.
03987  M01S03503.msm     +++|*
Line S03504 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03988  M02S03504.ns2788  ---|*         EXIT   (A) = GO/NOGO STATUS IF REQUIRED.
03989  M01S00121.ns2788  +++|*         EXIT   ERROR MESSAGE ISSUED TO ERROR LOG AND SYSTEM DAYFILE.
03990  M01S00122.ns2788  +++|*                APPROPIATE ERROR COUNT INCREMENTED.
03991  M01S03505.msm     +++|*
Line S03506 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03992  M02S03506.ns2788  ---|*         USES   T1 - T3, CM - CM+4, CN+4
03993  M01S00123.ns2788  +++|*         USES   T1 - T3, CM - CM+4.
03994  M01S03507.msm     +++|*
03995  M01S03508.msm     +++|*         CALLS  ACS, C2D, DFM.
03996  M01S03509.msm     +++|*
03997  M01S03510.msm     +++|*         MACROS ENDMS.
03998  M01S03511.msm     +++|
03999  M01S03512.msm     +++|
04000  M01S03513.msm     +++| PFE      SUBR               ENTRY/EXIT
Line S03514 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04001  M02S03514.ns2788  ---|          STD    CN+4
04002  M01S03515.msm     +++|          ENDMS
04003  M01S03516.msm     +++|          LDD    CN
04004  M01S03517.msm     +++|          NJN    PFE1        IF NOT QUEUE FILE
04005  M01S00009.msm46   +++|          AOM    PMQC        ADVANCE QUEUED FILE ERROR COUNT
04006  M01S00010.msm46   +++|          LDC    2RQF
04007  M01S00011.msm46   +++|          UJN    PFE1.1      SET MESSAGE PREFIX
04008  M01S00012.msm46   +++|
04009  M01S00013.msm46   +++| PFE1     LMN    LIFT
04010  M01S00014.msm46   +++|          NJN    PFE1.2      IF NOT A LIBRARY FILE
04011  M01S00015.msm46   +++|          LDC    2RLI
04012  M01S00016.msm46   +++| PFE1.1   STM    PFEA        SET MESSAGE PREFIX
04013  M01S03518.msm     +++|
Line S03519 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04014  M02S03519.msm46   ---|*         IF QUEUED FILE BLANK USER INDEX.
04015  M01S00017.msm46   +++|*         BLANK USER INDEX FOR QUEUED FILE OR LIBRARY FILE.
04016  M01S03520.msm     +++|
04017  M01S03521.msm     +++|          LDC    2R          BLANK USER INDEX
04018  M01S03522.msm     +++|          STM    PFEB
04019  M01S03523.msm     +++|          STM    PFEB+1
04020  M01S03524.msm     +++|          STM    PFEB+2
Line S03525 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04021  M02S03525.msm46   ---|          LDC    2RQF        SET MESSAGE PREFIX
Line S03526 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04022  M02S03526.msm46   ---|          STM    PFEA
Line S03527 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04023  M02S03527.msm46   ---|          AOM    PMQC        ADVANCE QUEUED FILE ERROR COUNT
04024  M01S03528.msm     +++|          LDD    MA
04025  M01S03529.msm     +++|          CWM    FNSS,ON
04026  M01S03530.msm     +++|          UJN    PFE2        MOVE FILE NAME TO MESSAGE
04027  M01S03531.msm     +++|
04028  M01S03532.msm     +++|*         PROCESS PERMANENT FILE ERROR.
04029  M01S03533.msm     +++|
Line S03534 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04030  M02S03534.msm46   ---| PFE1     LMN    LIFT
Line S03535 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04031  M02S03535.msm46   ---|          ZJN    PFEX        IF LIBRARY FILE (DAYFILE)
Line S03536 Modification History
M01 (Added by) msm
M02 (Updated by) msm46
Seq #  *Modification Id* Act 
----------------------------+
04032  M02S03536.msm46   ---|          AOM    PMEC        ADVANCE ERROR COUNT
04033  M01S00018.msm46   +++| PFE1.2   AOM    PMEC        ADVANCE ERROR COUNT
04034  M01S03537.msm     +++|          LDM    CTSS+FCUI   FIRST 2 DIGITS
04035  M01S03538.msm     +++|          RJM    C2D
04036  M01S03539.msm     +++|          STM    PFEB
04037  M01S03540.msm     +++|          LDM    CTSS+FCUI+1 SECOND 2 DIGITS
04038  M01S03541.msm     +++|          SHN    -6
04039  M01S03542.msm     +++|          RJM    C2D
04040  M01S03543.msm     +++|          STM    PFEB+1
04041  M01S03544.msm     +++|          LDM    CTSS+FCUI+1 LAST 2 DIGITS
04042  M01S03545.msm     +++|          RJM    C2D
04043  M01S03546.msm     +++|          STM    PFEB+2
04044  M01S03547.msm     +++|          LDC    2RPF        SET FILE TYPE
04045  M01S03548.msm     +++|          STM    PFEA
04046  M01S03549.msm     +++|          LDD    MA          MOVE FILE NAME TO MESSAGE
04047  M01S03550.msm     +++|          CWM    CTSS+FCFN,ON
04048  M01S03551.msm     +++| PFE2     SBN    1
04049  M01S03552.msm     +++|          CRM    PFEC,ON
04050  M01S03553.msm     +++|          LDM    PFEC+3      CLEAR 8TH CHARACTER
04051  M01S03554.msm     +++|          SCN    77
04052  M01S03555.msm     +++|          STM    PFEC+3
04053  M01S03556.msm     +++|          LDC    IDMC+3      SET MESSAGE ADDRESSES
04054  M01S03557.msm     +++|          STD    T1
04055  M01S03558.msm     +++|          LDC    PFED+5
04056  M01S03559.msm     +++|          STD    T3
04057  M01S03560.msm     +++|          LDN    T7          SET SECTOR ADDRESS
04058  M01S03561.msm     +++|          STD    T2
04059  M01S03562.msm     +++| PFE3     LDI    T2          CONVERT DISK ADDRESS OF ERROR
04060  M01S03563.msm     +++|          RJM    C2D
04061  M01S03564.msm     +++|          STI    T3          STORE IN MESSAGE
04062  M01S03565.msm     +++|          SOD    T3
04063  M01S03566.msm     +++|          LDI    T2          CONVERT UPPER HALF OF SECTOR/TRACK
04064  M01S03567.msm     +++|          SHN    -6
04065  M01S03568.msm     +++|          RJM    C2D
04066  M01S03569.msm     +++|          STI    T3          STORE IN MESSAGE
04067  M01S03570.msm     +++|          LCN    2           DECREMENT MESSAGE ADDRESS
04068  M01S03571.msm     +++|          RAD    T3
04069  M01S03572.msm     +++|          SOD    T2          DECREMENT PARAMETER ADDRESS
04070  M01S03573.msm     +++|          LMN    T6-1
04071  M01S03574.msm     +++|          NJN    PFE3        IF TRACK NOT CONVERTED
04072  M01S03575.msm     +++|          STM    PFEC+4      SET END OF MESSAGE I
04073  M01S03576.msm     +++|          STI    T1
04074  M01S03577.msm     +++|          LDC    RDAD+2      ASSEMBLE FIRST PART OF MESSAGE II
04075  M01S03578.msm     +++|          RJM    ACS
04076  M01S03579.msm     +++|          AOD    T3          ASSEMBLE END OF MESSAGE II
04077  M01S03580.msm     +++|          RJM    ACS
Line S03581 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04078  M02S03581.ns2788  ---|          LDC    PFEA+ERLN   ISSUE TO ERROR LOG
04079  M01S00124.ns2788  +++|          LDC    PFEE+ERLN   ISSUE TO ERROR LOG
04080  M01S03582.msm     +++|          RJM    DFM
04081  M01S03583.msm     +++|          LDC    IDMC+ERLN
04082  M01S03584.msm     +++|          RJM    DFM
Line S03585 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04083  M02S03585.ns2788  ---|          LDC    PFEA+NMSN   ISSUE TO SYSTEM
04084  M01S00125.ns2788  +++|          LDC    PFEE+NMSN   ISSUE TO SYSTEM
04085  M01S03586.msm     +++|          RJM    DFM
Line S03587 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04086  M02S03587.ns2788  ---|          LDD    CN+4
Line S03588 Modification History
M01 (Added by) msm
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04087  M02S03588.ns2788  ---|          ZJN    PFE5        IF NO OPERATOR INTERVENTION REQUIRED
Line S03589 Modification History
M01 (Added by) msm
M02 (Updated by) msm48
M03 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04088  M03S03589.ns2788  ---|          LDM    BADA
Line S00052 Modification History
M01 (Added by) msm48
M02 (Updated by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
04089  M02S00052.ns2788  ---| PFEE     LDN    0
Proceed to Part 3