Deck RESEX Part 019

65 Modifications

Listing Sections

Deck RESEX Start
Deck RESEX Part 1 (Line 787)
Deck RESEX Part 2 (Line 1851)
Deck RESEX Part 3 (Line 2716)
Deck RESEX Part 4 (Line 3528)
Deck RESEX Part 5 (Line 4338)
Deck RESEX Part 6 (Line 5198)
Deck RESEX Part 7 (Line 5749)
Deck RESEX Part 8 (Line 6121)
Deck RESEX Part 9 (Line 7046)
Deck RESEX Part 10 (Line 7864)
Deck RESEX Part 11 (Line 8978)
Deck RESEX Part 12 (Line 9976)
Deck RESEX Part 13 (Line 10598)
Deck RESEX Part 14 (Line 11807)
Deck RESEX Part 15 (Line 12537)
Deck RESEX Part 16 (Line 13211)
Deck RESEX Part 17 (Line 14286)
Deck RESEX Part 18 (Line 15250)
Deck RESEX Part 19 (Line 16608)

Source

Seq #  *Modification Id* Act 
----------------------------+
16608  M01S00107.resex4  +++|          NZ     X3,PRT1     IF NOT *CCCCCCO*
16609  M01S00531.resex   +++|          SA1    RIFL        CHECK FOR RI PARAMETER
16610  M01S00532.resex   +++|          NZ     X1,PRT10    IF NEW FILE WANTED
16611  M01S00533.resex   +++|          MX0    -6          CONSTRUCT *ENCSF* CALL WORD
16612  M01S00534.resex   +++|          BX5    -X0*X5
16613  M01S00535.resex   +++|          MX0    -24
16614  M01S00536.resex   +++|          AX2    6
16615  M01S00537.resex   +++|          LX0    6
16616  M01S00538.resex   +++|          BX6    -X0*X2      GET RANDOM ADDRESS
16617  M01S00539.resex   +++|          BX6    X6+X5
16618  M01S00540.resex   +++|          SA6    PRTA
16619  M01S00541.resex   +++|          REWIND O,R
16620  M01S00542.resex   +++|          SX6    3
16621  M01S00543.resex   +++|          RJ     CPY         GET OLD CONTROL STATEMENT FILE
16622  M01S00544.resex   +++|          REWIND O,R
16623  M01S00545.resex   +++|          ENCSF  O,PRTA      ENTER AND POSITION CONTROL STATEMENT FILE
16624  M01S00546.resex   +++|          EQ     PRT0        LOOP FOR REMAINING FILES
16625  M01S00108.resex4  +++|
16626  M01S00109.resex4  +++|*         PREPARE FOR PROCESSING CCL FILES.
16627  M01S00110.resex4  +++|
16628  M01S00111.resex4  +++| PRT1     SA3    CCLF        *ZZZZZC0*
16629  M01S00112.resex4  +++|          BX1    X0*X5
16630  M01S00113.resex4  +++|          BX3    X0*X3
16631  M01S00114.resex4  +++|          SA4    CCLF+CCLFL-1  *ZZZZZC2*
16632  M01S00115.resex4  +++|          BX4    X0*X4
16633  M01S00116.resex4  +++|          IX3    X1-X3
16634  M01S00117.resex4  +++|          NG     X3,PRT5     IF NOT CCL FILE
16635  M01S00118.resex4  +++|          IX4    X4-X1
16636  M01S00119.resex4  +++|          NG     X4,PRT5     IF NOT CCL FILE
16637  M01S00120.resex4  +++|          SB2    B1+         SET CCL FILE FLAG
16638  M01S00547.resex   +++|
16639  M01S00548.resex   +++|*         CHECK COPY TYPE.
16640  M01S00549.resex   +++|
16641  M01S00550.resex   +++| PRT5     MX3    -3
16642  M01S00551.resex   +++|          BX4    X2
16643  M01S00552.resex   +++|          LX4    2-11
16644  M01S00553.resex   +++|          BX3    -X3*X4      GET COPY TYPE
16645  M01S00554.resex   +++|          SX4    X3-4
16646  M01S00555.resex   +++|          MX3    -6
16647  M01S00556.resex   +++|          BX6    -X3*X5
16648  M01S00557.resex   +++|          SA6    FIID        SAVE STATUS
16649  M01S00121.resex4  +++|          NE     B2,PRT5.1   IF CCL FILE
16650  M01S00558.resex   +++|          SA1    FCFL        CHECK FILE CHECK FLAG
16651  M01S00559.resex   +++|          NZ     X1,PRT9     IF SET
16652  M01S00560.resex   +++|          SA1    =C*INPUT*
16653  M01S00561.resex   +++|          BX6    X1-X5
16654  M01S00562.resex   +++|          BX6    X0*X6
16655  M01S00563.resex   +++|          NZ     X6,PRT6     IF NOT INPUT
16656  M01S00564.resex   +++|          RETURN O,R         RETURN BEFORE CREATING
16657  M01S00565.resex   +++|          EQ     PRT7

Line S00566 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex4`

Seq #  *Modification Id* Act 
----------------------------+
16658  M02S00566.resex4  ---|
16659  M01S00122.resex4  +++|
16660  M01S00123.resex4  +++| PRT5.1   SA1    RIFL        CHECK FOR *RI* PARAMETER
16661  M01S00124.resex4  +++|          NZ     X1,PRT10    IF NEW CONTROL STATEMENTS WANTED
16662  M01S00567.resex   +++| PRT6     REWIND O,R
16663  M01S00568.resex   +++| PRT7     ZR     X4,PRT11    IF NO FILE COPY
16664  M01S00569.resex   +++|          SX6    3
16665  M01S00570.resex   +++|          RJ     CPY         COPY FILE
16666  M01S00571.resex   +++| PRT8     RJ     PSF         POSITION THE FILE
16667  M01S00572.resex   +++|          SA2    FIID
16668  M01S00573.resex   +++|          SETFS  O,X2
16669  M01S00574.resex   +++|          EQ     PRT0        LOOP FOR REMAINING FILES
16670  M01S00575.resex   +++|
16671  M01S00576.resex   +++|*         CHECK IF FILE ALREADY PRESENT.
16672  M01S00577.resex   +++|
16673  M01S00578.resex   +++| PRT9     STATUS O
16674  M01S00579.resex   +++|          SA1    O
16675  M01S00580.resex   +++|          SX3    X1-1
16676  M01S00581.resex   +++|          ZR     X3,PRT7     IF NOT FOUND
16677  M01S00001.resex6  +++|          SA2    A2          WORD 2 OF TABLE ENTRY

Line S00582 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16678  M02S00582.resex3  ---|          MX1    -3

Line S00583 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16679  M02S00583.resex3  ---|          LX5    2-16

Line S00584 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16680  M02S00584.resex3  ---|          BX1    -X1*X5
16681  M01S00011.resex3  +++|          MX1    -4
16682  M01S00012.resex3  +++|          LX2    -4
16683  M01S00013.resex3  +++|          BX1    -X1*X2
16684  M01S00585.resex   +++|          SX1    X1-4

Line S00586 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex9`

Seq #  *Modification Id* Act 
----------------------------+
16685  M02S00586.resex9  ---|          ZR     X1,PRT0     IF EXECUTE-ONLY

Line S00587 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex9`

Seq #  *Modification Id* Act 
----------------------------+
16686  M02S00587.resex9  ---|          ZR     X4,PRT0     IF NO FILE COPY ON CHECKPOINT FILE
16687  M01S00003.resex9  +++|          ZR     X1,PRT8     IF EXECUTE-ONLY
16688  M01S00004.resex9  +++|          ZR     X4,PRT8     IF NO FILE COPY ON CHECKPOINT FILE
16689  M01S00588.resex   +++|
16690  M01S00589.resex   +++|*         COPY FILE TO BE RID OF IT
16691  M01S00590.resex   +++|
16692  M01S00591.resex   +++| PRT10    SA1    =C*CCCCCCM*
16693  M01S00592.resex   +++|          SX3    3
16694  M01S00593.resex   +++|          BX6    X1+X3
16695  M01S00594.resex   +++|          SA6    O
16696  M01S00595.resex   +++|          SX6    3
16697  M01S00596.resex   +++|          RJ     CPY         COPY OLD FILE TO NEW HOME
16698  M01S00597.resex   +++|          REWIND O,R
16699  M01S00598.resex   +++|          EQ     PRT0        LOOP FOR REMAINING FILES
16700  M01S00599.resex   +++|
16701  M01S00600.resex   +++|*         IF NO FILE COPY.
16702  M01S00601.resex   +++|
16703  M01S00602.resex   +++| PRT11    MX3    -24
16704  M01S00603.resex   +++|          LX3    12
16705  M01S00604.resex   +++|          SA2    A2          WORD 2 OF TABLE ENTRY
16706  M01S00605.resex   +++|          BX4    -X3*X2      ISOLATE RANDOM INDEX
16707  M01S00606.resex   +++|          MX3    -6          CHECK FILE TYPE
16708  M01S00607.resex   +++|          ZR     X4,PRT0     IF EMPTY FILE
16709  M01S00608.resex   +++|          AX5    6
16710  M01S00609.resex   +++|          BX4    -X3*X5
16711  M01S00610.resex   +++|          SX3    X4-LIFT
16712  M01S00611.resex   +++|          NZ     X3,PRT13    IF NOT LIBRARY FILE
16713  M01S00612.resex   +++|          ASSIGN P           REASSIGN SYSTEM FILE
16714  M01S00613.resex   +++|          EQ     PRT8        LOOP FOR REMAINING FILES
16715  M01S00614.resex   +++|
16716  M01S00615.resex   +++| PRT13    SX3    X4-PMFT
16717  M01S00616.resex   +++|          NZ     X3,PRT14    IF NOT DIRECT ACCESS FILE
16718  M01S00617.resex   +++|
16719  M01S00618.resex   +++|*         CHECK  MODE.
16720  M01S00619.resex   +++|

Line S00620 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16721  M02S00620.resex3  ---|          SA5    A5
16722  M01S00014.resex3  +++|          SA2    A5+B1
16723  M01S00621.resex   +++|          RJ     SMD         SET MODE
16724  M01S00622.resex   +++|          ATTACH P,,,,MODA,,,,NF
16725  M01S00623.resex   +++|          EQ     PRT8        LOOP FOR REMAINING FILES
16726  M01S00624.resex   +++|
16727  M01S00625.resex   +++| PRT14    SX3    X4-LOFT
16728  M01S00626.resex   +++|          NZ     X3,PRT16    IF ILLEGAL FILE TYPE
16729  M01S00627.resex   +++|          SA1    O+8
16730  M01S00628.resex   +++|          MX3    -2
16731  M01S00629.resex   +++|          AX1    13
16732  M01S00630.resex   +++|          BX1    -X3*X1
16733  M01S00631.resex   +++|          SX3    X1-1
16734  M01S00632.resex   +++|          ZR     X3,PRT8     IF TAPE FILE
16735  M01S00633.resex   +++| PRT15    GET    P
16736  M01S00634.resex   +++|          EQ     PRT8        LOOP FOR REMAINING FILES
16737  M01S00635.resex   +++|
16738  M01S00636.resex   +++|*         IF FILE NOT FOUND.
16739  M01S00637.resex   +++|
16740  M01S00638.resex   +++| PRT16    MX0    42
16741  M01S00639.resex   +++|          SA1    O
16742  M01S00640.resex   +++|          BX1    X0*X1
16743  M01S00641.resex   +++|          RJ     SFN         SPACE FILL FILE NAME
16744  M01S00642.resex   +++|          LX6    -6
16745  M01S00643.resex   +++|          SA6    MSGA
16746  M01S00644.resex   +++|          MESSAGE A6
16747  M01S00645.resex   +++|
16748  M01S00646.resex   +++|*         CHECK NO ABORT FLAG.
16749  M01S00647.resex   +++|
16750  M01S00648.resex   +++|          SA2    NAFL
16751  M01S00649.resex   +++|          NZ     X2,PRT0     IF NO ABORT, LOOP FOR REMAINING FILES
16752  M01S00650.resex   +++|          EQ     CPY5
16753  M01S00651.resex   +++|
16754  M01S00652.resex   +++|*         RETURN *CCCCCCM* AND EXIT.
16755  M01S00653.resex   +++|
16756  M01S00654.resex   +++| PRT17    SA1    =C*CCCCCCM*
16757  M01S00655.resex   +++|          SX3    3
16758  M01S00656.resex   +++|          BX6    X1+X3
16759  M01S00657.resex   +++|          SA6    O
16760  M01S00658.resex   +++|          RETURN O,R
16761  M01S00659.resex   +++|          EQ     PRTX        RETURN
16762  M01S00660.resex   +++|
16763  M01S00661.resex   +++|
16764  M01S00662.resex   +++| PRTA     BSS    1           PARAMETER AREA FOR *ENCSF* CALL
16765  M01S00663.resex   +++|
16766  M01S00664.resex   +++| MSGA     DATA   C*           NOT FOUND.*
16767  M01S00125.resex4  +++| RCC      SPACE  4,15
16768  M01S00126.resex4  +++|**        RCC - RENAME/RETURN CCL FILES.
16769  M01S00127.resex4  +++|*
16770  M01S00128.resex4  +++|*         ENTRY  (B3) = 0, IF RENAME FUNCTION.
16771  M01S00129.resex4  +++|*                     = 1, IF RETURN FUCNTION.
16772  M01S00130.resex4  +++|*                (B4) = FWA OF LIST OF FILES TO BE RENAMED/RETURNED.
16773  M01S00131.resex4  +++|*                (B5) = FWA OF LIST OF FILE NAMES TO USE FOR RENAME.
16774  M01S00132.resex4  +++|*
16775  M01S00133.resex4  +++|*         USES   X - 0, 1, 2, 5, 6.
16776  M01S00134.resex4  +++|*                A - 1, 5, 6.
16777  M01S00135.resex4  +++|*                B - 2.
16778  M01S00136.resex4  +++|*
16779  M01S00137.resex4  +++|*         MACROS RENAME, RETURN.
16780  M01S00138.resex4  +++|
16781  M01S00139.resex4  +++|
16782  M01S00140.resex4  +++| RCC3     BX6    X6-X6
16783  M01S00141.resex4  +++|          SA6    O+6
16784  M01S00142.resex4  +++|
16785  M01S00143.resex4  +++| RCC      SUBR               ENTRY/EXIT
16786  M01S00144.resex4  +++|          SA1    RIFL
16787  M01S00145.resex4  +++|          NZ     X1,RCCX     IF PROCESSING NOT NEEDED
16788  M01S00146.resex4  +++|          SB2    -1
16789  M01S00147.resex4  +++| RCC1     SB2    B2+1
16790  M01S00148.resex4  +++|          SA5    B4+B2       GET NEXT FILE NAME TO PROCESS
16791  M01S00149.resex4  +++|          SX2    B1
16792  M01S00150.resex4  +++|          ZR     X5,RCC3     IF ALL FILES PROCESSED
16793  M01S00151.resex4  +++|          BX6    X5+X2
16794  M01S00152.resex4  +++|          LX5    59-0
16795  M01S00153.resex4  +++|          PL     X5,RCC1     IF NOT TO PROCESS FILE
16796  M01S00154.resex4  +++|          SA6    O
16797  M01S00155.resex4  +++|          EQ     B3,B1,RCC2  IF *RETURN* FUNCTION SELECTED
16798  M01S00156.resex4  +++|          RENAME O,B5+B2
16799  M01S00157.resex4  +++|          SA1    O
16800  M01S00158.resex4  +++|          MX0    -8
16801  M01S00159.resex4  +++|          LX1    7-17
16802  M01S00160.resex4  +++|          BX2    -X0*X1
16803  M01S00161.resex4  +++|          SA5    B5+B2
16804  M01S00162.resex4  +++|          NZ     X2,RCC1     IF FILE NOT RENAMED
16805  M01S00163.resex4  +++|          SX6    B1          SET FILE RENAMED INDICATOR
16806  M01S00164.resex4  +++|          BX6    X5+X6
16807  M01S00165.resex4  +++|          SA6    A5+
16808  M01S00166.resex4  +++|          EQ     RCC1        PROCESS NEXT SELECTED FILE
16809  M01S00167.resex4  +++|
16810  M01S00168.resex4  +++| RCC2     RETURN O,R
16811  M01S00169.resex4  +++|          EQ     RCC1        PROCESS NEXT SELECTED FILE
16812  M01S00665.resex   +++| RDA      SPACE  4
16813  M01S00666.resex   +++|**        RDA - READ DATA.
16814  M01S00667.resex   +++|*         PROCESSES CALLS TO READ WORDS (RDW=).
16815  M01S00668.resex   +++|*         DEBLOCKS DATA FROM CONTROL WORD READS FOR TAPE POSITIONING.
16816  M01S00669.resex   +++|*

Line S00670 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex1`

Seq #  *Modification Id* Act 
----------------------------+
16817  M02S00670.resex1  ---|*         ENTRY  X2 = FET ADDRESS

Line S00671 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex1`

Seq #  *Modification Id* Act 
----------------------------+
16818  M02S00671.resex1  ---|*                B6 = ADDRESS TO READ TO

Line S00672 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex1`

Seq #  *Modification Id* Act 
----------------------------+
16819  M02S00672.resex1  ---|*                B7 = NUMBER OF WORDS TO READ

Line S00673 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex1`

Seq #  *Modification Id* Act 
----------------------------+
16820  M02S00673.resex1  ---|*

Line S00674 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex1`

Seq #  *Modification Id* Act 
----------------------------+
16821  M02S00674.resex1  ---|*         EXIT   WORDS READ
16822  M01S00051.resex1  +++|*         ENTRY  (X0) = BLOCK COUNT.
16823  M01S00052.resex1  +++|*                (X2) = FET ADDRESS.
16824  M01S00053.resex1  +++|*                (B6) = ADDRESS TO READ TO.
16825  M01S00054.resex1  +++|*                (B7) = NUMBER OF WORDS TO READ.
16826  M01S00055.resex1  +++|*
16827  M01S00056.resex1  +++|*         EXIT   (X0) = BLOCK COUNT UPDATED.
16828  M01S00057.resex1  +++|*                ((X2)-2) = NUMBER OF WORDS REMAINING IN CURRENT
16829  M01S00058.resex1  +++|*                BLOCK IF POSITION IS NOT AT EOR/EOF/EOI.
16830  M01S00675.resex   +++|*
16831  M01S00676.resex   +++|*         CALLS  RDW=
16832  M01S00677.resex   +++|*
16833  M01S00678.resex   +++|*         USES   A - 1,3,6,7
16834  M01S00679.resex   +++|*                B - 5,6,7
16835  M01S00680.resex   +++|*                X - 0,1,2,3,6,7
16836  M01S00681.resex   +++|*
16837  M01S00682.resex   +++|
16838  M01S00683.resex   +++|
16839  M01S00684.resex   +++| RDA5     SX6    B5-B7       UPDATE WORDS REMAINING
16840  M01S00685.resex   +++|          SA6    A1
16841  M01S00686.resex   +++|
16842  M01S00687.resex   +++|          RJ     RDW=        READ WORDS
16843  M01S00688.resex   +++|
16844  M01S00689.resex   +++| RDA      PS                 ENTRY/EXIT
16845  M01S00690.resex   +++| RDA1     SA1    X2-2        GET NUMBER OF WORDS BEFORE CONTROL WORD
16846  M01S00691.resex   +++|          SB5    X1+
16847  M01S00692.resex   +++|          PL     X1,RDA2     IF NOT FIRST READ
16848  M01S00693.resex   +++|          SX7    B7+         SET WORDS NEEDED
16849  M01S00694.resex   +++|          SA7    RDAA
16850  M01S00695.resex   +++|          JP     RDA4
16851  M01S00696.resex   +++|
16852  M01S00697.resex   +++| RDA2     GE     B5,B7,RDA5  IF ENOUGH DATA TO FILL BUFFER
16853  M01S00698.resex   +++|          SA3    X2-1        CHECK EOR FLAG
16854  M01S00699.resex   +++|          PL     X3,RDA3     IF NOT EOR ON FILE
16855  M01S00700.resex   +++|          MX6    1           SET NEW READ FLAG
16856  M01S00701.resex   +++|          SB7    B5+B1       SET WORDS TO READ
16857  M01S00702.resex   +++|          SA6    A3
16858  M01S00703.resex   +++|          SA6    A1
16859  M01S00704.resex   +++|          RJ     RDW=        READ WORDS
16860  M01S00705.resex   +++|          SX1    B6-B1       SET EOR INDICATION
16861  M01S00706.resex   +++|          SB6    B6-B1       BACK UP LWA TO ALLOW FOR CONTROL WORD
16862  M01S00707.resex   +++|          JP     RDA         RETURN
16863  M01S00708.resex   +++|
16864  M01S00709.resex   +++| RDA3     SX6    B7-B5       SAVE ADDITIONAL WORDS NEEDED
16865  M01S00710.resex   +++|          SA6    RDAA
16866  M01S00711.resex   +++|          SB7    B5+B1       SET WORDS TO TRANSFER
16867  M01S00712.resex   +++|          RJ     RDW=        READ WORDS
16868  M01S00713.resex   +++|          SB6    B6-1        BACK UP OVER LAST CONTROL WORD
16869  M01S00714.resex   +++| RDA4     SB7    B1          READ CONTROL WORD
16870  M01S00715.resex   +++|          RJ     RDW=
16871  M01S00716.resex   +++|          NG     X1,RDA      IF EOF/EOI
16872  M01S00717.resex   +++|          SB6    B6-B1       BACK UP WORKING BUFFER
16873  M01S00718.resex   +++|          SA1    B6          CONTROL WORD
16874  M01S00719.resex   +++|          SX7    5
16875  M01S00720.resex   +++|          SX4    X1+4        ROUND UP
16876  M01S00721.resex   +++|          AX1    36          EXTRACT BLOCK SIZE
16877  M01S00722.resex   +++|          SX3    X1
16878  M01S00723.resex   +++|          IX7    X4/X7       WORDS IN BLOCK
16879  M01S00724.resex   +++|          IX6    X7-X3       SAVE EOR FLAG
16880  M01S00725.resex   +++|          SA7    X2-2        STORE WORD COUNT
16881  M01S00726.resex   +++|          SA6    X2-1        EOR FLAG
16882  M01S00727.resex   +++|          SA1    RDAA        RESET WORDS NEEDED
16883  M01S00728.resex   +++|          SB7    X1
16884  M01S00729.resex   +++|          SX0    X0+1        INCREMENT BLOCK COUNT
16885  M01S00730.resex   +++|          JP     RDA1        LOOP
16886  M01S00731.resex   +++|
16887  M01S00732.resex   +++| RDAA     CON    0           NUMBER OF WORDS NEED TO READ
16888  M01S00733.resex   +++| SMD      SPACE  4
16889  M01S00734.resex   +++|**        SMD - SET FILE ACCESS MODE.
16890  M01S00735.resex   +++|*

Line S00736 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16891  M02S00736.resex3  ---|*         ENTRY  (X5) = FNT.
16892  M01S00015.resex3  +++|*         ENTRY  (X2) = WORD 2 OF TABLE ENTRY (REFORMATTED FST).
16893  M01S00737.resex   +++|*
16894  M01S00738.resex   +++|*         EXIT   (MODA) = MODE.
16895  M01S00739.resex   +++|*

Line S00740 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16896  M02S00740.resex3  ---|*         CALLS  NONE.

Line S00741 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16897  M02S00741.resex3  ---|*

Line S00742 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16898  M02S00742.resex3  ---|*         USES   A - 3, 6.

Line S00743 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16899  M02S00743.resex3  ---|*                B - NONE.

Line S00744 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16900  M02S00744.resex3  ---|*                X - 1, 3, 4, 5, 6.
16901  M01S00016.resex3  +++|*         USES   X - 1, 2, 3, 4, 6.
16902  M01S00017.resex3  +++|*                A - 3, 6.
16903  M01S00745.resex   +++|
16904  M01S00746.resex   +++|
16905  M01S00747.resex   +++| SMD      SUBR               ENTRY/EXIT

Line S00748 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16906  M02S00748.resex3  ---|          LX5    42

Line S00749 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16907  M02S00749.resex3  ---|          MX4    5

Line S00750 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16908  M02S00750.resex3  ---|          SX6    B1+B1       CLEAR TAPE BIT

Line S00751 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16909  M02S00751.resex3  ---|          BX6    -X6*X5
16910  M01S00018.resex3  +++|          LX2    59-7
16911  M01S00019.resex3  +++|          MX4    4
16912  M01S00752.resex   +++|          SA3    MODE        SET TABLE ADDRESS

Line S00753 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16913  M02S00753.resex3  ---| SMD1     BX1    X3-X6
16914  M01S00020.resex3  +++| SMD1     BX1    X3-X2
16915  M01S00754.resex   +++|          BX1    X4*X1
16916  M01S00755.resex   +++|          ZR     X1,SMD2     IF FOUND
16917  M01S00756.resex   +++|          SA3    A3+B1
16918  M01S00757.resex   +++|          NZ     X3,SMD1     LOOP
16919  M01S00758.resex   +++|          SX6    PTRD        SET READ MODE DEFAULT
16920  M01S00759.resex   +++|          SA6    MODA
16921  M01S00760.resex   +++|          EQ     SMDX        RETURN
16922  M01S00761.resex   +++|
16923  M01S00762.resex   +++| SMD2     SX6    X3
16924  M01S00763.resex   +++|          SA6    MODA
16925  M01S00764.resex   +++|          EQ     SMDX        RETURN
16926  M01S00765.resex   +++|
16927  M01S00766.resex   +++|
16928  M01S00767.resex   +++| MODE     BSS    0           MODE TABLE

Line S00768 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16929  M02S00768.resex3  ---|          VFD    6/0,54/PTWR    WRITE

Line S00769 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16930  M02S00769.resex3  ---|          VFD    6/1,54/PTRD    READ

Line S00770 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16931  M02S00770.resex3  ---|          VFD    6/14B,54/PTAP  APPEND

Line S00771 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16932  M02S00771.resex3  ---|          VFD    6/20B,54/PTEX  EXECUTE

Line S00772 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16933  M02S00772.resex3  ---|          VFD    6/10B,54/PTMD  MODIFY

Line S00773 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16934  M02S00773.resex3  ---|          VFD    6/31B,54/PTRM  READ/MODIFY

Line S00774 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex3`

Seq #  *Modification Id* Act 
----------------------------+
16935  M02S00774.resex3  ---|          VFD    6/15B,54/PTRA  READ APPEND
16936  M01S00021.resex3  +++|          VFD    4/1,56/PTWR    WRITE
16937  M01S00022.resex3  +++|          VFD    4/0,56/PTRD    READ
16938  M01S00023.resex3  +++|          VFD    4/3,56/PTAP    APPEND
16939  M01S00024.resex3  +++|          VFD    4/4,56/PTEX    EXECUTE
16940  M01S00025.resex3  +++|          VFD    4/2,56/PTMD    MODIFY
16941  M01S00026.resex3  +++|          VFD    4/5,56/PTRM    READ/MODIFY
16942  M01S00027.resex3  +++|          VFD    4/6,56/PTRA    READ/APPEND
16943  M01S00028.resex3  +++|          VFD    4/7,56/PTUP    UPDATE
16944  M01S00029.resex3  +++|          VFD    4/10B,56/PTRU  READ/UPDATE
16945  M01S00775.resex   +++|          CON    0
16946  M01S00776.resex   +++|
16947  M01S00777.resex   +++| MODA     CON    0           FILE ACCESS MODE
16948  M01S00778.resex   +++|          TITLE  COMMON DECKS AND BUFFERS.
16949  M01S00779.resex   +++| COM      SPACE  4
16950  M01S00780.resex   +++|*         COMMON DECKS.
16951  M01S00781.resex   +++|
16952  M01S00782.resex   +++|
16953  M01S00783.resex   +++|*CALL     COMCARG
16954  M01S00784.resex   +++|*CALL     COMCCDD
16955  M01S00785.resex   +++|*CALL     COMCCIO
16956  M01S00786.resex   +++|*CALL     COMCCPM
16957  M01S00787.resex   +++|*CALL     COMCDXB
16958  M01S00788.resex   +++|*CALL     COMCEDT
16959  M01S00789.resex   +++|*CALL     COMCLFM
16960  M01S00790.resex   +++|*CALL     COMCPFM
16961  M01S00791.resex   +++|*CALL     COMCRDC
16962  M01S00792.resex   +++|*CALL     COMCRDO
16963  M01S00793.resex   +++|*CALL     COMCRDW
16964  M01S00794.resex   +++|*CALL     COMCSFN
16965  M01S00004.resex5  +++|*CALL     COMCSNM
16966  M01S00795.resex   +++|*CALL     COMCSYS
16967  M01S00796.resex   +++|*CALL     COMCWTO
16968  M01S00797.resex   +++|*CALL     COMCWTW
16969  M01S00798.resex   +++|          SPACE  4
16970  M01S00799.resex   +++|          TITLE  PRESET.
16971  M01S00800.resex   +++| PRS      SPACE  4
16972  M01S00801.resex   +++|**        PRS    PRESET ROUTINE.
16973  M01S00802.resex   +++|*
16974  M01S00803.resex   +++|*         ENTRY  NONE.
16975  M01S00804.resex   +++|*
16976  M01S00805.resex   +++|*         EXIT   FILE POSITIONED TO CORRECT CHECKPOINT.
16977  M01S00806.resex   +++|*
16978  M01S00807.resex   +++|*         CALLS  ARG,DXB.
16979  M01S00808.resex   +++|*
16980  M01S00809.resex   +++|*         USES   A - 1,2,4,5,6,7.
16981  M01S00810.resex   +++|*                B - 2,4,5.
16982  M01S00811.resex   +++|*                X - ALL.
16983  M01S00812.resex   +++|
16984  M01S00813.resex   +++|
16985  M01S00814.resex   +++| PRS      SUBR               ENTRY/EXIT
16986  M01S00815.resex   +++|          SB1    1
16987  M01S00816.resex   +++|
16988  M01S00817.resex   +++|*         PROCESS ARGUMENTS.
16989  M01S00818.resex   +++|
16990  M01S00819.resex   +++|          SA1    ACTR
16991  M01S00820.resex   +++|          SB2    X1
16992  M01S00821.resex   +++|          ZR     B2,PRS7     IF NO ARGUMENTS
16993  M01S00822.resex   +++|          SA1    ARGR
16994  M01S00823.resex   +++|          ZR     X1,PRS7     IF ERROR
16995  M01S00824.resex   +++|          SX3    3
16996  M01S00825.resex   +++|          BX6    X1+X3
16997  M01S00826.resex   +++|          SB2    B2-B1
16998  M01S00827.resex   +++|          SA6    I           SET FILE NAME
16999  M01S00828.resex   +++|          REWIND I
17000  M01S00829.resex   +++|          ZR     B2,PRS2     IF END OF ARGUMENTS
17001  M01S00830.resex   +++|          SA1    ARGR+1
17002  M01S00831.resex   +++|          ZR     X1,PRS1     IF NOT SET
17003  M01S00832.resex   +++|          BX6    X1
17004  M01S00833.resex   +++|          SA6    CKNO        SET CHECKPOINT NUMBER
17005  M01S00834.resex   +++| PRS1     SB4    B2-B1
17006  M01S00835.resex   +++|          ZR     B4,PRS2     IF END OF ARGUMENTS
17007  M01S00836.resex   +++|          SA4    A1+B1
17008  M01S00837.resex   +++|          SB5    TARG
17009  M01S00838.resex   +++|          RJ     ARG
17010  M01S00839.resex   +++|
17011  M01S00840.resex   +++|          NZ     X1,PRS7     IF ERROR IN ARGUMENT
17012  M01S00841.resex   +++| PRS2     SA5    CKNO        GET CHECKPOINT NUMBER
17013  M01S00842.resex   +++|          SX4    X5-1
17014  M01S00843.resex   +++|          ZR     X4,PRS3     IF DEFAULT SET
17015  M01S00844.resex   +++|          SA4    ASK
17016  M01S00845.resex   +++|          BX4    X4-X5
17017  M01S00846.resex   +++|          ZR     X4,PRS3     IF LAST CHECKPOINT DESIRED
17018  M01S00847.resex   +++|          SB7    B1          CONVERT TO BINARY ASSUMING DECIMAL NUMBER
17019  M01S00848.resex   +++|          RJ     DXB
17020  M01S00849.resex   +++|          NZ     X4,PRS7     IF ERROR
17021  M01S00850.resex   +++|          SA6    CKNO        SET NO. OF CHECKPOINT DESIRED
17022  M01S00851.resex   +++|
17023  M01S00852.resex   +++|*         POSITION FILE TO CHECKPOINT RECORD.
17024  M01S00853.resex   +++|
17025  M01S00854.resex   +++| PRS3     READSKP I,,R       SKIP TO END OF RECORD
17026  M01S00855.resex   +++|          SA1    X2          CHECK STATUS
17027  M01S00856.resex   +++|          LX1    59-3
17028  M01S00857.resex   +++|          NG     X1,CPY4     IF EOF/EOI
17029  M01S00858.resex   +++|          SA1    IBUF        LOOK AT FIRST WORD OF BUFFER
17030  M01S00859.resex   +++|          SX1    X1-10002B   CHECK FOR HEADER WORD
17031  M01S00860.resex   +++|          NZ     X1,PRS3     IF NOT HEADER
17032  M01S00861.resex   +++|          BKSP   I,R
17033  M01S00862.resex   +++| PRS4     SA1    I+1         SET IN = OUT = FIRST
17034  M01S00863.resex   +++|          SX6    X1
17035  M01S00864.resex   +++|          SA6    A1+B1
17036  M01S00865.resex   +++|          SA6    A6+B1
17037  M01S00866.resex   +++|
17038  M01S00867.resex   +++|*         SEARCH FOR CORRECT CHECKPOINT.
17039  M01S00868.resex   +++|
17040  M01S00869.resex   +++|          READ   I
17041  M01S00870.resex   +++|          READO  I           READ HEADER WORD 1
17042  M01S00871.resex   +++|          NZ     X1,CPY4     IF EOR OR EOF
17043  M01S00872.resex   +++|          ZR     X6,CPY4     IF NO DATA
17044  M01S00873.resex   +++|          SX1    X6-10002B
17045  M01S00874.resex   +++|          NZ     X1,CPY4     IF WRONG DATA TYPE
17046  M01S00875.resex   +++|          READO  I           READ HEADER WORD 2
17047  M01S00876.resex   +++|          MX0    -12
17048  M01S00877.resex   +++|          BX3    -X0*X6      GET NO. OF THIS CHECKPOINT
17049  M01S00878.resex   +++|          SA2    CKNO
17050  M01S00879.resex   +++|          SA4    ASK
17051  M01S00880.resex   +++|          BX4    X4-X2
17052  M01S00881.resex   +++|          IX1    X2-X3
17053  M01S00882.resex   +++|          ZR     X4,PRS5     IF LAST CHECKPOINT WANTED
17054  M01S00883.resex   +++|          NG     X1,CPY4     IF ERROR
17055  M01S00884.resex   +++|          ZR     X1,PRS6     IF CORRECT CHECKPOINT NUMBER
17056  M01S00885.resex   +++|
17057  M01S00886.resex   +++|*         CHECK CHECKPOINT CODE WORD.
17058  M01S00887.resex   +++|
17059  M01S00888.resex   +++| PRS5     SKIPF  I,1,R       SKIP RECORD
17060  M01S00889.resex   +++|          SA1    I+1         SET IN = OUT = FIRST
17061  M01S00890.resex   +++|          SX6    X1
17062  M01S00891.resex   +++|          SA6    A1+B1
17063  M01S00892.resex   +++|          SA6    A6+B1
17064  M01S00893.resex   +++|          READ   I
17065  M01S00894.resex   +++|          READO  I           READ HEADER WORD 1
17066  M01S00895.resex   +++|          PL     X6,PRS4     IF NOT LAST CHECKPOINT
17067  M01S00896.resex   +++|          SA2    CKNO
17068  M01S00897.resex   +++|          SA4    ASK
17069  M01S00898.resex   +++|          BX4    X2-X4
17070  M01S00899.resex   +++|          NZ     X4,PRS8     IF ERROR
17071  M01S00900.resex   +++|
17072  M01S00901.resex   +++|*         POSITION TO START OF CHECKPOINT RECORD.
17073  M01S00902.resex   +++|
17074  M01S00903.resex   +++|          SKIPB  I,2         POSITION FILE
17075  M01S00904.resex   +++|          SA1    I+1         SET IN = OUT = FIRST
17076  M01S00905.resex   +++|          SX6    X1
17077  M01S00906.resex   +++|          SA6    A1+B1
17078  M01S00907.resex   +++|          SA6    A6+B1
17079  M01S00908.resex   +++|          READ   I
17080  M01S00909.resex   +++|          READO  I           READ HEADER WORD 1
17081  M01S00910.resex   +++|          READO  I           READ HEADER WORD 2
17082  M01S00911.resex   +++|          MX0    -12
17083  M01S00912.resex   +++|          BX7    -X0*X6
17084  M01S00913.resex   +++|          SA7    CKNO        SET CHECKPOINT NUMBER
17085  M01S00914.resex   +++|
17086  M01S00915.resex   +++|*         GET CHECKPOINT DATE AND TIME.
17087  M01S00916.resex   +++|
17088  M01S00917.resex   +++| PRS6     SA6    HDRB        SAVE HEADER WORD
17089  M01S00918.resex   +++|          AX6    18
17090  M01S00919.resex   +++|          BX5    X6
17091  M01S00920.resex   +++|          SX1    X6
17092  M01S00921.resex   +++|          ETIME  X1          CONVERT TIME

Line S00922 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17093  M02S00922.resex5  ---|          SA6    MSGC+1
17094  M01S00005.resex5  +++|          SB2    1R)
17095  M01S00006.resex5  +++|          SB5    MSGB
17096  M01S00007.resex5  +++|          BX1    X6
17097  M01S00008.resex5  +++|          RJ     SNM         SET TIME IN MESSAGE
17098  M01S00923.resex   +++|          AX5    18
17099  M01S00924.resex   +++|          SX1    X5
17100  M01S00925.resex   +++|          EDATE  X1          CONVERT DATE

Line S00926 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17101  M02S00926.resex5  ---|          SA6    MSGC
17102  M01S00009.resex5  +++|          SB2    1R(
17103  M01S00010.resex5  +++|          SB5    MSGB
17104  M01S00011.resex5  +++|          BX1    X6
17105  M01S00012.resex5  +++|          RJ     SNM         SET DATE IN MESSAGE
17106  M01S00927.resex   +++|          READO  I           READ HEADER WORD 3

Line S00928 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17107  M02S00928.resex5  ---|          SA1    MSGB

Line S00929 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17108  M02S00929.resex5  ---|          MX0    42

Line S00930 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17109  M02S00930.resex5  ---|          BX6    X0*X6       GET JOBNAME

Line S00931 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17110  M02S00931.resex5  ---|          BX0    -X0*X1

Line S00932 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17111  M02S00932.resex5  ---|          BX6    X0+X6

Line S00933 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17112  M02S00933.resex5  ---|          LX6    -6

Line S00934 Modification History
`M01` (Added by)	`resex`
`M02` (Updated by)	`resex5`

Seq #  *Modification Id* Act 
----------------------------+
17113  M02S00934.resex5  ---|          SA6    A1
17114  M01S00013.resex5  +++|          SB2    1R+
17115  M01S00014.resex5  +++|          SB5    MSGB
17116  M01S00015.resex5  +++|          BX1    X6
17117  M01S00016.resex5  +++|          RJ     SNM         SET JSN IN MESSAGE
17118  M01S00004.v23l617 +++|
17119  M01S00005.v23l617 +++|*         GET USER EM SHIFT COUNT.
17120  M01S00006.v23l617 +++|
17121  M01S00007.v23l617 +++|          SYSTEM RSB,R,PRSA
17122  M01S00008.v23l617 +++|          SA1    UESC
17123  M01S00009.v23l617 +++|          MX0    -3
17124  M01S00010.v23l617 +++|          LX1    0-33
17125  M01S00011.v23l617 +++|          BX6    -X0*X1
17126  M01S00012.v23l617 +++|          SA6    A1
17127  M01S00935.resex   +++|          EQ     PRSX        RETURN
17128  M01S00936.resex   +++|
17129  M01S00937.resex   +++| PRS7     MESSAGE (=C* ERROR IN ARGUMENTS.*)
17130  M01S00938.resex   +++|          EQ     CPY5
17131  M01S00939.resex   +++|
17132  M01S00940.resex   +++| PRS8     MESSAGE (=C* CHECKPOINT NOT FOUND.*)
17133  M01S00941.resex   +++|          EQ     CPY5
17134  M01S00942.resex   +++|
17135  M01S00943.resex   +++| ASK      DATA   1L*
17136  M01S00013.v23l617 +++| PRSA     VFD    24/1,18/MEFL,18/UESC
17137  M01S00014.v23l617 +++| UESC     VFD    1/1,59/0    USER EXTENDED MEMORY SHIFT COUNT
17138  M01S00944.resex   +++|
17139  M01S00945.resex   +++| TARG     BSS    0
17140  M01S00946.resex   +++| RI       ARG    =-1,RIFL
17141  M01S00947.resex   +++| NA       ARG    =-1,NAFL
17142  M01S00948.resex   +++| FC       ARG    =-1,FCFL
17143  M01S00949.resex   +++|          CON    0
17144  M01S00950.resex   +++|
17145  M01S00951.resex   +++|*         BUFFER ASSIGNMENTS
17146  M01S00952.resex   +++|
17147  M01S00953.resex   +++|          USE    BUFFERS
17148  M01S00954.resex   +++| BUF      EQU    *
17149  M01S00955.resex   +++| IBUF     EQU    BUF+BUFL
17150  M01S00956.resex   +++| OBUF     EQU    IBUF+IBUFL
17151  M01S00957.resex   +++| SBUF     EQU    OBUF+OBUFL
17152  M01S00958.resex   +++| TBUF     EQU    SBUF+SBUFL
17153  M01S00959.resex   +++| RFL=     EQU    TBUF+TBUFL+4
17154  M01S00960.resex   +++|
17155  M01S00961.resex   +++|          END