User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:resex.010

Deck RESEX Part 010

65 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
07864  M01S00649.282l826 +++|          EQ     CCVX        RETURN
07865  M01S01134.274l797 +++| CDT      SPACE  4,20
07866  M01S01135.274l797 +++|**        CDT - CHECK DEVICE TYPE.
07867  M01S01136.274l797 +++|*
07868  M01S01137.274l797 +++|*         ENTRY  (A2) = ADDRESS OF DEVICE TYPE TABLE.
07869  M01S01138.274l797 +++|*                (X7) = DEVICE CODE RIGHT JUSTIFIED.
07870  M01S01139.274l797 +++|*
07871  M01S01140.274l797 +++|*         EXIT   (X2) = 0 IF DEVICE TYPE NOT FOUND IN TABLE.
07872  M01S01141.274l797 +++|*                (X2) = DEVICE TYPE TABLE ENTRY IF FOUND.
07873  M01S01142.274l797 +++|*                (A2) = ADDRESS OF TABLE ENTRY IF FOUND.
07874  M01S01143.274l797 +++|*
07875  M01S01144.274l797 +++|*         USES   X - 2, 7.
07876  M01S01145.274l797 +++|*                A - 2.
07877  M01S01146.274l797 +++|*
07878  M01S01147.274l797 +++|*         DEVICE TYPE TABLE FORMAT -
07879  M01S01148.274l797 +++|*
07880  M01S01149.274l797 +++|*         42/ PARAMETERS,6/0,12/ DC
07881  M01S01150.274l797 +++|*
07882  M01S01151.274l797 +++|*                DC = TWO CHARACTER DEVICE CODE.
07883  M01S01152.274l797 +++|
07884  M01S01153.274l797 +++|
07885  M01S01154.274l797 +++| CDT      SUBR               ENTRY/EXIT
07886  M01S01155.274l797 +++| CDT1     BX7    X7-X2
07887  M01S01156.274l797 +++|          SX7    X7
07888  M01S01157.274l797 +++|          ZR     X7,CDTX     IF ENTRY FOUND
07889  M01S01158.274l797 +++|          BX7    X7-X2
07890  M01S01159.274l797 +++|          SA2    A2+B1
07891  M01S01160.274l797 +++|          NZ     X2,CDT1     IF MORE ENTRIES TO CHECK
07892  M01S01161.274l797 +++|          EQ     CDTX        RETURN WITH NOT FOUND STATUS
07893  M01S00650.282l826 +++| CER      SPACE  4,15
07894  M01S00651.282l826 +++|**        CER - CHECK FOR *CIO* ERROR ON TAPE FILE OPERATION.
07895  M01S00652.282l826 +++|*
07896  M01S00653.282l826 +++|*         EXIT   TO CALLER IF NO ERROR.
07897  M01S00654.282l826 +++|*                TO *PER* IF ERROR.
Line S00655 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07898  M02S00655.ns2770  ---|*                ERROR PROCESSING CLEARED.
07899  M01S00020.ns2770  +++|*                ERROR PROCESSING CLEARED IF ERROR DETECTED.
07900  M01S00656.282l826 +++|*
07901  M01S00657.282l826 +++|*         USES   X - 1, 6.
07902  M01S00658.282l826 +++|*                A - 1.
07903  M01S00659.282l826 +++|*                B - 2.
07904  M01S00660.282l826 +++|*
07905  M01S00661.282l826 +++|*         MACROS SETFET.
07906  M01S00662.282l826 +++|
07907  M01S00663.282l826 +++|
07908  M01S00664.282l826 +++| CER      SUBR               ENTRY/EXIT
Line S00665 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
07909  M02S00665.ns2770  ---|          SETFET F,ERP=0     CLEAR ERROR PROCESSING
07910  M01S00666.282l826 +++|          SA1    F           GET FET STATUS
07911  M01S00667.282l826 +++|          MX6    -5
07912  M01S00668.282l826 +++|          LX1    -9
07913  M01S00669.282l826 +++|          BX1    -X6*X1
07914  M01S00670.282l826 +++|          ZR     X1,CERX     IF NO ERROR
07915  M01S00021.ns2770  +++|          SETFET F,ERP=0     CLEAR ERROR PROCESSING
07916  M01S00671.282l826 +++|          SB2    B0          SET NO MESSAGE
07917  M01S00672.282l826 +++|          EQ     PER         PROCESS ERROR
07918  M01S03978.resex   +++| CET      SPACE  4,15
07919  M01S03979.resex   +++|**        CET - COPY EQUIPMENT STATUS TABLE (EST).
07920  M01S00506.ns21000 +++|*
07921  M01S00507.ns21000 +++|*         ENTRY  (B5) .LT. 0 IF INITIAL CALL.
07922  M01S03980.resex   +++|*
Line S03981 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07923  M02S03981.ns21000 ---|*         EXIT   (ESTI) = EST POINTER (ESTP).
Line S03982 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07924  M02S03982.ns21000 ---|*                EST = EQUIPMENT STATUS TABLE.
07925  M01S00508.ns21000 +++|*         EXIT   (B6) = NUMBER OF EST ENTRIES IN BUFFER.
07926  M01S00509.ns21000 +++|*                (B6) .LT. 0 IF END OF EST.
07927  M01S03983.resex   +++|*
07928  M01S03984.resex   +++|*         ERROR  TO *PER*, IF ENVIRONMENT ERROR.
07929  M01S03985.resex   +++|*
Line S03986 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07930  M02S03986.ns21000 ---|*         USES   A - 1, 6.
Line S03987 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07931  M02S03987.ns21000 ---|*                B - 2.
Line S03988 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07932  M02S03988.ns21000 ---|*                X - 0, 1, 2, 4, 5, 6, 7.
07933  M01S00510.ns21000 +++|*         USES   A - 1, 2, 6, 7.
07934  M01S00511.ns21000 +++|*                B - 6.
07935  M01S00512.ns21000 +++|*                X - 0, 1, 2, 5, 6, 7.
07936  M01S03989.resex   +++|*
07937  M01S03990.resex   +++|*         MACROS RDSB.
07938  M01S03991.resex   +++|
07939  M01S03992.resex   +++|
Line S03993 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07940  M02S03993.ns21000 ---| CET1     RDSB   0,X5,X7,A6   READ EST
Line S03994 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07941  M02S03994.ns21000 ---|
07942  M01S03995.resex   +++| CET      SUBR               ENTRY/EXIT
Line S03996 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07943  M02S03996.ns21000 ---|          SA1    /LWC/ESTP   GET EST POINTER
07944  M01S00513.ns21000 +++|          PL     B5,CET1     IF NOT INITIAL CALL
07945  M01S00514.ns21000 +++|          SA1    /LWC/ESTP   GET EST FWA
07946  M01S03997.resex   +++|          MX0    -12
Line S03998 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07947  M02S03998.ns22000 ---|          LX1    12
07948  M01S00363.ns22000 +++|          LX1    24
Line S03999 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07949  M02S03999.ns21000 ---|          SX2    ESTL
Line S00515 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07950  M02S00515.ns22000 ---|          SX6    ESTL
Line S04000 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
07951  M02S04000.ns22000 ---|          BX7    -X0*X1
07952  M01S00364.ns22000 +++|          SX7    X1
07953  M01S00365.ns22000 +++|          LX1    12
07954  M01S00366.ns22000 +++|          BX6    -X0*X1      GET NUMBER OF ENTRIES IN EST
Line S04001 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07955  M02S04001.ns21000 ---|          LX1    12
Line S04002 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07956  M02S04002.ns21000 ---|          BX4    -X0*X1
Line S04003 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07957  M02S04003.ns21000 ---|          IX5    X4-X7
Line S04004 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07958  M02S04004.ns21000 ---|          IX2    X2-X5
Line S04005 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07959  M02S04005.ns21000 ---|          MX6    1
Line S04006 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07960  M02S04006.ns21000 ---|          SA6    EST
Line S04007 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07961  M02S04007.ns21000 ---|          PL     X2,CET1     IF NO EST LENGTH ERROR
Line S04008 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07962  M02S04008.ns21000 ---|          SB2    /PER/REV    *RESOURCE ENVIRONMENT ERROR.*
Line S04009 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
07963  M02S04009.ns21000 ---|          EQ     PER         PROCESS ERROR
07964  M01S00516.ns21000 +++|          SA7    CETA
07965  M01S00517.ns21000 +++|          SA6    A7+B1
07966  M01S00518.ns21000 +++| CET1     SA1    CETA        GET NEXT BLOCK EST ADDRESS
07967  M01S00519.ns21000 +++|          SA2    A1+B1       GET REMAINING EST ENTRIES
07968  M01S00520.ns21000 +++|          MX6    1
07969  M01S00521.ns21000 +++|          SX5    ESTEB       EST ENTRIES PER BLOCK
07970  M01S00522.ns21000 +++|          SA6    SBUF2
07971  M01S00523.ns21000 +++|          IX7    X2-X5
07972  M01S00524.ns21000 +++|          PL     X7,CET2     IF STILL MORE BLOCKS TO TRANSFER
07973  M01S00525.ns21000 +++|          SB6    -B1
07974  M01S00526.ns21000 +++|          ZR     X2,CETX     IF END OF EST
07975  M01S00527.ns21000 +++|          BX7    X7-X7
07976  M01S00528.ns21000 +++|          LX5    X2          SET REMAINING NUMBER OF ENTRIES
07977  M01S00529.ns21000 +++| CET2     SA7    A2          DECREMENT REMAINING ENTRY COUNT
07978  M01S00530.ns21000 +++|          SB6    X5          NUMBER OF EST ENTRIES TO TRANSFER
07979  M01S00531.ns21000 +++|          R=     X2,ESTE
07980  M01S00532.ns21000 +++|          IX5    X5*X2       LENGTH OF BLOCK TO TRANSFER
07981  M01S00533.ns21000 +++|          IX7    X1+X5       ADVANCE EST ADDRESS
07982  M01S00534.ns21000 +++|          SA7    A1
07983  M01S00535.ns21000 +++|          RDSB   0,X5,X1,A6  READ EST BLOCK
07984  M01S00536.ns21000 +++|          EQ     CETX        RETURN
07985  M01S00537.ns21000 +++|
07986  M01S00538.ns21000 +++|
07987  M01S00539.ns21000 +++| CETA     CON    0           FWA EST BLOCK
07988  M01S00540.ns21000 +++|          CON    0           NUMBER OF REMAINING ENTRIES IN EST
07989  M01S04010.resex   +++| CFA      SPACE  4,15
07990  M01S04011.resex   +++|**        CFA - CHECK FILE ATTACH.
07991  M01S04012.resex   +++|*
07992  M01S04013.resex   +++|*         ENTRY  (X2) = FET ADDRESS.
07993  M01S04014.resex   +++|*                (X6) = FILE MODE FOR ATTACH.
07994  M01S04015.resex   +++|*                IF RESOURCE FILE IS ALREADY ATTACHED AND INTERLOCKED,
07995  M01S04016.resex   +++|*                IT WILL BE REWOUND.
07996  M01S04017.resex   +++|*
07997  M01S04018.resex   +++|*         EXIT   (X2) = FET ADDRESS.
07998  M01S04019.resex   +++|*                (CFAA) = .NE. 0, IF FILE BUSY ROLLOUT OCCURRED.
07999  M01S04020.resex   +++|*                RESOURCE FILE ATTACHED, INTERLOCKED AND REWOUND.
08000  M01S04021.resex   +++|*                TO *PIT*, IF INTERRUPT OCCURRED AND FILE ATTACH IS
08001  M01S04022.resex   +++|*                NOT REQUIRED.
08002  M01S04023.resex   +++|*                TO *PIT2*, IF RETRY COUNT ON FILE ATTACH EXHAUSTED
08003  M01S04024.resex   +++|*                AFTER INTERRUPT HAS OCCURRED.
08004  M01S04025.resex   +++|*
Line S04026 Modification History
M01 (Added by) resex
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08005  M02S04026.253l688 ---|*         ERROR  TO *PER*, IF PFM ERROR ON RESOURCE FILE ATTACH.
08006  M01S00486.253l688 +++|*         ERROR  TO *PER*, IF *PFM* ERROR ON RESOURCE FILE ATTACH.
08007  M01S04027.resex   +++|*
08008  M01S04028.resex   +++|*         USES   A - 0, 1, 6, 7.
08009  M01S04029.resex   +++|*                B - 2, 3.
08010  M01S04030.resex   +++|*                X - 0, 1, 2, 4, 5, 6, 7.
08011  M01S04031.resex   +++|*
08012  M01S04032.resex   +++|*         CALLS  PRO, SFN.
08013  M01S04033.resex   +++|*
08014  M01S04034.resex   +++|*         MACROS ATTACH, INTRP, MESSAGE, RECALL, REWIND.
08015  M01S04035.resex   +++|
08016  M01S04036.resex   +++|
08017  M01S04037.resex   +++| CFA8     REWIND X2,R
08018  M01S04038.resex   +++|
08019  M01S04039.resex   +++| CFA      SUBR               ENTRY/EXIT
08020  M01S04040.resex   +++|          SA6    CFAC        SAVE DEMAND FILE ATTACH MODE
08021  M01S04041.resex   +++|          SA1    X2-1        CHECK FILE INTERLOCK
08022  M01S04042.resex   +++|          MX0    1
08023  M01S04043.resex   +++|          NZ     X1,CFA8     IF FILE ALREADY ATTACHED
08024  M01S04044.resex   +++|          SX6    DBMC        RESET MESSAGE COUNT
08025  M01S04045.resex   +++|          SA6    CFAB
08026  M01S04046.resex   +++|          SA1    X2+B1       SET EP BIT
08027  M01S04047.resex   +++|          LX0    -15
08028  M01S04048.resex   +++|          BX7    X0+X1
08029  M01S04049.resex   +++|          SA7    A1
08030  M01S04050.resex   +++|          EQ     CFA2        ATTACH RESOURCE FILE
08031  M01S04051.resex   +++|
08032  M01S04052.resex   +++| CFA1     SX0    X2+
08033  M01S04053.resex   +++|          INTRP  CFA4        PROCESS INTERRUPT
08034  M01S04054.resex   +++|          SA1    AA          CHECK FOR EQUIPMENT ASSIGNMENT
08035  M01S04055.resex   +++|          SX2    -1
08036  M01S04056.resex   +++|          PL     X1,CFA5     IF NOT AUTOMATIC TAPE ASSIGNMENT
08037  M01S04057.resex   +++|          SX5    PFRE        SET ROLLOUT EVENT DESCRIPTOR
08038  M01S04058.resex   +++|          SA1    PFRE+1      GET ROLLOUT MESSAGE ADDRESS
08039  M01S04059.resex   +++|          RJ     PRO         PROCESS TIMED EVENT ROLLOUT
08040  M01S04060.resex   +++|          SX2    X0+
08041  M01S04061.resex   +++| CFA2     ATTACH X2,0,,,CFAC,,,DF,FA
08042  M01S04062.resex   +++|          SA1    X2
08043  M01S04063.resex   +++|          MX0    -8
08044  M01S04064.resex   +++|          LX1    -10
08045  M01S04065.resex   +++|          BX5    -X0*X1      ERROR STATUS
08046  M01S04066.resex   +++|          ZR     X5,CFA3     IF NO ERRORS
08047  M01S04067.resex   +++|          SX6    X5-1
08048  M01S04068.resex   +++|          SX7    X5-16B
08049  M01S04069.resex   +++|          ZR     X6,CFA1     IF FILE BUSY (1)
08050  M01S04070.resex   +++|          ZR     X7,CFA1     IF PF UTILITY ACTIVE (16)
08051  M01S04071.resex   +++|          MX0    -3
08052  M01S04072.resex   +++|          BX6    -X0*X5
08053  M01S04073.resex   +++|          LX5    -3
08054  M01S04074.resex   +++|          BX7    -X0*X5
08055  M01S04075.resex   +++|          SX6    X6+2R00
08056  M01S04076.resex   +++|          LX7    6
08057  M01S04077.resex   +++|          MX0    7*6
08058  M01S04078.resex   +++|          IX5    X6+X7
08059  M01S04079.resex   +++|          LX1    10
08060  M01S04080.resex   +++|          LX5    -12
08061  M01S04081.resex   +++|          BX1    X0*X1
08062  M01S04082.resex   +++|          RJ     SFN         SPACE FILL FILE NAME
08063  M01S04083.resex   +++|          MX0    12
08064  M01S04084.resex   +++|          LX6    -18
08065  M01S04085.resex   +++|          BX6    -X0*X6
08066  M01S04086.resex   +++|          BX6    X6+X5
08067  M01S04087.resex   +++|          SB2    /PER/RFE    *RESOURCE PF ERROR NN FILENAM.*
08068  M01S04088.resex   +++|          SA6    B2+2        ENTER *NN FILENAM*
08069  M01S04089.resex   +++|          MESSAGE CFAA       ISSUE MESSAGE OF PF ERROR
08070  M01S04090.resex   +++|          EQ     PER         PROCESS ERROR
08071  M01S04091.resex   +++|
08072  M01S04092.resex   +++| CFA3     MX7    1           SET RESOURCE FILE INTERLOCK
08073  M01S04093.resex   +++|          SA7    X2-1
08074  M01S04094.resex   +++|          SA1    X2+B1       CLEAR EP BIT
08075  M01S04095.resex   +++|          LX7    44-59
08076  M01S04096.resex   +++|          BX7    -X7*X1
08077  M01S04097.resex   +++|          SA7    A1+
08078  M01S04098.resex   +++|          SA3    CFAB
08079  M01S04099.resex   +++|          NZ     X3,CFA8     IF NO MESSAGE POSTED
08080  M01S04100.resex   +++|          MESSAGE CFAB,2,R   CLEAR MESSAGE
08081  M01S04101.resex   +++|          EQ     CFA8        REWIND FILE AND RETURN
08082  M01S04102.resex   +++|
08083  M01S04103.resex   +++|*         PROCESS INTERRUPT.  DEPENDING ON OPTION SELECTED, WILL DELAY
08084  M01S04104.resex   +++|*         AND RETRY DEMAND FILE ATTACH UNTIL SUCCESSFUL OR FOR
08085  M01S04105.resex   +++|*         REQUESTED NUMBER OF RETRIES.  AFTER *DBMC* TRIES, AN
08086  M01S04106.resex   +++|*         OPERATOR MESSAGE IS POSTED.  IF THE OPERATOR OVERRIDES THE
08087  M01S04107.resex   +++|*         JOB AT THIS POINT, THE DEMAND FILE ENTRY FOR THE JOB MAY BE
08088  M01S04108.resex   +++|*         LEFT WITH INCORRECT DEMAND AND ASSIGN COUNTS WHICH MAY
08089  M01S04109.resex   +++|*         SUBSEQUENTLY CAUSE A *0RF* HANG.
08090  M01S04110.resex   +++|
08091  M01S04111.resex   +++| CFA4     SA2    UCRI        CHECK FOR UPDATE REQUIRED
08092  M01S04112.resex   +++|          ZR     X2,PIT      IF UPDATE NOT REQUIRED
08093  M01S04113.resex   +++| CFA5     SA1    CFAB        CHECK WAIT FOR RESOURCE FILE MESSAGE
08094  M01S04114.resex   +++|          ZR     X1,CFA6     IF MESSAGE ALREADY POSTED
08095  M01S04115.resex   +++|          SX6    X1-1
08096  M01S04116.resex   +++|          SA6    A1
08097  M01S04117.resex   +++|          NZ     X6,CFA6     IF WAIT COUNT NOT EXHAUSTED
08098  M01S04118.resex   +++|          MESSAGE (=C*WAITING FOR RESOURCE FILE.*),2,R
08099  M01S04119.resex   +++| CFA6     NG     X2,CFA7     IF UPDATE REQUIRED
08100  M01S04120.resex   +++|          SX6    X2-1
08101  M01S04121.resex   +++|          ZR     X6,PIT2     IF NUMBER OF RETRIES EXHAUSTED
08102  M01S04122.resex   +++|          SA6    A2+
08103  M01S04123.resex   +++| CFA7     RECALL             DELAY
08104  M01S04124.resex   +++|          SX2    X0
08105  M01S04125.resex   +++|          EQ     CFA2        RETRY FILE ATTACH
08106  M01S04126.resex   +++|
08107  M01S04127.resex   +++|
08108  M01S04128.resex   +++| CFAA     BSSZ   3           PF ERROR MESSAGE BUFFER
08109  M01S04129.resex   +++| CFAB     CON    DBMC        DEMAND FILE BUSY MESSAGE COUNT
08110  M01S04130.resex   +++| CFAC     CON    0           DEMAND FILE ATTACH MODE
08111  M01S04131.resex   +++| CLB      SPACE  4,15
08112  M01S04132.resex   +++|**        CLB - CLEAR BUFFER.
08113  M01S04133.resex   +++|*
Line S04134 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08114  M02S04134.ns21000 ---|*         ENTRY  (B2) = FWA OF BUFFER.
Line S04135 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08115  M02S04135.ns21000 ---|*                (B3) = LENGTH OF BUFFER.
08116  M01S00541.ns21000 +++|*         ENTRY  (A2) = LWA+1 OF BUFFER.
08117  M01S00542.ns21000 +++|*                (B5) = LENGTH OF BUFFER.
08118  M01S04136.resex   +++|*                (X6) = MASK.
08119  M01S04137.resex   +++|*
08120  M01S04138.resex   +++|*         EXIT   BUFFER CLEARED AS DIRECTED BY MASK.
08121  M01S00543.ns21000 +++|*                (A7) = FWA BUFFER.
08122  M01S04139.resex   +++|*
Line S04140 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08123  M02S04140.ns21000 ---|*         USES   X - 1, 7.
Line S04141 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08124  M02S04141.ns21000 ---|*                B - 3.
Line S04142 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08125  M02S04142.ns21000 ---|*                A - 1, 7.
08126  M01S00544.ns21000 +++|*         USES   X - 2, 7.
08127  M01S00545.ns21000 +++|*                B - 5.
08128  M01S00546.ns21000 +++|*                A - 2, 7.
08129  M01S04143.resex   +++|
08130  M01S04144.resex   +++|
08131  M01S04145.resex   +++| CLB      SUBR               ENTRY/EXIT
Line S04146 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08132  M02S04146.ns21000 ---| CLB1     SB3    B3-B1
Line S04147 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08133  M02S04147.ns21000 ---|          SA1    B2+B3
Line S04148 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08134  M02S04148.ns21000 ---|          NG     B3,CLBX     IF COMPLETED CLEAR
Line S04149 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08135  M02S04149.ns21000 ---|          BX7    X6*X1
Line S04150 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08136  M02S04150.ns21000 ---|          SA7    A1
08137  M01S00547.ns21000 +++| CLB1     SB5    B5-B1
08138  M01S00548.ns21000 +++|          NG     B5,CLBX     IF CLEAR COMPLETED
08139  M01S00549.ns21000 +++|          SA2    A2-B1
08140  M01S00550.ns21000 +++|          BX7    X6*X2
08141  M01S00551.ns21000 +++|          SA7    A2
08142  M01S04151.resex   +++|          EQ     CLB1
08143  M01S00367.ns22000 +++| CLM      SPACE  4,10
08144  M01S00368.ns22000 +++|**        CLM - CHECK LEVEL MATCH.
08145  M01S00369.ns22000 +++|*
08146  M01S00370.ns22000 +++|*         *CLM* COMPARES THE ACCESS LEVELS OF THE *RET* TABLE AND
08147  M01S00371.ns22000 +++|*         THE *RDT* TABLE.
08148  M01S00372.ns22000 +++|*
08149  M01S00373.ns22000 +++|*         ENTRY  (B2) = POINTER +1 TO ENTRY IN *RET* TABLE.
08150  M01S00374.ns22000 +++|*                (B6) = POINTER TO ENTRY IN *RDT* TABLE.
08151  M01S00375.ns22000 +++|*
08152  M01S00376.ns22000 +++|*         EXIT   (X0) .LT.0, IF DEMAND OUTSIDE OF ACCESS LEVEL.
08153  M01S00377.ns22000 +++|*                     .GE.0, IF DEMAND WITHIN ACCESS LEVEL.
08154  M01S00378.ns22000 +++|*
08155  M01S00379.ns22000 +++|*         USES   X - 0, 5, 6, 7.
08156  M01S00380.ns22000 +++|*                A - 5.
08157  M01S00381.ns22000 +++|
08158  M01S00382.ns22000 +++|
08159  M01S00383.ns22000 +++| CLM      SUBR               ENTRY/EXIT
08160  M01S00384.ns22000 +++|          MX0    -3
08161  M01S00385.ns22000 +++|          SA5    B2-B1       *RET* TABLE ENTRY
08162  M01S00386.ns22000 +++|          LX5    0-45        POSITION ACCESS LEVEL
08163  M01S00387.ns22000 +++|          BX7    -X0*X5      LOWER BOUND ACCESS LEVEL
08164  M01S00388.ns22000 +++|          LX5    3
08165  M01S00389.ns22000 +++|          BX6    -X0*X5      UPPER BOUND ACCESS LEVEL
08166  M01S00390.ns22000 +++|          SA5    B6          *RDT* TABLE ENTRY
08167  M01S00391.ns22000 +++|          LX5    0-36        POSITION ACCESS LEVEL
08168  M01S00392.ns22000 +++|          BX5    -X0*X5
08169  M01S00393.ns22000 +++|          IX0    X6-X5       UPPER BOUND - REQUEST
08170  M01S00394.ns22000 +++|          NG     X0,CLMX     IF REQUEST ABOVE UPPER BOUND
08171  M01S00395.ns22000 +++|          IX0    X5-X7       REQUEST - LOWER BOUND
08172  M01S00396.ns22000 +++|          EQ     CLMX        RETURN
08173  M01S01162.274l797 +++| COV      SPACE  4,10
08174  M01S01163.274l797 +++|**        COV - CLEAR OPERATOR VERIFY FLAG.
08175  M01S01164.274l797 +++|*
08176  M01S01165.274l797 +++|*         EXIT   OPERATOR VERIFY REQUIRED FLAG CLEARED IN *TMPF*.
08177  M01S01166.274l797 +++|*
08178  M01S01167.274l797 +++|*         USES   X - 2, 6.
08179  M01S01168.274l797 +++|*                A - 2, 6.
08180  M01S01169.274l797 +++|
08181  M01S01170.274l797 +++|
08182  M01S01171.274l797 +++| COV      SUBR               ENTRY/EXIT
08183  M01S01172.274l797 +++|          SA2    TMPF
08184  M01S01173.274l797 +++|          SX6    B1
08185  M01S01174.274l797 +++|          LX6    56-0
08186  M01S01175.274l797 +++|          BX6    -X6*X2      CLEAR OPERATOR VERIFY FLAG
08187  M01S01176.274l797 +++|          SA6    A2
08188  M01S01177.274l797 +++|          EQ     COVX        RETURN
08189  M01S04152.resex   +++| CRM      SPACE  4,10
08190  M01S04153.resex   +++|**        CRM - CHECK FOR RESOURCE MATCH.
08191  M01S04154.resex   +++|*
08192  M01S04155.resex   +++|*         ENTRY  (X0) = REQUESTED RESOURCE INDEX AND BYTE POINTER.
08193  M01S04156.resex   +++|*                (X5) = EQUIPMENT RESOURCE INDEX AND BYTE POINTER.
08194  M01S04157.resex   +++|*                (X2) = *PE* RESOURCE INDEX, IF *NT* REQUEST MATCH
08195  M01S04158.resex   +++|*                     WITH *GE* EQUIPMENT ALLOWED.
08196  M01S04159.resex   +++|*
08197  M01S04160.resex   +++|*         EXIT   (X7) = 0, IF RESOURCES MATCH.
08198  M01S04161.resex   +++|*
08199  M01S04162.resex   +++|*         USES   X - 5, 7.
08200  M01S04163.resex   +++|
08201  M01S04164.resex   +++|
08202  M01S04165.resex   +++| CRM      SUBR               ENTRY/EXIT
08203  M01S00397.ns22000 +++|          MX7    -6
08204  M01S00398.ns22000 +++|          BX5    -X7*X5
08205  M01S00399.ns22000 +++|          BX0    -X7*X0
08206  M01S04166.resex   +++|          IX7    X0-X5
08207  M01S04167.resex   +++|          ZR     X7,CRMX     IF MATCH
Line S04168 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08208  M02S04168.ns22000 ---|          SX7    X0-RNTP-100B
08209  M01S00400.ns22000 +++|          SX7    X0-RNTP
08210  M01S04169.resex   +++|          ZR     X7,CRM1     IF *NT* REQUEST
Line S04170 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08211  M02S04170.ns22000 ---|          SX7    X0-RPEP-100B
08212  M01S00401.ns22000 +++|          SX7    X0-RPEP
08213  M01S04171.resex   +++|          NZ     X7,CRMX     IF NOT *PE* REQUEST
Line S04172 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08214  M02S04172.ns22000 ---| CRM1     SX7    X5-RHDP-100B
08215  M01S00402.ns22000 +++| CRM1     SX7    X5-RHDP
08216  M01S04173.resex   +++|          ZR     X7,CRMX     IF *HD* EQUIPMENT
Line S04174 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08217  M02S04174.ns22000 ---|          SX7    X5-RGEP-100B
08218  M01S00403.ns22000 +++|          SX7    X5-RGEP
08219  M01S04175.resex   +++|          NZ     X7,CRMX     IF NOT *GE* EQUIPMENT
Line S04176 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08220  M02S04176.ns22000 ---|          SX5    X0-RNTP-100B
08221  M01S00404.ns22000 +++|          SX5    X0-RNTP
08222  M01S04177.resex   +++|          NZ     X5,CRMX     IF NOT *NT* REQUEST
08223  M01S04178.resex   +++|          SX7    X2-RPEP
08224  M01S04179.resex   +++|          EQ     CRMX        RETURN
08225  M01S04180.resex   +++| CRV      SPACE  4,10
08226  M01S04181.resex   +++|**        CRV - CHECK RESOURCE VALIDITY.
08227  M01S04182.resex   +++|*
08228  M01S04183.resex   +++|*         ENTRY  RESB = RESOURCE DEMAND ENTRY, WITH INDIVIDUAL AND
08229  M01S04184.resex   +++|*                     TOTAL DEMAND COUNTS CORRECTLY SET.
08230  M01S04185.resex   +++|*
08231  M01S04186.resex   +++|*         ERROR  TO *PER*, IF DEMAND VALIDATION ERROR.
08232  M01S04187.resex   +++|*
08233  M01S04188.resex   +++|*         USES   A - 1, 5.
08234  M01S04189.resex   +++|*                B - 2, 3, 4.
08235  M01S04190.resex   +++|*                X - ALL.
08236  M01S04191.resex   +++|
08237  M01S04192.resex   +++|
08238  M01S04193.resex   +++| CRV      SUBR               ENTRY/EXIT
08239  M01S04194.resex   +++|          SB3    RMTL-1
08240  M01S04195.resex   +++|          SB4    RESB+RMTP
08241  M01S04196.resex   +++|          MX2    -6
08242  M01S04197.resex   +++|          BX3    X3-X3
08243  M01S04198.resex   +++|          SB2    /PER/DVE    * DEMAND VALIDATION ERROR.*
08244  M01S04199.resex   +++|          SX4    7           MAXIMUM VALIDATION LIMIT
08245  M01S04200.resex   +++| CRV1     SA1    B3+B4       COUNT TAPE DEMANDS
08246  M01S04201.resex   +++|          SB3    B3-B1
08247  M01S00405.ns22000 +++|          SB5    RPEW        TAPE ENTRIES PER WORD
08248  M01S04202.resex   +++|          LX1    24
Line S04203 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08249  M02S04203.ns22000 ---|          BX1    -X2*X1
Line S04204 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08250  M02S04204.ns22000 ---|          IX3    X3+X1
Line S04205 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08251  M02S04205.ns22000 ---|          PL     B3,CRV1     IF MORE TAPE RESOURCES
08252  M01S00406.ns22000 +++| CRV1.0   BX5    -X2*X1
08253  M01S00407.ns22000 +++|          IX3    X3+X5
08254  M01S00408.ns22000 +++|          SB5    B5-B1       DECUREMENT ENTRIES PER WORD
08255  M01S00409.ns22000 +++|          LX1    12
08256  M01S00410.ns22000 +++|          NZ     B5,CRV1.0   IF MORE ENTRIES IN WORD
08257  M01S00411.ns22000 +++|          PL     B3,CRV1     IF MORE TAPE ENTRIES
08258  M01S04206.resex   +++|          MX0    3
08259  M01S04207.resex   +++|          SA5    RESB+RVAL
08260  M01S04208.resex   +++|          BX6    X0*X5       TAPES VALIDATION LIMIT
08261  M01S04209.resex   +++|          MX2    -12
08262  M01S04210.resex   +++|          LX6    3
08263  M01S04211.resex   +++|          BX2    -X2*X5      TOTAL DEMAND COUNT
08264  M01S04212.resex   +++|          IX1    X6-X4
08265  M01S04213.resex   +++|          LX5    3
08266  M01S04214.resex   +++|          IX2    X2-X3       REMOVABLE PACK DEMANDS
08267  M01S04215.resex   +++|          BX7    X0*X5       REMOVABLE PACK VALIDATION LIMIT
08268  M01S04216.resex   +++|          IX6    X6-X3
08269  M01S04217.resex   +++|          LX7    3
08270  M01S04218.resex   +++|          ZR     X1,CRV2     IF UNLIMITED TAPES
08271  M01S04219.resex   +++|          NG     X6,PER      IF TAPE VALIDATION EXCEEDED
08272  M01S04220.resex   +++| CRV2     IX1    X7-X4
08273  M01S04221.resex   +++|          ZR     X1,CRVX     IF UNLIMITED PACKS
08274  M01S04222.resex   +++|          IX7    X7-X2
08275  M01S04223.resex   +++|          NG     X7,PER      IF PACK VALIDATION EXCEEDED
08276  M01S04224.resex   +++|          EQ     CRVX        RETURN
08277  M01S04225.resex   +++| CTA      SPACE  4,15
08278  M01S04226.resex   +++|**        CTA - COUNT TOTAL ASSIGNS AND DEMANDS.
08279  M01S04227.resex   +++|*
08280  M01S04228.resex   +++|*         ENTRY  (X4) = DEMAND ENTRY ADDRESS.
08281  M01S04229.resex   +++|*                (B5) .LT. 0, IF COUNT TOTAL ASSIGNS AND DEMANDS.
08282  M01S04230.resex   +++|*                (B5) .GE. 0, IF COUNT ONLY TAPE ASSIGNS AND DEMANDS.
08283  M01S04231.resex   +++|*
08284  M01S04232.resex   +++|*         EXIT   (B3) = ASSIGNED COUNT (TOTAL OR PARTIAL).
08285  M01S04233.resex   +++|*                (X7) = DEMAND COUNT (TOTAL OR PARTIAL).
08286  M01S04234.resex   +++|*
08287  M01S04235.resex   +++|*         ERROR  TO *PER*, IF TOTAL DEMAND OR ASSIGNED COUNT ERROR.
08288  M01S04236.resex   +++|*
08289  M01S04237.resex   +++|*         USES   A - 1, 2, 5.
08290  M01S04238.resex   +++|*                B - 2, 3, 6.
08291  M01S04239.resex   +++|*                X - 0, 1, 2, 3, 5, 6, 7.
08292  M01S04240.resex   +++|
08293  M01S04241.resex   +++|
08294  M01S04242.resex   +++| CTA      SUBR               ENTRY/EXIT
08295  M01S04243.resex   +++|          SA2    CTAA        GET ASSIGNED COUNT MASK
08296  M01S04244.resex   +++|          BX0    X0-X0
08297  M01S04245.resex   +++|          LX3    X2
08298  M01S04246.resex   +++|          BX6    X6-X6
08299  M01S04247.resex   +++|          LX2    -6          DEMAND COUNT MASK
08300  M01S04248.resex   +++|          SB2    RMTP
08301  M01S04249.resex   +++|          SB6    RMTP+RMTL+RRPL
08302  M01S04250.resex   +++|          LT     B5,CTA1     IF COUNT TOTAL ASSIGNS AND DEMANDS
08303  M01S04251.resex   +++|          SB6    RMTP+RMTL   SET UP TO COUNT TAPE ASSIGNS AND DEMANDS
08304  M01S04252.resex   +++| CTA1     SA1    X4+B2       ADD UP MULTIPLE RESOURCE DEMANDS PER ENTRY
08305  M01S04253.resex   +++|          BX7    X2*X1
08306  M01S04254.resex   +++|          IX6    X6+X7
08307  M01S04255.resex   +++|          BX1    X3*X1       ADD UP MULTIPLE RESOURCE ASSIGNS PER ENTRY
08308  M01S04256.resex   +++|          IX0    X0+X1
08309  M01S04257.resex   +++|          SB2    B2+B1
08310  M01S04258.resex   +++|          LT     B2,B6,CTA1  IF MORE RESOURCES TO COUNT
08311  M01S04259.resex   +++|          SB2    RPEW
08312  M01S04260.resex   +++|          BX7    X7-X7
08313  M01S04261.resex   +++|          SB3    B0
08314  M01S04262.resex   +++|          LX0    -6
08315  M01S04263.resex   +++|          MX2    -12
08316  M01S04264.resex   +++| CTA2     BX1    -X2*X6      COUNT RESOURCE DEMANDS AND ASSIGNS
08317  M01S04265.resex   +++|          BX3    -X2*X0
08318  M01S04266.resex   +++|          IX7    X7+X1
08319  M01S04267.resex   +++|          SB3    B3+X3
08320  M01S04268.resex   +++|          LX6    -12
08321  M01S04269.resex   +++|          SB2    B2-1
08322  M01S04270.resex   +++|          LX0    -12
08323  M01S04271.resex   +++|          NZ     B2,CTA2     IF MORE ENTRIES IN MULTIPLE COUNT
08324  M01S04272.resex   +++|          GE     B5,CTAX     IF COUNT ONLY TAPE ASSIGNS AND DEMANDS
08325  M01S04273.resex   +++|          SA5    X4+RVAL     CHECK TOTAL DEMAND COUNT CORRECT
08326  M01S04274.resex   +++|          SX1    B3
08327  M01S04275.resex   +++|          BX6    -X2*X5
08328  M01S04276.resex   +++|          SB2    /PER/TDE    * TOTAL DEMAND COUNT ERROR.*
08329  M01S04277.resex   +++|          LX5    -12
08330  M01S04278.resex   +++|          IX6    X6-X7
08331  M01S04279.resex   +++|          NZ     X6,PER      IF TOTAL DEMAND COUNT INCORRECT
08332  M01S04280.resex   +++|          BX2    -X2*X5      CHECK TOTAL ASSIGNED COUNT CORRECT
08333  M01S04281.resex   +++|          IX2    X2-X1
08334  M01S04282.resex   +++|          SB2    /PER/TAE    * TOTAL ASSIGNED COUNT ERROR.*
08335  M01S04283.resex   +++|          NZ     X2,PER      IF TOTAL ASSIGNED COUNT INCORRECT
08336  M01S04284.resex   +++|          EQ     CTAX        RETURN
08337  M01S04285.resex   +++|
08338  M01S04286.resex   +++|
08339  M01S04287.resex   +++| CTAA     CON    7700770077007700B  MASK FOR ASSIGNED COUNTS
08340  M01S01178.274l797 +++| CTE      SPACE  4,15
08341  M01S01179.274l797 +++|**        CTE - CHECK FOR TAPE EQUIPMENT.
08342  M01S01180.274l797 +++|*
08343  M01S01181.274l797 +++|*         ENTRY  (X7) = DEVICE CODE RIGHT JUSTIFIED.
08344  M01S01182.274l797 +++|*
08345  M01S01183.274l797 +++|*         EXIT   (X2) = 0 IF NOT TAPE DEVICE.
08346  M01S01184.274l797 +++|*                (X2) = *TTDV* ENTRY IF TAPE DEVICE.
08347  M01S01185.274l797 +++|*                (X7) = TAPE DEVICE TYPE IF TAPE DEVICE.
08348  M01S01186.274l797 +++|*
08349  M01S01187.274l797 +++|*         USES   X - 2, 7.
08350  M01S01188.274l797 +++|*                A - 2.
08351  M01S01189.274l797 +++|*
08352  M01S01190.274l797 +++|*         CALLS  CDT.
08353  M01S01191.274l797 +++|
08354  M01S01192.274l797 +++|
08355  M01S01193.274l797 +++| CTE      SUBR               ENTRY/EXIT
08356  M01S01194.274l797 +++|          SA2    TTDV        SET TO SEARCH TAPE DEVICE TABLE
08357  M01S01195.274l797 +++|          RJ     CDT         CHECK FOR TAPE DEVICE
08358  M01S01196.274l797 +++|          ZR     X2,CTEX     IF NOT TAPE DEVICE
08359  M01S01197.274l797 +++|          SX7    A2-TTDV     SET DEVICE TYPE
08360  M01S01198.274l797 +++|          EQ     CTEX        RETURN
08361  M01S04288.resex   +++| CTL      SPACE  4,20
08362  M01S04289.resex   +++|**        CTL - CHECK FOR TRACK LIMIT.
08363  M01S04290.resex   +++|*
08364  M01S04291.resex   +++|*         ENTRY  (X2) = FET ADDRESS.
08365  M01S04292.resex   +++|*
08366  M01S04293.resex   +++|*         EXIT   (X2) = FET ADDRESS.
08367  M01S04294.resex   +++|*                TO *URF1*, IF TRACK LIMIT (AFTER TIMED/EVENT ROLLOUT
08368  M01S04295.resex   +++|*                     COMPLETED).
08369  M01S04296.resex   +++|*                TO *PIT*, IF TRACK LIMIT DETECTED AND INTERRUPT
08370  M01S04297.resex   +++|*                HAS OCCURRED.
08371  M01S04298.resex   +++|*
08372  M01S04299.resex   +++|*         ERROR  TO *PER*, IF CIO ERROR OTHER THAN TRACK LIMIT
08373  M01S04300.resex   +++|*                DETECTED.
08374  M01S04301.resex   +++|*
08375  M01S04302.resex   +++|*         USES   A - 0, 1, 3, 4, 6, 7.
08376  M01S04303.resex   +++|*                B - 2.
08377  M01S04304.resex   +++|*                X - ALL.
08378  M01S04305.resex   +++|*
08379  M01S04306.resex   +++|*         CALLS  PRO.
08380  M01S04307.resex   +++|*
08381  M01S04308.resex   +++|*         MACROS INTRP, RETRF, STATUS.
08382  M01S04309.resex   +++|
08383  M01S04310.resex   +++|
08384  M01S04311.resex   +++| CTL      SUBR               ENTRY/EXIT
08385  M01S04312.resex   +++|          SA1    X2          CHECK FOR TRACK LIMIT STATUS
08386  M01S04313.resex   +++|          MX0    -4
08387  M01S04314.resex   +++|          LX1    -10
08388  M01S04315.resex   +++|          BX3    -X0*X1
08389  M01S04316.resex   +++|          MX0    -8          CLEAR STATUS
08390  M01S04317.resex   +++|          BX6    X0*X1
08391  M01S04318.resex   +++|          LX6    10
08392  M01S04319.resex   +++|          SA6    A1
08393  M01S04320.resex   +++|          SA1    X2+FDTY     CLEAR USER PROCESSING
08394  M01S04321.resex   +++|          MX0    1
08395  M01S04322.resex   +++|          LX0    45-59
08396  M01S04323.resex   +++|          BX6    -X0*X1
08397  M01S04324.resex   +++|          SA6    A1
08398  M01S04325.resex   +++|          ZR     X3,CTLX     IF NO ERROR STATUS
08399  M01S04326.resex   +++|          SX5    X3-1
08400  M01S04327.resex   +++|          NZ     X5,CTL1     IF NOT TRACK LIMIT
08401  M01S04328.resex   +++|          STATUS X2,P        SET EVENT
08402  M01S04329.resex   +++|          MX0    18
08403  M01S04330.resex   +++|          SA4    X2+6
08404  M01S04331.resex   +++|          LX0    -6
08405  M01S04332.resex   +++|          SA3    TLIM
08406  M01S04333.resex   +++|          BX4    X0*X4
08407  M01S04334.resex   +++|          LX4    36
08408  M01S04335.resex   +++|          BX7    X4+X3
08409  M01S04336.resex   +++|          SA7    RE
08410  M01S04337.resex   +++|          SA0    X2
08411  M01S04338.resex   +++|          RETRF  X2          RETURN RESOURCE FILE, RELEASE INTERLOCK
08412  M01S04339.resex   +++|          SX5    RE          SET ROLLOUT DESCRIPTOR
08413  M01S04340.resex   +++|          INTRP  PIT         PROCESS INTERRUPT
08414  M01S04341.resex   +++|          SA1   TLIM+1       GET ROLLOUT MESSAGE ADDRESS
08415  M01S04342.resex   +++|          RJ     PRO         PROCESS TIMED EVENT ROLLOUT
08416  M01S04343.resex   +++|          INTRP  PIT         PROCESS INTERRUPT
08417  M01S04344.resex   +++|          SX2    A0+         RESTORE FET ADDRESS
08418  M01S04345.resex   +++|          SA1    URFE        RESET INITIAL RANDOM INDEX
08419  M01S04346.resex   +++|          BX6    X6-X6
08420  M01S04347.resex   +++|          LX7    X1
08421  M01S04348.resex   +++|          SA6    EF          CLEAR EOR FLAG
08422  M01S04349.resex   +++|          SA7    URFA
08423  M01S04350.resex   +++|          JP     URF1        RETRY RESOURCE FILE UPDATE
08424  M01S04351.resex   +++|
08425  M01S04352.resex   +++| CTL1     SB2    /PER/CIO    *CIO ERROR.*
08426  M01S04353.resex   +++|          EQ     PER         PROCESS ERROR
08427  M01S00219.252l678 +++| CUC      SPACE  4,10
08428  M01S00220.252l678 +++|**        CUC - CHANGE USER NAME IN CONTROL POINT AREA.
08429  M01S00221.252l678 +++|*
08430  M01S00222.252l678 +++|*         ENTRY  (X1) = USER NAME TO CHANGE TO.
08431  M01S00223.252l678 +++|*
08432  M01S00224.252l678 +++|*         EXIT   USER NAME SET INTO WORD *UIDW*.
08433  M01S00225.252l678 +++|*
08434  M01S00226.252l678 +++|*         USES   X - 0, 6.
08435  M01S00227.252l678 +++|*                A - 6.
08436  M01S00228.252l678 +++|*
08437  M01S00229.252l678 +++|*         MACROS SETPFP.
08438  M01S00230.252l678 +++|
08439  M01S00231.252l678 +++|
08440  M01S00232.252l678 +++| CUC      SUBR               ENTRY/EXIT
08441  M01S00233.252l678 +++|          SX6    B1+B1       SET USER NAME FLAG
08442  M01S00234.252l678 +++|          SA6    CUCA+0
08443  M01S00235.252l678 +++|          MX0    42          SET USER NAME
08444  M01S00236.252l678 +++|          BX6    X0*X1
08445  M01S00237.252l678 +++|          SA6    CUCA+2
08446  M01S00238.252l678 +++|          SETPFP CUCA        CHANGE USER NAME
08447  M01S00239.252l678 +++|          EQ     CUCX        RETURN
08448  M01S00240.252l678 +++|
08449  M01S00241.252l678 +++| CUCA     BSSZ   3           *SETPFP* BLOCK
08450  M01S04354.resex   +++| CUP      SPACE  4,10
08451  M01S04355.resex   +++|**        CUP - CLEAN UP REQUEST.
08452  M01S04356.resex   +++|*
08453  M01S04357.resex   +++|*         ERROR  TO *PER*, IF SHARE TABLE ERROR.
08454  M01S04358.resex   +++|*
08455  M01S04359.resex   +++|*         USES   A - 1, 3, 7.
08456  M01S04360.resex   +++|*                B - 2, 5, 6, 7.
08457  M01S04361.resex   +++|*                X - 1, 3, 5, 7.
08458  M01S04362.resex   +++|*
08459  M01S04363.resex   +++|*         CALLS  BPD, IRC, UDF.
08460  M01S04364.resex   +++|
08461  M01S04365.resex   +++|
08462  M01S04366.resex   +++| CUP      SUBR               ENTRY/EXIT
08463  M01S04367.resex   +++|          SA1    DFDI        CHECK FOR DEFAULT DEMAND
08464  M01S04368.resex   +++|          ZR     X1,CUP1     IF DEFAULT DEMAND NOT SET
08465  M01S04369.resex   +++|          SB5    B1+B1       DECREMENT TOTAL AND RESOURCE DEMAND COUNTS
08466  M01S04370.resex   +++|          RJ     IRC
08467  M01S04371.resex   +++| CUP1     SB5    -B1         DECREMENT TOTAL AND RESOURCE ASSIGN COUNTS
08468  M01S04372.resex   +++|          RJ     IRC
08469  M01S04373.resex   +++|          SX5    B2-RRPP
08470  M01S04374.resex   +++|          NG     X5,CUP3     IF NOT REMOVABLE PACK
08471  M01S04375.resex   +++|          SA1    RQ
Line S04376 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08472  M02S04376.ns21000 ---|          SB6    RDEL
08473  M01S00552.ns21000 +++|          SB6    RRPS+RPSL
08474  M01S04377.resex   +++|          SB7    RRPS
08475  M01S04378.resex   +++| CUP2     SB6    B6-1
08476  M01S04379.resex   +++|          LT     B6,B7,CUP4  IF END OF SHARE TABLE
08477  M01S04380.resex   +++|          SA3    B6+RESB
08478  M01S04381.resex   +++|          BX5    X3-X1
08479  M01S04382.resex   +++|          AX5    18
08480  M01S04383.resex   +++|          NZ     X5,CUP2     IF NO MATCH
08481  M01S04384.resex   +++|          BX7    X7-X7       CLEAR SHARE TABLE ENTRY
08482  M01S04385.resex   +++|          SA7    A3
08483  M01S04386.resex   +++| CUP3     BX5    X5-X5       SET NO DEMAND FILE RETURN
08484  M01S04387.resex   +++|          RJ     UDF         UPDATE DEMAND FILE
08485  M01S04388.resex   +++|          RJ     BPD         BUILD PREVIEW DISPLAY
08486  M01S04389.resex   +++|          EQ     CUPX        RETURN
08487  M01S04390.resex   +++|
08488  M01S04391.resex   +++| CUP4     SB2    /PER/STE    *SHARE TABLE ERROR.*
08489  M01S04392.resex   +++|          JP     PER         PROCESS ERROR
08490  M01S00673.282l826 +++| CVA      SPACE  4,10
08491  M01S00674.282l826 +++|**        CVA - CHECK VSN AVAILABILITY.
08492  M01S00675.282l826 +++|*
08493  M01S00676.282l826 +++|*         EXIT   (X6) = PREVIEW DISPLAY MESSAGE CODE IF OFFSITE TMS
08494  M01S00677.282l826 +++|*                       TAPE REQUESTED OR IF ACS MOUNT ERROR.
08495  M01S00678.282l826 +++|*
08496  M01S00679.282l826 +++|*         USES   X - 0, 1, 2, 3, 6, 7.
08497  M01S00680.282l826 +++|*                A - 1, 2.
08498  M01S00681.282l826 +++|*
08499  M01S00682.282l826 +++|*         MACROS RDSB.
08500  M01S00683.282l826 +++|
08501  M01S00684.282l826 +++|
08502  M01S00685.282l826 +++| CVA      SUBR               ENTRY/EXIT
08503  M01S00686.282l826 +++|
08504  M01S00687.282l826 +++|*         CHECK OFFSITE TMS TAPE.
08505  M01S00688.282l826 +++|
08506  M01S00689.282l826 +++| CVA2     SA1    TMPF
08507  M01S00690.282l826 +++|          SX6    VOS         SET VSN OFFSITE
08508  M01S00691.282l826 +++|          LX1    59-50
08509  M01S00692.282l826 +++|          NG     X1,CVAX     IF OFFSITE TMS TAPE
08510  M01S00693.282l826 +++|
08511  M01S00694.282l826 +++|*         CHECK ACS MOUNT ERROR.
08512  M01S00695.282l826 +++|
08513  M01S00696.282l826 +++|          SX6    B0          SET NO MESSAGE
08514  M01S00697.282l826 +++|          SA1    RESB+RQPV+PRES
08515  M01S00698.282l826 +++|          MX7    -12
08516  M01S00699.282l826 +++|          LX1    -12
08517  M01S00700.282l826 +++|          BX1    -X7*X1      RESOURCE MNEMONIC
08518  M01S00701.282l826 +++|          SX1    X1-2RAT
08519  M01S00702.282l826 +++|          NZ     X1,CVAX     IF NOT ACS TAPE REQUEST
08520  M01S00703.282l826 +++|          RDSB   MTSI,/COMSMTX/VETL,/COMSMTX/VET,CVAA
08521  M01S00704.282l826 +++|          SA1    EVSN
08522  M01S00705.282l826 +++|          SA2    CVAA-1
08523  M01S00706.282l826 +++|          MX0    36
08524  M01S00707.282l826 +++|          SX6    B0+         SET NO MESSAGE
08525  M01S00708.282l826 +++| CVA1     SA2    A2+B1
08526  M01S00709.282l826 +++|          ZR     X2,CVAX     IF END OF ENTRIES
08527  M01S00710.282l826 +++|          BX3    X1-X2
08528  M01S00711.282l826 +++|          BX3    X0*X3
08529  M01S00712.282l826 +++|          NZ     X3,CVA1     IF NOT SAME VSN
08530  M01S00713.282l826 +++|          MX6    -6
08531  M01S00714.282l826 +++|          BX6    -X6*X2      PREVIEW DISPLAY MESSAGE CODE
08532  M01S00715.282l826 +++|          EQ     CVAX        RETURN
08533  M01S00716.282l826 +++|
08534  M01S00717.282l826 +++|
08535  M01S00718.282l826 +++| CVAA     BSSZ   /COMSMTX/VETL+1  MOUNT ERROR TABLE AND TERMINATOR
08536  M01S04393.resex   +++| END      SPACE  4,10
08537  M01S04394.resex   +++|**        END - ENDING SEQUENCES.
08538  M01S04395.resex   +++|
08539  M01S04396.resex   +++|
08540  M01S04397.resex   +++| END1     SA1    CF
Line S04398 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08541  M02S04398.274l797 ---|          ZR     X1,END2     IF NOT EXTERNAL CALL
08542  M01S01199.274l797 +++|          ZR     X1,END2     IF NOT *DMP=* CALL
08543  M01S04399.resex   +++|          SX7    /STATUS/OK  RETURN OK STATUS
08544  M01S04400.resex   +++|          LX7    24
08545  M01S04401.resex   +++|          SA7    SPPR
08546  M01S04402.resex   +++|
08547  M01S04403.resex   +++| END2     SA1    CI
08548  M01S04404.resex   +++|          ZR     X1,END6     IF NO CHECKPOINT INDEX
08549  M01S04405.resex   +++|          SETFS  F,X1        SET CHECKPOINT FILE STATUS
08550  M01S04406.resex   +++|          EQ     END6        RENABLE CHARGE AND END
Line S04407 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08551  M02S04407.274l797 ---|
Line S04408 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08552  M02S04408.274l797 ---| END3     RJ     BSF         BUILD SCRATCH FILE
Line S04409 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08553  M02S04409.274l797 ---|          RJ     OCA         CHECK FOR OVERCOMMITMENT
Line S04410 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08554  M02S04410.274l797 ---|          NZ     X5,END4     IF NO OVERCOMMITMENT
Line S04411 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08555  M02S04411.274l797 ---|          SB2    /PER/RDE    * RESOURCE DEMAND ERROR.*
Line S04412 Modification History
M01 (Added by) resex
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08556  M02S04412.274l797 ---|          EQ     PER         PROCESS ERROR
08557  M01S04413.resex   +++|
08558  M01S04414.resex   +++| END4     SX5    B0          SET NO RETURN FLAG FOR DEMAND FILE
08559  M01S04415.resex   +++|          RJ     UDF         UPDATE DEMAND FILE
08560  M01S04416.resex   +++|          INTRC  ON          REENABLE INTERRUPT
08561  M01S04417.resex   +++|          INTRP  PIT         PROCESS INTERRUPT
Line S04418 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08562  M02S04418.282l826 ---|
Line S04419 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08563  M02S04419.282l826 ---| END5     RJ     BPD         BUILD PREVIEW DISPLAY
08564  M01S00719.282l826 +++|          RJ     BPD         BUILD PREVIEW DISPLAY
08565  M01S04420.resex   +++|
Line S04421 Modification History
M01 (Added by) resex
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08566  M02S04421.253l688 ---| END6     RENSR  /COMSSRU/IARX  REENABLE ACCUMULATION WITH IARX CHARGE
08567  M01S00487.253l688 +++| END6     SA1    R-1
08568  M01S00488.253l688 +++|          NZ     X1,END7     IF STAGE REQUEST FILE NOT ATTACHED
08569  M01S00489.253l688 +++|          SETFS  R,0         LEAVE FILE ATTACHED
08570  M01S00720.282l826 +++|
08571  M01S00490.253l688 +++| END7     RENSR  /COMSSRU/IARX  REENABLE ACCUMULATION WITH IARX CHARGE
08572  M01S04422.resex   +++|
08573  M01S04423.resex   +++| END      ENDRUN
08574  M01S04424.resex   +++| ERR      SPACE  4,10
Line S04425 Modification History
M01 (Added by) resex
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
08575  M02S04425.v23l617 ---|**        ERR - CONTROL CARD ERROR PROCESSOR.
08576  M01S00047.v23l617 +++|**        ERR - COMMAND ERROR PROCESSOR.
08577  M01S04426.resex   +++|
08578  M01S04427.resex   +++|
08579  M01S04428.resex   +++| ERR      SB2    /PER/ARG    *ARGUMENT ERROR.*
08580  M01S04429.resex   +++|          EQ     PER         PROCESS ERROR
08581  M01S04430.resex   +++|
08582  M01S04431.resex   +++|
08583  M01S04432.resex   +++|**        ERROR EXIT FOR RSB CALLS.
08584  M01S04433.resex   +++|
08585  M01S04434.resex   +++|
08586  M01S04435.resex   +++| ERR1     LX2    1
08587  M01S04436.resex   +++|          NG     X2,ERR3     IF NO SUBSYSTEM
08588  M01S04437.resex   +++|*         EQ     ERR2        IF SYSTEM ERROR
08589  M01S04438.resex   +++|
08590  M01S04439.resex   +++|
08591  M01S04440.resex   +++|**        SUB-SYSTEM COMMUNICATION ERRORS.
08592  M01S04441.resex   +++|
08593  M01S04442.resex   +++|
08594  M01S04443.resex   +++| ERR2     SB2    /PER/SCE    *SYSTEM ERROR.*
08595  M01S04444.resex   +++|          EQ     PER         PROCESS ERROR
08596  M01S04445.resex   +++|
Line S04446 Modification History
M01 (Added by) resex
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
08597  M02S04446.v23l617 ---| ERR3     SB2    /PER/MAG    *MAGNET NOT ACTIVE.*
08598  M01S00048.v23l617 +++| ERR3     SB2    /PER/MAG    *MAGNETIC TAPE SUBSYSTEM NOT ACTIVE.*
08599  M01S00491.253l688 +++|          EQ     PER         PROCESS ERROR
08600  M01S00492.253l688 +++|
08601  M01S00493.253l688 +++|
08602  M01S00494.253l688 +++|**        STAGE PROCESSING ERRORS.
08603  M01S00495.253l688 +++|
08604  M01S00496.253l688 +++|
08605  M01S00497.253l688 +++| ERR4     SB2    /PER/SRF    *STAGE REQUEST FILE ERROR.*
08606  M01S04447.resex   +++|          EQ     PER         PROCESS ERROR
08607  M01S00553.ns21000 +++| GEE      SPACE  4,15
08608  M01S00554.ns21000 +++|**        GEE - GET EST ENTRY.
08609  M01S00555.ns21000 +++|*
Line S00556 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08610  M02S00556.ns22000 ---|*         ENTRY  (X4) = EQUIPMENT NUMBER.
Line S00412 Modification History
M01 (Added by) ns22000
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
08611  M02S00412.274l797 ---|*         ENTRY  (X4) = FAMILY EST ORDINAL.
08612  M01S01200.274l797 +++|*         ENTRY  (X4) = EST ORDINAL.
08613  M01S00557.ns21000 +++|*
08614  M01S00558.ns21000 +++|*         EXIT   (BUF) = EST ENTRY OF LENGTH *ESTE*.
08615  M01S00559.ns21000 +++|*                (A1) = BUF.
08616  M01S00560.ns21000 +++|*                (X1) = FIRST WORD OF EST ENTRY.
08617  M01S00561.ns21000 +++|*
08618  M01S00562.ns21000 +++|*         UESE   A - 1, 6.
Line S00563 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08619  M02S00563.ns22000 ---|*                X - 1, 2, 5, 6, 7.
08620  M01S00413.ns22000 +++|*                X - 1, 5, 6, 7.
08621  M01S00564.ns21000 +++|*
08622  M01S00565.ns21000 +++|*         MACROS RDSB.
08623  M01S00566.ns21000 +++|
08624  M01S00567.ns21000 +++|
08625  M01S00568.ns21000 +++| GEE      SUBR               ENTRY/EXIT
08626  M01S00569.ns21000 +++|          SA1    /LWC/ESTP   GET EST FWA
Line S00570 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08627  M02S00570.ns22000 ---|          MX2    -12
Line S00571 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08628  M02S00571.ns22000 ---|          LX1    12
Line S00572 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08629  M02S00572.ns22000 ---|          BX7    -X2*X1
Line S00573 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08630  M02S00573.ns22000 ---|          SX5    ESTE
08631  M01S00414.ns22000 +++|          AX1    36
08632  M01S00415.ns22000 +++|          R=     X5,ESTE
08633  M01S00574.ns21000 +++|          IX6    X4*X5
Line S00575 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08634  M02S00575.ns22000 ---|          IX7    X7+X6
08635  M01S00416.ns22000 +++|          IX7    X6+X1
08636  M01S00576.ns21000 +++|          MX6    1
08637  M01S00577.ns21000 +++|          SA6    BUF
08638  M01S00578.ns21000 +++|          RDSB   0,X5,X7,A6  GET EST ENTY
08639  M01S00579.ns21000 +++|          SA1    BUF
08640  M01S00580.ns21000 +++|          EQ     GEEX        RETURN
Line S04448 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08641  M02S04448.282l826 ---| GFN      SPACE  4,10
Line S04449 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08642  M02S04449.282l826 ---|**        GFN - GET FAMILY NAME.
Line S04450 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08643  M02S04450.282l826 ---|*
Line S04451 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08644  M02S04451.282l826 ---|*         ENTRY  (X4) = FAMILY EQUIPMENT.
Line S04452 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08645  M02S04452.282l826 ---|*
Line S04453 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08646  M02S04453.282l826 ---|*         EXIT   (X7) = FAMILY NAME.
Line S00417 Modification History
M01 (Added by) ns22000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08647  M02S00417.282l826 ---|*                (X2) = 42/-0,18/0.
Line S04454 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08648  M02S04454.282l826 ---|*
Line S04455 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08649  M02S04455.282l826 ---|*         USES   A - 1, 6.
Line S04456 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08650  M02S04456.282l826 ---|*                X - 1, 2, 6, 7.
Line S00581 Modification History
M01 (Added by) ns21000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08651  M02S00581.282l826 ---|*
Line S00582 Modification History
M01 (Added by) ns21000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08652  M02S00582.282l826 ---|*         CALLS  GEE.
Line S04457 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08653  M02S04457.282l826 ---|*
Line S04458 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08654  M02S04458.282l826 ---|*         MACROS RDSB.
Line S04459 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08655  M02S04459.282l826 ---|
Line S04460 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08656  M02S04460.282l826 ---|
Line S04461 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08657  M02S04461.282l826 ---| GFN      SUBR               ENTRY/EXIT
Line S04462 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08658  M03S04462.282l826 ---|          SA1    X4+EST      READ EST ENTRY
Line S00583 Modification History
M01 (Added by) ns21000
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08659  M02S00583.282l826 ---|          RJ     GEE         GET EST ENTRY
Line S04463 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08660  M02S04463.282l826 ---|          MX2    -12
Line S04464 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08661  M02S04464.282l826 ---|          BX7    -X2*X1
Line S04465 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08662  M02S04465.282l826 ---|          LX7    3           MST ADDRESS
Line S04466 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08663  M02S04466.282l826 ---|          MX6    1
Line S04467 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08664  M03S04467.282l826 ---|          SA1    BUF+PFGL    READ FAMILY NAME
Line S04468 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08665  M02S04468.282l826 ---|          SX7    X7+PFGL     MST ADDRESS OF FAMILY NAME
Line S04469 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08666  M02S04469.282l826 ---|          SA6    BUF
Line S04470 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08667  M02S04470.282l826 ---|          RDSB   0,1,X7,A6   READ PFGL WORD OF MST
Line S04471 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08668  M02S04471.282l826 ---|          SA1    BUF         FAMILY NAME
Line S04472 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08669  M02S04472.282l826 ---|          MX2    42
Line S04473 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08670  M02S04473.282l826 ---|          BX7    X2*X1
Line S04474 Modification History
M01 (Added by) resex
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08671  M02S04474.282l826 ---|          EQ     GFNX        RETURN
Line S00004 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08672  M02S00004.282l826 ---| GFO      SPACE  4,10
Line S00005 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08673  M02S00005.282l826 ---|**        GFO - GET FAMILY ORDINAL.
Line S00006 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08674  M02S00006.282l826 ---|*
Line S00007 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08675  M02S00007.282l826 ---|*         EXIT   (X7) = FAMILY ORDINAL.
Line S00008 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08676  M02S00008.282l826 ---|*
Line S00009 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08677  M02S00009.282l826 ---|*         USES   X - 1, 2, 3, 4, 6, 7.
Line S00010 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08678  M02S00010.282l826 ---|*                A - 1, 2, 6, 7.
Line S00011 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08679  M02S00011.282l826 ---|*
Line S00012 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08680  M02S00012.282l826 ---|*         CALLS  GFN.
Line S00013 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08681  M02S00013.282l826 ---|*
Line S00014 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08682  M02S00014.282l826 ---|*         MACROS RDSB.
Line S00015 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08683  M02S00015.282l826 ---|
Line S00016 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08684  M02S00016.282l826 ---|
Line S00017 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08685  M02S00017.282l826 ---| GFO      SUBR               ENTRY/EXIT
Line S00018 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08686  M02S00018.282l826 ---|          SA1    /CPA/PFCW   GET FAMILY EST ORDINAL
Line S00019 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08687  M02S00019.282l826 ---|          MX2    -12
Line S00020 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08688  M02S00020.282l826 ---|          AX1    12
Line S00021 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08689  M02S00021.282l826 ---|          BX4    -X2*X1
Line S00022 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08690  M02S00022.282l826 ---|          RJ     GFN         GET FAMILY NAME
Line S00023 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08691  M02S00023.282l826 ---|          SX6    B1
Line S00024 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08692  M02S00024.282l826 ---|          SA7    GFOA+2
Line S00025 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08693  M02S00025.282l826 ---|          SA6    A7+B1
Line S00026 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08694  M02S00026.282l826 ---|
Line S00027 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08695  M02S00027.282l826 ---|*         GET FAMILY ORDINAL POINTERS.
Line S00028 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08696  M02S00028.282l826 ---|
Line S00029 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08697  M02S00029.282l826 ---|          MX7    1           SET THE *LOW CORE READ* FLAG
Line S00030 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08698  M02S00030.282l826 ---|          SA7    GFOA
Line S00031 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08699  M02S00031.282l826 ---|          RDSB   0,1,FOTP,GFOA
Line S00032 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08700  M02S00032.282l826 ---|          SA1    GFOA
Line S00033 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08701  M02S00033.282l826 ---|          MX7    12
Line S00034 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08702  M02S00034.282l826 ---|          MX6    -24
Line S00035 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08703  M02S00035.282l826 ---|          LX1    24
Line S00036 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08704  M02S00036.282l826 ---|          BX6    -X6*X1      FOT POINTER
Line S00037 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08705  M02S00037.282l826 ---|          BX7    X7*X1       FOT SIZE
Line S00038 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08706  M02S00038.282l826 ---|          SA6    A1
Line S00039 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08707  M02S00039.282l826 ---|          LX7    12
Line S00040 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08708  M02S00040.282l826 ---|          SA7    GFOA+4
Line S00041 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08709  M02S00041.282l826 ---|
Line S00042 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08710  M02S00042.282l826 ---|*         SCAN FOT FOR FAMILY NAME.
Line S00043 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08711  M02S00043.282l826 ---|
Line S00044 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08712  M02S00044.282l826 ---| GFO1     SA1    GFOA        READ NEXT FOT ENTRY
Line S00045 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08713  M02S00045.282l826 ---|          SA2    GFOA+3
Line S00046 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08714  M02S00046.282l826 ---|          MX6    1
Line S00047 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08715  M02S00047.282l826 ---|          IX2    X1+X2
Line S00048 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08716  M02S00048.282l826 ---|          SA6    A1+B1
Line S00049 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08717  M02S00049.282l826 ---|          RDSB   0,1,X2,A6
Line S00050 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08718  M02S00050.282l826 ---|          SA1    GFOA+1      CHECK FOR FAMILY NAME MATCH
Line S00051 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08719  M02S00051.282l826 ---|          SA2    A1+B1
Line S00052 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08720  M02S00052.282l826 ---|          MX3    42
Line S00053 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08721  M02S00053.282l826 ---|          BX1    X1-X2
Line S00054 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08722  M02S00054.282l826 ---|          BX1    X3*X1
Line S00055 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08723  M02S00055.282l826 ---|          ZR     X1,GFO2     IF MATCH
Line S00056 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08724  M02S00056.282l826 ---|          SA1    A2+B1       INCREMENT ORDINAL
Line S00057 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08725  M02S00057.282l826 ---|          SA2    A1+B1       GET FOT SIZE
Line S00058 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08726  M02S00058.282l826 ---|          SX6    X1+B1
Line S00059 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08727  M02S00059.282l826 ---|          SA6    A1
Line S00060 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08728  M02S00060.282l826 ---|          IX2    X6-X2
Line S00061 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08729  M02S00061.282l826 ---|          NG     X2,GFO1     IF NOT END OF FOT
Line S00062 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08730  M02S00062.282l826 ---|          EQ     ERR         PROCESS ARGUMENT ERROR
Line S00063 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08731  M02S00063.282l826 ---|
Line S00064 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08732  M02S00064.282l826 ---| GFO2     SA1    A2+B1       GET FAMILY ORDINAL
Line S00065 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08733  M02S00065.282l826 ---|          SX7    X1
Line S00066 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08734  M02S00066.282l826 ---|          EQ     GFOX        RETURN
Line S00067 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08735  M02S00067.282l826 ---|
Line S00068 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08736  M02S00068.282l826 ---| GFOA     VFD    1/1,59/0    FOT FWA
Line S00069 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08737  M02S00069.282l826 ---|          VFD    1/1,59/0    FOT ENTRY
Line S00070 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08738  M02S00070.282l826 ---|          CON    0           FAMILY NAME
Line S00071 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08739  M02S00071.282l826 ---|          DATA   1           FOT ORDINAL
Line S00072 Modification History
M01 (Added by) resex14
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
08740  M02S00072.282l826 ---|          DATA   0           FOT SIZE
08741  M01S04475.resex   +++| GRI      SPACE  4,15
08742  M01S04476.resex   +++|**        GRI - GET RESOURCE INDEX.
08743  M01S04477.resex   +++|*
08744  M01S04478.resex   +++|*         ENTRY  (X1) = RESOURCE NAME PARAMETER.
08745  M01S04479.resex   +++|*
08746  M01S04480.resex   +++|*         EXIT   (B2) = RESOURCE DEMAND ENTRY PARAMETER INDEX.
08747  M01S04481.resex   +++|*                (B2) = 0 IF ENTRY NOT FOUND.
08748  M01S04482.resex   +++|*                (B7) = UNIT COUNT (1-8).
08749  M01S04483.resex   +++|*                (X6) = 51/0, 3/UNIT COUNT, 6/PARAMETER INDEX.
08750  M01S04484.resex   +++|*
08751  M01S04485.resex   +++|*         USES   A - 3.
08752  M01S04486.resex   +++|*                B - 2, 4, 7.
08753  M01S04487.resex   +++|*                X - 1, 2, 3, 6.
08754  M01S04488.resex   +++|
08755  M01S04489.resex   +++|
08756  M01S04490.resex   +++| GRI      SUBR               ENTRY/EXIT
08757  M01S04491.resex   +++|          MX3    12
08758  M01S04492.resex   +++|          BX2    -X3*X1      NUMBER OF UNITS
08759  M01S04493.resex   +++|          SB7    B1+
08760  M01S04494.resex   +++|          BX1    X3*X1       RESOURCE TYPE
08761  M01S04495.resex   +++|          LX2    18
08762  M01S04496.resex   +++|          NZ     X2,GRI2     IF NUMBER OF UNITS SPECIFIED
08763  M01S04497.resex   +++|          SB2    RMTP-1
08764  M01S04498.resex   +++|          SB4    RRPP
08765  M01S04499.resex   +++| GRI1     SB2    B2+B7
Line S04500 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08766  M02S04500.ns21000 ---|          SA3    RSXB+B2
08767  M01S00584.ns21000 +++|          SA3    TRID-RMTP+B2  GET RESOURCE IDENTIFIER
08768  M01S04501.resex   +++|          BX6    X1-X3
08769  M01S04502.resex   +++|          EQ     B2,B4,GRI2  IF END OF TABLE
08770  M01S04503.resex   +++|          NZ     X6,GRI1     IF NO MATCH
Line S04504 Modification History
M01 (Added by) resex
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08771  M02S04504.ns22000 ---|          SX6    100B+B2
08772  M01S00418.ns22000 +++|          SX6    B2
08773  M01S04505.resex   +++|          EQ     B7,B1,GRIX  IF TAPE ENTRY FOUND
08774  M01S04506.resex   +++|          SA3    A3+B1       GET MAXIMUM NUMBER OF UNITS
08775  M01S04507.resex   +++|          SB7    B1
08776  M01S00419.ns22000 +++|          SX6    B2+100B
08777  M01S04508.resex   +++|          ZR     X2,GRIX     IF NUMBER OF UNITS NOT SPECIFIED
08778  M01S04509.resex   +++|          SB7    X2-1R0
08779  M01S04510.resex   +++|          UX3    X3,B4
08780  M01S04511.resex   +++|          SX6    B7          MERGE PARAMETER INDEX AND UNIT COUNT
Line S04512 Modification History
M01 (Added by) resex
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
08781  M02S04512.v23l617 ---|          LE     B7,GRI3     IF ILLEGAL NUMBER OF UNITS
Line S04513 Modification History
M01 (Added by) resex
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
08782  M02S04513.v23l617 ---|          GT     B7,B4,GRI3  IF INVALID NUMBER OF UNITS
08783  M01S00049.v23l617 +++|          LE     B7,GRI3     IF INCORRECT NUMBER OF UNITS
08784  M01S00050.v23l617 +++|          GT     B7,B4,GRI3  IF INCORRECT NUMBER OF UNITS
08785  M01S04514.resex   +++|          LX6    6
08786  M01S04515.resex   +++|          SX6    X6+B2
08787  M01S04516.resex   +++|          EQ     GRIX        RETURN
08788  M01S04517.resex   +++|
08789  M01S04518.resex   +++|
Line S04519 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08790  M02S04519.ns21000 ---| GRI2     SB4    RQPD        SET TO SEARCH REMOVABLE DEVICES
08791  M01S00585.ns21000 +++| GRI2     SB4    RRPP+RRPL   SET TO SEARCH REMOVABLE PACKS
08792  M01S04520.resex   +++|          SB2    RRPP-2
08793  M01S04521.resex   +++|          SX6    B7-B1
08794  M01S04522.resex   +++|          SB7    B7+B7
08795  M01S04523.resex   +++|          ZR     X6,GRI1     IF NOT END OF SEARCH
08796  M01S04524.resex   +++| GRI3     SB2    B0
08797  M01S04525.resex   +++|          EQ     GRIX        RETURN
08798  M01S04526.resex   +++| GRL      SPACE  4,15
08799  M01S04527.resex   +++|**        GRL - GET RESOURCE LIST INDEX.
08800  M01S04528.resex   +++|*
08801  M01S04529.resex   +++|*         ENTRY  (X7) = DEVICE TYPE, 2 CHARACTERS, RIGHT-JUSTIFIED.
08802  M01S04530.resex   +++|*                (B4) = LENGTH OF TABLE.
08803  M01S04531.resex   +++|*
08804  M01S04532.resex   +++|*         EXIT   (B4) .LT. 0, IF RESOURCE LIST NOT FOUND.
08805  M01S04533.resex   +++|*                (B4) = INDEX OF RESOURCE LIST IN TRSL TABLE.
08806  M01S04534.resex   +++|*
08807  M01S04535.resex   +++|*         USES   A - 3.
08808  M01S04536.resex   +++|*                B - 4.
08809  M01S04537.resex   +++|*                X - 2, 3, 6.
08810  M01S04538.resex   +++|
08811  M01S04539.resex   +++|
08812  M01S04540.resex   +++| GRL      SUBR               ENTRY/EXIT
08813  M01S04541.resex   +++|          MX2    -12
08814  M01S04542.resex   +++|          SA3    TRSL+B4
08815  M01S04543.resex   +++| GRL1     SB4    B4-B1
08816  M01S04544.resex   +++|          SA3    A3-B1
08817  M01S04545.resex   +++|          NG     B4,GRLX     IF RESOURCE NOT FOUND IN LIST
08818  M01S04546.resex   +++| GRL2     LX3    12
08819  M01S04547.resex   +++|          BX6    -X2*X3
08820  M01S04548.resex   +++|          ZR     X6,GRL1     IF END OF RESOURCES IN THIS LIST
08821  M01S04549.resex   +++|          BX6    X6-X7
08822  M01S04550.resex   +++|          NZ     X6,GRL2     IF NO MATCH
08823  M01S04551.resex   +++|          EQ     GRLX        RETURN
08824  M01S01201.274l797 +++| GTM      SPACE  4,10
08825  M01S01202.274l797 +++|**        GTM - GET CURRENT TIME.
08826  M01S01203.274l797 +++|*
08827  M01S01204.274l797 +++|*         EXIT   (TM) = TIME IN ABSOLUTE SECONDS.
08828  M01S01205.274l797 +++|*
08829  M01S01206.274l797 +++|*         USES   X - 1.
08830  M01S01207.274l797 +++|*                A - 1, 6.
08831  M01S01208.274l797 +++|*
08832  M01S01209.274l797 +++|*         CALLS  PTE.
08833  M01S01210.274l797 +++|*
08834  M01S01211.274l797 +++|*         MACROS PDATE.
08835  M01S01212.274l797 +++|
08836  M01S01213.274l797 +++|
08837  M01S01214.274l797 +++| GTM      SUBR               ENTRY/EXIT
08838  M01S01215.274l797 +++|          PDATE  TM          GET PACKED DATE AND TIME
08839  M01S01216.274l797 +++|          SA1    TM
08840  M01S01217.274l797 +++|          RJ     PTE         SET ABSOLUTE SECONDS
08841  M01S01218.274l797 +++|          SA6    TM
08842  M01S01219.274l797 +++|          EQ     GTMX        RETURN
Line S01220 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08843  M02S01220.ns2770  ---| IAM      SPACE  4,15
Line S01221 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08844  M02S01221.ns2770  ---|**        IAM - ISSUE TAPE ASSIGNMENT MESSAGE.
Line S01222 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08845  M02S01222.ns2770  ---|*
Line S01223 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08846  M02S01223.ns2770  ---|*         ENTRY  UDT ENTRY OF ASSIGNED UNIT IN *UDT*.
Line S01224 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08847  M02S01224.ns2770  ---|*
Line S01225 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08848  M02S01225.ns2770  ---|*         EXIT   TAPE ASSIGNMENT MESSAGE ISSUED TO DAYFILE.
Line S01226 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08849  M02S01226.ns2770  ---|*
Line S01227 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08850  M02S01227.ns2770  ---|*         USES   X - 1, 6, 7.
Line S01228 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08851  M02S01228.ns2770  ---|*                A - 1.
Line S01229 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08852  M02S01229.ns2770  ---|*                B - 2, 5.
Line S01230 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08853  M02S01230.ns2770  ---|*
Line S01231 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08854  M02S01231.ns2770  ---|*         CALLS  COD, SFN, SNM.
Line S01232 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08855  M02S01232.ns2770  ---|*
Line S01233 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
M03 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08856  M03S01233.ns2770  ---|*         MACROS MESSAGE.
Line S00721 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08857  M02S00721.ns2770  ---|*         MACROS FILINFO, MESSAGE.
Line S01234 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08858  M02S01234.ns2770  ---|
Line S01235 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08859  M02S01235.ns2770  ---|
Line S01236 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08860  M02S01236.ns2770  ---| IAM      SUBR               ENTRY/EXIT
Line S01237 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
M03 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08861  M03S01237.ns2770  ---|          SA1    UDT+/COMSMTX/UST4  GET EST ORDINAL
Line S00722 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08862  M02S00722.ns2770  ---|          SA1    F           GET TAPE FILE NAME
Line S00723 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08863  M02S00723.ns2770  ---|          SX7    50001B
Line S00724 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08864  M02S00724.ns2770  ---|          MX6    42
Line S00725 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08865  M02S00725.ns2770  ---|          BX6    X6*X1       FILE NAME
Line S00726 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08866  M02S00726.ns2770  ---|          BX6    X6+X7
Line S00727 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08867  M02S00727.ns2770  ---|          SA6    IAMB        SET FILE NAME AND BLOCK LENGTH
Line S00728 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08868  M02S00728.ns2770  ---|          FILINFO  IAMB
Line S00729 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08869  M02S00729.ns2770  ---|          SA1    IAMB+2      GET EST ORDINAL
Line S01238 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08870  M02S01238.ns2770  ---|          MX7    -12
Line S01239 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
M03 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08871  M03S01239.ns2770  ---|          LX1    -24
Line S00730 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08872  M02S00730.ns2770  ---|          LX1    -48
Line S01240 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08873  M02S01240.ns2770  ---|          BX1    -X7*X1      EST ORDINAL
Line S01241 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08874  M02S01241.ns2770  ---|          SX1    X1+10000B   FORCE LEADING ZEROES
Line S01242 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08875  M02S01242.ns2770  ---|          RJ     COD         CONVERT EST ORDINAL
Line S01243 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08876  M02S01243.ns2770  ---|          SA1    F+FTAP
Line S01244 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08877  M02S01244.ns2770  ---|          MX7    -18
Line S01245 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08878  M02S01245.ns2770  ---|          BX6    -X7*X6      CONVERTED EST ORDINAL
Line S01246 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08879  M02S01246.ns2770  ---|          MX7    -2
Line S01247 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08880  M02S01247.ns2770  ---|          LX1    -55
Line S01248 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08881  M02S01248.ns2770  ---|          BX1    -X7*X1      DEVICE TYPE
Line S01249 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08882  M02S01249.ns2770  ---|          SA1    TTDV+X1
Line S01250 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08883  M02S01250.ns2770  ---|          SX1    X1          DEVICE MNEMONIC
Line S01251 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08884  M02S01251.ns2770  ---|          LX1    18
Line S01252 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08885  M02S01252.ns2770  ---|          BX1    X1+X6       DEVICE MNEMONIC AND EST ORDINAL
Line S01253 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08886  M02S01253.ns2770  ---|          LX1    30
Line S01254 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08887  M02S01254.ns2770  ---|          SB2    1R?
Line S01255 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08888  M02S01255.ns2770  ---|          SB5    IAMA
Line S01256 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08889  M02S01256.ns2770  ---|          RJ     SNM         SET DEVICE PARAMETERS IN MESSAGE
Line S01257 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08890  M02S01257.ns2770  ---|          SA1    F
Line S01258 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08891  M02S01258.ns2770  ---|          SB2    1R+
Line S01259 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08892  M02S01259.ns2770  ---|          MX7    42
Line S01260 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08893  M02S01260.ns2770  ---|          BX1    X7*X1       FILE NAME
Line S01261 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08894  M02S01261.ns2770  ---|          RJ     SNM         SET FILENAME IN MESSGE
Line S01262 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08895  M02S01262.ns2770  ---|          SA4    EVSN        EXTERNAL VSN
Line S01263 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08896  M02S01263.ns2770  ---|          SA1    =6L
Line S01264 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08897  M02S01264.ns2770  ---|          BX1    X4-X1       CONVERT TRAILING BLANKS TO ZEROS
Line S01265 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08898  M02S01265.ns2770  ---|          RJ     SFN         COMPUTE MASK OF NONBLANK CHARACTERS
Line S01266 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08899  M02S01266.ns2770  ---|          SB2    1R-
Line S01267 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08900  M02S01267.ns2770  ---|          BX1    X7*X4       REMOVE TRAILING BLANKS FROM VSN
Line S01268 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08901  M02S01268.ns2770  ---|          RJ     SNM         SET VSN IN MESSGE
Line S01269 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08902  M02S01269.ns2770  ---|          MESSAGE  IAMA      ISSUE ASSIGNMENT MESSAGE
Line S01270 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08903  M02S01270.ns2770  ---|          EQ     IAMX        RETURN
Line S01271 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08904  M02S01271.ns2770  ---|
Line S01272 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08905  M02S01272.ns2770  ---|
Line S01273 Modification History
M01 (Added by) 274l797
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08906  M02S01273.ns2770  ---| IAMA     DATA   C* ????? ASSIGNED TO +++++++, VSN=------.*
Line S00731 Modification History
M01 (Added by) 282l826
M02 (Updated by) ns2770
Seq #  *Modification Id* Act 
----------------------------+
08907  M02S00731.ns2770  ---| IAMB     BSSZ   5           *FILINFO* BLOCK
08908  M01S04552.resex   +++| IDE      SPACE  4,15
08909  M01S04553.resex   +++|**        IDE - INITIALIZE DEMAND ENTRY.
08910  M01S04554.resex   +++|*
08911  M01S04555.resex   +++|*         EXIT   EJT ORDINAL, VALIDATION LIMITS, AND
08912  M01S04556.resex   +++|*                RESOURCE IDENTIFIERS ENTERED INTO RESB BUFFER.
08913  M01S04557.resex   +++|*                SHARE TABLE AREA OF RESB BUFFER CLEARED.
08914  M01S04558.resex   +++|*
08915  M01S04559.resex   +++|*         USES   A - 1, 2, 3, 6, 7.
08916  M01S04560.resex   +++|*                B - 2, 3.
08917  M01S04561.resex   +++|*                X - 1, 2, 3, 6, 7.
08918  M01S04562.resex   +++|*
08919  M01S04563.resex   +++|*         MACROS CLEAR, MOVE.
08920  M01S04564.resex   +++|
08921  M01S04565.resex   +++|
08922  M01S04566.resex   +++| IDE      SUBR               ENTRY/EXIT
08923  M01S04567.resex   +++|          SA2    JEEO        GET JOB EJT ORDINAL
08924  M01S04568.resex   +++|          SA3    SSJ=+/COMSSSJ/ALMS  SET VALIDATION LIMITS
08925  M01S04569.resex   +++|          BX6    X2
08926  M01S04570.resex   +++|          LX3    12
08927  M01S04571.resex   +++|          SA6    RESB+RJID
08928  M01S04572.resex   +++|          MX1    6
08929  M01S04573.resex   +++|          BX7    X1*X3
08930  M01S04574.resex   +++|          SA7    RESB+RVAL
Line S04575 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08931  M02S04575.ns21000 ---|          MOVE   RMTL+RRPL,RSXB+RMTP,RESB+RMTP  RESOURCE IDENTIFIERS
Line S04576 Modification History
M01 (Added by) resex
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
08932  M02S04576.ns21000 ---|          CLEAR  RESB+RQPD,RDEL-RQPD  CLEAR PREVIEW DATA/SHARE TABLE
08933  M01S00586.ns21000 +++|          MOVE   RMTL+RRPL,TRID,RESB+RMTP  RESOURCE IDENTIFIERS
08934  M01S00587.ns21000 +++|          CLEAR  RESB+RRPP+RRPL,RDEL-RRPP-RRPL  CLEAR REMAINING ENTRY
08935  M01S04577.resex   +++|          EQ     IDEX        RETURN
08936  M01S04578.resex   +++| IRC      SPACE  4,25
08937  M01S04579.resex   +++|**        IRC - INCREMENT RESOURCE COUNT.
08938  M01S04580.resex   +++|*
08939  M01S04581.resex   +++|*         ENTRY  (RI) = REQUESTED RESOURCE INDEX AND BYTE POINTER.
08940  M01S04582.resex   +++|*                (B5) = -1, IF DECREMENT TOTAL AND RESOURCE
08941  M01S04583.resex   +++|*                     ASSIGN COUNTS.
08942  M01S04584.resex   +++|*                (B5) = 0, IF INCREMENT TOTAL AND RESOURCE ASSIGN
08943  M01S04585.resex   +++|*                     COUNTS.
08944  M01S04586.resex   +++|*                (B5) = 1, IF INCREMENT TOTAL AND RESOURCE DEMAND
08945  M01S04587.resex   +++|*                     COUNTS.
08946  M01S04588.resex   +++|*                (B5) = 2, IF DECREMENT TOTAL AND RESOURCE DEMAND
08947  M01S04589.resex   +++|*                     COUNTS.
08948  M01S04590.resex   +++|*
08949  M01S04591.resex   +++|*         EXIT   (B2) = RESOURCE INDEX INTO DEMAND ENTRY.
08950  M01S04592.resex   +++|*                TOTAL AND RESOURCE DEMAND OR ASSIGNED COUNTS
08951  M01S04593.resex   +++|*                FOR (RI) RESOURCE IN RESB BUFFER DECREMENTED
08952  M01S04594.resex   +++|*                OR INCREMENTED BY 1.
08953  M01S04595.resex   +++|*
08954  M01S04596.resex   +++|*         USES   A - 2, 3, 6, 7.
08955  M01S04597.resex   +++|*                X - 0, 1, 2, 3, 6, 7.
08956  M01S04598.resex   +++|*
08957  M01S04599.resex   +++|*         CALLS  CBP.
08958  M01S04600.resex   +++|
08959  M01S04601.resex   +++|
08960  M01S04602.resex   +++| IRC      SUBR               ENTRY/EXIT
08961  M01S04603.resex   +++|          SA2    RI          CALCULATE RESOURCE BYTE POSITION
08962  M01S04604.resex   +++|          RJ     CBP
08963  M01S04605.resex   +++|          SA2    RESB+RVAL   INCREMENT/DECREMENT TOTAL COUNT
08964  M01S04606.resex   +++|          SA3    B2+RESB     INCREMENT/DECREMENT RESOURCE COUNT
08965  M01S04607.resex   +++|          SX0    B1
08966  M01S04608.resex   +++|          LX1    X0,B4
08967  M01S04609.resex   +++|          GT     B5,IRC1     IF PROCESSING DEMAND COUNT
08968  M01S04610.resex   +++|          LX0    12
08969  M01S04611.resex   +++|          LX1    6
08970  M01S04612.resex   +++| IRC1     IX6    X2+X0
08971  M01S04613.resex   +++|          IX7    X3+X1
08972  M01S04614.resex   +++|          ZR     B5,IRC2     IF INCREMENTING ASSIGN COUNTS
08973  M01S04615.resex   +++|          EQ     B5,B1,IRC2  IF INCREMENTING DEMAND COUNTS
08974  M01S04616.resex   +++|          IX6    X2-X0       DECREMENT RESOURCE COUNTS
08975  M01S04617.resex   +++|          IX7    X3-X1
08976  M01S04618.resex   +++| IRC2     SA6    A2
08977  M01S04619.resex   +++|          SA7    A3
Proceed to Part 11
cdc/nos2.source/opl.opl871/deck/resex.010.txt ยท Last modified: by 127.0.0.1