User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfm.013

Deck PFM Part 013

95 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
18417  M00S13114.pfm     +++|          CWM    APDK,ON
18418  M00S13115.pfm     +++|          SBN    1
18419  M00S13116.pfm     +++|          CRD    CM
Line S13117 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18420  M01S13117.pfm54   ---|          LDC    4000        SET CHECKPOINT VIA *DLKM*
18421  M01S13118.pfm54   ---|          RAD    CM+1
18422  M00S13119.pfm     +++|          MONITOR DLKM
Line S00206 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18423  M01S00206.pfm54   +++|          LDM    STAT
18424  M01S00207.pfm54   +++|          LPC    STBD+STXC
18425  M01S00208.pfm54   +++|          LMC    STBD+STXC
18426  M01S00209.pfm54   +++|          ZJN    ADT9        IF EXTENDING CHAIN ON BUFFERED DEVICE
18427  M01S00210.pfm54   +++|          LDD    EQ          CLEAR INDIRECT ALLOCATION INTERLOCK
18428  M01S00211.pfm54   +++|          STD    CM+1
18429  M00S13120.pfm     +++|          LDM    DVLW
Line S13121 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18430  M01S13121.pfm54   ---|          RJM    CTI
18431  M01S13122.pfm54   ---|          LDD    P0          RESET CURRENT POSITION
18432  M01S13123.pfm54   ---|          STD    T6
18433  M01S13124.pfm54   ---|          LDD    P1
18434  M01S13125.pfm54   ---|          STD    T7
Line S00212 Modification History
M01 (Added by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18435  M01S00212.pfm54   +++|          STD    CM+2
18436  M01S00213.pfm54   +++|          LDN    CTIS
18437  M01S00214.pfm54   +++|          STD    CM+3
18438  M01S00215.pfm54   +++|          MONITOR  STBM
18439  M01S00216.pfm54   +++|*         LDN    0           CLEAR INDIRECT ALLOCATION INTERLOCK FLAG
18440  M01S00217.pfm54   +++|          STM    IAIF
18441  M00S13126.pfm     +++|
18442  M00S13127.pfm     +++|*         COPY LOCAL FILE TO INDIRECT FILE.
18443  M00S13128.pfm     +++|
18444  M00S13129.pfm     +++| ADT9     SOM    DPCA        ENABLE SRU ACCUMULATION
18445  M00S13130.pfm     +++|          LDN    IPPN        RESET PRU TRANSFER INCREMENT
18446  M00S13131.pfm     +++|          STM    DPCB
18447  M00S13132.pfm     +++|          LDD    FS          SET UP LOCAL FILE PARAMETERS
18448  M00S13133.pfm     +++|          STM    SDAA
18449  M00S13134.pfm     +++|          LDD    FS+1
18450  M00S13135.pfm     +++|          STM    SDAB
18451  M00S13136.pfm     +++|          LDN    FSMS
18452  M00S13137.pfm     +++|          STM    SDAC
18453  M00S13138.pfm     +++|          LDC    BUF         RESET BUFFER ADDRESS
18454  M00S13139.pfm     +++|          STM    SDPA
18455  M00S13140.pfm     +++|          RJM    SDP         SWAP DISK PARAMETERS
Line S13141 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18456  M01S13141.242l642 ---|          SETMS  READ
Line S01610 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
18457  M02S01610.ns2645  ---|          SETMS  IO
Line S00024 Modification History
M01 (Added by) ns2645
Seq #  *Modification Id* Act 
----------------------------+
18458  M01S00024.ns2645  +++|          SETMS  READSTR,NS
Line S01611 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18459  M01S01611.242l642 +++|          RJM    PDV         PROCESS DEVICE STATUS
18460  M00S13142.pfm     +++|          LJM    DTD         ENTER DEVICE TO DEVICE TRANSFER
Line S13143 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18461  M01S13143.pfm54   ---|          TITLE  SUBROUTINES.
Line S13144 Modification History
M01 (Removed by) 242l642
M02 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18462  M02S13144.pfm54   ---| PAE      SPACE  4,10
18463  M02S13145.pfm54   ---|**        PAE - PROCESS APPEND ERROR.
18464  M02S13146.pfm54   ---|*
18465  M02S13147.pfm54   ---|*         ENTRY  FROM MSR.
18466  M02S13148.pfm54   ---|*
18467  M02S13149.pfm54   ---|*         EXIT   TO *.MSE4* WITH EOI LINKAGE SET IF NOT VALID SECTOR.
18468  M02S13150.pfm54   ---|*                TO *MSRX* WITH TRANSFER ERROR INDICATED IF VALID DATA.
18469  M02S13151.pfm54   ---|
18470  M02S13152.pfm54   ---|
18471  M02S13153.pfm54   ---| PAE      BSS    0           ENTRY
18472  M02S13154.pfm54   ---|          LDM    RDCT        CHECK TYPE OF ERROR
18473  M02S13155.pfm54   ---|          SHN    21-13
18474  M02S13156.pfm54   ---|          PJN    PAE1        IF VALID SECTOR READ
18475  M02S13157.pfm54   ---|          LDN    0           SET EOI LINKAGE
18476  M02S13158.pfm54   ---|          STM    1,BB
18477  M02S13159.pfm54   ---|          STI    BB
18478  M02S13160.pfm54   ---|          LJM    .MSE4       REENTER TRANSFER LOOP
18479  M02S13161.pfm54   ---|
18480  M02S13162.pfm54   ---| PAE1     AOM    DTDA        SET ERROR ON TRANSFER
18481  M02S13163.pfm54   ---|          LJM    MSRX        REENTER TRANSFER LOOP
Line S13164 Modification History
M01 (Removed by) pfm54
Seq #  *Modification Id* Act 
----------------------------+
18482  M01S13164.pfm54   ---|          SPACE  4,10
18483  M01S13165.pfm54   ---|*         COMMON DECKS.
18484  M01S13166.pfm54   ---|
18485  M01S13167.pfm54   ---|
18486  M01S13168.pfm54   ---|*CALL     COMPCTI
18487  M01S13169.pfm54   ---|*CALL     COMPSTI
18488  M00S13170.pfm     +++| BUFA     SPACE  4,10
18489  M00S13171.pfm     +++|*         BUFA - BUFFER FOR DEVICE TO DEVICE TRANSFER OF
18490  M00S13172.pfm     +++|*                EXISTING INDIRECT FILE.
18491  M00S13173.pfm     +++|
18492  M00S13174.pfm     +++|
18493  M00S13175.pfm     +++| BUFA     BSS    0
18494  M00S13176.pfm     +++|
18495  M00S13177.pfm     +++| .BUFAL   SET    EPFW-BUFA
18496  M00S13178.pfm     +++|          ERRNG  .BUFAL-4316 NOT ROOM FOR 7 SECTORS IN BUFFER
18497  M00S13179.pfm     +++|          SPACE  4,10
18498  M00S13180.pfm     +++|*         EQUIVALENCE EXTERNALLY REFERENCED TAGS.
18499  M00S13181.pfm     +++|
18500  M00S13182.pfm     +++|
18501  M00S13183.pfm     +++|          QUAL   *
18502  M00S13184.pfm     +++|
18503  M00S13185.pfm     +++| ADT      EQU    /".O"/ADT
18504  M00S13186.pfm     +++| BUFA     EQU    /".O"/BUFA
Line S13187 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
18505  M01S13187.242l642 ---| PAE      EQU    /".O"/PAE
18506  M01S13188.242l642 ---| .MSE4    EQU    /".O"/.MSE4
18507  M00S13189.pfm     +++|          OVERLAY  (STAGE FILE FROM ALTERNATE STORAGE.)
Line S13190 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18508  M01S13190.253l688 ---| MAT      SPACE  4,15
18509  M01S13191.253l688 ---|**        THIS OVERLAY INITIATES A STAGE OPERATION FOR
18510  M01S13192.253l688 ---|*         A FILE WHICH IS NOT CURRENTLY RESIDENT ON DISK, BUT
18511  M01S13193.253l688 ---|*         WHICH HAS A VALID COPY ON ALTERNATE STORAGE.
18512  M01S13194.253l688 ---|*         THIS IS ACCOMPLISHED BY ISSUEING A *TDAM* REQUEST TO THE
18513  M01S13195.253l688 ---|*         APPROPRIATE EXECUTIVE TO INITIATE STAGING OF THE FILE.
18514  M01S13196.253l688 ---|*         THE JOB IS THEN PLACED IN TIMED-EVENT ROLLOUT TO AWAIT
18515  M01S13197.253l688 ---|*         COMPLETION OF THE STAGE.  THE ORIGINAL *PFM* REQUEST WILL
18516  M01S13198.253l688 ---|*         BE REISSUED AUTOMATICALLY WHEN THE JOB ROLLS IN.
Line S00700 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18517  M01S00700.253l688 +++| SPF      SPACE  4,15
18518  M01S00701.253l688 +++|**        THIS OVERLAY INITIATES A STAGE OPERATION FOR A FILE WHICH
18519  M01S00702.253l688 +++|*         IS NOT CURRENTLY RESIDENT ON DISK, BUT WHICH HAS A VALID
18520  M01S00703.253l688 +++|*         COPY ON ALTERNATE STORAGE.  THIS IS ACCOMPLISHED BY
18521  M01S00704.253l688 +++|*         ISSUING A *TDAM* REQUEST TO THE APPROPRIATE EXECUTIVE TO
18522  M01S00705.253l688 +++|*         INITIATE STAGING OF THE FILE.  THE JOB IS THEN PLACED IN
18523  M01S00706.253l688 +++|*         TIMED-EVENT ROLLOUT TO AWAIT COMPLETION OF THE STAGE.  THE
18524  M01S00707.253l688 +++|*         ORIGINAL *PFM* REQUEST WILL BE REISSUED AUTOMATICALLY WHEN
18525  M01S00708.253l688 +++|*         THE JOB ROLLS IN.
18526  M00S13199.pfm     +++|
18527  M00S13200.pfm     +++|
Line S13201 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18528  M01S13201.253l688 ---| MAT      BSS    0           ENTRY
Line S00709 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18529  M02S00709.pfm73   ---| SPF      BSS    0           ENTRY FOR *STAGEPF* REQUEST
Line S00001 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18530  M01S00001.pfm73   +++| SPF      BSS    0           ENTRY
Line S00001 Modification History
M01 (Added by) pfm34
Seq #  *Modification Id* Act 
----------------------------+
18531  M01S00001.pfm34   +++|          RJM    RMD         RESET TO MASTER DEVICE
Line S00002 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18532  M01S00002.pfm73   +++|          RJM    CCC         CHECK FOR CARTRIDGE COPY
18533  M01S00003.pfm73   +++|          STD    P2          SAVE CARTRIDGE COPY STATUS
18534  M01S00004.pfm73   +++|          RJM    CTC         CHECK FOR TAPE COPY
18535  M01S00005.pfm73   +++|          STD    P3          SAVE TAPE COPY STATUS
18536  M01S00006.pfm73   +++|          RJM    UPF         UPDATE PFC
18537  M01S00007.pfm73   +++|
18538  M01S00008.pfm73   +++|*         CHECK ERROR STATUS.
18539  M01S00009.pfm73   +++|
Line S13202 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18540  M01S13202.253l688 ---|          LDM    FCAF,CI     CHECK FOR ALTERNATE STORAGE ERRORS
18541  M01S13203.253l688 ---|          STD    T1
18542  M01S13204.253l688 ---|          LPN    AFPSEM+AFPDEM
18543  M01S13205.253l688 ---|          ZJN    MAT1        IF NO PERMANENT ERRORS
18544  M01S13206.253l688 ---|          ERROR  PPE,CH      *(FILE NAME) PERMANENT ERROR.*
Line S00710 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18545  M01S00710.253l688 +++|          LDN    0           INDICATE CARTRIDGE STAGING ATTEMPT
18546  M01S00711.253l688 +++|          STD    P1
Line S00712 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18547  M02S00712.pfm73   ---|          RJM    CCC         CHECK FOR CARTRIDGE COPY
18548  M02S00713.pfm73   ---|          STD    P2          SAVE CARTRIDGE COPY STATUS
18549  M02S00714.pfm73   ---|          ZJP    SPF5        IF CARTRIDGE COPY AVAILABLE
18550  M02S00715.pfm73   ---|          LDN    1           INDICATE TAPE STAGING ATTEMPT
18551  M02S00716.pfm73   ---|          STD    P1
18552  M02S00717.pfm73   ---|          RJM    CTC         CHECK FOR TAPE COPY
18553  M02S00718.pfm73   ---|          STD    P3          SAVE TAPE COPY STATUS
18554  M02S00719.pfm73   ---|          ZJN    SPF5        IF TAPE COPY AVAILABLE
Line S00010 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18555  M01S00010.pfm73   +++|          LDD    P2
18556  M01S00011.pfm73   +++|          ZJN    SPF5        IF NO ERROR ON CARTRIDGE COPY
18557  M01S00012.pfm73   +++|          AOD    P1          INDICATE TAPE STAGING ATTEMPT
18558  M01S00013.pfm73   +++|          LDD    P3
18559  M01S00014.pfm73   +++|          ZJN    SPF5        IF NO ERROR ON TAPE COPY
18560  M00S13207.pfm     +++|
Line S13208 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18561  M01S13208.253l688 ---| MAT1     LDD    T1
Line S00720 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18562  M02S00720.pfm73   ---|*         STAGE NOT POSSIBLE - PROCESS ERROR STATUS.
Line S00015 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18563  M01S00015.pfm73   +++|*         FILE CANNOT BE STAGED - DETERMINE CORRECT ERROR MESSAGE.
Line S00721 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18564  M01S00721.253l688 +++|
18565  M01S00722.253l688 +++|          LDD    P2          CHECK CARTRIDGE COPY ERROR STATUS
Line S00016 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18566  M01S00016.pfm73   +++|          SBN    1
18567  M01S00017.pfm73   +++|          NJN    SPF1        IF CARTRIDGE COPY EXISTS
18568  M01S00018.pfm73   +++|          LDD    P3          CHECK TAPE COPY ERROR STATUS
18569  M01S00019.pfm73   +++|          SBN    1
18570  M01S00020.pfm73   +++|          NJN    SPF1        IF TAPE COPY EXISTS
18571  M01S00021.pfm73   +++|          ERROR  AIO,CH,IW   * NO ALTERNATE STORAGE COPY EXISTS.*
18572  M01S00022.pfm73   +++|
18573  M01S00023.pfm73   +++| SPF1     LDD    P2          CHECK CARTRIDGE COPY ERROR STATUS
18574  M01S00024.pfm73   +++|          SBN    2
18575  M01S00025.pfm73   +++|          ZJN    SPF2        IF STAGING DISABLED ERROR
18576  M01S00026.pfm73   +++|          LDD    P3          CHECK TAPE COPY ERROR STATUS
18577  M01S00027.pfm73   +++|          SBN    2
18578  M01S00028.pfm73   +++|          NJN    SPF3        IF NOT STAGING DISABLED ERROR
18579  M01S00029.pfm73   +++| SPF2     ERROR  SGD,CH,IW   * STAGING DISABLED.*
18580  M01S00030.pfm73   +++|
18581  M01S00031.pfm73   +++| SPF3     LDD    P2          CHECK CARTRIDGE COPY ERROR STATUS
Line S00723 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18582  M01S00723.253l688 +++|          SBN    3
Line S00724 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18583  M02S00724.pfm73   ---|          MJN    SPF2        IF NO COPY EXISTS OR STAGING DISABLED
18584  M02S00725.pfm73   ---|          SBN    1
18585  M02S00726.pfm73   ---|          PJN    SPF1        IF PERMANENT ERROR
Line S00032 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18586  M01S00032.pfm73   +++|          NJN    SPF4        IF NOT TEMPORARY ERROR
Line S00727 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18587  M01S00727.253l688 +++|          ERROR  TPE,CH,IW   *(NAME) TEMPORARY ERROR, TRY LATER.*
18588  M01S00728.253l688 +++|
Line S00729 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18589  M02S00729.pfm73   ---| SPF1     ERROR  PPE,CH,IW   *(FILE NAME) PERMANENT ERROR.*
18590  M02S00730.pfm73   ---|
18591  M02S00731.pfm73   ---| SPF2     LDD    P3          CHECK TAPE COPY ERROR STATUS
18592  M02S00732.pfm73   ---|          SBN    1
18593  M02S00733.pfm73   ---|          ZJN    SPF4        IF NO TAPE COPY EXISTS
18594  M02S00734.pfm73   ---|          SBN    1
18595  M02S00735.pfm73   ---|          NJN    SPF1        IF VSN NOT AVAILABLE OR DATA ERROR
18596  M02S00736.pfm73   ---| SPF3     ERROR  SGD,CH,IW   * STAGING DISABLED.*
18597  M02S00737.pfm73   ---|
18598  M02S00738.pfm73   ---|*         NO TAPE COPY EXISTS.
18599  M02S00739.pfm73   ---|
18600  M02S00740.pfm73   ---| SPF4     LDD    P2          CHECK CARTRIDGE COPY ERROR STATUS AGAIN
18601  M02S00741.pfm73   ---|          SBN    1
18602  M02S00742.pfm73   ---|          NJN    SPF3        IF CARTRIDGE COPY EXISTS
18603  M02S00743.pfm73   ---|          ERROR  AIO,CH,IW   * NO ALTERNATE STORAGE COPY EXISTS.*
Line S00033 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18604  M01S00033.pfm73   +++| SPF4     ERROR  PPE,CH,IW   *(FILE NAME) PERMANENT ERROR.*
Line S00744 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18605  M01S00744.253l688 +++|
18606  M01S00745.253l688 +++|*         LOOP *MXRL* TIMES ISSUING *TDAM* REQUESTS TO THE EXECUTIVE.
18607  M01S00746.253l688 +++|
18608  M01S00747.253l688 +++| SPF5     RJM    STR         SETUP *TDAM* REQUEST
18609  M01S00748.253l688 +++|          LDC    ART         SET ROLLOUT TIME LIMIT
18610  M01S00749.253l688 +++|          STM    ERRD
18611  M01S00750.253l688 +++|          LDN    0           INITIALIZE FOR LOOP
18612  M01S00751.253l688 +++|          STD    P0
18613  M01S00752.253l688 +++|
18614  M01S00753.253l688 +++|*         CHECK IF STAGING STILL ENABLED.
18615  M01S00754.253l688 +++|
18616  M01S00755.253l688 +++| SPF6     LDN    SSTL        CHECK FOR STAGING DISABLED
18617  M01S00756.253l688 +++|          CRD    CM
18618  M01S00757.253l688 +++|          LDD    P1
18619  M01S00758.253l688 +++|          NJN    SPF8        IF TAPE STAGING REQUEST
18620  M01S00759.253l688 +++|          LDD    CM
18621  M01S00760.253l688 +++|          SHN    21-6
18622  M01S00761.253l688 +++|          PJN    SPF9        IF CARTRIDGE STAGING ENABLED
18623  M01S00762.253l688 +++| SPF7     ERROR  SGD,CH,IW   *STAGING DISABLED.*
18624  M01S00763.253l688 +++|
Line S00764 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18625  M02S00764.274l797 ---| SPF8     LDD    CM+1
Line S00072 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18626  M01S00072.274l797 +++| SPF7.1   LDD    CM+1        CHECK FOR *ACS TAPE PF STAGING* ENABLED
18627  M01S00073.274l797 +++|          SHN    21-11
18628  M01S00074.274l797 +++|          UJN    SPF8.1      CHECK IF ENABLED
18629  M01S00075.274l797 +++|
18630  M01S00076.274l797 +++| SPF8     LDM    FCTF,CI
18631  M01S00077.274l797 +++|          SHN    21-TFACS
18632  M01S00078.274l797 +++|          MJN    SPF7.1      IF FILE ON ACS CARTRIDGE TAPE
18633  M01S00079.274l797 +++|          LDD    CM+1        CHECK FOR *TAPE PF STAGING* ENABLED
Line S00765 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18634  M01S00765.253l688 +++|          SHN    21-7
Line S00766 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18635  M02S00766.274l797 ---|          MJN    SPF7        IF TAPE PF STAGING DISABLED
Line S00080 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18636  M01S00080.274l797 +++| SPF8.1   MJN    SPF7        IF STAGING DISABLED
Line S00767 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18637  M01S00767.253l688 +++|
18638  M01S00768.253l688 +++|*         ISSUE *TDAM* REQUEST.
18639  M01S00769.253l688 +++|
18640  M01S00770.253l688 +++| SPF9     LDN    1           SET WRITE FUNCTION
18641  M01S00771.253l688 +++|          STD    CM+1
18642  M01S00772.253l688 +++| SPFA     LDC    MTSI        SET *MAGNET* SUBSYSTEM ID
18643  M01S00773.253l688 +++|*         LDC    MFSI        (SET *MSS* SUBSYSTEM ID)
18644  M01S00774.253l688 +++|*         LDC    AFSI        (SET *MSE* SUBSYSTEM ID)
18645  M01S00775.253l688 +++|          STD    CM+2
18646  M01S00776.253l688 +++|          LDC    6*100       SET MESSAGE LENGTH
18647  M01S00777.253l688 +++|          STD    CM+3
Line S00778 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
18648  M02S00778.ns2773  ---| SPFB     LDC    PFTB        SET ADDRESS OF *MAGNET* *TDAM* BUFFER
Line S00004 Modification History
M01 (Added by) ns2773
Seq #  *Modification Id* Act 
----------------------------+
18649  M01S00004.ns2773  +++| SPFB     LDC    /MTX/PFTB   SET ADDRESS OF *MAGNET* *TDAM* BUFFER
Line S00779 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18650  M01S00779.253l688 +++|*         LDC    MIRE        SET ADDRESS OF *MSS*/MSE* *TDAM* BUFFER
18651  M01S00780.253l688 +++|          STD    CM+4
18652  M01S00781.253l688 +++|          MONITOR  TDAM      ISSUE *TDAM* REQUEST
18653  M01S00782.253l688 +++|          LJM    SPFC,CM+1   PROCESS ACCORDING TO *TDAM* REQUEST STATUS
18654  M01S00783.253l688 +++|
18655  M01S00784.253l688 +++| SPFC     BSS    0           *TDAM* STATUS PROCESSOR TABLE
18656  M01S00785.253l688 +++|          UJN    SPF10       (ST=0) *TDAM* REQUEST ACCEPTED
18657  M01S00786.253l688 +++|          UJN    SPF12       (ST=1) STORAGE MOVE IN PROGRESS
18658  M01S00787.253l688 +++|          UJN    SPF13       (ST=2) NOT READY FOR DATA
18659  M01S00788.253l688 +++|          UJN    SPF12       (ST=3) REJECT (NONZERO FIRST WORD)
18660  M01S00789.253l688 +++|          UJN    SPF13       (ST=4) INACTIVE
18661  M01S00790.253l688 +++|
18662  M01S00791.253l688 +++|*         PROCESS THE (ST=0) NORMAL STATUS CASE OF ACCEPTED REQUEST.
18663  M01S00792.253l688 +++|
Line S00793 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
18664  M02S00793.ns2673  ---| SPF10    LDD    CC
Line S00007 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
18665  M01S00007.ns2673  +++| SPF10    RJM    ISM         ISSUE REQUEST STAGE MESSAGE
18666  M01S00008.ns2673  +++|          LDD    CC
Line S00794 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18667  M01S00794.253l688 +++|          LMN    CCSP
18668  M01S00795.253l688 +++|          ZJN    SPF11       IF *STAGEPF* REQUEST
18669  M01S00796.253l688 +++|          EXIT   PSI,CH,IW,,EC2  *(PFN) STAGE INITIATED.*
18670  M01S00797.253l688 +++|
18671  M01S00798.253l688 +++| SPF11    EXECUTE  3PU       TERMINATE *PFM* WITH NO ERROR STATUS
18672  M01S00799.253l688 +++|
18673  M01S00800.253l688 +++|*         PROCESS THE (ST=1)/(ST=3) STATUS CASES.
18674  M01S00801.253l688 +++|
18675  M01S00802.253l688 +++| SPF12    AOD    P0          TRY *TDAM* *MXRL* TIMES
18676  M01S00803.253l688 +++|          SBN    MXRL
18677  M01S00804.253l688 +++|          ZJN    SPF13       IF TIME TO GIVE UP
18678  M01S00805.253l688 +++|          PAUSE  NE
18679  M01S00806.253l688 +++|          LDC    370001+SBNI DELAY
18680  M01S00807.253l688 +++|          NJN    *-1         IF DELAY NOT EXHAUSTED
18681  M01S00808.253l688 +++|          UJP    SPF6        CONTINUE REQUEST LOOP
18682  M01S00809.253l688 +++|
18683  M01S00810.253l688 +++|*         PROCESS THE (ST=2)/(ST=4) STATUS CASES.
18684  M01S00811.253l688 +++|
18685  M01S00812.253l688 +++| SPF13    LDN    0           SET EST ORDINAL FOR EVENT
18686  M01S00813.253l688 +++|          STM    ERRE
18687  M01S00814.253l688 +++| SPFD     LDC    MTXE        SET WAITING FOR *MAGNET* EVENT
18688  M01S00815.253l688 +++|*         LDC    MSXE        (SET WAITING FOR *MSS* EVENT)
18689  M01S00816.253l688 +++|*         LDC    ASXE        (SET WAITING FOR *MSE* EVENT)
18690  M01S00817.253l688 +++|          STM    ERRC
Line S00818 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
18691  M02S00818.ns2722  ---|          EXIT   PWE,CH,IW,,EC1 *(PFN) WAITING ALTERNATE STORAGE EXEC.*
Line S00012 Modification History
M01 (Added by) ns2722
Seq #  *Modification Id* Act 
----------------------------+
18692  M01S00012.ns2722  +++|          EXIT   PWE,CH,IW,,EC1 *(PFN) WAITING FOR SUBSYSTEM.*
Line S00819 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18693  M01S00819.253l688 +++|          TITLE  SUBROUTINES.
18694  M01S00820.253l688 +++| CCC      SPACE  4,20
18695  M01S00821.253l688 +++|***       CCC - CHECK FOR CARTRIDGE ALTERNATE STORAGE COPY OF FILE.
18696  M01S00822.253l688 +++|*
Line S00034 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18697  M01S00034.pfm73   +++|*         ENTRY  (CI) = ADDRESS OF PFC ENTRY IN BUFFER.
18698  M01S00035.pfm73   +++|*
Line S00823 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18699  M01S00823.253l688 +++|*         EXIT   (A) = 0 IF CARTRIDGE COPY AVAILABLE.
18700  M01S00824.253l688 +++|*                    = 1 IF NO CARTRIDGE COPY EXISTS.
18701  M01S00825.253l688 +++|*                    = 2 IF COPY EXISTS BUT CARTRIDGE STAGING DISABLED.
18702  M01S00826.253l688 +++|*                    = 3 IF COPY EXISTS BUT TEMPORARY ERROR FLAG SET.
18703  M01S00827.253l688 +++|*                    = 4 IF COPY EXISTS BUT PERMANENT ERROR FLAG SET.
18704  M01S00828.253l688 +++|*                *AFTMP* ERROR FLAG CLEARED IN PFC, IF PRESENT.
Line S00829 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18705  M02S00829.pfm73   ---|*                CATALOG ENTRY REWRITTEN, IF *AFTMP* CLEARED.
18706  M02S00830.pfm73   ---|*                *ENDMS* PERFORMED.
18707  M02S00831.pfm73   ---|*                CATALOG INTERLOCK CLEARED.
Line S00832 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18708  M01S00832.253l688 +++|*
18709  M01S00833.253l688 +++|*         USES   CM - CM+4.
Line S00834 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18710  M02S00834.pfm73   ---|*
18711  M02S00835.pfm73   ---|*         CALLS  CCI, WBI.
18712  M02S00836.pfm73   ---|*
18713  M02S00837.pfm73   ---|*         MACROS ENDMS.
Line S00838 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18714  M01S00838.253l688 +++|
18715  M01S00839.253l688 +++|
Line S00036 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18716  M01S00036.pfm73   +++| CCC4     LDN    1           SET *NO CARTRIDGE COPY EXISTS* STATUS
Line S00840 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18717  M01S00840.253l688 +++|
18718  M01S00841.253l688 +++| CCC      SUBR               ENTRY/EXIT
18719  M01S00842.253l688 +++|          LDM    FCAA,CI
18720  M01S00843.253l688 +++|          ADM    FCAA+1,CI
18721  M01S00844.253l688 +++|          ADM    FCAA+2,CI
Line S00845 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18722  M02S00845.pfm73   ---|          ZJN    CCC1        IF NO CARTRIDGE ALTERNATE STORAGE COPY
Line S00037 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18723  M01S00037.pfm73   +++|          ZJN    CCC4        IF NO CARTRIDGE ALTERNATE STORAGE COPY
Line S00846 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18724  M01S00846.253l688 +++|          LDM    FCAF,CI
18725  M01S00847.253l688 +++|          LPK    AFOBSM
Line S00848 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18726  M02S00848.pfm73   ---|          NJN    CCC1        IF CARTRIDGE COPY OBSOLETE
Line S00038 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18727  M01S00038.pfm73   +++|          NJN    CCC4        IF CARTRIDGE COPY OBSOLETE
Line S00849 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18728  M01S00849.253l688 +++|          LDK    SSTL        CHECK IF CARTRIDGE STAGING ENABLED
18729  M01S00850.253l688 +++|          CRD    CM
18730  M01S00851.253l688 +++|          LDD    CM
Line S00852 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm72
Seq #  *Modification Id* Act 
----------------------------+
18731  M02S00852.pfm72   ---|          SHN    21-3
Line S00001 Modification History
M01 (Added by) pfm72
Seq #  *Modification Id* Act 
----------------------------+
18732  M01S00001.pfm72   +++|          SHN    21-6
Line S00853 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18733  M02S00853.pfm73   ---|          PJN    CCC3        IF CARTRIDGE PF STAGING ENABLED
Line S00039 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18734  M01S00039.pfm73   +++|          PJN    CCC2        IF CARTRIDGE PF STAGING ENABLED
Line S00854 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18735  M01S00854.253l688 +++|          LDN    2           SET *STAGING DISABLED* STATUS
Line S00855 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18736  M02S00855.pfm73   ---|          RAM    CCCA
18737  M02S00856.pfm73   ---|          UJN    CCC2        RETURN
18738  M02S00857.pfm73   ---|
18739  M02S00858.pfm73   ---| CCC1     LDN    1           SET *NO CARTRIDGE COPY EXISTS* STATUS
18740  M02S00859.pfm73   ---|          RAM    CCCA
18741  M02S00860.pfm73   ---| CCC2     ENDMS
18742  M02S00861.pfm73   ---|          RJM    CCI         CLEAR CATALOG INTERLOCK
18743  M02S00862.pfm73   ---| CCCA     LDN    0           RETURN *CARTRIDGE COPY AVAILABLE* STATUS
18744  M02S00863.pfm73   ---|*         LDN    1           (*NO CARTRIDGE COPY EXISTS*)
18745  M02S00864.pfm73   ---|*         LDN    2           (*STAGING DISABLED*)
18746  M02S00865.pfm73   ---|*         LDN    3           (*TEMPORARY ERROR FLAG*)
18747  M02S00866.pfm73   ---|*         LDN    4           (*PERMANENT ERROR FLAG*)
18748  M02S00867.pfm73   ---|          UJN    CCCX        RETURN
Line S00040 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18749  M01S00040.pfm73   +++| CCC1     UJN    CCCX        RETURN
Line S00868 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18750  M01S00868.253l688 +++|
18751  M01S00869.253l688 +++|*         CLEAR CARTRIDGE TEMPORARY ERROR FLAG, IF PRESENT.
18752  M01S00870.253l688 +++|
Line S00871 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18753  M02S00871.pfm73   ---| CCC3     LDD    CC
Line S00041 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18754  M01S00041.pfm73   +++| CCC2     LDD    CC
Line S00872 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18755  M01S00872.253l688 +++|          LMN    CCSP
Line S00873 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18756  M02S00873.pfm73   ---|          ZJN    CCC4        IF *STAGEPF* REQUEST
Line S00042 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18757  M01S00042.pfm73   +++|          ZJN    CCC3        IF *STAGEPF* REQUEST
Line S00874 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18758  M01S00874.253l688 +++|          LDM    FCAF,CI
18759  M00S13209.pfm     +++|          LPN    AFTMPM
Line S13210 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18760  M01S13210.253l688 ---|          ZJN    MAT2        IF NO TEMPORARY ERROR
18761  M01S13211.253l688 ---|          LMD    T1          CLEAR TEMPORARY ERROR FLAG
Line S00875 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18762  M02S00875.pfm73   ---|          ZJN    CCC4        IF NO TEMPORARY ERROR
Line S00043 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18763  M01S00043.pfm73   +++|          ZJN    CCC3        IF NO TEMPORARY ERROR
Line S00876 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18764  M01S00876.253l688 +++|          LMM    FCAF,CI     CLEAR TEMPORARY ERROR FLAG
18765  M00S13212.pfm     +++|          STM    FCAF,CI
Line S13213 Modification History
M01 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18766  M01S13213.pfm73   ---|          LDD    CB          REWRITE CATALOG
18767  M01S13214.pfm73   ---|          RJM    WBI
Line S13215 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18768  M01S13215.253l688 ---|          ERROR  TPE         *(NAME) TEMPORARY ERROR, TRY LATER.*
Line S00877 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18769  M01S00877.253l688 +++|          LDN    3           SET *TEMPORARY ERROR FLAG* STATUS
Line S00878 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18770  M02S00878.pfm73   ---|          RAM    CCCA
18771  M02S00879.pfm73   ---|          UJN    CCC2        RETURN
Line S00044 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18772  M01S00044.pfm73   +++|          UJN    CCC1        RETURN
18773  M00S13216.pfm     +++|
Line S13217 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18774  M01S13217.253l688 ---| MAT2     RJM    CCI         CLEAR CATALOG TRACK INTERLOCK
18775  M01S13218.253l688 ---|          RJM    STR         SET UP TDAM REQUEST
18776  M01S13219.253l688 ---|          LDC    ART         SET ROLLOUT TIME LIMIT
18777  M01S13220.253l688 ---|          STM    ERRD
18778  M01S13221.253l688 ---|          LDN    0           INITIALIZE FOR LOOP
18779  M01S13222.253l688 ---|          STD    P1
Line S00880 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18780  M02S00880.pfm73   ---| CCC4     LDM    FCAF,CI     CHECK FOR CARTRIDGE ERROR FLAGS
Line S00045 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18781  M01S00045.pfm73   +++| CCC3     LDM    FCAF,CI     CHECK FOR CARTRIDGE ERROR FLAGS
Line S00881 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18782  M01S00881.253l688 +++|          LPN    AFPSEM+AFPDEM
Line S00882 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18783  M02S00882.pfm73   ---|          ZJN    CCC2        IF NO PERMANENT ERRORS, RETURN *AVAILABLE*
Line S00046 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18784  M01S00046.pfm73   +++|          ZJN    CCC1        IF NO PERMANENT ERRORS, RETURN *AVAILABLE*
Line S00883 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18785  M01S00883.253l688 +++|          LDN    4           SET *PERMANENT ERROR FLAG* STATUS
Line S13223 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18786  M01S13223.253l688 ---|
18787  M01S13224.253l688 ---|*         LOOP *MXRL* TIMES ISSUEING TDAM REQUESTS TO THE EXECUTIVE.
Line S00884 Modification History
M01 (Added by) 253l688
M02 (Removed by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18788  M02S00884.pfm73   ---|          RAM    CCCA
18789  M02S00885.pfm73   ---|          UJN    CCC2        RETURN
Line S00047 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18790  M01S00047.pfm73   +++|          UJN    CCC1        RETURN
Line S00886 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18791  M01S00886.253l688 +++| CTC      SPACE  4,15
18792  M01S00887.253l688 +++|**        CTC - CHECK FOR TAPE ALTERNATE STORAGE COPY OF FILE.
Line S00048 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
18793  M01S00048.pfm73   +++|*
18794  M01S00049.pfm73   +++|*         ENTRY  (CI) = ADDRESS OF PFC ENTRY IN BUFFER.
Line S00888 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18795  M01S00888.253l688 +++|*
18796  M01S00889.253l688 +++|*         EXIT   (A) = 0 IF TAPE COPY AVAILABLE.
18797  M01S00890.253l688 +++|*                    = 1 IF NO TAPE COPY EXISTS.
18798  M01S00891.253l688 +++|*                    = 2 IF COPY EXISTS BUT TAPE STAGING DISABLED.
18799  M01S00892.253l688 +++|*                    = 3 IF COPY EXISTS BUT *VSN MISSING* FLAG SET.
18800  M01S00893.253l688 +++|*                    = 4 IF COPY EXISTS BUT *DATA ERROR* FLAG SET.
18801  M01S00894.253l688 +++|*
18802  M01S00895.253l688 +++|*         USES   T1, CM - CM+4.
18803  M01S00896.253l688 +++|*
18804  M01S00897.253l688 +++|*         CALLS  STT.
18805  M00S13225.pfm     +++|
Line S13226 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18806  M01S13226.253l688 ---| MAT3     LDN    SSTL        CHECK ALTERNATE STORAGE STAGING DISABLED
Line S00898 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18807  M01S00898.253l688 +++|
18808  M01S00899.253l688 +++| CTC6     LDN    1           SET *NO COPY EXISTS* STATUS
18809  M01S00900.253l688 +++|
18810  M01S00901.253l688 +++| CTC      SUBR               ENTRY/EXIT
18811  M01S00902.253l688 +++|          LDM    FCTV,CI
18812  M01S00903.253l688 +++|          ADM    FCTV+1,CI
18813  M01S00904.253l688 +++|          ZJN    CTC6        IF NO TAPE ALTERNATE STORAGE COPY OF FILE
18814  M01S00905.253l688 +++|          LDK    SSTL        CHECK IF TAPE STAGING IS ENABLED
18815  M00S13227.pfm     +++|          CRD    CM
Line S13228 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18816  M01S13228.253l688 ---|          LDD    CM
18817  M01S13229.253l688 ---|          SHN    21-6
18818  M01S13230.253l688 ---|          PJN    MAT4        IF STAGING OF ARCHIVED FILES ENABLED
18819  M01S13231.253l688 ---|          ERROR  SGD,CH,IW   *STAGING DISABLED.*
Line S00906 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18820  M02S00906.274l797 ---|          LDD    CM+1
Line S00081 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18821  M01S00081.274l797 +++|          LDM    FCTF,CI
18822  M01S00082.274l797 +++|          STD    T1          SAVE (FCTF)
18823  M01S00083.274l797 +++|          SHN    21-TFACS
18824  M01S00084.274l797 +++|          MJN    CTC0.1      IF FILE ON ACS CARTRIDGE TAPE
18825  M01S00085.274l797 +++|          LDD    CM+1        CHECK FOR *TAPE PF STAGING* ENABLED
Line S00907 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18826  M01S00907.253l688 +++|          SHN    21-7
18827  M01S00908.253l688 +++|          PJN    CTC1        IF TAPE STAGING IS ENABLED
Line S00909 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18828  M02S00909.274l797 ---|          LDN    2           SET *STAGING DISABLED* STATUS
Line S00086 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18829  M01S00086.274l797 +++| CTC0     LDN    2           SET *STAGING DISABLED* STATUS
Line S00910 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18830  M01S00910.253l688 +++|          UJN    CTCX        RETURN
18831  M00S13232.pfm     +++|
Line S13233 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18832  M01S13233.253l688 ---| MAT4     RJM    ITR         ISSUE TDAM REQUEST
18833  M01S13234.253l688 ---|          STD    T1
18834  M01S13235.253l688 ---|          LJM    MATA,T1     PROCESS ACCORDING TO TDAM REQUEST STATUS
18835  M01S13236.253l688 ---| MATA     UJN    MAT5        (S=0) TDAM REQUEST ACCEPTED
18836  M01S13237.253l688 ---|          UJN    MAT6        (S=1) STORAGE MOVE IN PROGRESS
18837  M01S13238.253l688 ---|          UJN    MAT7        (S=2) NOT READY FOR DATA
18838  M01S13239.253l688 ---|          UJN    MAT6        (S=3) REJECT (NONZERO FIRST WORD)
18839  M01S13240.253l688 ---|          UJN    MAT7        (S=4) INACTIVE
Line S00911 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18840  M02S00911.274l797 ---| CTC1     LDM    FCTF,CI
18841  M02S00912.274l797 ---|          STD    T1          SAVE (FCTF)
Line S00087 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18842  M01S00087.274l797 +++| CTC0.1   LDD    CM+1        CHECK FOR *ACS TAPE PF STAGING* ENABLED
18843  M01S00088.274l797 +++|          SHN    21-11
18844  M01S00089.274l797 +++|          MJN    CTC0        IF ACS TAPE STAGING IS DISABLED
18845  M01S00090.274l797 +++| CTC1     LDD    T1
Line S00913 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18846  M01S00913.253l688 +++|          LPK    TFPVNM+TFEPVM
18847  M01S00914.253l688 +++|          ZJN    CTC5        IF NO ERRORS ON PRIMARY VSN
18848  M01S00915.253l688 +++|          LDD    T1
18849  M01S00916.253l688 +++|          LPK    TFSVSM
18850  M01S00917.253l688 +++|          NJN    CTC4        IF SECONDARY VSN EXISTS
18851  M01S00918.253l688 +++| CTC2     LDD    T1
18852  M01S00919.253l688 +++|          LPK    TFPVNM
18853  M01S00920.253l688 +++|          ZJN    CTC3        IF PRIMARY VSN AVAILABLE
18854  M01S00921.253l688 +++|          LDN    3           SET *VSN NOT AVAILABLE* STATUS
Line S00922 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18855  M02S00922.274l797 ---|          UJN    CTCX        RETURN
Line S00091 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18856  M01S00091.274l797 +++|          UJN    CTC5.1      RETURN
18857  M00S13241.pfm     +++|
Line S13242 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18858  M01S13242.253l688 ---|*         PROCESS THE (S=0) NORMAL STATUS CASE OF ACCEPTED REQUEST.
Line S00923 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18859  M01S00923.253l688 +++| CTC3     LDN    4           SET *DATA ERROR* STATUS
Line S00924 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18860  M02S00924.274l797 ---|          UJN    CTCX        RETURN
Line S00092 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18861  M01S00092.274l797 +++|          UJN    CTC5.1      RETURN
18862  M00S13243.pfm     +++|
Line S13244 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18863  M01S13244.253l688 ---| MAT5     EXIT   PSI,CH,IW,,EC2  *(PFN) STAGE INITIATED.*
Line S00925 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18864  M01S00925.253l688 +++| CTC4     LDD    T1
18865  M01S00926.253l688 +++|          LPK    TFSVNM+TFESVM
18866  M01S00927.253l688 +++|          ZJN    CTC5        IF NO ERRORS ON SECONDARY VSN
18867  M01S00928.253l688 +++|          LPK    TFSVNM
18868  M01S00929.253l688 +++|          NJN    CTC2        IF SECONDARY VSN NOT AVAILABLE
18869  M01S00930.253l688 +++|          UJN    CTC3        SET *DATA ERROR* STATUS
18870  M00S13245.pfm     +++|
Line S13246 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18871  M01S13246.253l688 ---|*         PROCESS THE (S=1)/(S=3) STATUS CASES.
Line S00931 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18872  M01S00931.253l688 +++| CTC5     LDN    0           SET *COPY AVAILABLE* STATUS
Line S00932 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18873  M02S00932.274l797 ---|          UJP    CTCX        RETURN
Line S00093 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18874  M01S00093.274l797 +++| CTC5.1   LJM    CTCX        RETURN
Line S00933 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18875  M01S00933.253l688 +++| GEE      SPACE  4,15
18876  M01S00934.253l688 +++|**        GEE - GET EST ORDINAL FOR EVENT.
18877  M01S00935.253l688 +++|*
18878  M01S00936.253l688 +++|*         ENTRY  (P1) .NE. 0 IF TAPE STAGE REQUEST.
18879  M01S00937.253l688 +++|*                (GEEA) PRESET WITH CORRECT EQUIPMENT MNEMONIC.
18880  M01S00938.253l688 +++|*
18881  M01S00939.253l688 +++|*         EXIT   (T5) = EST ORDINAL FOR EVENT.
18882  M01S00940.253l688 +++|*                       FOR *MSS* STAGE, ORDINAL OF FIRST *CS* EST.
18883  M01S00941.253l688 +++|*                       FOR *MSE* STAGE, ORDINAL OF FIRST *SS* EST.
18884  M01S00942.253l688 +++|*                       FOR TAPE STAGE, ORDINAL OF FIRST *MT*/*NT* EST.
18885  M01S00943.253l688 +++|*
18886  M01S00944.253l688 +++|*         USES   T5, T6, T0 - T0+4.
18887  M01S00945.253l688 +++|*
18888  M01S00946.253l688 +++|*         MACROS ERROR, SFA.
18889  M00S13247.pfm     +++|
Line S13248 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18890  M01S13248.253l688 ---| MAT6     AOD    P1          CHECK FOR END OF LOOP
18891  M01S13249.253l688 ---|          SBN    MXRL
18892  M01S13250.253l688 ---|          ZJN    MAT7        IF AT LOOP END
18893  M01S13251.253l688 ---|          PAUSE  NE
18894  M01S13252.253l688 ---|          LDC    370001+SBNI DELAY
18895  M01S13253.253l688 ---|          NJN    *-1         IF DELAY NOT EXHAUSTED
18896  M01S13254.253l688 ---|          UJP    MAT3        CONTINUE REQUEST LOOP
18897  M00S13255.pfm     +++|
Line S13256 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18898  M01S13256.253l688 ---|*         PROCESS THE (S=2)/(S=4) STATUS CASES.
Line S00947 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18899  M01S00947.253l688 +++| GEE      SUBR               ENTRY/EXIT
18900  M00S13257.pfm     +++|
Line S13258 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18901  M01S13258.253l688 ---| MAT7     LDN    0           SET EST ORDINAL FOR EVENT
18902  M01S13259.253l688 ---|          STM    ERRE
Line S00948 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
18903  M01S00948.253l688 +++|*         INITIALIZE FOR EST SEARCH.
18904  M01S00949.253l688 +++|
18905  M01S00950.253l688 +++|          LDN    ESTP        CALCULATE NUMBER OF EST ENTRIES
18906  M01S00951.253l688 +++|          CRD    T0
18907  M01S00952.253l688 +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
18908  M01S00953.253l688 +++|          STD    T5
18909  M01S00954.253l688 +++|          LDD    T0+2        SAVE LAST EST ORDINAL + 1
18910  M01S00955.253l688 +++|          STD    T6
18911  M01S00956.253l688 +++|
18912  M01S00957.253l688 +++|*         SEARCH FOR ALTERNATE STORAGE EQUIPMENT.
18913  M01S00958.253l688 +++|
18914  M01S00959.253l688 +++| GEE1     SFA    EST,T5      READ EST ENTRY
18915  M01S00960.253l688 +++|          ADK    EQDE
18916  M01S00961.253l688 +++|          CRD    T0
18917  M01S00962.253l688 +++|          LDD    T0+3        CHECK EQUIPMENT MNEMONIC
18918  M01S00963.253l688 +++| GEEA     LMC    2RMT        EQUIPMENT MNEMONIC FOR TAPE STAGE
18919  M01S00964.253l688 +++|*         LMC    2RCS        (EQUIPMENT MNEMONIC FOR *MSS* STAGE)
18920  M01S00965.253l688 +++|*         LMC    2RSS        (EQUIPMENT MNEMONIC FOR *MSE* STAGE)
18921  M01S00966.253l688 +++|          ZJN    GEEX        IF CORRECT EQUIPMENT MNEMONIC
18922  M01S00967.253l688 +++|          LDD    P1
18923  M01S00968.253l688 +++|          ZJN    GEE2        IF NOT TAPE STAGE REQUEST
18924  M01S00969.253l688 +++|          LDD    T0+3        CHECK EQUIPMENT MNEMONIC AGAIN
18925  M01S00970.253l688 +++|          LMC    2RNT        OTHER EQUIPMENT MNEMONIC FOR TAPE STAGE
18926  M01S00971.253l688 +++|          ZJN    GEEX        IF CORRECT EQUIPMENT MNEMONIC
18927  M01S00972.253l688 +++| GEE2     AOD    T5          ADVANCE EST ORDINAL
18928  M01S00973.253l688 +++|          LMD    T6
18929  M01S00974.253l688 +++|          NJN    GEE1        IF NOT END OF EST
18930  M01S00975.253l688 +++|          ERROR  PFN,CH,IW   *DEVICE UNAVAILABLE.*
Line S00009 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
18931  M01S00009.ns2673  +++| ISM      SPACE  4,15
18932  M01S00010.ns2673  +++|**        ISM - ISSUE REQUEST STAGE MESSAGE.
18933  M01S00011.ns2673  +++|*
18934  M01S00012.ns2673  +++|*         ISSUES AN *STRS* ACCOUNT FILE MESSAGE TO INDICATE THAT THE
18935  M01S00013.ns2673  +++|*         REQUEST FOR STAGE WAS SENT TO *MAGNET*.
18936  M01S00014.ns2673  +++|*
18937  M01S00015.ns2673  +++|*         ENTRY  (CI) = CATALOG INDEX POINTER TO CATALOG ENTRY.
18938  M01S00016.ns2673  +++|*                (P1) .NE. 0 IF TAPE STAGE REQUEST.
18939  M01S00017.ns2673  +++|*                (MSTA) = MST ADDRESS/10.
18940  M01S00018.ns2673  +++|*
18941  M01S00019.ns2673  +++|*         EXIT   ACCOUNT FILE MESSAGE ISSUED.
18942  M01S00020.ns2673  +++|*
18943  M01S00021.ns2673  +++|*         USES   T1, CM - CM+4.
18944  M01S00022.ns2673  +++|*
18945  M01S00023.ns2673  +++|*         CALLS  ACS, C2D, DFM.
18946  M01S00024.ns2673  +++|
18947  M01S00025.ns2673  +++|
18948  M01S00026.ns2673  +++| ISM      SUBR               ENTRY/EXIT
18949  M01S00027.ns2673  +++|          LDD    P1
Line S00028 Modification History
M01 (Added by) ns2673
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18950  M02S00028.274l797 ---|          ZJN    ISMX        IF NOT TAPE PF STAGE REQUEST
Line S00094 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
18951  M01S00094.274l797 +++| ISME     ZJN    ISMX        IF NOT TAPE PF STAGE REQUEST
18952  M01S00095.274l797 +++|*         PSN                (IF OPTICAL DISK REQUEST)
Line S00029 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
18953  M01S00029.ns2673  +++|          LDC    ISMB+3      INITIALIZE POINTER FOR *ACS* CALLS
18954  M01S00030.ns2673  +++|          STD    T1
18955  M01S00031.ns2673  +++|
18956  M01S00032.ns2673  +++|*         SET FILENAME INTO MESSAGE.
18957  M01S00033.ns2673  +++|
18958  M01S00034.ns2673  +++|          LDD    CI          SET ADDRESS OF CATALOG ENTRY
18959  M01S00035.ns2673  +++|          RAM    ISMA+1
18960  M01S00036.ns2673  +++|          LDD    MA
18961  M01S00037.ns2673  +++| ISMA     CWM    FCFN,ON     PFN AND UI
18962  M01S00038.ns2673  +++|          SBN    1           READ PFN
18963  M01S00039.ns2673  +++|          CRD    CM
18964  M01S00040.ns2673  +++|          LDD    CM+3
18965  M01S00041.ns2673  +++|          SCN    77
18966  M01S00042.ns2673  +++|          STD    CM+3        CLEAR UI BITS FROM PFN
18967  M01S00043.ns2673  +++|          LDN    CM          INSERT FILE NAME IN BUFFER
18968  M01S00044.ns2673  +++|          RJM    ACS
18969  M01S00045.ns2673  +++|          LDC    ISMC        APPEND COMMA
18970  M01S00046.ns2673  +++|          RJM    ACS
18971  M01S00047.ns2673  +++|
18972  M01S00048.ns2673  +++|*         CONVERT USER INDEX TO DISPLAY CODE.
18973  M01S00049.ns2673  +++|
18974  M01S00050.ns2673  +++|          LDD    MA          READ UI
18975  M01S00051.ns2673  +++|          CRD    CM
18976  M01S00052.ns2673  +++|          LDD    CM+3
18977  M01S00053.ns2673  +++|          RJM    C2D         CONVERT 2 OCTAL DIGITS TO DISPLAY CODE
18978  M01S00054.ns2673  +++|          STD    CM
18979  M01S00055.ns2673  +++|          LDD    CM+4
18980  M01S00056.ns2673  +++|          SHN    -6
18981  M01S00057.ns2673  +++|          RJM    C2D         CONVERT 2 OCTAL DIGITS TO DISPLAY CODE
18982  M01S00058.ns2673  +++|          STD    CM+1
18983  M01S00059.ns2673  +++|          LDD    CM+4
18984  M01S00060.ns2673  +++|          RJM    C2D         CONVERT 2 OCTAL DIGITS TO DISPLAY CODE
18985  M01S00061.ns2673  +++|          STD    CM+2
18986  M01S00062.ns2673  +++|
18987  M01S00063.ns2673  +++|*         SUPPRESS LEADING ZEROS ON USER INDEX.
18988  M01S00064.ns2673  +++|
18989  M01S00065.ns2673  +++|          LDN    0           TERMINATE STRING BUFFER
18990  M01S00066.ns2673  +++|          STD    CM+3
18991  M01S00067.ns2673  +++|          STD    CM+4        CLEAR STARTING BYTE OFFSET
18992  M01S00068.ns2673  +++| ISM1     LDM    CM,CM+4
18993  M01S00069.ns2673  +++|          ADC    -2R00
18994  M01S00070.ns2673  +++|          STD    T0
18995  M01S00071.ns2673  +++|          SCN    77
18996  M01S00072.ns2673  +++|          NJN    ISM3        IF UPPER DIGIT IS NON-ZERO
18997  M01S00073.ns2673  +++|          LDD    T0
18998  M01S00074.ns2673  +++|          LPN    77
18999  M01S00075.ns2673  +++|          NJN    ISM2        IF LOWER DIGIT IS NON-ZERO
19000  M01S00076.ns2673  +++|          AOD    CM+4        INCREMENT OFFSET
19001  M01S00077.ns2673  +++|          SBN    3
19002  M01S00078.ns2673  +++|          MJN    ISM1        IF ALL BYTES NOT EXAMINED
19003  M01S00079.ns2673  +++|          SOD    CM+4        CORRECT OFFSET
19004  M01S00080.ns2673  +++|
19005  M01S00081.ns2673  +++|*         SET USER INDEX INTO MESSAGE.
19006  M01S00082.ns2673  +++|
19007  M01S00083.ns2673  +++| ISM2     LDM    CM,CM+4     LOWER DIGIT OF BYTE IS FIRST DIGIT
19008  M01S00084.ns2673  +++|          SHN    6
19009  M01S00085.ns2673  +++|          SCN    77
19010  M01S00086.ns2673  +++|          STM    CM,CM+4
19011  M01S00087.ns2673  +++|          LDN    CM
19012  M01S00088.ns2673  +++|          ADD    CM+4
19013  M01S00089.ns2673  +++|          RJM    ACS         APPEND CHARACTERS TO STRING
19014  M01S00090.ns2673  +++|          AOD    CM+4
19015  M01S00091.ns2673  +++|          SBN    3
19016  M01S00092.ns2673  +++|          PJN    ISM4        IF LAST BYTE WAS SENT
19017  M01S00093.ns2673  +++| ISM3     LDN    CM
19018  M01S00094.ns2673  +++|          ADD    CM+4
19019  M01S00095.ns2673  +++|          RJM    ACS         APPEND CHARACTERS TO STRING
19020  M01S00096.ns2673  +++| ISM4     LDC    ISMC        APPEND COMMA
19021  M01S00097.ns2673  +++|          RJM    ACS
19022  M01S00098.ns2673  +++|
19023  M01S00099.ns2673  +++|*         SET FAMILY/PACK NAME INTO MESSAGE.
19024  M01S00100.ns2673  +++|
19025  M01S00101.ns2673  +++|          LDM    MSTA        READ FAMILY/PACK NAME
19026  M01S00102.ns2673  +++|          SHN    3
19027  M01S00103.ns2673  +++|          ADN    PFGL
19028  M01S00104.ns2673  +++|          CRD    CM
19029  M01S00105.ns2673  +++|          LDD    CM+3        CLEAR RESERVED FIELD
19030  M01S00106.ns2673  +++|          SCN    77
19031  M01S00107.ns2673  +++|          STD    CM+3
19032  M01S00108.ns2673  +++|          LDN    CM          INSERT FAMILY IN BUFFER
19033  M01S00109.ns2673  +++|          RJM    ACS
19034  M01S00110.ns2673  +++|          LDC    ISMD        APPEND TERMINATOR
19035  M01S00111.ns2673  +++|          RJM    ACS
19036  M01S00112.ns2673  +++|
19037  M01S00113.ns2673  +++|*         ISSUE MESSAGE.
19038  M01S00114.ns2673  +++|
19039  M01S00115.ns2673  +++|          LDC    ISMB+ACFN   ISSUE MESSAGE TO ACCOUNT FILE
19040  M01S00116.ns2673  +++|          RJM    DFM
19041  M01S00117.ns2673  +++|          LJM    ISMX        RETURN
19042  M01S00118.ns2673  +++|
19043  M01S00119.ns2673  +++|
19044  M01S00120.ns2673  +++| ISMB     DATA   C*STRS, *   ACCOUNT FILE MESSAGE BUFFER
19045  M01S00121.ns2673  +++|          BSSZ   14D
19046  M01S00122.ns2673  +++| ISMC     DATA   2H,         MESSAGE SEPARATOR
19047  M01S00123.ns2673  +++|          CON    0           END OF STRING
19048  M01S00124.ns2673  +++| ISMD     DATA   2H.         MESSAGE TERMINATOR
19049  M01S00125.ns2673  +++|          CON    0           END OF STRING
Line S00976 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19050  M01S00976.253l688 +++| STR      SPACE  4,25
19051  M01S00977.253l688 +++|**        STR - SETUP *TDAM* REQUEST.
19052  M01S00978.253l688 +++|*
19053  M01S00979.253l688 +++|*         ENTRY  (CB) = CATALOG BUFFER.
19054  M01S00980.253l688 +++|*                (CB-1) = CATALOG SECTOR.
19055  M01S00981.253l688 +++|*                (CB-2) = CATALOG TRACK.
19056  M01S00982.253l688 +++|*                (CI) = CATALOG INDEX POINTER TO CATALOG ENTRY.
Line S00126 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19057  M01S00126.ns2673  +++|*                (EQ) = MASTER DEVICE EST ORDINAL.
Line S00983 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19058  M01S00983.253l688 +++|*                (FN - FN+4) = FILE NAME.
19059  M01S00984.253l688 +++|*                (MSEQ) = ALTERNATE STORAGE EST ORDINAL.
19060  M01S00985.253l688 +++|*                (MSTA) = MST ADDRESS/10.
19061  M01S00986.253l688 +++|*                (PFPN - PFPN+4) = PERMANENT FILE CONTROL WORD.
19062  M01S00987.253l688 +++|*                (PFUI - PFUI+1) = USER INDEX.
19063  M01S00988.253l688 +++|*                (P1) .NE. 0 IF TAPE STAGE REQUEST.
19064  M01S00989.253l688 +++|*                (UI - UI+1) = USER INDEX.
19065  M01S00990.253l688 +++|*
19066  M01S00991.253l688 +++|*         EXIT   MESSAGE BUFFER SETUP FOR *TDAM* REQUEST.
19067  M01S00992.253l688 +++|*                (ERRE), (ERRC) SET WITH EVENT TO ROLL JOB OUT WITH.
19068  M01S00993.253l688 +++|*                (SPFA), (SPFD) SET WITH SUBSYSTEM ID, EVENT.
19069  M01S00994.253l688 +++|*                (SPFB) SET WITH SUBSYSTEM *TDAM* BUFFER ADDRESS.
19070  M01S00995.253l688 +++|*
19071  M01S00996.253l688 +++|*         USES   CM - CM+4, FN - FN+4, T0 - T0+4.
19072  M01S00997.253l688 +++|*
19073  M01S00998.253l688 +++|*         CALLS  GEE.
19074  M01S00999.253l688 +++|
19075  M01S01000.253l688 +++|
19076  M01S01001.253l688 +++| STR      SUBR               ENTRY/EXIT
19077  M01S01002.253l688 +++|
Line S01003 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19078  M02S01003.274l797 ---|*         SET SUBSYSTEM ID AND SUBSYSTEM EVENT.
Line S00096 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19079  M01S00096.274l797 +++|*         SET FILE ACCESS LEVEL AND FUNCTION CODE.
Line S01004 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19080  M01S01004.253l688 +++|
Line S00097 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19081  M01S00097.274l797 +++|          LDM    FCAL,CI     SET FILE ACCESS LEVEL
19082  M01S00098.274l797 +++|          LPN    7
19083  M01S00099.274l797 +++|          SHN    3
19084  M01S00100.274l797 +++|          LMD    HN          SET FUNCTION CODE = 1 (TAPE/*MSS*/*MSE*)
19085  M01S00101.274l797 +++|          STD    CM
19086  M01S00102.274l797 +++|          LDN    0
19087  M01S00103.274l797 +++|          STD    CM+1
Line S01005 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19088  M01S01005.253l688 +++|          LDD    P1
Line S01006 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19089  M02S01006.274l797 ---|          NJN    STR1        IF TAPE STAGE REQUEST
Line S00104 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19090  M01S00104.274l797 +++|          NJP    STR1.2      IF TAPE STAGE REQUEST
19091  M00S13260.pfm     +++|          LDM    FCAT,CI     GET ALTERNATE STORAGE TYPE
19092  M00S13261.pfm     +++|          LPN    77B
19093  M00S13262.pfm     +++|          STD    T1
Line S13263 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19094  M01S13263.253l688 ---|          LDM    MATB,T1     SET WAITING FOR ALTERNATE STORAGE EVENT
19095  M01S13264.253l688 ---|          STM    ERRC
19096  M01S13265.253l688 ---|          EXIT   PWE,CH,IW,,EC1 *(PFN) WAITING ALTERNATE STORAGE EXEC.*
Line S01007 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19097  M02S01007.274l797 ---|          LDM    STRC,T1     SET ALTERNATE STORAGE SUBSYSTEM ID
Line S00105 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19098  M01S00105.274l797 +++|          SBN    ATOD
19099  M01S00106.274l797 +++|          NJN    STR1        IF NOT OPTICAL STORAGE
19100  M01S00107.274l797 +++|          LDD    HN          SET FUNCTION CODE = 2  (OPTICAL DISK)
19101  M01S00108.274l797 +++|          RAD    CM
19102  M01S00109.274l797 +++|          ISTORE ISME,(PSN)  SET *ISM* TO ISSUE OPTICAL STAGE MESSAGE
19103  M01S00110.274l797 +++|          LDC    2RSO
19104  M01S00111.274l797 +++|          STM    ISMB
19105  M01S00112.274l797 +++|          UJN    STR1.1      SET SUBSYSTEM INFORMATION
19106  M01S00113.274l797 +++|
19107  M01S00114.274l797 +++| STR1     LDC    MIRE        SET *MSS*/*MSE* *TDAM* BUFFER ADDRESS
19108  M01S00115.274l797 +++|          STM    SPFB+1
19109  M01S00116.274l797 +++|          ERRPL  MIRE-10000B CODE DEPENDS ON VALUE
19110  M01S00117.274l797 +++|
19111  M01S00118.274l797 +++|*         SET SUBSYSTEM ID AND SUBSYSTEM EVENT.
19112  M01S00119.274l797 +++|
19113  M01S00120.274l797 +++| STR1.1   LDM    STRC,T1     SET ALTERNATE STORAGE SUBSYSTEM ID
Line S01008 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19114  M01S01008.253l688 +++|          STM    SPFA+1
19115  M01S01009.253l688 +++|          LDM    STRD,T1     SET ALTERNATE STORAGE SUBSYSTEM EVENT
19116  M01S01010.253l688 +++|          STM    SPFD+1
Line S01011 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19117  M02S01011.274l797 ---|          LDC    MIRE        SET *MSS*/*MSE* *TDAM* BUFFER ADDRESS
19118  M02S01012.274l797 ---|          STM    SPFB+1
19119  M02S01013.274l797 ---|          ERRPL  MIRE-10000B CODE DEPENDS ON VALUE
Line S01014 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19120  M01S01014.253l688 +++|          LDM    STRE,T1     SET ALTERNATE STORAGE EQUIPMENT TYPE
19121  M01S01015.253l688 +++|          STM    GEEA+1
Line S13266 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19122  M01S13266.274l797 ---|
Line S01016 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19123  M02S01016.274l797 ---|*         SET FILE ACCESS LEVEL AND FUNCTION CODE.
Line S13267 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19124  M01S13267.274l797 ---|
Line S13268 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19125  M02S13268.274l797 ---| MATB     INDEX              ALTERNATE STORAGE EXECUTIVE EVENT TABLE
19126  M02S13269.274l797 ---|          INDEX  ATMS,MSXE   *MSS*
Line S13270 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19127  M03S13270.274l797 ---|          INDEX  ATAS,ASXE   *MAS*
Line S01612 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19128  M03S01612.274l797 ---|          INDEX  ATAS,ASXE   *MSE*
Line S13271 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19129  M02S13271.274l797 ---|          INDEX  ATMAX+1
19130  M02S13272.274l797 ---|
19131  M02S13273.274l797 ---|          TITLE  SUBROUTINES.
19132  M02S13274.274l797 ---| ITR      SPACE  4,15
19133  M02S13275.274l797 ---|**        ITR - ISSUE TDAM REQUEST.
19134  M02S13276.274l797 ---|*
19135  M02S13277.274l797 ---|*         ENTRY  TDAM BUFFER SETUP IN PP MESSAGE BUFFER.
19136  M02S13278.274l797 ---|*
19137  M02S13279.274l797 ---|*         EXIT   (A) = TDAM COMPLETION STATUS.
19138  M02S13280.274l797 ---|*
19139  M02S13281.274l797 ---|*         USES   CM - CM+4.
19140  M02S13282.274l797 ---|*
19141  M02S13283.274l797 ---|*         MACROS MONITOR.
19142  M02S13284.274l797 ---|
19143  M02S13285.274l797 ---|
19144  M02S13286.274l797 ---| ITR      SUBR               ENTRY/EXIT
19145  M02S13287.274l797 ---|          LDN    1           SET WRITE FUNCTION
19146  M02S13288.274l797 ---|          STD    CM+1
19147  M02S13289.274l797 ---|          LDM    FCAT,CI     GET ALTERNATE STORAGE TYPE
19148  M02S13290.274l797 ---|          LPN    77B
19149  M02S13291.274l797 ---|          STD    T1
19150  M02S13292.274l797 ---|          LDM    ITRA,T1     SET ALTERNATE STORAGE SUBSYSTEM ID
19151  M02S13293.274l797 ---|          STD    CM+2
19152  M02S13294.274l797 ---|          LDC    6*100+MIRE/10000  MESSAGE LENGTH AND MSB OF ADDRESS
19153  M02S13295.274l797 ---|          STD    CM+3
19154  M02S13296.274l797 ---|          LDK    MIRE        SET LSB OF RECEIVING BUFFER ADDRESS
19155  M02S13297.274l797 ---|          STD    CM+4
19156  M02S13298.274l797 ---|          MONITOR TDAM       ISSUE TDAM REQUEST
19157  M02S13299.274l797 ---|          LDD    CM+1
19158  M02S13300.274l797 ---|          UJN    ITRX        RETURN
19159  M02S13301.274l797 ---|
19160  M02S13302.274l797 ---|
19161  M02S13303.274l797 ---| ITRA     INDEX              ALTERNATE STORAGE SUBSYSTEM ID TABLE
19162  M02S13304.274l797 ---|          INDEX  ATMS,MFSI   *MSS*
Line S13305 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19163  M03S13305.274l797 ---|          INDEX  ATAS,ASSI   *MAS*
Line S01613 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19164  M03S01613.274l797 ---|          INDEX  ATAS,ASSI   *MSE*
Line S13306 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19165  M02S13306.274l797 ---|          INDEX  ATMAX+1
19166  M02S13307.274l797 ---| OFN      SPACE  4,15
19167  M02S13308.274l797 ---|**        OFN - OBTAIN FAMILY NAME AND DEVICE NUMBER (DN).
19168  M02S13309.274l797 ---|*
19169  M02S13310.274l797 ---|*         ENTRY  (MSTA) = MST ADDRESS/1000.
19170  M02S13311.274l797 ---|*
19171  M02S13312.274l797 ---|*         EXIT   (A) = FAMILY DEVICE NUMBER (DN).
19172  M02S13313.274l797 ---|*                (CN - CN+4) = FAMILY NAME FORMATTED FOR TDAM REQUEST.
19173  M02S13314.274l797 ---|*                (T2) = FAMILY DEVICE NUMBER.
19174  M02S13315.274l797 ---|*
19175  M02S13316.274l797 ---|*         USES   T2.
19176  M02S13317.274l797 ---|
19177  M02S13318.274l797 ---|
19178  M02S13319.274l797 ---| OFN      SUBR               ENTRY/EXIT
19179  M02S13320.274l797 ---|          LDM    MSTA        GET FAMILY NAME AND *DN* FROM MST
19180  M02S13321.274l797 ---|          SHN    3
19181  M02S13322.274l797 ---|          ADN    PFGL
19182  M02S13323.274l797 ---|          CRD    CN
19183  M02S13324.274l797 ---|          LDN    0           FORMAT FOR TDAM REQUEST
19184  M02S13325.274l797 ---|          STD    CN+4
19185  M02S13326.274l797 ---|          LDD    CN+3        SET FAMILY DN
19186  M02S13327.274l797 ---|          LPN    77
19187  M02S13328.274l797 ---|          STD    T2
19188  M02S13329.274l797 ---|          LMD    CN+3
19189  M02S13330.274l797 ---|          STD    CN+3
19190  M02S13331.274l797 ---|          LDD    T2
19191  M02S13332.274l797 ---|          UJN    OFNX        RETURN
19192  M02S13333.274l797 ---| OMO      SPACE  4,15
19193  M02S13334.274l797 ---|**        OMO - OBTAIN EST ORDINAL FOR ALTERNATE STORAGE EQUIPMENT.
19194  M02S13335.274l797 ---|*
19195  M02S13336.274l797 ---|*         EXIT   (A) = EST ORDINAL OF LAST CSU IN EST.
19196  M02S13337.274l797 ---|*
19197  M02S13338.274l797 ---|*         USES   T5, T6, T7, T0 - T0+4.
19198  M02S13339.274l797 ---|*
19199  M02S13340.274l797 ---|*         MACROS ERROR, SFA.
19200  M02S13341.274l797 ---|
19201  M02S13342.274l797 ---|
19202  M02S13343.274l797 ---| OMO      SUBR               ENTRY/EXIT
19203  M02S13344.274l797 ---|
19204  M02S13345.274l797 ---|*         INITIALIZE FOR EST SEARCH.
19205  M02S13346.274l797 ---|
19206  M02S13347.274l797 ---| OMO0     LDM    FCAT,CI     GET ALTERNATE STORAGE TYPE
19207  M02S13348.274l797 ---|          LPN    77B
19208  M02S13349.274l797 ---|          STD    T7
19209  M02S13350.274l797 ---|          LDN    ESTP        CALCULATE NUMBER OF EST ENTRIES
19210  M02S13351.274l797 ---|          CRD    T0
19211  M02S13352.274l797 ---|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
19212  M02S13353.274l797 ---|          STD    T5
19213  M02S13354.274l797 ---|          LDD    T0+2        SAVE LAST EST ORDINAL + 1
19214  M02S13355.274l797 ---|          STD    T6
19215  M02S13356.274l797 ---|
19216  M02S13357.274l797 ---|*         SEARCH FOR ALTERNATE STORAGE EQUIPMENT.
19217  M02S13358.274l797 ---|
19218  M02S13359.274l797 ---| OMO1     AOD    T5          ADVANCE EST ORDINAL
19219  M02S13360.274l797 ---|          LMD    T6
19220  M02S13361.274l797 ---|          NJN    OMO2        IF NOT END OF EST
19221  M02S13362.274l797 ---|          ERROR  PFN,CH,IW   *DEVICE UNAVAILABLE.*
19222  M02S13363.274l797 ---|
19223  M02S13364.274l797 ---| OMO2     SFA    EST,T5      READ EST ENTRY
19224  M02S13365.274l797 ---|          ADK    EQDE
19225  M02S13366.274l797 ---|          CRD    T0
19226  M02S13367.274l797 ---|          LDD    T0+3        CHECK FOR ALTERNATE STORAGE EST ENTRY
Line S13368 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19227  M03S13368.274l797 ---|          LPC    3777
Line S13369 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19228  M02S13369.274l797 ---|          LMM    OMOA,T7     ALTERNATE STORAGE EQUIPMENT DEVICE TYPE
19229  M02S13370.274l797 ---|          NJN    OMO1        IF NOT ALTERNATE STORAGE EST ENTRY
19230  M02S13371.274l797 ---|          LDD    T5          RETURN EST ORDINAL
19231  M02S13372.274l797 ---|          LJM    OMOX        RETURN
19232  M02S13373.274l797 ---|
19233  M02S13374.274l797 ---|
19234  M02S13375.274l797 ---| OMOA     INDEX              ALTERNATE STORAGE EQUIPMENT TABLE
19235  M02S13376.274l797 ---|          INDEX  ATMS,2RCS   *MSS*
Line S13377 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19236  M03S13377.274l797 ---|          INDEX  ATAS,2RSS   *MAS*
Line S01614 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
M03 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19237  M03S01614.274l797 ---|          INDEX  ATAS,2RSS   *MSE*
Line S13378 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19238  M02S13378.274l797 ---|          INDEX  ATMAX+1
19239  M02S13379.274l797 ---| STR      SPACE  4,15
19240  M02S13380.274l797 ---|**        STR - SETUP TDAM REQUEST.
19241  M02S13381.274l797 ---|*
19242  M02S13382.274l797 ---|*         ENTRY  (CB) = CATALOG BUFFER.
19243  M02S13383.274l797 ---|*                (CB-1) = CATALOG SECTOR.
19244  M02S13384.274l797 ---|*                (CB-2) = CATALOG TRACK.
19245  M02S13385.274l797 ---|*                (CI) = CATALOG INDEX POINTER TO CATALOG ENTRY.
19246  M02S13386.274l797 ---|*                (FN - FN+4) = FILE NAME.
19247  M02S13387.274l797 ---|*                (MSEQ) = ALTERNATE STORAGE EST ORDINAL.
19248  M02S13388.274l797 ---|*                (PFPN - PFPN+4) = PERMANENT FILE CONTROL WORD.
19249  M02S13389.274l797 ---|*                (PFUI - PFUI+1) = USER INDEX.
19250  M02S13390.274l797 ---|*                (UI - UI+1) = USER INDEX.
19251  M02S13391.274l797 ---|*
19252  M02S13392.274l797 ---|*         EXIT   MESSAGE BUFFER SETUP FOR TDAM REQUEST.
19253  M02S13393.274l797 ---|*                (ERRE), (ERRC) SET WITH EVENT TO ROLL JOB OUT WITH.
19254  M02S13394.274l797 ---|*
19255  M02S13395.274l797 ---|*         USES   T1, T2, CM - CM+4, FN - FN+4.
19256  M02S13396.274l797 ---|*
19257  M02S13397.274l797 ---|*         CALLS  OFN, OMO.
19258  M02S13398.274l797 ---|
19259  M02S13399.274l797 ---| STR      SUBR               ENTRY/EXIT
19260  M02S13400.274l797 ---|          LDM    FCAL,CI     SET FILE ACCESS LEVEL
Line S01017 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19261  M02S01017.274l797 ---| STR1     LDM    FCAL,CI     SET FILE ACCESS LEVEL
Line S13401 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19262  M01S13401.274l797 ---|          LPN    7
19263  M01S13402.274l797 ---|          SHN    3
19264  M01S13403.274l797 ---|          LMD    HN          SET FUNCTION CODE
19265  M01S13404.274l797 ---|          STD    CM
19266  M01S13405.274l797 ---|          LDN    0
19267  M01S13406.274l797 ---|          STD    CM+1
19268  M00S13407.pfm     +++|
Line S13408 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19269  M01S13408.253l688 ---|*         SETUP FAMILY, *PEO*, AND *DN* VALUES.
Line S01018 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19270  M01S01018.253l688 +++|*         SET *PEO* AND *DN*.
19271  M00S13409.pfm     +++|
Line S13410 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19272  M01S13410.274l797 ---|          LDD    CI          OFFSET INTO CATALOG SECTOR
Line S00121 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19273  M01S00121.274l797 +++| STR1.2   LDD    CI          OFFSET INTO CATALOG SECTOR
19274  M00S13411.pfm     +++|          SBD    CB
19275  M00S13412.pfm     +++|          SBN    2
19276  M00S13413.pfm     +++|          SHN    -NWCES      CALCULATE *PEO* VALUE
19277  M00S13414.pfm     +++|          LPN    1S"NWCEM"-1
19278  M00S13415.pfm     +++|          SHN    6           POSITION FOR *TDAM* REQUEST
19279  M00S13416.pfm     +++|          STD    CM+2
Line S13417 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19280  M01S13417.253l688 ---|          RJM    OFN         OBTAIN FAMILY NAME AND DN
Line S01019 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19281  M01S01019.253l688 +++|          LDM    MSTA        GET DEVICE NUMBER
19282  M01S01020.253l688 +++|          SHN    3
19283  M01S01021.253l688 +++|          ADN    PFGL
19284  M01S01022.253l688 +++|          CRD    T0
19285  M01S01023.253l688 +++|          LDD    T0+3
19286  M01S01024.253l688 +++|          LPN    77
19287  M00S13418.pfm     +++|          RAD    CM+2        COMBINE *PEO* WITH *DN*
19288  M00S13419.pfm     +++|
Line S13420 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19289  M01S13420.253l688 ---|*         SETUP *TDAM* WITH *AFFRE*, *AFPDR*, AND *AFVER* STATUS.
Line S01025 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19290  M02S01025.274l797 ---|*         SET FLAGS FOR CARTRIDGE STAGE.
Line S00122 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19291  M01S00122.274l797 +++|*         SET FLAGS FOR CARTRIDGE OR OPTICAL STAGE.
19292  M00S13421.pfm     +++|
Line S01026 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19293  M01S01026.253l688 +++|          LDD    P1
19294  M01S01027.253l688 +++|          NJN    STR2        IF TAPE STAGE REQUEST
19295  M00S13422.pfm     +++|          LDM    FCAF,CI     GET ALTERNATE STORAGE FLAGS
19296  M00S13423.pfm     +++|          LPC    AFPDRM+AFVERM+AFFREM
Line S13424 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19297  M01S13424.253l688 ---|          SHN    13-6
19298  M01S13425.253l688 ---|          LMD    CM+2        COMBINE WITH PEO AND DN VALUES
19299  M01S13426.253l688 ---|          STD    CM+2
Line S01028 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19300  M01S01028.253l688 +++|          SHN    13-6        COMBINE WITH PEO AND DN
19301  M01S01029.253l688 +++|          RAD    CM+2
19302  M00S13427.pfm     +++|
Line S13428 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19303  M01S13428.253l688 ---|*         SETUP CATALOG TRACK AND SECTOR VALUES.
Line S01030 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19304  M01S01030.253l688 +++|*         SET CATALOG TRACK AND SECTOR.
19305  M00S13429.pfm     +++|
Line S13430 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19306  M01S13430.253l688 ---|          LDM    -2,CB       SET CATALOG TRACK ADDRESS
Line S01031 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19307  M01S01031.253l688 +++| STR2     LDM    -2,CB       SET CATALOG TRACK ADDRESS
19308  M00S13431.pfm     +++|          STD    CM+3
19309  M00S13432.pfm     +++|          LDM    -1,CB       SET CATALOG SECTOR ADDRESS
19310  M00S13433.pfm     +++|          STD    CM+4
19311  M00S13434.pfm     +++|          LDD    MA          TDAM+0 INTO MESSAGE BUFFER
19312  M00S13435.pfm     +++|          CWD    CM
19313  M00S13436.pfm     +++|
Line S13437 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19314  M01S13437.253l688 ---|*         SETUP *AT* AND ALTERNATE STORAGE ADDRESS FOR TDAM.
Line S01032 Modification History
M01 (Added by) 253l688
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19315  M02S01032.274l797 ---|*         SET *AT* AND *ASA* FOR CARTRIDGE STAGE.
Line S00123 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19316  M01S00123.274l797 +++|*         SET *AT* AND *ASA* FOR CARTRIDGE OR OPTICAL DISK STAGE.
19317  M00S13438.pfm     +++|
Line S01033 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19318  M01S01033.253l688 +++|          LDD    P1
19319  M01S01034.253l688 +++|          NJN    STR3        IF TAPE STAGE REQUEST
19320  M00S13439.pfm     +++|          LDN    0           CLEAR RESERVED FIELD
19321  M00S13440.pfm     +++|          STD    CM
19322  M00S13441.pfm     +++|          LDM    FCAT,CI     SET ALTERNATE STORAGE TYPE
19323  M00S13442.pfm     +++|          LPN    77
19324  M00S13443.pfm     +++|          STD    CM+1
19325  M00S13444.pfm     +++|          LDM    FCAA,CI     SET ALTERNATE STORAGE ADDRESS (ASA)
19326  M00S13445.pfm     +++|          STD    CM+2
19327  M00S13446.pfm     +++|          LDM    FCAA+1,CI
19328  M00S13447.pfm     +++|          STD    CM+3
19329  M00S13448.pfm     +++|          LDM    FCAA+2,CI
19330  M00S13449.pfm     +++|          STD    CM+4
19331  M00S13450.pfm     +++|          LDD    MA          TDAM+1 INTO MESSAGE BUFFER
19332  M00S13451.pfm     +++|          ADN    1
19333  M00S13452.pfm     +++|          CWD    CM
Line S01035 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19334  M01S01035.253l688 +++|          UJN    STR4        PROCESS NEXT WORD
19335  M00S13453.pfm     +++|
Line S13454 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19336  M01S13454.253l688 ---|*         SETUP PERMANENT FILE NAME AND USER INDEX FOR TDAM.
Line S01036 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19337  M01S01036.253l688 +++|*         SET FLAGS, FILE SEQUENCE NUMBER AND VSN FOR TAPE STAGE.
19338  M00S13455.pfm     +++|
Line S13456 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19339  M01S13456.253l688 ---|          LDD    FN+3        COMBINE USER INDEX WITH PFN
19340  M01S13457.253l688 ---|          SCN    77
19341  M01S13458.253l688 ---|          LMD    UI
19342  M01S13459.253l688 ---|          STD    FN+3
19343  M01S13460.253l688 ---|          LDD    UI+1
19344  M01S13461.253l688 ---|          STD    FN+4
Line S01037 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19345  M01S01037.253l688 +++| STR3     LDD    CI          SET ADDRESS OF CATALOG ENTRY
19346  M01S01038.253l688 +++|          RAM    STRA+1
19347  M01S01039.253l688 +++|          LDD    MA          TDAM+1 INTO MESSAGE BUFFER
19348  M01S01040.253l688 +++|          ADN    1
19349  M01S01041.253l688 +++| STRA     CWM    FCTF,ON
19350  M01S01042.253l688 +++|
19351  M01S01043.253l688 +++|*         SET PERMANENT FILE NAME AND USER INDEX.
19352  M01S01044.253l688 +++|
19353  M01S01045.253l688 +++| STR4     LDD    CI          SET ADDRESS OF CATALOG ENTRY
19354  M01S01046.253l688 +++|          RAM    STRB+1
19355  M00S13462.pfm     +++|          LDD    MA          TDAM+2 INTO MESSAGE BUFFER
19356  M00S13463.pfm     +++|          ADN    2
Line S13464 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19357  M01S13464.253l688 ---|          CWD    FN
Line S01047 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19358  M01S01047.253l688 +++| STRB     CWM    FCFN,ON
19359  M00S13465.pfm     +++|
Line S13466 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19360  M01S13466.253l688 ---|*         SET UP JSN AND EVENT FOR *TDAM*.
Line S01048 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19361  M01S01048.253l688 +++|*         SET JSN.
19362  M00S13467.pfm     +++|
19363  M00S13468.pfm     +++|          LDD    CP          FETCH EJT ORDINAL
19364  M00S13469.pfm     +++|          ADN    TFSW
19365  M00S13470.pfm     +++|          CRD    CM
19366  M00S13471.pfm     +++|          SFA    EJT,CM      READ JOB SEQUENCE NUMBER
19367  M00S13472.pfm     +++|          ADK    JSNE
19368  M00S13473.pfm     +++|          CRD    CM
19369  M00S13474.pfm     +++|          LDN    0
19370  M00S13475.pfm     +++|          STD    CM+2
Line S13476 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19371  M01S13476.253l688 ---|          RJM    OMO         OBTAIN ALTERNATE STORAGE EST ORDINAL
19372  M01S13477.253l688 ---|          STD    CM+3        SET EST ORDINAL IN EVENT
Line S01049 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19373  M01S01049.253l688 +++|
19374  M01S01050.253l688 +++|*         SET EVENT FOR CARTRIDGE STAGE.
19375  M01S01051.253l688 +++|
19376  M01S01052.253l688 +++|          RJM    GEE         GET EST ORDINAL FOR EVENT
19377  M01S01053.253l688 +++|          LDD    T5
19378  M01S01054.253l688 +++|          STD    CM+3
19379  M00S13478.pfm     +++|          STM    ERRE
Line S01055 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19380  M01S01055.253l688 +++|          LDD    P1
19381  M01S01056.253l688 +++|          NJN    STR5        IF TAPE STAGE REQUEST
19382  M00S13479.pfm     +++|          LDM    FCAA,CI     SET FOLDED ASA IN EVENT
19383  M00S13480.pfm     +++|          LMM    FCAA+1,CI
19384  M00S13481.pfm     +++|          LMM    FCAA+2,CI
Line S13482 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19385  M01S13482.253l688 ---|          STD    CM+4
Line S01057 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19386  M01S01057.253l688 +++|          UJN    STR6        SET EVENT
19387  M01S01058.253l688 +++|
19388  M01S01059.253l688 +++|*         SET EVENT FOR TAPE STAGE.
19389  M01S01060.253l688 +++|
19390  M01S01061.253l688 +++| STR5     LDM    -2,CB       FOLD CATALOG TRACK AND SECTOR FOR EVENT
19391  M01S01062.253l688 +++|          SHN    6
19392  M01S01063.253l688 +++|          LMM    -1,CB
19393  M01S01064.253l688 +++| STR6     STD    CM+4        SET EVENT
19394  M00S13483.pfm     +++|          STM    ERRC
19395  M00S13484.pfm     +++|          LDD    MA          TDAM+3 INTO MESSAGE BUFFER
19396  M00S13485.pfm     +++|          ADN    3
19397  M00S13486.pfm     +++|          CWD    CM
19398  M00S13487.pfm     +++|
Line S13488 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19399  M01S13488.253l688 ---|*         SETUP FAMILY NAME FOR THE TDAM REQUEST.
Line S01065 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19400  M02S01065.ns2673  ---|*         SET FAMILY/PACK NAME.
Line S00127 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19401  M01S00127.ns2673  +++|*         SET FAMILY/PACK NAME AND MASTER DEVICE EST ORDINAL.
19402  M00S13489.pfm     +++|
Line S01066 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19403  M02S01066.ns2673  ---|          LDM    MSTA        READ FAMILY/PACK NAME
Line S00128 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19404  M01S00128.ns2673  +++|          LDD    P1
19405  M01S00129.ns2673  +++|          NJN    STR7        IF TAPE STAGE REQUEST
19406  M01S00130.ns2673  +++|          LDC    LDNI+0      PREVENT EST ORDINAL STORE
19407  M01S00131.ns2673  +++|          STM    STRF
19408  M01S00132.ns2673  +++| STR7     LDM    MSTA        READ FAMILY/PACK NAME
Line S01067 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19409  M01S01067.253l688 +++|          SHN    3
19410  M01S01068.253l688 +++|          ADN    PFGL
19411  M01S01069.253l688 +++|          CRD    CM
19412  M01S01070.253l688 +++|          LDD    CM+3        CLEAR RESERVED FIELD
19413  M01S01071.253l688 +++|          SCN    77
19414  M01S01072.253l688 +++|          STD    CM+3
Line S01073 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19415  M02S01073.ns2673  ---|          LDN    0
Line S00133 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19416  M01S00133.ns2673  +++| STRF     LDD    EQ          SET MASTER DEVICE EST ORDINAL
19417  M01S00134.ns2673  +++|*         LDN    0           (CARTRIDGE STAGE REQUEST)
Line S01074 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19418  M01S01074.253l688 +++|          STD    CM+4
19419  M01S01075.253l688 +++|          LDD    MA          TDAM+4 INTO MESSAGE BUFFER
19420  M01S01076.253l688 +++|          ADN    4
19421  M01S01077.253l688 +++|          CWD    CM
19422  M00S13490.pfm     +++|
Line S13491 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19423  M01S13491.253l688 ---|          ADN    4-3         TDAM+4 INTO MESSAGE BUFFER
19424  M01S13492.253l688 ---|          CWD    CN
19425  M01S13493.253l688 ---|
19426  M01S13494.253l688 ---|*         SETUP FILE LENGTH, CREATION DATE AND TIME FOR TDAM REQUEST.
Line S01078 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19427  M01S01078.253l688 +++|*         SET FILE LENGTH AND CREATION DATE/TIME.
19428  M00S13495.pfm     +++|
19429  M00S13496.pfm     +++|          LDM    FCLF,CI     SET FILE LENGTH
19430  M00S13497.pfm     +++|          STD    CM
19431  M00S13498.pfm     +++|          LDM    FCLF+1,CI
19432  M00S13499.pfm     +++|          STD    CM+1
19433  M00S13500.pfm     +++|          LDM    FCBS,CI     GET IAPF/DAPF INDICATOR FROM SECTOR FIELD
19434  M00S13501.pfm     +++|          LPC    4000B
19435  M00S13502.pfm     +++|          LMC    4000B
19436  M00S13503.pfm     +++|          RAD    CM          SET TDAM BLOCK *I* FIELD IF IAPF
19437  M00S13504.pfm     +++|          LDM    FCCD,CI     TRANSFER CREATION DATE AND TIME FOR TDAM
19438  M00S13505.pfm     +++|          STD    CM+2
19439  M00S13506.pfm     +++|          LDM    FCCD+1,CI
19440  M00S13507.pfm     +++|          STD    CM+3
19441  M00S13508.pfm     +++|          LDM    FCCD+2,CI
19442  M00S13509.pfm     +++|          STD    CM+4
19443  M00S13510.pfm     +++|          LDD    MA          TDAM+5 INTO MESSAGE BUFFER
19444  M00S13511.pfm     +++|          ADN    5
19445  M00S13512.pfm     +++|          CWD    CM
19446  M00S13513.pfm     +++|          LJM    STRX        RETURN
Line S01079 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19447  M01S01079.253l688 +++|
19448  M01S01080.253l688 +++|
19449  M01S01081.253l688 +++| STRC     INDEX              ALTERNATE STORAGE SUBSYSTEM ID-S
19450  M01S01082.253l688 +++|          INDEX  ATMS,MFSI   *MSS*
19451  M01S01083.253l688 +++|          INDEX  ATAS,ASSI   *MSE*
Line S00124 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19452  M01S00124.274l797 +++|          INDEX  ATOD,MTSI   *MAGNET*
Line S01084 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19453  M01S01084.253l688 +++|          INDEX  ATMAX+1
19454  M01S01085.253l688 +++|
19455  M01S01086.253l688 +++| STRD     INDEX              ALTERNATE STORAGE EXECUTIVE EVENTS
19456  M01S01087.253l688 +++|          INDEX  ATMS,MSXE   *MSS*
19457  M01S01088.253l688 +++|          INDEX  ATAS,ASXE   *MSE*
Line S00125 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19458  M01S00125.274l797 +++|          INDEX  ATOD,MTXE   *MAGNET*
Line S01089 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19459  M01S01089.253l688 +++|          INDEX  ATMAX+1
19460  M01S01090.253l688 +++|
19461  M01S01091.253l688 +++| STRE     INDEX              ALTERNATE STORAGE EQUIPMENT MNEMONICS
19462  M01S01092.253l688 +++|          INDEX  ATMS,2RCS   *MSS*
19463  M01S01093.253l688 +++|          INDEX  ATAS,2RSS   *MSE*
Line S00126 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19464  M01S00126.274l797 +++|          INDEX  ATOD,2ROD   *MAGNET* - OPTICAL DISK
Line S01094 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19465  M01S01094.253l688 +++|          INDEX  ATMAX+1
Line S00050 Modification History
M01 (Added by) pfm73
Seq #  *Modification Id* Act 
----------------------------+
19466  M01S00050.pfm73   +++| UPF      SPACE  4,25
19467  M01S00051.pfm73   +++|**        UPF - UPDATE PFC ON USER ACCESS.
19468  M01S00052.pfm73   +++|*
19469  M01S00053.pfm73   +++|*         ON A USER ACCESS WITH NO ERRORS, UPDATE THE LAST ACCESS
19470  M01S00054.pfm73   +++|*         DATE AND TIME IN THE PFC TO PREVENT THE IMMEDIATE RELEASE
19471  M01S00055.pfm73   +++|*         OF THE FILE BEFORE IT CAN BE ACCESSED. IF ERRORS WERE
19472  M01S00056.pfm73   +++|*         DETECTED, ONLY UPDATE THE PFC TO CLEAR *AFTPE* (IF PRESENT).
19473  M01S00057.pfm73   +++|*
19474  M01S00058.pfm73   +++|*         ENTRY  (CB) = CATALOG BUFFER ADDRESS.
19475  M01S00059.pfm73   +++|*                (CC) = COMMAND CODE.
19476  M01S00060.pfm73   +++|*                (CI) = ADDRESS OF PFC ENTRY IN BUFFER.
19477  M01S00061.pfm73   +++|*                (P2) = CARTRIDGE COPY ERROR STATUS.
19478  M01S00062.pfm73   +++|*                (P3) = TAPE COPY ERROR STATUS.
19479  M01S00063.pfm73   +++|*
19480  M01S00064.pfm73   +++|*         EXIT   LAST ACCESS DATE AND TIME UPDATED IN THE PFC.
19481  M01S00065.pfm73   +++|*                *ENDMS* PERFORMED.
19482  M01S00066.pfm73   +++|*                CATALOG INTERLOCK CLEARED.
19483  M01S00067.pfm73   +++|*
19484  M01S00068.pfm73   +++|*         USES   CM - CM+4.
19485  M01S00069.pfm73   +++|*
19486  M01S00070.pfm73   +++|*         CALLS  CCI, WBI.
19487  M01S00071.pfm73   +++|*
19488  M01S00072.pfm73   +++|*         MACROS ENDMS.
19489  M01S00073.pfm73   +++|
19490  M01S00074.pfm73   +++|
19491  M01S00075.pfm73   +++| UPF      SUBR               ENTRY/EXIT
19492  M01S00076.pfm73   +++|          LDD    CC
19493  M01S00077.pfm73   +++|          LMN    CCSP
19494  M01S00078.pfm73   +++|          ZJN    UPFX        IF *STAGEPF* REQUEST
19495  M01S00079.pfm73   +++|          LDD    P3
19496  M01S00080.pfm73   +++|          ZJN    UPF1        IF NO TAPE COPY ERRORS
19497  M01S00081.pfm73   +++|          LDD    P2
19498  M01S00082.pfm73   +++|          ZJN    UPF1        IF NO CARTRIDGE COPY ERRORS
19499  M01S00083.pfm73   +++|          SBN    3
19500  M01S00084.pfm73   +++|          ZJN    UPF2        IF TEMPORARY ERROR ON CARTRIDGE COPY
19501  M01S00085.pfm73   +++|          UJN    UPF3        CLEAR INTERLOCK AND RETURN
19502  M01S00086.pfm73   +++|
19503  M01S00087.pfm73   +++| UPF1     LDN    PDTL        UPDATE LAST ACCESS DATE AND TIME
19504  M01S00088.pfm73   +++|          CRD    CM
19505  M01S00089.pfm73   +++|          LDD    CM+2
19506  M01S00090.pfm73   +++|          STM    FCAD,CI
19507  M01S00091.pfm73   +++|          LDD    CM+3
19508  M01S00092.pfm73   +++|          STM    FCAD+1,CI
19509  M01S00093.pfm73   +++|          LDD    CM+4
19510  M01S00094.pfm73   +++|          STM    FCAD+2,CI
19511  M01S00095.pfm73   +++| UPF2     LDD    CB          REWRITE CATALOG
19512  M01S00096.pfm73   +++|          RJM    WBI
19513  M01S00097.pfm73   +++| UPF3     ENDMS
19514  M01S00098.pfm73   +++|          RJM    CCI         CLEAR CATALOG INTERLOCK
19515  M01S00099.pfm73   +++|          UJN    UPFX        RETURN
19516  M00S13514.pfm     +++|          SPACE  4,10
19517  M00S13515.pfm     +++|*         COMMON DECKS.
19518  M00S13516.pfm     +++|
19519  M00S13517.pfm     +++|
Line S00135 Modification History
M01 (Added by) ns2673
Seq #  *Modification Id* Act 
----------------------------+
19520  M01S00135.ns2673  +++|*CALL     COMPACS
19521  M01S00136.ns2673  +++|*CALL     COMPC2D
19522  M00S13518.pfm     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
19523  M00S13519.pfm     +++|*CALL     COMPGFP
19524  M00S13520.pfm     +++|          SPACE  4,10
19525  M00S13521.pfm     +++|*         CHECK FOR OVERFLOW.
19526  M00S13522.pfm     +++|
19527  M00S13523.pfm     +++|
19528  M00S13524.pfm     +++|          OVERFLOW  OVLC,BUF1-2  OVERFLOW INTO CATALOG BUFFER
19529  M00S13525.pfm     +++|          OVERLAY  (CPU FILE TRANSFER.),OVLU
19530  M00S13526.pfm     +++|          SPACE  4,10
19531  M00S13527.pfm     +++|***       THIS OVERLAY PROCESSES THE TRANSFER OF INDIRECT ACCESS
19532  M00S13528.pfm     +++|*         FILES VIA THE CPU.
19533  M00S13529.pfm     +++|
19534  M00S13530.pfm     +++|
19535  M00S13531.pfm     +++| OVL      BSS    0           ENTRY
Line S01615 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19536  M01S01615.242l642 +++|          LDD    CC          CHECK COMMAND CODE
19537  M01S01616.242l642 +++|          LMK    CCRS
19538  M01S01617.242l642 +++|          ZJN    OVL1        IF *RPFSTAT* REQUEST
19539  M00S13532.pfm     +++|          RJM    SCP         SET UP CPU PARAMETERS
19540  M00S13533.pfm     +++|          RJM    SCF         SET UP COMMUNICATION FILES
19541  M00S13534.pfm     +++|          RJM    PWS         PREWRITE SYSTEM SECTOR AND EOI
Line S13535 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19542  M01S13535.242l642 ---|          RJM    IDR         INITIATE *DMP=* AND RECALL *PFM*
19543  M01S13536.242l642 ---|          LJM    DPP         DROP PP
Line S01618 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19544  M01S01618.242l642 +++| OVL1     RJM    IDR         INITIATE *DMP=* AND SET UP RECALL REQUEST
Line S01619 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
19545  M02S01619.ns2414  ---|          EXECUTE  3PT       RECALL *PFM*
Line S00314 Modification History
M01 (Added by) ns2414
Seq #  *Modification Id* Act 
----------------------------+
19546  M01S00314.ns2414  +++|          EXECUTE  3PU       RECALL *PFM*
19547  M00S13537.pfm     +++|          TITLE  SUBROUTINES.
Line S13538 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19548  M01S13538.242l642 ---| IDR      SPACE  4,15
19549  M01S13539.242l642 ---|**        IDR - INITIATE *DMP=* AND RECALL *PFM*.
Line S01620 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19550  M01S01620.242l642 +++| IDR      SPACE  4,20
19551  M01S01621.242l642 +++|**        IDR - INITIATE *DMP=* AND SET UP *PFM* RECALL REQUEST.
19552  M00S13540.pfm     +++|*
Line S13541 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19553  M01S13541.242l642 ---|*         ENTRY  (CPFB) = *CPUPFM* CALL BLOCK.
Line S01622 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19554  M01S01622.242l642 +++|*         ENTRY  (CC) = COMMAND CODE.
19555  M01S01623.242l642 +++|*                (EQ) = MASTER EST ORDINAL.
19556  M01S01624.242l642 +++|*                (CPFB) = *CPUPFM* CALL BLOCK IF NOT *RPFSTAT*
19557  M01S01625.242l642 +++|*                         REQUEST.
19558  M01S01626.242l642 +++|*                (PWRF) = *PFM* RESTART FLAGS FOR RECALL.
19559  M00S13542.pfm     +++|*
Line S13543 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19560  M01S13543.242l642 ---|*         EXIT   *DMP=* ROLLOUT INITIATED.
19561  M01S13544.242l642 ---|*                *PFM*/*CCRS* REQUEST PLACED IN RECALL QUEUE.
Line S01627 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19562  M01S01627.242l642 +++|*         EXIT   (CN - CN+4) = INPUT REGISTER FOR *PFM* RECALL.
19563  M01S01628.242l642 +++|*                (FN - FN+4) = RECALL REQUEST FOR MONITOR.
19564  M01S01629.242l642 +++|*                (MP - MP+4) = PARAMETER WORD FOR *PFM* RECALL.
19565  M01S01630.242l642 +++|*                (STAU) = *STRP* BIT SET TO RECALL *PFM*.
Line S01631 Modification History
M01 (Added by) 242l642
M02 (Removed by) pfm66
Seq #  *Modification Id* Act 
----------------------------+
19566  M02S01631.pfm66   ---|*                *DMP=* ROLLOUT INITIATED.
Line S00001 Modification History
M01 (Added by) pfm66
Seq #  *Modification Id* Act 
----------------------------+
19567  M01S00001.pfm66   +++|*                *DMP=* ROLLOUT INITIATED, IF NO TAPE ACTIVITY PENDING.
19568  M00S13545.pfm     +++|*
Line S13546 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19569  M01S13546.242l642 ---|*         USES   CM - CM+4, CN - CN+4.
Line S01632 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19570  M01S01632.242l642 +++|*         USES   T1, CM - CM+4.
19571  M00S13547.pfm     +++|*
19572  M00S13548.pfm     +++|*         MACROS MONITOR.
19573  M00S13549.pfm     +++|
19574  M00S13550.pfm     +++|
19575  M00S13551.pfm     +++| IDR      SUBR               ENTRY/EXIT
19576  M00S13552.pfm     +++|
19577  M00S13553.pfm     +++|*         INITIATE *DMP=*.
19578  M00S13554.pfm     +++|
Line S13555 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19579  M01S13555.242l642 ---|          LDD    CC          SET COMMAND CODE
19580  M01S13556.242l642 ---|          STM    IDRA+4
19581  M01S13557.242l642 ---|          LDD    CP          SET *DMP=* CALL
19582  M01S13558.242l642 ---|          ADK    SPCW
19583  M01S13559.242l642 ---|          CWM    IDRA,ON
19584  M01S13560.242l642 ---|          LDN    CPFBL       WRITE *CPUPFM* PARAMETER BLOCK TO NFL
Line S01633 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19585  M01S01633.242l642 +++|          LDD    CC          CHECK COMMAND CODE
19586  M01S01634.242l642 +++|          LMK    CCRS
19587  M01S01635.242l642 +++|          NJN    IDR1        IF NOT *RPFSTAT* REQUEST
19588  M01S01636.242l642 +++|          LDM    PWCC        RESET ORIGINAL COMMAND CODE
19589  M01S01637.242l642 +++|          STD    CC
19590  M01S01638.242l642 +++|          UJN    IDR2        SET ORIGINAL CODE FOR *DMP=* CALL
19591  M01S01639.242l642 +++|
19592  M01S01640.242l642 +++| IDR1     LDN    CPFBL       WRITE *CPUPFM* PARAMETER BLOCK TO NFL
19593  M00S13561.pfm     +++|          STD    T1
19594  M00S13562.pfm     +++|          NFA    DMPN
19595  M00S13563.pfm     +++|          CWM    CPFB,T1
Line S01641 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19596  M01S01641.242l642 +++|          LDD    CC          SET COMMAND CODE FOR *DMP=* CALL
19597  M01S01642.242l642 +++| IDR2     STM    IDRA+4
Line S00002 Modification History
M01 (Added by) pfm66
Seq #  *Modification Id* Act 
----------------------------+
19598  M01S00002.pfm66   +++|          LDD    CP          CHECK CONTROL POINT ACTIVITY
19599  M01S00003.pfm66   +++|          ADK    STSW
19600  M01S00004.pfm66   +++|          CRD    CM
19601  M01S00005.pfm66   +++|          LDD    CM+4
19602  M01S00006.pfm66   +++|          SHN    -4
19603  M01S00007.pfm66   +++|          LPN    17
19604  M01S00008.pfm66   +++|          NJN    IDR3        IF TAPE ACTIVITY PENDING
Line S01643 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19605  M01S01643.242l642 +++|          LDD    CP          SET *DMP=* CALL
19606  M01S01644.242l642 +++|          ADK    SPCW
19607  M01S01645.242l642 +++|          CWM    IDRA,ON
Line S00004 Modification History
M01 (Added by) ns2542
Seq #  *Modification Id* Act 
----------------------------+
19608  M01S00004.ns2542  +++|          LDN    SAPS        SET *CPUPFM* ACTIVE STATUS
19609  M01S00005.ns2542  +++|          STD    CM+1
19610  M01S00006.ns2542  +++|          MONITOR  SJCM
19611  M00S13564.pfm     +++|          LDN    ZERL        START *DMP=* ROLLOUT
19612  M00S13565.pfm     +++|          CRD    CM
19613  M00S13566.pfm     +++|          LDK    ROSR
19614  M00S13567.pfm     +++|          STD    CM+1
19615  M00S13568.pfm     +++|          MONITOR  ROCM
19616  M00S13569.pfm     +++|
Line S13570 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19617  M01S13570.242l642 ---|*         RECALL *PFM*.
Line S01646 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19618  M01S01646.242l642 +++|*         SET UP *PFM* RECALL REQUEST.
19619  M00S13571.pfm     +++|
Line S13572 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
19620  M01S13572.242l642 ---|          LDD    IA          CLEAR AUTO-RECALL BIT IN INPUT REGISTER
Proceed to Part 14
cdc/nos2.source/opl.opl871/deck/pfm.013.txt ยท Last modified: by 127.0.0.1