50 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
10683  M01S00141.274l797 +++|          BX3    -X4*X3

Seq #  *Modification Id* Act 
----------------------------+
10684  M02S00811.286l859 ---|          SX1    PMSC        * TAPE FORMAT OR LABEL NOT VALID ... *

Seq #  *Modification Id* Act 
----------------------------+
10685  M01S02116.286l859 +++|          SB2    ERFD        * TAPE FORMAT OR LABEL NOT VALID ... *

Seq #  *Modification Id* Act 
----------------------------+
10686  M02S00812.274l797 ---|          NZ     X3,ABT      IF NOT *I* FORMAT TAPE
10687  M02S00813.274l797 ---|          SA4    A3+B1       READ LABEL TYPE

Seq #  *Modification Id* Act 
----------------------------+
10688  M01S00142.274l797 +++|          ZR     X3,CDR0     IF *I* FORMAT TAPE
10689  M01S00143.274l797 +++|          SX3    X3-/COMSMTX/TFLI

Seq #  *Modification Id* Act 
----------------------------+
10690  M02S00144.286l859 ---|          NZ     X3,ABT      IF NOT *LI* FORMAT TAPE

Seq #  *Modification Id* Act 
----------------------------+
10691  M01S02117.286l859 +++|          NZ     X3,ABT      IF NOT *LI* FORMAT TAPE

Seq #  *Modification Id* Act 
----------------------------+
10692  M01S00145.274l797 +++|          MX3    1           SAVE *LI* FORMAT FLAG
10693  M01S00146.274l797 +++|          LX3    54-59
10694  M01S00147.274l797 +++|          BX6    X6+X3
10695  M01S00148.274l797 +++|          SA6    A6
10696  M01S00149.274l797 +++| CDR0     SA4    A3+B1       READ LABEL TYPE

Seq #  *Modification Id* Act 
----------------------------+
10697  M01S00814.253l688 +++|          LX4    -12
10698  M01S00815.253l688 +++|          BX4    -X6*X4
10699  M01S00816.253l688 +++|          SX4    X4-1

Seq #  *Modification Id* Act 
----------------------------+
10700  M02S00817.286l859 ---|          NZ     X4,ABT      IF NOT STANDARD LABEL TYPE

Seq #  *Modification Id* Act 
----------------------------+
10701  M01S02118.286l859 +++|          NZ     X4,ABT      IF NOT STANDARD LABEL TYPE

Seq #  *Modification Id* Act 
----------------------------+
10702  M01S00818.253l688 +++|          SA4    A4+B1       READ VSN
10703  M01S00819.253l688 +++|          MX7    -36
10704  M01S00820.253l688 +++|          LX4    -24
10705  M01S00821.253l688 +++|          BX4    -X7*X4
10706  M01S00822.253l688 +++|          BX1    -X6*X4
10707  M01S00823.253l688 +++|          ZR     X1,CDR2     IF NOT A SIX CHARACTER VSN
10708  M01S00824.253l688 +++|          SX2    X1-1RB
10709  M01S00825.253l688 +++|          SX1    X1-1RD
10710  M01S00826.253l688 +++|          ZR     X2,CDR2     IF *B* RADIX
10711  M01S00827.253l688 +++|          ZR     X1,CDR2     IF *D* RADIX
10712  M01S00828.253l688 +++|          MX0    -24
10713  M01S00829.253l688 +++|          BX5    -X0*X4      NUMERIC PART OF VSN
10714  M01S00830.253l688 +++|          SB7    B1          SET DECIMAL CONVERSION
10715  M01S00831.253l688 +++|          LX5    36
10716  M01S00832.253l688 +++|          RJ     DXB         CONVERT NUMERIC PART OF VSN
10717  M01S00833.253l688 +++|          NZ     X4,CDR2     IF NOT ALL NUMERIC CHARACTERS
10718  M01S00834.253l688 +++|          SA4    CDRA+7      READ VSN
10719  M01S00835.253l688 +++|          SA2    VSNP
10720  M01S00836.253l688 +++|          SX1    X6-4095-1
10721  M01S00837.253l688 +++|          MX7    12          EXTRACT VSN PREFIX
10722  M01S00838.253l688 +++|          BX4    X7*X4
10723  M01S00839.253l688 +++|          LX4    -36
10724  M01S00840.253l688 +++|          NZ     X2,CDR1     IF VSN POINTER ALREADY SET
10725  M01S00841.253l688 +++|          PL     X1,CDR2     IF NUMERIC PART OF VSN .GT. 4095
10726  M01S00842.253l688 +++|          BX6    X4+X6       BUILD PACKED VSN
10727  M01S00843.253l688 +++|          SX7    B1          SET INITIAL FILE SEQUENCE NUMBER
10728  M01S00844.253l688 +++|          LX7    24
10729  M01S00845.253l688 +++|          BX6    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
10730  M01S00150.274l797 +++|          SA1    CDRB        MERGE TAPE DEVICE TYPE AND FORMAT FLAGS
10731  M01S00151.274l797 +++|          BX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
10732  M01S00846.253l688 +++|          SA6    VSNP        SET VSN POINTER (PACKED VSN)
10733  M01S00847.253l688 +++|          EQ     CDRX        RETURN
10734  M00S06289.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
10735  M01S06290.253l688 ---| BMT5     BX6    X6-X6       TERMINATE MASS STORAGE TABLE
10736  M01S06291.253l688 ---|          SA6    MSTT+B4
10737  M01S06292.253l688 ---|          SA6    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
10738  M01S00848.253l688 +++|*         CHECK CORRESPONDING SECONDARY (VERIFY FILE) VSN.
10739  M00S06293.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
10740  M01S06294.ns22000 ---|*         READ *EST* ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
10741  M02S00429.253l688 ---|*         READ EST ENTRIES.

Seq #  *Modification Id* Act 
----------------------------+
10742  M01S00849.253l688 +++| CDR1     MX3    -24         ISOLATE EXISTING PACKED VSN
10743  M01S00850.253l688 +++|          BX3    -X3*X2
10744  M01S00851.253l688 +++|          SX1    5000
10745  M01S00852.253l688 +++|          IX6    X6-X1
10746  M01S00853.253l688 +++|          NG     X6,CDR2     IF VSN SUFFIX .GT. 4095 AND .LT. 5000
10747  M01S00854.253l688 +++|          BX6    X6+X4       BUILD NEW PACKED VSN FOR COMPARISON
10748  M01S00855.253l688 +++|          BX6    X6-X3
10749  M01S00856.253l688 +++|          NZ     X6,CDR2     IF SECONDARY VSN DOES NOT CORRESPOND

Seq #  *Modification Id* Act 
----------------------------+
10750  M01S00152.274l797 +++|          SA1    CDRB        CHECK TAPE DEVICE TYPE AND FORMAT FLAGS
10751  M01S00153.274l797 +++|          MX3    3
10752  M01S00154.274l797 +++|          LX3    56-59
10753  M01S00155.274l797 +++|          BX6    X3*X2
10754  M01S00156.274l797 +++|          BX6    X6-X1
10755  M01S00157.274l797 +++|          NZ     X6,CDR2     IF DEVICE TYPE & FORMAT DO NOT CORRESPOND

Seq #  *Modification Id* Act 
----------------------------+
10756  M01S00857.253l688 +++|          SX7    B1+         SET SECONDARY VSN FLAG IN VSN POINTER
10757  M01S00858.253l688 +++|          LX7    49-0
10758  M01S00859.253l688 +++|          BX7    X2+X7
10759  M01S00860.253l688 +++|          SA7    VSNP
10760  M01S00861.253l688 +++|          EQ     CDRX        RETURN
10761  M00S06295.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
10762  M01S06296.253l688 ---| BMT      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
10763  M02S00430.253l688 ---|          SA1    SYSS        DETERMINE IF RANGE NEEDED
10764  M02S00431.253l688 ---|          SX5    B0+
10765  M02S00432.253l688 ---|          ZR     X1,BMT0     IF NOT SECURE SYSTEM
10766  M02S00433.253l688 ---|          SA2    CPAR+/COMSPFS/CPLA
10767  M02S00434.253l688 ---|          NZ     X2,BMT0     IF ACCESS LEVELS SPECIFIED
10768  M02S00435.253l688 ---|          SX5    B1+
10769  M02S00436.253l688 ---| BMT0     SA1    BMTA        READ EST POINTER

Seq #  *Modification Id* Act 
----------------------------+
10770  M02S06297.253l688 ---|          SA1    BMTA        READ *EST* POINTER

Seq #  *Modification Id* Act 
----------------------------+
10771  M02S00437.253l688 ---|          SA1    BMTA        READ EST POINTER

Seq #  *Modification Id* Act 
----------------------------+
10772  M01S06298.253l688 ---|          MX7    1
10773  M01S06299.253l688 ---|          BX6    X1
10774  M01S06300.253l688 ---|          SA7    ESTBUF
10775  M01S06301.253l688 ---|          SA6    ESTADD
10776  M01S06302.253l688 ---|          SYSTEM RSB,R,A6

Seq #  *Modification Id* Act 
----------------------------+
10777  M02S06303.253l688 ---|          SA1    ESTBUF      READ MASS STORAGE DEVICES FROM *EST*
10778  M02S06304.253l688 ---|          LX1    12
10779  M02S06305.253l688 ---|          MX2    -12
10780  M02S06306.253l688 ---|          BX6    -X2*X1
10781  M02S06307.253l688 ---|          LX1    12          DETERMINE NUMBER OF *EST* ENTRIES
10782  M02S06308.253l688 ---|          BX1    -X2*X1
10783  M02S06309.253l688 ---|          IX1    X1-X6
10784  M02S06310.253l688 ---|          BX7    X1          SAVE NUMBER OF *EST* ENTRIES
10785  M02S06311.253l688 ---|          SA7    BMTB
10786  M02S06312.253l688 ---|          LX1    18
10787  M02S06313.253l688 ---|          BX6    X6+X1
10788  M02S06314.253l688 ---|          LX6    18
10789  M02S06315.253l688 ---|          SX7    ESTBUF
10790  M02S06316.253l688 ---|          BX6    X6+X7
10791  M02S06317.253l688 ---|          SA6    ESTADD
10792  M02S06318.253l688 ---|          MX7    1
10793  M02S06319.253l688 ---|          SA7    ESTBUF
10794  M02S06320.253l688 ---|          SYSTEM RSB,R,A6

Seq #  *Modification Id* Act 
----------------------------+
10795  M02S00438.253l688 ---|          SA2    ESTBUF      SET *COMCRSB* ENTRY CONDITIONS
10796  M02S00439.253l688 ---|          MX3    -12
10797  M02S00440.253l688 ---|          SX1    A2          SET ADDRESS TO TRANSFER TO
10798  M02S00441.253l688 ---|          AX2    24
10799  M02S00442.253l688 ---|          BX3    -X3*X2
10800  M02S00443.253l688 ---|          SX7    X3
10801  M02S00444.253l688 ---|          AX2    12          SET ADDRESS TO TRANSFER FROM
10802  M02S00445.253l688 ---|          R=     X6,ESTE
10803  M02S00446.253l688 ---|          IX3    X3*X6       SET WORD COUNT
10804  M02S00447.253l688 ---|          SX4    B0          SET SUBSYSTEM (= *CMR*)
10805  M02S00448.253l688 ---|          MX6    1
10806  M02S00449.253l688 ---|          SA6    X1
10807  M02S00450.253l688 ---|          SA7    BMTB        SAVE EST SIZE TO SEARCH
10808  M02S00451.253l688 ---|          RJ     RSB=        READ EST

Seq #  *Modification Id* Act 
----------------------------+
10809  M02S06321.253l688 ---|          SB2    -B1         SET FIRST EQUIPMENT NUMBER - 1

Seq #  *Modification Id* Act 
----------------------------+
10810  M02S00452.253l688 ---|          SB2    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH

Seq #  *Modification Id* Act 
----------------------------+
10811  M02S06322.253l688 ---|          SA1    BMTB        SET NUMBER OF *EST* ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
10812  M02S00453.253l688 ---|          SA1    BMTB        SET NUMBER OF EST ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
10813  M01S06323.253l688 ---|          SB3    X1
10814  M01S06324.253l688 ---|          SB4    B0          SET INITIAL MASS STORAGE TABLE INDEX

Seq #  *Modification Id* Act 
----------------------------+
10815  M02S00862.286l859 ---| CDR2     SX1    PMSD        * VSN NOT VALID FOR DESTAGE.*

Seq #  *Modification Id* Act 
----------------------------+
10816  M01S02119.286l859 +++| CDR2     SB2    ERVD        * VSN NOT VALID FOR DESTAGE.*

Seq #  *Modification Id* Act 
----------------------------+
10817  M01S00863.253l688 +++|          EQ     ABT         ABORT

Seq #  *Modification Id* Act 
----------------------------+
10818  M01S00158.274l797 +++|
10819  M01S00159.274l797 +++|*         CHECK OPTICAL DISK LABEL INFORMATION.
10820  M01S00160.274l797 +++|*
10821  M01S00161.274l797 +++|*         EXPECTS  VSN = *AAXXXX*
10822  M01S00162.274l797 +++|*                  PARTITION NAME     = *DEFAULT*
10823  M01S00163.274l797 +++|*                  RECORDED FILE NAME = *PFARCHIVE*
10824  M01S00164.274l797 +++|*                  FILE OWNER NAME    = *SYSTEMX*
10825  M01S00165.274l797 +++|*                  FILE GROUP NAME    = FAMILY
10826  M01S00166.274l797 +++|*                  VERSION            = 1 - 4095
10827  M01S00167.274l797 +++|
10828  M01S00168.274l797 +++| CDR3     REWIND ODF,R
10829  M01S00169.274l797 +++|          READ   ODF
10830  M01S00170.274l797 +++| CDR4     READW  ODF,CDRC,1  SEARCH OPTICAL DISK MOUNT FILE
10831  M01S00171.274l797 +++|          SA1    A5          COMPARE FILE NAMES
10832  M01S00172.274l797 +++|          SA2    CDRA
10833  M01S00173.274l797 +++|          MX0    42
10834  M01S00174.274l797 +++|          BX6    X1-X2
10835  M01S00175.274l797 +++|          BX6    X0*X6
10836  M01S00176.274l797 +++|          ZR     X6,CDR5     IF FILE NAMES MATCH
10837  M01S00177.274l797 +++|          SKIPW  ODF,1600B-1 SKIP ENTRY (16 SECTORS)
10838  M01S00178.274l797 +++|          EQ     CDR4        PROCESS NEXT ENTRY
10839  M01S00179.274l797 +++|
10840  M01S00180.274l797 +++| CDR5     SKIPW  ODF,10-1
10841  M01S00181.274l797 +++|          READW  ODF,CDRD,1  READ VERSION NUMBER
10842  M01S00182.274l797 +++|          SKIPW  ODF,40B-11
10843  M01S00183.274l797 +++|          READW  ODF,CDRC,16 READ VSN/PARTITION/OWNER INFORMATION
10844  M01S00184.274l797 +++|          NZ     X1,CDR8     IF EOR/EOF ON FILE
10845  M01S00185.274l797 +++|          SA4    CDRC        VERIFY VSN
10846  M01S00186.274l797 +++|          MX7    -36
10847  M01S00187.274l797 +++|          LX4    -24
10848  M01S00188.274l797 +++|          BX3    X7*X4
10849  M01S00189.274l797 +++|          MX6    -6
10850  M01S00190.274l797 +++|          NZ     X3,CDR2     IF MORE THAN SIX CHARACTERS
10851  M01S00191.274l797 +++|          BX1    -X6*X4
10852  M01S00192.274l797 +++|          ZR     X1,CDR2     IF LESS THAN SIX CHARACTERS
10853  M01S00193.274l797 +++|          SX2    X1-1RB
10854  M01S00194.274l797 +++|          SX1    X1-1RD
10855  M01S00195.274l797 +++|          ZR     X2,CDR2     IF *B* RADIX
10856  M01S00196.274l797 +++|          ZR     X1,CDR2     IF *D* RADIX
10857  M01S00197.274l797 +++|          MX0    -24
10858  M01S00198.274l797 +++|          BX5    -X0*X4      NUMERIC PART OF VSN
10859  M01S00199.274l797 +++|          SB7    B1          SET DECIMAL CONVERSION
10860  M01S00200.274l797 +++|          LX5    36
10861  M01S00201.274l797 +++|          RJ     DXB         CONVERT NUMERIC PART OF VSN
10862  M01S00202.274l797 +++|          NZ     X4,CDR2     IF NOT ALL NUMERIC CHARACTERS
10863  M01S00203.274l797 +++|          SA4    CDRC        GET VSN
10864  M01S00204.274l797 +++|          SX1    X6-4095-1
10865  M01S00205.274l797 +++|          MX7    12          EXTRACT VSN PREFIX
10866  M01S00206.274l797 +++|          BX4    X7*X4
10867  M01S00207.274l797 +++|          LX4    -36
10868  M01S00208.274l797 +++|          PL     X1,CDR2     IF NUMERIC PART OF VSN .GT. 4095
10869  M01S00209.274l797 +++|          SX7    ATOD        SET OPTICAL DISK STORAGE
10870  M01S00210.274l797 +++|          BX6    X4+X6       BUILD PACKED VSN
10871  M01S00211.274l797 +++|          LX7    24+6+6
10872  M01S00212.274l797 +++|          BX6    X6+X7
10873  M01S00213.274l797 +++|          SA6    VSNP        SET VSN POINTER (PACKED VSN)
10874  M01S00214.274l797 +++|          SA4    CDRC+2      VERIFY PARTITION NAME
10875  M01S00215.274l797 +++|          SA1    CDRE
10876  M01S00216.274l797 +++|          BX6    X1-X4
10877  M01S00217.274l797 +++|          NZ     X6,CDR7     IF NOT *DEFAULT* PARTITION
10878  M01S00218.274l797 +++|          SA4    CDRC+4      VERIFY RECORDED FILE NAME
10879  M01S00219.274l797 +++|          SA1    CDRF
10880  M01S00220.274l797 +++|          BX6    X1-X4
10881  M01S00221.274l797 +++|          NZ     X6,CDR6     IF RECORDED FILE NAME NOT *PFARCHIVE*
10882  M01S00222.274l797 +++|          SA4    CDRC+8      VERIFY FILE OWNER NAME
10883  M01S00223.274l797 +++|          SA1    CDRG
10884  M01S00224.274l797 +++|          BX6    X1-X4
10885  M01S00225.274l797 +++|          NZ     X6,CDR6     IF NOT *SYSTEMX*
10886  M01S00226.274l797 +++|          SA4    CDRC+12     VERIFY GROUP OWNER NAME
10887  M01S00227.274l797 +++|          SA1    CDRH
10888  M01S00228.274l797 +++|          BX6    X1-X4
10889  M01S00229.274l797 +++|          NZ     X6,CDR6     IF GROUP OWNER NAME NOT *NOSARCHIVE*
10890  M01S00230.274l797 +++|          SA4    A4+B1
10891  M01S00231.274l797 +++|          NZ     X4,CDR6     IF GROUP OWNER INVALID
10892  M01S00232.274l797 +++|          SA4    CDRD        VERIFY VERSION NUMBER
10893  M01S00233.274l797 +++|          SX7    X4-4096
10894  M01S00234.274l797 +++|          PL     X7,CDR9     IF VERSION NUMBER TOO LARGE
10895  M01S00235.274l797 +++|          SA1    VSNP        SET VERSION NUMBER IN POINTER
10896  M01S00236.274l797 +++|          LX4    24
10897  M01S00237.274l797 +++|          BX6    X1+X4
10898  M01S00238.274l797 +++|          SA6    A1
10899  M01S00239.274l797 +++|          MX6    1           SET *AFLOK* FLAG
10900  M01S00240.274l797 +++|          SA6    FLOK
10901  M01S00241.274l797 +++|          RECALL ODF         WAIT NOT BUSY
10902  M01S00242.274l797 +++|          EQ     CDRX        RETURN
10903  M01S00243.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
10904  M02S00244.286l859 ---| CDR6     SX1    PMSK        * OPTICAL DISK LABEL NOT VALID...*

Seq #  *Modification Id* Act 
----------------------------+
10905  M01S02120.286l859 +++| CDR6     SB2    ERLD        * OPTICAL DISK LABEL NOT VALID ...*

Seq #  *Modification Id* Act 
----------------------------+
10906  M01S00245.274l797 +++|          EQ     ABT         ABORT
10907  M01S00246.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
10908  M02S00247.286l859 ---| CDR7     SX1    PMSL        * PARTITION NOT VALID FOR DESTAGE.*

Seq #  *Modification Id* Act 
----------------------------+
10909  M01S02121.286l859 +++| CDR7     SB2    ERPD        * PARTITION NOT VALID FOR DESTAGE.*

Seq #  *Modification Id* Act 
----------------------------+
10910  M01S00248.274l797 +++|          EQ     ABT         ABORT
10911  M01S00249.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
10912  M02S00250.286l859 ---| CDR8     SX1    PMSM        * INTERNAL ERROR ON FILE ZZZZZOD.*

Seq #  *Modification Id* Act 
----------------------------+
10913  M01S02122.286l859 +++| CDR8     SB2    EROF        * INTERNAL ERROR ON FILE ZZZZZOD.*

Seq #  *Modification Id* Act 
----------------------------+
10914  M01S00251.274l797 +++|          EQ     ABT         ABORT
10915  M01S00252.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
10916  M02S00253.286l859 ---| CDR9     SX1    PMSN        * VERSION NUMBER EXCEEDED FOR DESTAGE.*

Seq #  *Modification Id* Act 
----------------------------+
10917  M01S02123.286l859 +++| CDR9     SB2    ERND        * VERSION NUMBER EXCEEDED FOR DESTAGE.*

Seq #  *Modification Id* Act 
----------------------------+
10918  M01S00254.274l797 +++|          EQ     ABT         ABORT
10919  M00S06325.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
10920  M01S06326.ns22000 ---|*         READ NEXT *MST* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
10921  M02S00454.253l688 ---|*         READ NEXT MST ENTRY.
10922  M00S06327.pfdump  +++|

Seq #  *Modification Id* Act 
----------------------------+
10923  M01S06328.ns22000 ---| BMT1     SB3    B3-B1       ADVANCE TO NEXT *EST* ENTRY
10924  M01S06329.ns22000 ---|          SB2    B2+B1
10925  M01S06330.ns22000 ---|          NG     B3,BMT5     IF END OF EST

Seq #  *Modification Id* Act 
----------------------------+
10926  M02S00455.253l688 ---| BMT1     SB2    B2+B1       ADVANCE EST ORDINAL
10927  M02S00456.253l688 ---|          EQ     B2,B3,BMT5  IF END OF EST

Seq #  *Modification Id* Act 
----------------------------+
10928  M02S06331.253l688 ---|          SA1    ESTBUF+B2   GET *EST* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
10929  M02S00457.253l688 ---|          SX2    B2
10930  M02S00458.253l688 ---|          R=     X6,ESTE
10931  M02S00459.253l688 ---|          IX7    X2*X6
10932  M02S00460.253l688 ---|          SA1    ESTBUF+X7+EQDE  READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
10933  M01S06332.253l688 ---|          PL     X1,BMT3     IF NOT MASS STORAGE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
10934  M02S06333.253l688 ---|          MX2    -12         SET *MST* ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
10935  M02S00461.253l688 ---|          MX2    -12         SET MST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
10936  M01S06334.253l688 ---|          BX6    -X2*X1
10937  M01S06335.253l688 ---|          LX1    59-54
10938  M01S06336.253l688 ---|          LX6    18+3
10939  M01S06337.253l688 ---|          NG     X1,BMT1     IF DEVICE UNAVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
10940  M02S06338.253l688 ---|          SX2    MSTL        SET *MST* LENGTH

Seq #  *Modification Id* Act 
----------------------------+
10941  M02S00462.253l688 ---|          SX2    MSTL        SET MST LENGTH

Seq #  *Modification Id* Act 
----------------------------+
10942  M02S06339.253l688 ---|          SX7    MSTBUF      SET *MST* BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
10943  M02S00463.253l688 ---|          SX7    MSTBUF      SET MST BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
10944  M01S06340.253l688 ---|          LX2    36
10945  M01S06341.253l688 ---|          BX1    X6+X7
10946  M01S06342.253l688 ---|          MX7    1           SET ABSOLUTE MEMORY FLAG
10947  M01S06343.253l688 ---|          BX6    X1+X2
10948  M01S06344.253l688 ---|          SA7    MSTBUF
10949  M01S06345.253l688 ---|          SA6    MSTADD

Seq #  *Modification Id* Act 
----------------------------+
10950  M02S06346.253l688 ---|          SYSTEM RSB,R,A6    READ *MST* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
10951  M02S00464.253l688 ---|          SYSTEM RSB,R,A6    READ MST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
10952  M01S06347.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
10953  M02S06348.253l688 ---|*         CHECK FOR USABLE *MST* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
10954  M02S00465.253l688 ---|*         CHECK FOR USABLE MST ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
10955  M01S06349.253l688 ---|
10956  M01S06350.253l688 ---|          SA1    MSTBUF+STLL CHECK DEVICE STATUS
10957  M01S06351.253l688 ---|          SA2    BMTC
10958  M01S06352.253l688 ---|          BX6    X2*X1
10959  M01S06353.253l688 ---|          NZ     X6,BMT1     IF UNLOADED, PF OR FULL INITIALIZATION

Seq #  *Modification Id* Act 
----------------------------+
10960  M02S06354.253l688 ---|          SA1    MSTBUF+PUGL COMPARE USER NUMBERS

Seq #  *Modification Id* Act 
----------------------------+
10961  M02S00237.253l688 ---|          SA1    MSTBUF+PUGL COMPARE USER NAMES

Seq #  *Modification Id* Act 
----------------------------+
10962  M01S06355.253l688 ---|          SA2    CPAR+/COMSPFS/CPUN

Seq #  *Modification Id* Act 
----------------------------+
10963  M02S06356.253l688 ---|          BX6    X1-X2

Seq #  *Modification Id* Act 
----------------------------+
10964  M01S06357.253l688 ---|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
10965  M02S06358.253l688 ---|          SA3    MSTBUF+PFGL GET FAMILY/PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
10966  M02S00001.253l688 ---|          BX6    X0*X1
10967  M02S00002.253l688 ---|          ZR     X6,BMT1.1   IF PUBLIC PACK
10968  M02S00003.253l688 ---|          BX6    X6-X2
10969  M02S00004.253l688 ---| BMT1.1   SA3    MSTBUF+PFGL GET FAMILY/PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
10970  M01S06359.253l688 ---|          SA1    CPAR+/COMSPFS/CPPN  GET PACK NAME PARAMETER
10971  M01S06360.253l688 ---|          SA2    MSTBUF+MDGL GET AUXILIARY DEVICE FLAG
10972  M01S06361.253l688 ---|          BX7    X0*X6
10973  M01S06362.253l688 ---|          LX2    59-58
10974  M01S06363.253l688 ---|          NZ     X1,BMT2     IF PACK NAME SPECIFIED
10975  M01S06364.253l688 ---|          SA1    CPAR+/COMSPFS/CPFN  GET FAMILY NAME PARAMETER
10976  M01S06365.253l688 ---|          BX2    -X2         TOGGLE AUXILIARY DEVICE FLAG

Seq #  *Modification Id* Act 
----------------------------+
10977  M02S06366.253l688 ---|          SX7    B0          CLEAR USER NUMBER COMPARISON

Seq #  *Modification Id* Act 
----------------------------+
10978  M02S00238.253l688 ---|          SX7    B0          CLEAR USER NAME COMPARISON

Seq #  *Modification Id* Act 
----------------------------+
10979  M01S06367.253l688 ---| BMT2     PL     X2,BMT1     IF NOT CORRECT TYPE OF DEVICE
10980  M01S06368.253l688 ---|          BX6    X1-X3
10981  M01S06369.253l688 ---|          BX2    X0*X6

Seq #  *Modification Id* Act 
----------------------------+
10982  M02S06370.253l688 ---|          NZ     X7,BMT1     IF NOT CORRECT USER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
10983  M02S00239.253l688 ---|          NZ     X7,BMT1     IF NOT CORRECT USER NAME

Seq #  *Modification Id* Act 
----------------------------+
10984  M01S06371.253l688 ---|          NZ     X2,BMT1     IF NOT CORRECT FAMILY/PACK NAME
10985  M01S06372.253l688 ---|
10986  M01S06373.253l688 ---|*         BUILD FIRST WORD OF MASS STORAGE TABLE INFORMATION.
10987  M01S06374.253l688 ---|
10988  M01S06375.253l688 ---|          SA1    MSTBUF+ALGL SET FIRST TRACKS

Seq #  *Modification Id* Act 
----------------------------+
10989  M02S06376.253l688 ---|          MX3    48

Seq #  *Modification Id* Act 
----------------------------+
10990  M02S00466.253l688 ---|          MX3    36

Seq #  *Modification Id* Act 
----------------------------+
10991  M01S06377.253l688 ---|          BX6    X3*X1

Seq #  *Modification Id* Act 
----------------------------+
10992  M02S00467.253l688 ---|          AX1    12          POSITION CATALOG TRACKS
10993  M02S00468.253l688 ---|          MX3    -9
10994  M02S00469.253l688 ---|          BX3    -X3*X1
10995  M02S00470.253l688 ---|          LX3    9+6
10996  M02S00471.253l688 ---|          BX6    X6+X3       MERGE TRACKS AND CATALOGS DATA

Seq #  *Modification Id* Act 
----------------------------+
10997  M01S06378.253l688 ---|          SA2    MSTBUF+PFGL SET DEVICE NUMBER
10998  M01S06379.253l688 ---|          MX3    -6

Seq #  *Modification Id* Act 
----------------------------+
10999  M02S06380.253l688 ---|          LX2    -12

Seq #  *Modification Id* Act 
----------------------------+
11000  M02S00472.253l688 ---|          LX2    -6
11001  M02S00473.253l688 ---|          BX0    -X3*X2      DEVICE ACCESS LEVEL LIMITS
11002  M02S00474.253l688 ---|          LX2    -6

Seq #  *Modification Id* Act 
----------------------------+
11003  M01S06381.253l688 ---|          BX7    -X3*X2
11004  M01S06382.253l688 ---|          BX6    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
11005  M02S06383.253l688 ---|          SX1    B2          SET EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
11006  M02S00475.253l688 ---|          SX1    B2          SET EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
11007  M01S06384.253l688 ---|          LX1    6
11008  M01S06385.253l688 ---|          BX6    X6+X1
11009  M01S06386.253l688 ---|          SA6    MSTT+B4     PUT FIRST WORD IN TABLE
11010  M01S06387.253l688 ---|
11011  M01S06388.253l688 ---|*         BUILD SECOND WORD OF MASS STORAGE TABLE INFORMATION.
11012  M01S06389.253l688 ---|
11013  M01S06390.253l688 ---|          MX3    -16
11014  M01S06391.253l688 ---|          SA1    MSTBUF+PUGL SET DEVICE MASKS
11015  M01S06392.253l688 ---|          BX6    -X3*X1
11016  M01S06393.253l688 ---|          MX3    -1          SET CATALOG ENTRY FORMAT CODE
11017  M01S06394.253l688 ---|          SA1    MSTBUF+MDGL
11018  M01S06395.253l688 ---|          LX3    57
11019  M01S06396.253l688 ---|          BX7    -X3*X1
11020  M01S06397.253l688 ---|          LX7    17-57
11021  M01S06398.253l688 ---|          BX6    X7+X6
11022  M01S06399.253l688 ---|          MX3    -12

Seq #  *Modification Id* Act 
----------------------------+
11023  M02S06400.253l688 ---|          SA1    ESTBUF+B2   SET ON/OFF FLAG AND EQUIPMENT MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
11024  M02S00476.253l688 ---|          SX7    B2
11025  M02S00477.253l688 ---|          R=     X1,ESTE
11026  M02S00478.253l688 ---|          IX7    X7*X1

Seq #  *Modification Id* Act 
----------------------------+
11027  M03S00479.253l688 ---|          SA1    ESTBUF+X7+EQDE  SET ON/OFF FLAG AND EQUIPMENT MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
11028  M02S00006.253l688 ---|          SA1    ESTBUF+X7+EQDE   SET EQUIPMENT MNEMONIC

Seq #  *Modification Id* Act 
----------------------------+
11029  M01S06401.253l688 ---|          LX1    -12
11030  M01S06402.253l688 ---|          BX7    -X3*X1
11031  M01S06403.253l688 ---|          LX7    18
11032  M01S06404.253l688 ---|          BX6    X7+X6
11033  M01S06405.253l688 ---|          SA1    MSTBUF+DDLL SET UNIT COUNT - 1

Seq #  *Modification Id* Act 
----------------------------+
11034  M02S06406.253l688 ---|          MX3    -6

Seq #  *Modification Id* Act 
----------------------------+
11035  M02S00480.253l688 ---|          MX3    -3

Seq #  *Modification Id* Act 
----------------------------+
11036  M01S06407.253l688 ---|          LX1    -48
11037  M01S06408.253l688 ---|          BX7    -X3*X1
11038  M01S06409.253l688 ---|          LX7    30
11039  M01S06410.253l688 ---|          BX6    X7+X6
11040  M01S06411.253l688 ---|          SA6    A6+B1       PUT SECOND WORD IN TABLE
11041  M01S06412.253l688 ---|          SB4    B4+2        ADVANCE TABLE INDEX

Seq #  *Modification Id* Act 
----------------------------+
11042  M02S00481.253l688 ---|
11043  M02S00482.253l688 ---|*         UPDATE MAXIMUM ACCESS LEVEL RANGE.
11044  M02S00483.253l688 ---|
11045  M02S00484.253l688 ---|          ZR     X5,BMT1     IF RANGE NOT NEEDED
11046  M02S00485.253l688 ---|          MX2    -3
11047  M02S00486.253l688 ---|          BX6    -X2*X0      DEVICE UPPER LIMIT
11048  M02S00487.253l688 ---|          LX0    -3
11049  M02S00488.253l688 ---|          BX7    -X2*X0      DEVICE LOWER LIMIT
11050  M02S00489.253l688 ---|          SA1    DPLA
11051  M02S00490.253l688 ---|          SA2    DPUA
11052  M02S00491.253l688 ---|          IX1    X7-X1
11053  M02S00492.253l688 ---|          IX2    X2-X6
11054  M02S00493.253l688 ---|          NG     X1,BMT2.1   IF NEW LEVEL IS LOWER
11055  M02S00494.253l688 ---|          EQ     BMT2.2      CHECK UPPER LEVEL
11056  M02S00495.253l688 ---|
11057  M02S00496.253l688 ---| BMT2.1   SA7    A1+         SET NEW LOWER LEVEL
11058  M02S00497.253l688 ---| BMT2.2   PL     X2,BMT1     IF NEW LEVEL NOT HIGHER
11059  M02S00498.253l688 ---|          SA6    A2+         SET NEW UPPER LEVEL

Seq #  *Modification Id* Act 
----------------------------+
11060  M01S06413.253l688 ---|          EQ     BMT1        PROCESS NEXT EQUIPMENT
11061  M01S06414.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
11062  M02S06415.253l688 ---|*         CHECK FOR *MSS* EQUIPMENT TYPE.

Seq #  *Modification Id* Act 
----------------------------+
11063  M03S00240.253l688 ---|*         CHECK FOR *MSS*/*MAS* EQUIPMENT TYPE.

Seq #  *Modification Id* Act 
----------------------------+
11064  M02S00060.253l688 ---|*         CHECK FOR *MSS*/*MSE* EQUIPMENT TYPE.

Seq #  *Modification Id* Act 
----------------------------+
11065  M01S06416.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
11066  M02S06417.253l688 ---| BMT3     SA2    MSSF
11067  M02S06418.253l688 ---|          NZ     X2,BMT1     IF *MSS* TYPE EQUIPMENT ALREADY FOUND
11068  M02S06419.253l688 ---|          LX1    10-22       EXTRACT EQUIPMENT TYPE CODE
11069  M02S06420.253l688 ---|          MX0    -11
11070  M02S06421.253l688 ---|          SX3    2RCS
11071  M02S06422.253l688 ---|          BX1    -X0*X1
11072  M02S06423.253l688 ---|          BX2    X3-X1

Seq #  *Modification Id* Act 
----------------------------+
11073  M02S00241.253l688 ---| BMT3     LX1    10-22
11074  M02S00242.253l688 ---|          MX0    -11
11075  M02S00243.253l688 ---|          BX1    -X0*X1      EXTRACT EQUIPMENT TYPE CODE FOR EST ENTRY
11076  M02S00244.253l688 ---|          SX6    B1
11077  M02S00245.253l688 ---|          SX2    X1-2RCS

Seq #  *Modification Id* Act 
----------------------------+
11078  M01S06424.253l688 ---|          ZR     X2,BMT4     IF *MSS* SELECTOR

Seq #  *Modification Id* Act 
----------------------------+
11079  M02S06425.253l688 ---|          SX3    2RCT
11080  M02S06426.253l688 ---|          BX2    X3-X1
11081  M02S06427.253l688 ---|          NZ     X2,BMT1     IF NOT *MSS* TRANSPORT
11082  M02S06428.253l688 ---| BMT4     SX6    B1          SET *MSS* ENVIRONMENT FLAG
11083  M02S06429.253l688 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
11084  M02S00246.253l688 ---|          SX2    X1-2RCT
11085  M02S00247.253l688 ---|          NZ     X2,BMT4.1   IF NOT *MSS* TRANSPORT
11086  M02S00248.253l688 ---| BMT4     SA6    MSSF        SET *MSS* ENVIRONMENT FLAG
11087  M02S00249.253l688 ---| BMT4.1   SX2    X1-2RSS

Seq #  *Modification Id* Act 
----------------------------+
11088  M03S00250.253l688 ---|          NZ     X2,BMT1     IF NOT *MAS* TYPE EQUIPMENT
11089  M03S00251.253l688 ---|          SA6    ASFF        SET *MAS* ENVIRONMENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
11090  M02S00061.253l688 ---|          NZ     X2,BMT1     IF NOT *MSE* TYPE EQUIPMENT
11091  M02S00062.253l688 ---|          SA6    ASFF        SET *MSE* ENVIRONMENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
11092  M02S06430.253l688 ---|          EQ     BMT1        READ NEXT *EST* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
11093  M02S00499.253l688 ---|          EQ     BMT1        READ NEXT EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
11094  M01S06431.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
11095  M02S06432.253l688 ---| BMTA     VFD    24/1,18/ESTP,18/ESTBUF  *EST* POINTER PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
11096  M02S00500.253l688 ---| BMTA     VFD    24/1,18/ESTP,18/ESTBUF  EST POINTER PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
11097  M02S06433.253l688 ---| BMTB     BSSZ   1           NUMBER OF *EST* ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
11098  M02S00501.253l688 ---| BMTB     BSSZ   1           NUMBER OF EST ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
11099  M01S06434.253l688 ---|
11100  M01S06435.253l688 ---| LFPR     DECMIC LFPR        DEFINE MASK FOR INITIALIZE/UNLOAD
11101  M01S06436.253l688 ---| LIAL     DECMIC LIAL
11102  M01S06437.253l688 ---| LIHD     DECMIC LIHD
11103  M01S06438.253l688 ---| LIFD     DECMIC LIFD
11104  M01S06439.253l688 ---| LIPF     DECMIC LIPF
11105  M01S06440.253l688 ---| LUNL     DECMIC LUNL
11106  M01S06441.253l688 ---| LDUL     DECMIC LDUL
11107  M01S06442.253l688 ---| BMTC     CON    1S"LFPR"+1S"LIAL"+1S"LIHD"+1S"LIFD"+1S"LIPF"+1S"LUNL"+1
11108  M01S06443.253l688 ---|,S"LDUL"

Seq #  *Modification Id* Act 
----------------------------+
11109  M02S00502.253l688 ---| CAL      SPACE  4,15
11110  M02S00503.253l688 ---|**        CAL - CHECK ACCESS LEVELS.
11111  M02S00504.253l688 ---|*
11112  M02S00505.253l688 ---|*         ENTRY  (SYSS) = SYSTEM SECURITY MODE.
11113  M02S00506.253l688 ---|*                (DPLA) = LOWER ACCESS LEVEL TO DUMP.
11114  M02S00507.253l688 ---|*                (DPUA) = UPPER ACCESS LEVEL TO DUMP.
11115  M02S00508.253l688 ---|*                (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT.
11116  M02S00509.253l688 ---|*                (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT.
11117  M02S00510.253l688 ---|*
11118  M02S00511.253l688 ---|*         EXIT   (DPLA) AND (DPUA) CHANGED TO THE *LA* AND *UA*
11119  M02S00512.253l688 ---|*                VALUES, IF SPECIFIED.
11120  M02S00513.253l688 ---|*                ABORT IF RANGE IS NOT WITHIN SYSTEM ACCESS LIMITS.
11121  M02S00514.253l688 ---|*
11122  M02S00515.253l688 ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
11123  M02S00516.253l688 ---|*                A - 1, 2, 3, 4, 6, 7.
11124  M02S00517.253l688 ---|
11125  M02S00518.253l688 ---|
11126  M02S00519.253l688 ---| CAL      SUBR               ENTRY/EXIT
11127  M02S00520.253l688 ---|          SA1    CPAR+/COMSPFS/CPLA
11128  M02S00521.253l688 ---|          SA2    CPAR+/COMSPFS/CPUA
11129  M02S00522.253l688 ---|          MX0    -5
11130  M02S00523.253l688 ---|          BX6    -X0*X1
11131  M02S00524.253l688 ---|          BX7    -X0*X2
11132  M02S00525.253l688 ---|          ZR     X1,CAL1     IF NO ACCESS LEVELS SPECIFIED
11133  M02S00526.253l688 ---|          SA6    DPLA        SET RANGE
11134  M02S00527.253l688 ---|          SA7    DPUA
11135  M02S00528.253l688 ---|          EQ     CALX        RETURN
11136  M02S00529.253l688 ---|
11137  M02S00530.253l688 ---| CAL1     SA1    SYSS
11138  M02S00531.253l688 ---|          ZR     X1,CALX     IF NOT SECURE SYSTEM
11139  M02S00532.253l688 ---|          SA1    DPLA        CHECK RANGE WITHIN SYSTEM LIMITS
11140  M02S00533.253l688 ---|          SA2    DPUA
11141  M02S00534.253l688 ---|          SA3    SYLA
11142  M02S00535.253l688 ---|          SA4    SYUA
11143  M02S00536.253l688 ---|          IX1    X1-X3
11144  M02S00537.253l688 ---|          NG     X1,CAL2     IF LOWER LEVEL OUT OF RANGE
11145  M02S00538.253l688 ---|          IX2    X4-X2
11146  M02S00539.253l688 ---|          PL     X2,CALX     IF UPPER LEVEL IN RANGE
11147  M02S00540.253l688 ---| CAL2     SX1    PMSU        * ACCESS LEVEL LIMITS OUT OF RANGE.*
11148  M02S00541.253l688 ---|          EQ     AEP         ABORT
11149  M02S00542.253l688 ---| DSS      SPACE  4,10
11150  M02S00543.253l688 ---|**        DSS - DETERMINE SECURITY STATUS.
11151  M02S00544.253l688 ---|*
11152  M02S00545.253l688 ---|*         EXIT   (SYSS) = SYSTEM SECURITY MODE.
11153  M02S00546.253l688 ---|*                (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT.
11154  M02S00547.253l688 ---|*                (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT.
11155  M02S00548.253l688 ---|*
11156  M02S00549.253l688 ---|*         USES   X - 0, 1, 2, 6, 7.
11157  M02S00550.253l688 ---|*                A - 1, 2, 6, 7.
11158  M02S00551.253l688 ---|*
11159  M02S00552.253l688 ---|*         MACROS GETSSL.
11160  M02S00553.253l688 ---|
11161  M02S00554.253l688 ---|
11162  M02S00555.253l688 ---| DSS      SUBR               ENTRY/EXIT
11163  M02S00556.253l688 ---|          GETSSL DSSA        GET SYSTEM SECURITY STATUS
11164  M02S00557.253l688 ---|          SA2    DSSA
11165  M02S00558.253l688 ---|          MX0    -6
11166  M02S00559.253l688 ---|          LX2    12
11167  M02S00560.253l688 ---|          BX6    -X0*X2      SYSTEM SECURITY MODE
11168  M02S00561.253l688 ---|          SA6    SYSS
11169  M02S00562.253l688 ---|          ZR     X6,DSSX     IF NOT SECURE SYSTEM
11170  M02S00563.253l688 ---|          LX2    6
11171  M02S00564.253l688 ---|          BX7    -X0*X2      SYSTEM LOWER LIMIT
11172  M02S00565.253l688 ---|          LX2    6
11173  M02S00566.253l688 ---|          BX6    -X0*X2      SYSTEM UPPER LIMIT
11174  M02S00567.253l688 ---|          SA7    SYLA
11175  M02S00568.253l688 ---|          SA6    SYUA
11176  M02S00569.253l688 ---|          EQ     DSSX        RETURN
11177  M02S00570.253l688 ---|
11178  M02S00571.253l688 ---| DSSA     CON    0           SYSTEM SECURITY STATUS RETURN

Seq #  *Modification Id* Act 
----------------------------+
11179  M01S06444.253l688 ---| EBE      SPACE  4,20
11180  M01S06445.253l688 ---|**        EBE - EVALUATE BOOLEAN EXPRESSION.
11181  M01S06446.253l688 ---|*
11182  M01S06447.253l688 ---|*         ENTRY  (X2) = BOOLEAN VARIABLES.
11183  M01S06448.253l688 ---|*                (X1) = FIRST WORD OF BOOLEAN EXPRESSION.
11184  M01S06449.253l688 ---|*                (A1) = ADDRESS OF FIRST WORD OF BOOLEAN EXPRESSION.
11185  M01S06450.253l688 ---|*
11186  M01S06451.253l688 ---|*         EXIT   (X2) = BOOLEAN VARIABLES.
11187  M01S06452.253l688 ---|*                (X6) = 0 IF EXPRESSION IS FALSE.
11188  M01S06453.253l688 ---|*                     = NON-ZERO IF EXPRESSION IS TRUE.
11189  M01S06454.253l688 ---|*
11190  M01S06455.253l688 ---|*         USES   X - 1, 3, 6.
11191  M01S06456.253l688 ---|*                A - 1, 3.
11192  M01S06457.253l688 ---|
11193  M01S06458.253l688 ---|
11194  M01S06459.253l688 ---| EBE2     SX6    B0+         SET STATUS FOR FALSE EXPRESSION
11195  M01S06460.253l688 ---|
11196  M01S06461.253l688 ---| EBE      SUBR               ENTRY/EXIT
11197  M01S06462.253l688 ---| EBE1     ZR     X1,EBE2     IF END OF BOOLEAN EXPRESSION
11198  M01S06463.253l688 ---|          SA3    A1+B1       GET VARIABLE COMPLEMENT FLAGS
11199  M01S06464.253l688 ---|          BX1    X1*X2
11200  M01S06465.253l688 ---|          BX6    X1-X3
11201  M01S06466.253l688 ---|          SA1    A3+B1       GET NEXT VARIABLE MASK
11202  M01S06467.253l688 ---|          NZ     X6,EBE1     IF TERM NOT TRUE
11203  M01S06468.253l688 ---|          SX6    B1          SET STATUS FOR TRUE EXPRESSION
11204  M01S06469.253l688 ---|          EQ     EBEX        RETURN
11205  M01S06470.253l688 ---| GAM      SPACE  4,15
11206  M01S06471.253l688 ---|**        GAM - GENERATE ACCOUNTING MESSAGES.
11207  M01S06472.253l688 ---|*
11208  M01S06473.253l688 ---|*         ENTRY  CPAR = CRACKED PARAMETER ARRAY ADDRESS.
11209  M01S06474.253l688 ---|*
11210  M01S06475.253l688 ---|*         EXIT   PARAMETERS PUT IN DAYFILE AND OUTPUT FILE MESSAGES.
11211  M01S06476.253l688 ---|*                INITIAL OUTPUT FILE MESSAGES ISSUED.
11212  M01S06477.253l688 ---|*
11213  M01S06478.253l688 ---|*         USES   X - 0, 1, 2, 5, 6, 7.
11214  M01S06479.253l688 ---|*                A - 0, 1, 2, 5, 6, 7.
11215  M01S06480.253l688 ---|*
11216  M01S06481.253l688 ---|*         CALLS  COD, SFN.
11217  M01S06482.253l688 ---|*
11218  M01S06483.253l688 ---|*         MACROS EDATE, ETIME, MOVE, WRITEH.
11219  M01S06484.253l688 ---|
11220  M01S06485.253l688 ---|
11221  M01S06486.253l688 ---| GAM      SUBR               ENTRY/EXIT
11222  M01S06487.253l688 ---|
11223  M01S06488.253l688 ---|*         PROCESS START AND END OF DEVICE DUMP DAYFILE MESSAGES.
11224  M01S06489.253l688 ---|
11225  M01S06490.253l688 ---|          SA1    CPAR+/COMSPFS/CPPN
11226  M01S06491.253l688 ---|          NZ     X1,GAM1     IF PACK NAME SPECIFIED
11227  M01S06492.253l688 ---|          SA1    CPAR+/COMSPFS/CPFN  USE FAMILY NAME
11228  M01S06493.253l688 ---| GAM1     MX6    42          SPACE FILL NAME
11229  M01S06494.253l688 ---|          BX1    X6*X1
11230  M01S06495.253l688 ---|          RJ     SFN
11231  M01S06496.253l688 ---|          SA1    CPAR+/COMSPFS/CPPN
11232  M01S06497.253l688 ---|          SX2    1L.&1L      ADD PERIOD TO NAME
11233  M01S06498.253l688 ---|          BX7    X6-X2
11234  M01S06499.253l688 ---|          SA7    MSGN+3      PUT NAME IN START OF DEVICE MESSAGE
11235  M01S06500.253l688 ---|          ZR     X1,GAM2     IF PACK NAME NOT SPECIFIED
11236  M01S06501.253l688 ---|          SA6    MSGA+1      PUT PACK NAME IN END OF DEVICE MESSAGE
11237  M01S06502.253l688 ---|          SA1    PMSP        SET UP MESSAGES FOR AUXILIARY DEVICE
11238  M01S06503.253l688 ---|          SA2    PMSQ
11239  M01S06504.253l688 ---|          BX6    X1
11240  M01S06505.253l688 ---|          LX7    X2
11241  M01S06506.253l688 ---|          SA6    A6-B1
11242  M01S06507.253l688 ---|          SA7    A7-B1
11243  M01S06508.253l688 ---|
11244  M01S06509.253l688 ---|*         PROCESS OUTPUT FILE MESSAGES.
11245  M01S06510.253l688 ---|
11246  M01S06511.253l688 ---| GAM2     WRITEH OUTPUT,PMSO,1
11247  M01S06512.253l688 ---|          WRITEH X2,PMSC,3
11248  M01S06513.253l688 ---|          WRITEH X2,PMSA,4
11249  M01S06514.253l688 ---|          SA1    CPAR+/COMSPFS/CPSD
11250  M01S06515.253l688 ---|          ZR     X1,GAM3     IF INHIBIT DATES NOT TO BE RESET
11251  M01S06516.253l688 ---|          WRITEH X2,PMSS,4
11252  M01S06517.253l688 ---| GAM3     SA5    CPAR+/COMSPFS/CPOP
11253  M01S06518.253l688 ---|          MX0    1
11254  M01S06519.253l688 ---|          LX0    47-59
11255  M01S06520.253l688 ---|          BX1    X0*X5
11256  M01S06521.253l688 ---|          ZR     X1,GAM4     IF MSS STAGING NOT SUPPRESSED
11257  M01S06522.253l688 ---|          WRITEH X2,PMSR,3
11258  M01S06523.253l688 ---| GAM4     MX0    2
11259  M01S06524.253l688 ---|          LX5    3
11260  M01S06525.253l688 ---|          BX5    X0*X5

Seq #  *Modification Id* Act 
----------------------------+
11261  M02S06526.253l688 ---|          ZR     X5,GAM6     IF NOT INDIRECT OR DIRECT ONLY

Seq #  *Modification Id* Act 
----------------------------+
11262  M02S00572.253l688 ---|          ZR     X5,GAM5.1   IF NOT INDIRECT OR DIRECT ONLY

Seq #  *Modification Id* Act 
----------------------------+
11263  M01S06527.253l688 ---|          MOVE   1,PMSN,PMSB
11264  M01S06528.253l688 ---|          PL     X5,GAM5     IF DIRECT ONLY
11265  M01S06529.253l688 ---|          MOVE   3,PMSL,PMSB+1
11266  M01S06530.253l688 ---|          WRITEH OUTPUT,PMSB,4

Seq #  *Modification Id* Act 
----------------------------+
11267  M02S06531.253l688 ---|          EQ     GAM6        CHECK DATE OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
11268  M02S00573.253l688 ---|          EQ     GAM5.1      CHECK ACCESS LEVEL OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
11269  M01S06532.253l688 ---|
11270  M01S06533.253l688 ---| GAM5     MOVE   3,PMSM,PMSB+1
11271  M01S06534.253l688 ---|          WRITEH OUTPUT,PMSB,4

Seq #  *Modification Id* Act 
----------------------------+
11272  M02S06535.253l688 ---|

Seq #  *Modification Id* Act 
----------------------------+
11273  M02S00574.253l688 ---| GAM5.1   SA1    CPAR+/COMSPFS/CPLA
11274  M02S00575.253l688 ---|          ZR     X1,GAM6     IF NO ACCESS LEVELS SPECIFIED
11275  M02S00576.253l688 ---|          SA1    DPLA
11276  M02S00577.253l688 ---|          SA2    TALV+X1     GET ACCESS LEVEL NAME
11277  M02S00578.253l688 ---|          MX0    42
11278  M02S00579.253l688 ---|          BX1    X0*X2
11279  M02S00580.253l688 ---|          RJ     SFN
11280  M02S00581.253l688 ---|          SA6    PMST+2      ADD LEVEL TO MESSAGE
11281  M02S00582.253l688 ---|          SA1    DPUA
11282  M02S00583.253l688 ---|          SA2    TALV+X1     GET ACCESS LEVEL NAME
11283  M02S00584.253l688 ---|          BX1    X0*X2
11284  M02S00585.253l688 ---|          MX0    -42
11285  M02S00586.253l688 ---|          RJ     SFN
11286  M02S00587.253l688 ---|          LX6    -18         ADD LEVEL TO MESSAGE
11287  M02S00588.253l688 ---|          BX6    -X0*X6
11288  M02S00589.253l688 ---|          SA1    PMST+3
11289  M02S00590.253l688 ---|          BX1    X0*X1
11290  M02S00591.253l688 ---|          BX6    X1+X6
11291  M02S00592.253l688 ---|          SA6    A1
11292  M02S00593.253l688 ---|          WRITEH OUTPUT,PMST,4

Seq #  *Modification Id* Act 
----------------------------+
11293  M01S06536.253l688 ---| GAM6     SA5    CPAR+/COMSPFS/CPOP
11294  M01S06537.253l688 ---|          MX0    3
11295  M01S06538.253l688 ---|          BX5    X0*X5
11296  M01S06539.253l688 ---|          NZ     X5,GAM10    IF DATE OPTION SPECIFIED
11297  M01S06540.253l688 ---|
11298  M01S06541.253l688 ---| GAM7     SA1    CPAR+/COMSPFS/CPUI
11299  M01S06542.253l688 ---|          ZR     X1,GAM14    IF NO USER INDEX
11300  M01S06543.253l688 ---|          SA1    CPAR+/COMSPFS/CPPF
11301  M01S06544.253l688 ---|          ZR     X1,GAM8     IF NO FILE NAME
11302  M01S06545.253l688 ---|          RJ     SFN
11303  M01S06546.253l688 ---|          SA6    PMSB+1
11304  M01S06547.253l688 ---|          MOVE   1,PMSG,PMSB
11305  M01S06548.253l688 ---|          EQ     GAM9        PUT USER INDEX IN MESSAGE
11306  M01S06549.253l688 ---|
11307  M01S06550.253l688 ---| GAM8     MOVE   2,PMSF,PMSB
11308  M01S06551.253l688 ---| GAM9     MOVE   1,PMSK,PMSB+2
11309  M01S06552.253l688 ---|          SA1    CPAR+/COMSPFS/CPUI
11310  M01S06553.253l688 ---|          RJ     COD
11311  M01S06554.253l688 ---|          LX6    12
11312  M01S06555.253l688 ---|          SA6    PMSB+3
11313  M01S06556.253l688 ---|          EQ     GAM13       OUTPUT MESSAGES
11314  M01S06557.253l688 ---|
11315  M01S06558.253l688 ---| GAM10    LX5    1-59        SET *CREATED*, *ACCESSED* OR *MODIFIED*
11316  M01S06559.253l688 ---|          SA1    PMSH+X5
11317  M01S06560.253l688 ---|          BX6    X1
11318  M01S06561.253l688 ---|          SA6    PMSB
11319  M01S06562.253l688 ---|          SA5    CPAR+/COMSPFS/CPAD
11320  M01S06563.253l688 ---|          ZR     X5,GAM11    IF *AD=YYMMDD* NOT SPECIFIED
11321  M01S06564.253l688 ---|          SA1    PMSI        SET *AFTER* IN MESSAGE
11322  M01S06565.253l688 ---|          BX6    X1
11323  M01S06566.253l688 ---|          SA6    A6+B1
11324  M01S06567.253l688 ---|          BX1    X5          SET AFTER DATE IN MESSAGE
11325  M01S06568.253l688 ---|          AX1    18-0
11326  M01S06569.253l688 ---|          EDATE  X1
11327  M01S06570.253l688 ---|          SA6    PMSB+2
11328  M01S06571.253l688 ---|          MX0    -18         SET AFTER TIME IN MESSAGE
11329  M01S06572.253l688 ---|          BX1    -X0*X5
11330  M01S06573.253l688 ---|          ETIME  X1
11331  M01S06574.253l688 ---|          SA6    PMSB+3
11332  M01S06575.253l688 ---| GAM11    SA5    CPAR+/COMSPFS/CPBD
11333  M01S06576.253l688 ---|          ZR     X5,GAM12    IF *BD=YYMMDD* NOT SPECIFIED
11334  M01S06577.253l688 ---|          SA1    PMSJ        SET *BEFORE* IN MESSAGE
11335  M01S06578.253l688 ---|          BX6    X1
11336  M01S06579.253l688 ---|          SA6    A6+B1
11337  M01S06580.253l688 ---|          BX1    X5          SET BEFORE DATE IN MESSAGE
11338  M01S06581.253l688 ---|          AX1    18-0
11339  M01S06582.253l688 ---|          SA0    A6+1
11340  M01S06583.253l688 ---|          EDATE  X1
11341  M01S06584.253l688 ---|          SA6    A0
11342  M01S06585.253l688 ---|          MX0    -18         SET BEFORE TIME IN MESSAGE
11343  M01S06586.253l688 ---|          BX1    -X0*X5
11344  M01S06587.253l688 ---|          SA0    A6+B1
11345  M01S06588.253l688 ---|          ETIME  X1
11346  M01S06589.253l688 ---|          SA6    A0+
11347  M01S06590.253l688 ---| GAM12    WRITEH OUTPUT,PMSB,A6-PMSB+1  WRITE DATE SELECTION MESSAGE
11348  M01S06591.253l688 ---|          EQ     GAM7        PROCESS *USER INDEX* OPTION
11349  M01S06592.253l688 ---|
11350  M01S06593.253l688 ---| GAM13    WRITEH OUTPUT,PMSB,4
11351  M01S06594.253l688 ---| GAM14    WRITEH OUTPUT,PMSO,1
11352  M01S06595.253l688 ---|          EQ     GAMX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
11353  M01S00864.253l688 +++| CDRA     BSSZ   5           *FILNFO* CALL BLOCK
11354  M01S00865.253l688 +++|          VFD    54/0,6/1    TAPE FORMAT KEY
11355  M01S00866.253l688 +++|          VFD    54/0,6/2    LABEL TYPE KEY
11356  M01S00867.253l688 +++|          VFD    54/0,6/4    VSN KEY

Seq #  *Modification Id* Act 
----------------------------+
11357  M01S00255.274l797 +++|
11358  M01S00256.274l797 +++| CDRB     CON    0           TAPE DEVICE TYPE AND FORMAT FLAGS
11359  M01S00257.274l797 +++| CDRC     BSSZ   16          OPTICAL DISK LABEL INFORMATION
11360  M01S00258.274l797 +++| CDRD     BSSZ   1           VERSION NUMBER
11361  M01S00259.274l797 +++| CDRE     VFD    60/0LDEFAULT
11362  M01S00260.274l797 +++| CDRF     VFD    60/0LPFARCHIVE
11363  M01S00261.274l797 +++| CDRG     VFD    60/0LSYSTEMX
11364  M01S00262.274l797 +++| CDRH     VFD    60/0LNOSARCHIVE
11365  M00S06596.pfdump  +++| GRH      SPACE  4,15
11366  M00S06597.pfdump  +++|**        GRH - GENERATE *RDF* HEADER RECORD.
11367  M00S06598.pfdump  +++|*
11368  M00S06599.pfdump  +++|*         ENTRY  ARCHIVE FILE LABEL RECORD GENERATED.
11369  M00S06600.pfdump  +++|*                RELEASE DATA FILE (RDF) OPEN.
11370  M00S06601.pfdump  +++|*
11371  M00S06602.pfdump  +++|*         EXIT   HEADER RECORD WRITTEN TO RELEASE DATA FILE,
11372  M00S06603.pfdump  +++|*                IF *RDF* REQUESTED.
11373  M00S06604.pfdump  +++|*
11374  M00S06605.pfdump  +++|*         USES   X - 1, 2, 6.
11375  M00S06606.pfdump  +++|*                A - 6.
11376  M00S06607.pfdump  +++|*
11377  M00S06608.pfdump  +++|*         MACROS WRITER, WRITEW.
11378  M00S06609.pfdump  +++|
11379  M00S06610.pfdump  +++|
11380  M00S06611.pfdump  +++| GRH      SUBR               ENTRY/EXIT
11381  M00S06612.pfdump  +++|          SA1    CPAR+/COMSPFS/CPRD
11382  M00S06613.pfdump  +++|          ZR     X1,GRHX     IF RDF NOT REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
11383  M01S06614.253l688 ---|          SA1    DSDT        SET UP CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
11384  M01S00868.253l688 +++|          SA1    /COMSPFS/STDT  SET UP CONTROL WORD
11385  M00S06615.pfdump  +++|          SX2    HCWD
11386  M00S06616.pfdump  +++|          LX1    47-35
11387  M00S06617.pfdump  +++|          BX6    X1+X2
11388  M00S06618.pfdump  +++|          SA6    CONTH
11389  M00S06619.pfdump  +++|          WRITEW RDF,CONTH,B1  WRITE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
11390  M01S06620.253l688 ---|          WRITEW X2,DMPLBL,NWTL  WRITE DUMP LABEL

Seq #  *Modification Id* Act 
----------------------------+
11391  M01S00869.253l688 +++|          WRITEW X2,DMPLBL,/COMSPFS/AFLBL  WRITE DUMP LABEL
11392  M00S06621.pfdump  +++|          WRITER X2,R
11393  M00S06622.pfdump  +++|          EQ     GRHX        RETURN
11394  M00S06623.pfdump  +++| LBL      SPACE  4,15
11395  M00S06624.pfdump  +++|**        LBL - WRITE PFDUMP ARCHIVE FILE LABEL.
11396  M00S06625.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
11397  M01S06626.253l688 ---|*         ENTRY  (DMPLBL - DMPLBL+NWTL) = PFDUMP LABEL PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
11398  M01S00870.253l688 +++|*         ENTRY  (DMPLBL - DMPLBL+/COMSPFS/AFLBL) = LABEL PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
11399  M01S00263.274l797 +++|*                (FLOK) = *AFLOK*/*TFLOK* SELECTION FLAG.
11400  M00S06627.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
11401  M01S06628.286l859 ---|*         EXIT   (TAFA) = ARCHIVE FILE OPEN FLAG = 1.
11402  M01S06629.286l859 ---|*                ARCHIVE FILE SKIP COUNT PROCESSED.

Seq #  *Modification Id* Act 
----------------------------+
11403  M01S02124.286l859 +++|*         EXIT   ARCHIVE FILE SKIP COUNT PROCESSED.
11404  M00S06630.pfdump  +++|*                ARCHIVE FILE LABEL WRITTEN TO ARCHIVE FILE.
11405  M00S06631.pfdump  +++|*
11406  M00S06632.pfdump  +++|*         USES   X - 0, 1, 2, 6, 7.
11407  M00S06633.pfdump  +++|*                A - 1, 6, 7.
11408  M00S06634.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
11409  M01S06635.286l859 ---|*         MACROS ARCHIVE.

Seq #  *Modification Id* Act 
----------------------------+
11410  M01S02125.286l859 +++|*         CALS   FAF.
11411  M01S02126.286l859 +++|*
11412  M01S02127.286l859 +++|*         MACROS ARCHIVE, SKIPFF.
11413  M00S06636.pfdump  +++|
11414  M00S06637.pfdump  +++|
11415  M00S06638.pfdump  +++| LBL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
11416  M01S06639.286l859 ---|          SA1    CPAR+/COMSPFS/CPSF
11417  M01S06640.286l859 ---|          ZR     X1,LBL1     IF NO FILES TO SKIP
11418  M01S06641.286l859 ---|          BX6    X6-X6
11419  M01S06642.286l859 ---|          SA6    A1
11420  M01S06643.286l859 ---|          ARCHIVE  SKIPFF,X1

Seq #  *Modification Id* Act 
----------------------------+
11421  M01S02128.286l859 +++|          SA3    CPAR+/COMSPFS/CPSF
11422  M01S02129.286l859 +++|          ZR     X3,LBL1     IF NO FILES TO SKIP
11423  M01S02130.286l859 +++|          SKIPFF TAPE,X3     SKIP FILES ON ARCHIVE FILE
11424  M01S02131.286l859 +++|          SA1    CPAR+/COMSPFS/CPVF
11425  M01S02132.286l859 +++|          ZR     X1,LBL1     IF NO VERIFY FILE SPECIFIED
11426  M01S02133.286l859 +++|          SKIPFF PFVER,X3    SKIP FILES ON ARCHIVE VERIFY FILE
11427  M00S06644.pfdump  +++| LBL1     SX1    LCWC

Seq #  *Modification Id* Act 
----------------------------+
11428  M01S06645.253l688 ---|          SX2    NWTL        SET UP CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
11429  M01S00871.253l688 +++|          SX2    /COMSPFS/AFLBL  SET UP CONTROL WORD
11430  M00S06646.pfdump  +++|          BX6    X1+X2
11431  M00S06647.pfdump  +++|          SA1    DMPLBL
11432  M00S06648.pfdump  +++|          MX0    36
11433  M00S06649.pfdump  +++|          BX1    X0*X1
11434  M00S06650.pfdump  +++|          BX6    X6+X1
11435  M00S06651.pfdump  +++|          SA6    CONTH
11436  M00S06652.pfdump  +++|          ARCHIVE  WRITEW,CONTH,B1  WRITE CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
11437  M01S06653.253l688 ---|          ARCHIVE  WRITEW,DMPLBL,NWTL  WRITE DUMP LABEL

Seq #  *Modification Id* Act 
----------------------------+
11438  M01S00872.253l688 +++|          ARCHIVE  WRITEW,DMPLBL,/COMSPFS/AFLBL  WRITE DUMP LABEL
11439  M00S06654.pfdump  +++|          ARCHIVE  WRITER

Seq #  *Modification Id* Act 
----------------------------+
11440  M01S06655.286l859 ---|          SX7    B1+         SET ARCHIVE FILE OPEN FLAG
11441  M01S06656.286l859 ---|          SA7    TAFA

Seq #  *Modification Id* Act 
----------------------------+
11442  M01S00264.274l797 +++|          SA1    FLOK
11443  M01S00265.274l797 +++|          ZR     X1,LBLX     IF NOT DESTAGE TO OPTICAL DISK

Seq #  *Modification Id* Act 
----------------------------+
11444  M02S00266.286l859 ---|          ARCHIVE  FLUSH

Seq #  *Modification Id* Act 
----------------------------+
11445  M01S02134.286l859 +++|          RJ     FAF         FLUSH ARCHIVE FILE BUFFERS
11446  M00S06657.pfdump  +++|          EQ     LBLX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
11447  M01S06658.253l688 ---| LDN      SPACE  4,20
11448  M01S06659.253l688 ---|**        LDN - LOCATE DEVICE NUMBER.
11449  M01S06660.253l688 ---|*
11450  M01S06661.253l688 ---|*         ENTRY  (X1) = DEVICE NUMBER TO SEARCH FOR.
11451  M01S06662.253l688 ---|*
11452  M01S06663.253l688 ---|*         EXIT   (X1) = UNCHANGED.
11453  M01S06664.253l688 ---|*                (X2) = 0 IF DEVICE NOT FOUND.
11454  M01S06665.253l688 ---|*                     = FIRST WORD OF MASS STORAGE TABLE INFORMATION IF
11455  M01S06666.253l688 ---|*                       DEVICE FOUND.
11456  M01S06667.253l688 ---|*                (B2) = ADDRESS OF FIRST WORD OF MASS STORAGE TABLE
11457  M01S06668.253l688 ---|*                       INFORMATION FOR DEVICE IF FOUND.
11458  M01S06669.253l688 ---|*
11459  M01S06670.253l688 ---|*         USES   X - 2, 3, 6, 7.
11460  M01S06671.253l688 ---|*                A - 2.
11461  M01S06672.253l688 ---|*                B - 2, 3.
11462  M01S06673.253l688 ---|
11463  M01S06674.253l688 ---|
11464  M01S06675.253l688 ---| LDN      SUBR               ENTRY/EXIT
11465  M01S06676.253l688 ---|          SB2    MSTT        SET ADDRESS OF MASS STORAGE TABLE
11466  M01S06677.253l688 ---|          MX3    -6
11467  M01S06678.253l688 ---|          SB3    B1+B1
11468  M01S06679.253l688 ---| LDN1     SA2    B2
11469  M01S06680.253l688 ---|          ZR     X2,LDNX     IF END OF MASS STORAGE TABLE
11470  M01S06681.253l688 ---|          BX6    -X3*X2
11471  M01S06682.253l688 ---|          IX7    X1-X6
11472  M01S06683.253l688 ---|          ZR     X7,LDNX     IF CORRECT DEVICE
11473  M01S06684.253l688 ---|          SB2    B2+B3
11474  M01S06685.253l688 ---|          EQ     LDN1        CHECK NEXT DEVICE
11475  M01S06686.253l688 ---| LUI      SPACE  4,20
11476  M01S06687.253l688 ---|**        LUI - LOCATE USER INDEX.
11477  M01S06688.253l688 ---|*
11478  M01S06689.253l688 ---|*         ENTRY  (X1) = USER INDEX TO FIND MASTER DEVICE FOR.
11479  M01S06690.253l688 ---|*
11480  M01S06691.253l688 ---|*         EXIT   (X1) = UNCHANGED.
11481  M01S06692.253l688 ---|*                (X2) = 0 IF MASTER DEVICE NOT FOUND FOR USER INDEX.
11482  M01S06693.253l688 ---|*                     = FIRST WORD OF MASS STORAGE TABLE INFORMATION IF
11483  M01S06694.253l688 ---|*                       USER INDEX FOUND.
11484  M01S06695.253l688 ---|*                (X3) = SECOND WORD OF MASS STORAGE TABLE INFORMATION
11485  M01S06696.253l688 ---|*                       IF USER INDEX FOUND.
11486  M01S06697.253l688 ---|*                (B2) = ADDRESS OF FIRST WORD OF MASS STORAGE TABLE
11487  M01S06698.253l688 ---|*                       INFORMATION FOR DEVICE IF FOUND.
11488  M01S06699.253l688 ---|*
11489  M01S06700.253l688 ---|*         USES   X - 2, 3, 6.
11490  M01S06701.253l688 ---|*                A - 2, 3.
11491  M01S06702.253l688 ---|*                B - 2, 3.
11492  M01S06703.253l688 ---|
11493  M01S06704.253l688 ---|
11494  M01S06705.253l688 ---| LUI      SUBR               ENTRY/EXIT
11495  M01S06706.253l688 ---|          SB2    MSTT        SET ADDRESS OF MASS STORAGE TABLE
11496  M01S06707.253l688 ---|          MX2    -3          SET MASK BIT SHIFT COUNT
11497  M01S06708.253l688 ---|          BX6    -X2*X1
11498  M01S06709.253l688 ---|          SB3    X6-59
11499  M01S06710.253l688 ---| LUI1     SA2    B2
11500  M01S06711.253l688 ---|          SA3    B2+B1
11501  M01S06712.253l688 ---|          ZR     X2,LUIX     IF END OF MASS STORAGE TABLE
11502  M01S06713.253l688 ---|          AX6    X3,B3       POSITION MASK BIT
11503  M01S06714.253l688 ---|          NG     X6,LUIX     IF CORRECT DEVICE
11504  M01S06715.253l688 ---|          SB2    A3+B1
11505  M01S06716.253l688 ---|          EQ     LUI1        CHECK NEXT DEVICE
11506  M01S06717.253l688 ---| PFO      SPACE  4,20
11507  M01S06718.253l688 ---|**        PFO - PROCESS FILE OPENING.
11508  M01S06719.253l688 ---|*
11509  M01S06720.253l688 ---|*         ENTRY  (X1) = FILE NAME.
11510  M01S06721.253l688 ---|*                (A5) = FET ADDRESS.
11511  M01S06722.253l688 ---|*                (X5) = FIRST WORD OF FET.
11512  M01S06723.253l688 ---|*
11513  M01S06724.253l688 ---|*         EXIT   FET FILE NAME PRESET.

Seq #  *Modification Id* Act 
----------------------------+
11514  M02S06725.253l688 ---|*                FILE REQUESTED AND OPENED.

Seq #  *Modification Id* Act 
----------------------------+
11515  M02S00594.253l688 ---|*                FILE REQUESTED ON APPROPRIATELY SECURE EQUIPMENT, IF
11516  M02S00595.253l688 ---|*                NOT ALREADY ASSIGNED.  EQUIPMENT SECURITY VERIFIED, IF
11517  M02S00596.253l688 ---|*                THE FILE IS ALREADY ASSIGNED.

Seq #  *Modification Id* Act 
----------------------------+
11518  M01S06726.253l688 ---|*                FET CONTROL WORD STATUS WORD PRESET.

Seq #  *Modification Id* Act 
----------------------------+
11519  M02S06727.253l688 ---|*                FET ERROR PROCESSING BIT SET, IF MASS STORAGE FILE.

Seq #  *Modification Id* Act 
----------------------------+
11520  M02S00597.253l688 ---|*                FET ERROR PROCESSING BIT SET IF NOT MASS STORAGE FILE.

Seq #  *Modification Id* Act 
----------------------------+
11521  M01S06728.253l688 ---|*

Seq #  *Modification Id* Act 
----------------------------+
11522  M02S06729.253l688 ---|*         USES   X - 0, 1, 3, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
11523  M02S00598.253l688 ---|*         USES   X - 0, 1, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
11524  M01S06730.253l688 ---|*                A - 1, 6.
11525  M01S06731.253l688 ---|*
11526  M01S06732.253l688 ---|*         MACROS OPEN, SETFS.

Seq #  *Modification Id* Act 
----------------------------+
11527  M02S00599.253l688 ---|*
11528  M02S00600.253l688 ---|*         CALLS  ASF, VES.

Seq #  *Modification Id* Act 
----------------------------+
11529  M01S06733.253l688 ---|
11530  M01S06734.253l688 ---|
11531  M01S06735.253l688 ---| PFO      SUBR               ENTRY/EXIT
11532  M01S06736.253l688 ---|          MX0    42          SET FILE NAME
11533  M01S06737.253l688 ---|          BX6    X0*X1
11534  M01S06738.253l688 ---|          BX5    -X0*X5
11535  M01S06739.253l688 ---|          BX6    X6+X5
11536  M01S06740.253l688 ---|          SA6    A5

Seq #  *Modification Id* Act 
----------------------------+
11537  M02S00601.253l688 ---|          RJ     ASF         ASSIGN SECURE FILE

Seq #  *Modification Id* Act 
----------------------------+
11538  M01S06741.253l688 ---|          OPEN   A5,READNR,R OPEN FILE

Seq #  *Modification Id* Act 
----------------------------+
11539  M02S00602.253l688 ---|          RJ     VES         VERIFY EQUIPMENT SECURITY

Seq #  *Modification Id* Act 
----------------------------+
11540  M01S06742.253l688 ---|          SX6    -B1         PRESET FET CONTROL WORD STATUS WORD
11541  M01S06743.253l688 ---|          SA6    A5+CWSW
11542  M01S06744.253l688 ---|          SA1    A5+B1       GET NON MASS STORAGE FLAG
11543  M01S06745.253l688 ---|          MX6    1
11544  M01S06746.253l688 ---|          BX6    X6*X1
11545  M01S06747.253l688 ---|          LX6    44-59       SET ERROR PROCESSING, IF NOT MASS STORAGE
11546  M01S06748.253l688 ---|          BX6    X6+X1
11547  M01S06749.253l688 ---|          SA6    A1
11548  M01S06750.253l688 ---|          SETFS  A5,0        CLEAR SPECIAL FILE STATUS
11549  M01S06751.253l688 ---|          EQ     PFOX        RETURN
11550  M01S06752.253l688 ---| SBS      SPACE  4,20
11551  M01S06753.253l688 ---|**        SBS - SET BOOLEAN SELECTION PARAMETERS.
11552  M01S06754.253l688 ---|*
11553  M01S06755.253l688 ---|*         ENTRY  (CPAR) = CRACKED PARAMETER ARRAY.
11554  M01S06756.253l688 ---|*                (MSTT) = MASS STORAGE TABLE.
11555  M01S06757.253l688 ---|*
11556  M01S06758.253l688 ---|*         EXIT   (BFSP) = BOOLEAN FILE SELECTION PARAMETERS.  SEE
11557  M01S06759.253l688 ---|*                         DOCUMENTATION OF BOOLEAN FILE SELECTION
11558  M01S06760.253l688 ---|*                         VARIABLES.
11559  M01S06761.253l688 ---|*                (CPAR+/COMSPFS/CPDD) = 36/0,18/*MSTT* ADDRESS,6/DD IF
11560  M01S06762.253l688 ---|*                                       *DD* PARAMETER WAS SPECIFIED.
11561  M01S06763.253l688 ---|*                EXIT TO *AEP* IF A SPECIFIED DEVICE NUMBER WAS NOT
11562  M01S06764.253l688 ---|*                FOUND IN *MSTT*.
11563  M01S06765.253l688 ---|*
11564  M01S06766.253l688 ---|*         USES   X - 1, 2, 4, 6, 7.
11565  M01S06767.253l688 ---|*                A - 1, 2, 6.
11566  M01S06768.253l688 ---|*
11567  M01S06769.253l688 ---|*         CALLS  LDN, LUI.
11568  M01S06770.253l688 ---|*
11569  M01S06771.253l688 ---|*         MACROS EDITS.
11570  M01S06772.253l688 ---|
11571  M01S06773.253l688 ---|
11572  M01S06774.253l688 ---|*         PROCESS NO DEVICE FOR USER INDEX ERROR.
11573  M01S06775.253l688 ---|
11574  M01S06776.253l688 ---| SBS8     SX2    B1          SET NO FILES SELECTED STATUS
11575  M01S06777.253l688 ---|          LX2    FNFS
11576  M01S06778.253l688 ---|          BX4    X4+X2
11577  M01S06779.253l688 ---|
11578  M01S06780.253l688 ---|*         SAVE BOOLEAN FILE SELECTION PARAMETERS.
11579  M01S06781.253l688 ---|
11580  M01S06782.253l688 ---| SBS9     BX6    X4          SAVE BOOLEAN FILE SELECTION PARAMETERS
11581  M01S06783.253l688 ---|          SA6    BFSP
11582  M01S06784.253l688 ---|
11583  M01S06785.253l688 ---| SBS      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
11584  M02S06786.253l688 ---|          SA1    CPAR+/COMSPFS/CPOP  EVALUATE DAF ONLY BIT

Seq #  *Modification Id* Act 
----------------------------+
11585  M02S00603.253l688 ---|          SA1    CPAR+/COMSPFS/CPOP  EVALUATE DAPF ONLY BIT

Seq #  *Modification Id* Act 
----------------------------+
11586  M01S06787.253l688 ---|          MX2    -1
11587  M01S06788.253l688 ---|          LX1    0-55
11588  M01S06789.253l688 ---|          BX4    -X2*X1
11589  M01S06790.253l688 ---|          LX4    DAFO

Seq #  *Modification Id* Act 
----------------------------+
11590  M02S06791.253l688 ---|          LX1    0-56-0+55   EVALUATE IAF ONLY BIT

Seq #  *Modification Id* Act 
----------------------------+
11591  M02S00604.253l688 ---|          LX1    0-56-0+55   EVALUATE IAPF ONLY BIT

Seq #  *Modification Id* Act 
----------------------------+
11592  M01S06792.253l688 ---|          BX2    -X2*X1
11593  M01S06793.253l688 ---|          LX2    IAFO
11594  M01S06794.253l688 ---|          BX4    X4+X2
11595  M01S06795.253l688 ---|          SA1    CPAR+/COMSPFS/CPDN
11596  M01S06796.253l688 ---|          ZR     X1,SBS1     IF *DN* PARAMETER NOT SPECIFIED
11597  M01S06797.253l688 ---|          SX2    B1          SET *DN* SPECIFIED STATUS
11598  M01S06798.253l688 ---|          LX2    DNSP
11599  M01S06799.253l688 ---|          BX4    X4+X2
11600  M01S06800.253l688 ---|          RJ     LDN         LOCATE DEVICE NUMBER
11601  M01S06801.253l688 ---|          ZR     X2,SBS7     IF DEVICE NOT FOUND
11602  M01S06802.253l688 ---|          SA1    B2+B1       GET DEVICE MASK
11603  M01S06803.253l688 ---|          MX2    -8
11604  M01S06804.253l688 ---|          BX6    -X2*X1
11605  M01S06805.253l688 ---|          ZR     X6,SBS1     IF *DN* NOT A MASTER DEVICE
11606  M01S06806.253l688 ---|          SX2    B1          SET *DN* MASTER DEVICE STATUS
11607  M01S06807.253l688 ---|          LX2    DNMD
11608  M01S06808.253l688 ---|          BX4    X4+X2
11609  M01S06809.253l688 ---| SBS1     SA1    CPAR+/COMSPFS/CPTD
11610  M01S06810.253l688 ---|          ZR     X1,SBS2     IF *TD* PARAMETER NOT SPECIFIED
11611  M01S06811.253l688 ---|          SX2    B1          SET *TD* SPECIFIED STATUS
11612  M01S06812.253l688 ---|          LX2    TDSP
11613  M01S06813.253l688 ---|          BX4    X4+X2
11614  M01S06814.253l688 ---|          RJ     LDN         LOCATE TRUE DEVICE NUMBER
11615  M01S06815.253l688 ---|          ZR     X2,SBS7     IF DEVICE NOT FOUND
11616  M01S06816.253l688 ---|          SA1    B2+B1       GET DEVICE MASK
11617  M01S06817.253l688 ---|          MX2    -8
11618  M01S06818.253l688 ---|          BX6    -X2*X1
11619  M01S06819.253l688 ---|          ZR     X6,SBS2     IF *TD* NOT A MASTER DEVICE
11620  M01S06820.253l688 ---|          SX2    B1          SET *TD* MASTER DEVICE STATUS
11621  M01S06821.253l688 ---|          LX2    TDMD
11622  M01S06822.253l688 ---|          BX4    X4+X2
11623  M01S06823.253l688 ---| SBS2     SA1    CPAR+/COMSPFS/CPDN
11624  M01S06824.253l688 ---|          SA2    CPAR+/COMSPFS/CPTD
11625  M01S06825.253l688 ---|          BX6    X1-X2
11626  M01S06826.253l688 ---|          NZ     X6,SBS3     IF *DN* AND *TD* NOT EQUAL
11627  M01S06827.253l688 ---|          SX2    B1          SET MATCHING *DN*/*TD* STATUS
11628  M01S06828.253l688 ---|          LX2    DNTD
11629  M01S06829.253l688 ---|          BX4    X4+X2
11630  M01S06830.253l688 ---| SBS3     SA1    CPAR+/COMSPFS/CPDI
11631  M01S06831.253l688 ---|          NZ     X1,SBS4     IF *DI* PARAMETER SPECIFIED
11632  M01S06832.253l688 ---|          SA1    CPAR+/COMSPFS/CPUI
11633  M01S06833.253l688 ---|          ZR     X1,SBS6     IF *UI* PARAMETER NOT SPECIFIED
11634  M01S06834.253l688 ---|          SX6    X1+         SET *DI* = *UI*
11635  M01S06835.253l688 ---|          SA6    CPAR+/COMSPFS/CPDI
11636  M01S06836.253l688 ---| SBS4     SX2    B1          SET *DI* SPECIFIED STATUS
11637  M01S06837.253l688 ---|          LX2    DISP
11638  M01S06838.253l688 ---|          BX4    X4+X2
11639  M01S06839.253l688 ---|          RJ     LUI         LOCATE USER INDEX
11640  M01S06840.253l688 ---|          ZR     X2,SBS8     IF NO DEVICE FOUND FOR *DI*
11641  M01S06841.253l688 ---|          SA1    CPAR+/COMSPFS/CPDN  CHECK IF *DI* CATALOGED ON *DN*
11642  M01S06842.253l688 ---|          MX6    -6          GET DEVICE FOR *DI*
11643  M01S06843.253l688 ---|          BX7    -X6*X2
11644  M01S06844.253l688 ---|          IX1    X1-X7
11645  M01S06845.253l688 ---|          SX2    B1
11646  M01S06846.253l688 ---|          NZ     X1,SBS5     IF *DI* NOT CATALOGED ON *DN*
11647  M01S06847.253l688 ---|          LX2    DIDN        SET *DI* CATALOGED ON *DN* STATUS
11648  M01S06848.253l688 ---|          BX4    X4+X2
11649  M01S06849.253l688 ---| SBS5     SA1    CPAR+/COMSPFS/CPTD  CHECK IF *DI* CATALOGED ON *TD*
11650  M01S06850.253l688 ---|          IX6    X1-X7
11651  M01S06851.253l688 ---|          NZ     X6,SBS6     IF *DI* NOT CATALOGED ON *TD*
11652  M01S06852.253l688 ---|          SX2    B1          SET *DI* CATALOGED ON *TD* STATUS
11653  M01S06853.253l688 ---|          LX2    DITD
11654  M01S06854.253l688 ---|          BX4    X4+X2
11655  M01S06855.253l688 ---| SBS6     SA1    CPAR+/COMSPFS/CPDD
11656  M01S06856.253l688 ---|          ZR     X1,SBS9     IF *DD* NOT SPECIFIED
11657  M01S06857.253l688 ---|          RJ     LDN         LOCATE DESTINATION DEVICE
11658  M01S06858.253l688 ---|          ZR     X2,SBS7     IF DEVICE NOT FOUND
11659  M01S06859.253l688 ---|          SX2    B2          ADD *MSTT* ADDRESS TO *DD* PARAMETER
11660  M01S06860.253l688 ---|          LX2    6
11661  M01S06861.253l688 ---|          BX6    X2+X1
11662  M01S06862.253l688 ---|          SA6    A1
11663  M01S06863.253l688 ---|          EQ     SBS9        SAVE FILE SELECTION PARAMETERS
11664  M01S06864.253l688 ---|
11665  M01S06865.253l688 ---|*         PROCESS DEVICE NOT FOUND ERROR.
11666  M01S06866.253l688 ---|
11667  M01S06867.253l688 ---| SBS7     BX6    X1          SAVE DEVICE NUMBER
11668  M01S06868.253l688 ---|          SA6    MPDN
11669  M01S06869.253l688 ---|          EDITS  PMSD        BUILD DEVICE NOT FOUND MESSAGE
11670  M01S06870.253l688 ---|          SX1    X5          SET MESSAGE ADDRESS
11671  M01S06871.253l688 ---|          EQ     AEP         ABORT DUMP
11672  M01S06872.253l688 ---|          SPACE  4,20
11673  M01S06873.253l688 ---|**        BOOLEAN FILE SELECTION VARIABLES.
11674  M01S06874.253l688 ---|*
11675  M01S06875.253l688 ---|*                A SET OF BOOLEAN VARIABLES DESCRIBING VARIOUS FILE
11676  M01S06876.253l688 ---|*         SELECTION CONDITIONS IS DEFINED BELOW.  EACH VARIABLE IS
11677  M01S06877.253l688 ---|*         GIVEN A SYMBOLIC NAME WHICH IS MNEMONIC OF THE FILE SELECTION
11678  M01S06878.253l688 ---|*         CRITERIA THAT IT REPRESENTS.  FOR EXAMPLE, THE CONDITION
11679  M01S06879.253l688 ---|*         *DEVICE NUMBER PARAMETER WAS SPECIFIED* IS GIVEN THE SYMBOLIC
11680  M01S06880.253l688 ---|*         NAME *DNSP*.  THE SET OF BOOLEAN FILE SELECTION VARIABLES IS
11681  M01S06881.253l688 ---|*         STORED IN A 60 BIT WORD (*BFSP*) WITH EACH VARIABLE BEING
11682  M01S06882.253l688 ---|*         REPRESENTED BY A UNIQUE BIT POSITION WITHIN THE WORD.  THE
11683  M01S06883.253l688 ---|*         BIT NUMBER THAT REPRESENTS A GIVEN BOOLEAN VARIABLE IS
11684  M01S06884.253l688 ---|*         DETERMINED BY THE VALUE ASSIGNED TO THE SYMBOLIC NAME FOR
11685  M01S06885.253l688 ---|*         THAT VARIABLE.  THE BIT WILL BE SET IF THE VARIABLE IS TRUE
11686  M01S06886.253l688 ---|*         AND CLEAR IF THE VARIABLE IS FALSE.
11687  M01S06887.253l688 ---|*
11688  M01S06888.253l688 ---|*                THE DETERMINATION OF THE VALUE (TRUE OR FALSE) OF EACH
11689  M01S06889.253l688 ---|*         BOOLEAN VARIABLE IS DONE BY SUBROUTINE *SBS* (SET BOOLEAN
11690  M01S06890.253l688 ---|*         SELECTION PARAMETERS) BASED ON SELECTION PARAMETERS CONTAINED
11691  M01S06891.253l688 ---|*         IN *CPAR* AND MASS STORAGE TABLE INFORMATION CONTAINED IN
11692  M01S06892.253l688 ---|*         *MSTT*.
11693  M01S06893.253l688 ---|
11694  M01S06894.253l688 ---|
11695  M01S06895.253l688 ---|          LOC    0           SET BIT POSITION OF FIRST BOOLEAN VARIABLE
11696  M01S06896.253l688 ---| DAFO     BSS    1           DIRECT ACCESS FILES ONLY
11697  M01S06897.253l688 ---| DIDN     BSS    1           *DI* CATALOGED ON DEVICE NUMBER
11698  M01S06898.253l688 ---| DISP     BSS    1           *DI* SPECIFIED
11699  M01S06899.253l688 ---| DITD     BSS    1           *DI* CATALOGED ON TRUE DEVICE NUMBER
11700  M01S06900.253l688 ---| DNMD     BSS    1           DEVICE NUMBER SPECIFIES MASTER DEVICE
11701  M01S06901.253l688 ---| DNSP     BSS    1           DEVICE NUMBER SPECIFIED
11702  M01S06902.253l688 ---| DNTD     BSS    1           DEVICE NUMBER SAME AS TRUE DEVICE NUMBER
11703  M01S06903.253l688 ---| FNFS     BSS    1           FORCE NO FILES SELECTED
11704  M01S06904.253l688 ---| IAFO     BSS    1           INDIRECT ACCESS FILES ONLY
11705  M01S06905.253l688 ---| TDMD     BSS    1           TRUE DEVICE NUMBER SPECIFIES MASTER DEVICE
11706  M01S06906.253l688 ---| TDSP     BSS    1           TRUE DEVICE NUMBER SPECIFIED
11707  M01S06907.253l688 ---|          ORG    *O-*
11708  M01S06908.253l688 ---|          SPACE  4,30
11709  M01S06909.253l688 ---|**        FILE SELECTION BOOLEAN EXPRESSIONS.
11710  M01S06910.253l688 ---|*
11711  M01S06911.253l688 ---|*                A SET OF FILE SELECTION BOOLEAN EXPRESSIONS IS DEFINED
11712  M01S06912.253l688 ---|*         BELOW.  EACH EXPRESSION IS GIVEN A SYMBOLIC NAME THAT IS
11713  M01S06913.253l688 ---|*         MNEMONIC OF THE SELECTION CONDITION THAT IT DEFINES.  FOR
11714  M01S06914.253l688 ---|*         EXAMPLE, THE BOOLEAN EXPRESSION FOR DETERMINING THE STATUS OF
11715  M01S06915.253l688 ---|*         THE SINGLE DEVICE FLAG IS GIVEN THE SYMBOLIC NAME *SDFL*.
11716  M01S06916.253l688 ---|*
11717  M01S06917.253l688 ---|*                EACH EXPRESSION IS A FUNCTION OF THE BOOLEAN FILE
11718  M01S06918.253l688 ---|*         SELECTION VARIABLES DEFINED ABOVE AND STORED IN WORD *BFSP*.
11719  M01S06919.253l688 ---|*         THE SYMBOLIC NAME GIVEN AN EXPRESSION IS EQUAL TO THE MEMORY
11720  M01S06920.253l688 ---|*         ADDRESS OF THE INTERNAL CODE FOR THE EXPRESSION.  THIS
11721  M01S06921.253l688 ---|*         ADDRESS CAN BE PASSED TO *EBE* (EVALUATE BOOLEAN EXPRESSION)
11722  M01S06922.253l688 ---|*         ALONG WITH THE VALUES OF THE FILE SELECTION VARIABLES FROM
11723  M01S06923.253l688 ---|*         *BFSP* TO DETERMINE THE VALUE OF AN EXPRESSION.  THE BOOLEAN
11724  M01S06924.253l688 ---|*         VALUE RESULTING FROM EVALUATING AN EXPRESSION CAN THEN BE
11725  M01S06925.253l688 ---|*         USED TO DETERMINE IF A GIVEN ACTION SHOULD BE TAKEN.  FOR
11726  M01S06926.253l688 ---|*         EXAMPLE, IF THE BOOLEAN EXPRESSION *SDFL* MENTIONED ABOVE
11727  M01S06927.253l688 ---|*         EVALUATES AS TRUE, THE SINGLE DEVICE FLAG WOULD BE SET.  IF
11728  M01S06928.253l688 ---|*         IT EVALUATES AS FALSE, THE SINGLE DEVICE FLAG WOULD BE
11729  M01S06929.253l688 ---|*         CLEARED.
11730  M01S06930.253l688 ---|
11731  M01S06931.253l688 ---|
11732  M01S06932.253l688 ---| SDFL     BOOL   (DISP,DNMD,(DNSP,TDMD,-DNTD),(TDSP,-DISP,-DNSP,IAFO))
11733  M01S06933.253l688 ---| NMDN     BOOL   ((DNSP,-DNMD))
11734  M01S06934.253l688 ---| NMTD     BOOL   ((TDSP,DISP,-DITD),(TDSP,DNSP,-DNTD),(TDSP,-TDMD))
11735  M01S06935.253l688 ---| TDSL     BOOL   ((-DISP,-DNSP,TDSP))
11736  M01S06936.253l688 ---| FMDN     BOOL   (DNMD)
11737  M01S06937.253l688 ---| FMTD     BOOL   ((TDMD,-DISP,-DNMD))
11738  M01S06938.253l688 ---| FMDI     BOOL   (DISP)
11739  M01S06939.253l688 ---| NFSL     BOOL   ((DISP,DNMD,-DIDN),(DNSP,-DNMD,TDSP,-TDMD,-DNTD),(IAFO,
11740  M01S06940.253l688 ---|,DNSP,-DNMD),(IAFO,TDSP,-TDMD),(IAFO,TDSP,DISP,-DITD),(IAFO,TDSP,DNSP,-D
11741  M01S06941.253l688 ---|,NTD),(TDMD,DISP,-DITD,DNSP,-DNMD),FNFS)
11742  M01S06942.253l688 ---| SFP      SPACE  4,10
11743  M01S06943.253l688 ---|**        SFP - SET PERMANENT FILE PARAMETERS.
11744  M01S06944.253l688 ---|*
11745  M01S06945.253l688 ---|*         ENTRY  (CPAR) = CRACKED PARAMETER ARRAY.
11746  M01S06946.253l688 ---|*
11747  M01S06947.253l688 ---|*         EXIT   (GPAR - GPAR+2) = ORIGINAL USER PARAMETER VALUES.
11748  M01S06948.253l688 ---|*                PERMANENT FILE PARAMETERS SET IN CONTROL POINT AREA.
11749  M01S06949.253l688 ---|*
11750  M01S06950.253l688 ---|*         USES   X - 1, 2, 3, 6, 7.
11751  M01S06951.253l688 ---|*                A - 1, 2, 6, 7.
11752  M01S06952.253l688 ---|*
11753  M01S06953.253l688 ---|*         MACROS GETPFP, SETPFP.
11754  M01S06954.253l688 ---|
11755  M01S06955.253l688 ---|
11756  M01S06956.253l688 ---| SFP      SUBR               ENTRY/EXIT
11757  M01S06957.253l688 ---|          GETPFP GPAR        GET CURRENT PARAMETERS
11758  M01S06958.253l688 ---|          SA1    GPAR        SET PARAMETER FLAGS IN BLOCK
11759  M01S06959.253l688 ---|          SX6    FMPR+PKPR+UNPR+UIPR
11760  M01S06960.253l688 ---|          BX7    X1+X6
11761  M01S06961.253l688 ---|          SA2    CPAR+/COMSPFS/CPFN  SET FAMILY NAME IN BLOCK
11762  M01S06962.253l688 ---|          SA7    A1
11763  M01S06963.253l688 ---|          SA1    CPAR+/COMSPFS/CPPN  SET PACK NAME IN BLOCK
11764  M01S06964.253l688 ---|          MX3    42
11765  M01S06965.253l688 ---|          BX7    X3*X2
11766  M01S06966.253l688 ---|          ZR     X1,SFP1     IF PACK NAME NOT SPECIFIED
11767  M01S06967.253l688 ---|          SX6    PKPR+UNPR+UIPR

Seq #  *Modification Id* Act 
----------------------------+
11768  M02S06968.253l688 ---| SFP1     SA2    CPAR+/COMSPFS/CPUN  SET USER NUMBER IN BLOCK

Seq #  *Modification Id* Act 
----------------------------+
11769  M02S00252.253l688 ---| SFP1     SA2    CPAR+/COMSPFS/CPUN  SET USER NAME IN BLOCK

Seq #  *Modification Id* Act 
----------------------------+
11770  M01S06969.253l688 ---|          BX6    X7+X6
11771  M01S06970.253l688 ---|          BX7    X3*X1
11772  M01S06971.253l688 ---|          SA6    SPAR
11773  M01S06972.253l688 ---|          SA7    A6+B1
11774  M01S06973.253l688 ---|          BX6    X3*X2
11775  M01S06974.253l688 ---|          SX1    A6          SET PARAMETER BLOCK ADDRESS
11776  M01S06975.253l688 ---|          SA6    A7+B1
11777  M01S06976.253l688 ---|          SETPFP X1          SET PARAMETERS
11778  M01S06977.253l688 ---|          EQ     SFPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
11779  M01S06978.286l859 ---| SLP      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
11780  M01S02135.286l859 +++| SLP      SPACE  4,15
11781  M00S06979.pfdump  +++|**        SLP - SET LABEL PARAMETERS.
11782  M00S06980.pfdump  +++|*
11783  M00S06981.pfdump  +++|*         ENTRY  (CPAR) = CONVERTED PARAMETER ARRAY.

Seq #  *Modification Id* Act 
----------------------------+
11784  M01S06982.286l859 ---|*                (MASK) = DUMP DEVICE MASK.
11785  M01S06983.286l859 ---|*                (FSSD) = SINGLE DEVICE SELECTION STATUS.
11786  M01S06984.286l859 ---|*                (NCAT) = NUMBER OF CATALOG TRACKS.

Seq #  *Modification Id* Act 
----------------------------+
11787  M01S02136.286l859 +++|*                (MASK) = FILE SELECTION MASK.
11788  M00S06985.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
11789  M01S06986.286l859 ---|*         EXIT   DUMP PARAMETERS SET IN LABEL.

Seq #  *Modification Id* Act 
----------------------------+
11790  M01S02137.286l859 +++|*         EXIT   DUMP PARAMETERS SET IN ARCHIVE FILE LABEL.
11791  M00S06987.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
11792  M01S06988.286l859 ---|*         USES   X - 1, 2, 3, 6.
11793  M01S06989.286l859 ---|*                A - 1, 2, 3, 6.
11794  M01S06990.286l859 ---|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
11795  M01S02138.286l859 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
11796  M01S02139.286l859 +++|*                A - 1, 2, 3, 6, 7.
11797  M01S02140.286l859 +++|*                B - 2, 3, 4, 5.
11798  M00S06991.pfdump  +++|*

Seq #  *Modification Id* Act 
----------------------------+
11799  M01S06992.286l859 ---|*         CALLS  COD.

Seq #  *Modification Id* Act 
----------------------------+
11800  M01S02141.286l859 +++|*         CALLS  SFN.
11801  M00S06993.pfdump  +++|*
11802  M00S06994.pfdump  +++|*         MACROS EDATE, ETIME.
11803  M00S06995.pfdump  +++|
11804  M00S06996.pfdump  +++|
11805  M00S06997.pfdump  +++| SLP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
11806  M01S06998.286l859 ---|          SA1    MASK        PUT DUMP MASK IN LABEL

Seq #  *Modification Id* Act 
----------------------------+
11807  M01S02142.286l859 +++|
11808  M01S02143.286l859 +++|*         SET FILE MASK, DATE AND TIME, FAMILY OR PACK NAME, AND
11809  M01S02144.286l859 +++|*         PREVIOUS VSN.
11810  M01S02145.286l859 +++|
11811  M01S02146.286l859 +++|          SA1    MASK        SET FILE SELECTION MASK IN LABEL

Seq #  *Modification Id* Act 
----------------------------+
11812  M01S06999.253l688 ---|          SA2    DMPLBL+2

Seq #  *Modification Id* Act 
----------------------------+
11813  M01S00873.253l688 +++|          SA2    DMPLBL+/COMSPFS/MAAL

Seq #  *Modification Id* Act 
----------------------------+
11814  M01S07000.286l859 ---|          SA3    FSSD        CHECK FOR MULTIPLE DEVICE DUMP
11815  M00S07001.pfdump  +++|          BX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
11816  M01S07002.286l859 ---|          MX2    1
11817  M01S07003.286l859 ---|          NZ     X3,SLP1     IF SINGLE DEVICE DUMP
11818  M01S07004.286l859 ---|          LX2    12-59       SET MULTIPLE DEVICE FLAG
11819  M01S07005.286l859 ---|          BX6    X6+X2
11820  M01S07006.286l859 ---| SLP1     SA6    A2
11821  M01S07007.286l859 ---|          RJ     COD         PUT MASK IN MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
11822  M02S07008.286l859 ---|          SA6    PMSA+2

Seq #  *Modification Id* Act 
----------------------------+
11823  M02S00874.286l859 ---|          SA6    OSPA+2

Seq #  *Modification Id* Act 
----------------------------+
11824  M01S02147.286l859 +++|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
11825  M01S07009.241l630 ---|          SA1    IDSA+/COMSPFS/ADJ1
11826  M01S07010.241l630 ---|          SA6    X1+3

Seq #  *Modification Id* Act 
----------------------------+
11827  M01S07011.253l688 ---|          SA1    DSDT        GET DUMP START DATE

Seq #  *Modification Id* Act 
----------------------------+
11828  M01S00875.253l688 +++|          SA1    /COMSPFS/STDT  GET DUMP START DATE
11829  M00S07012.pfdump  +++|          AX1    18-0
11830  M00S07013.pfdump  +++|          EDATE  X1

Seq #  *Modification Id* Act 
----------------------------+
11831  M01S07014.253l688 ---|          SA6    DMPLBL+3    PUT DATE IN LABEL
11832  M01S07015.253l688 ---|          SA6    PMSC+1      PUT DATE IN DISPLAY MESSAGES
11833  M01S07016.253l688 ---|          SA6    HDTR

Seq #  *Modification Id* Act 
----------------------------+
11834  M02S07017.253l688 ---|          SA1    IDSA+/COMSPFS/ADJ2
11835  M02S07018.253l688 ---|          SA6    X1+B1

Seq #  *Modification Id* Act 
----------------------------+
11836  M01S07019.253l688 ---|          SA1    DSDT        GET DUMP START TIME

Seq #  *Modification Id* Act 
----------------------------+
11837  M01S00876.253l688 +++|          SA6    DMPLBL+/COMSPFS/DAAL  SET DATE IN LABEL
11838  M01S00877.253l688 +++|          SA1    /COMSPFS/STDT  GET DUMP START TIME
11839  M00S07020.pfdump  +++|          MX2    -18
11840  M00S07021.pfdump  +++|          BX1    -X2*X1
11841  M00S07022.pfdump  +++|          ETIME  X1

Seq #  *Modification Id* Act 
----------------------------+
11842  M01S07023.253l688 ---|          SA6    DMPLBL+4    PUT TIME IN LABEL
11843  M01S07024.253l688 ---|          SA6    PMSC+2      PUT TIME IN DISPLAY MESSAGES
11844  M01S07025.253l688 ---|          SA6    HTMR

Seq #  *Modification Id* Act 
----------------------------+
11845  M02S07026.253l688 ---|          SA1    IDSA+/COMSPFS/ADJ2
11846  M02S07027.253l688 ---|          SA6    X1+3

Seq #  *Modification Id* Act 
----------------------------+
11847  M01S07028.253l688 ---|          SA1    DMPLBL      BOOLEAN IN NUMBER OF CATALOG TRACKS

Seq #  *Modification Id* Act 
----------------------------+
11848  M01S00878.253l688 +++|          SA6    DMPLBL+/COMSPFS/TIAL  SET TIME IN LABEL

Seq #  *Modification Id* Act 
----------------------------+
11849  M02S00879.286l859 ---|          SA1    DMPLBL+/COMSPFS/PFAL

Seq #  *Modification Id* Act 
----------------------------+
11850  M01S07029.286l859 ---|          SA2    NCAT

Seq #  *Modification Id* Act 
----------------------------+
11851  M02S07030.286l859 ---|          BX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
11852  M02S00880.286l859 ---|          BX6    X1+X2       MERGE NUMBER OF CATALOG TRACKS

Seq #  *Modification Id* Act 
----------------------------+
11853  M01S07031.286l859 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
11854  M01S00881.253l688 +++|          SA1    CPAR+/COMSPFS/CPFN
11855  M01S00882.253l688 +++|          SA2    CPAR+/COMSPFS/CPPN
11856  M01S00883.253l688 +++|          BX6    X1
11857  M01S00884.253l688 +++|          BX7    X2
11858  M01S00885.253l688 +++|          SA6    DMPLBL+/COMSPFS/FMAL  SET FAMILY NAME IN LABEL
11859  M01S00886.253l688 +++|          SA7    DMPLBL+/COMSPFS/PNAL  SET PACK NAME IN LABEL

Seq #  *Modification Id* Act 
----------------------------+
11860  M01S00005.ns2223  +++|          SA1    CPAR+/COMSPFS/CPPV  PUT PREVIOUS VSN IN LABEL
11861  M01S00006.ns2223  +++|          RJ     SFN

Seq #  *Modification Id* Act 
----------------------------+
11862  M02S00007.253l688 ---|          SA6    DMPV

Seq #  *Modification Id* Act 
----------------------------+
11863  M01S07032.253l688 ---|
11864  M01S07033.253l688 ---|*         MOVE OPTIONS TO LABEL.
11865  M01S07034.253l688 ---|
11866  M01S07035.253l688 ---|          SB2    /COMSPFS/CPTAL-1  SET OPTION TABLE LENGTH - 1
11867  M01S07036.253l688 ---| SLP2     SA1    CPAR+B2     MOVE OPTION TO LABEL
11868  M01S07037.253l688 ---|          BX6    X1
11869  M01S07038.253l688 ---|          SB2    B2-B1
11870  M01S07039.253l688 ---|          SA6    DMPLBL+6+B2
11871  M01S07040.253l688 ---|          GE     B2,SLP2     IF NOT END OF OPTIONS

Seq #  *Modification Id* Act 
----------------------------+
11872  M01S00887.253l688 +++|          SA6    DMPLBL+/COMSPFS/PVAL

Seq #  *Modification Id* Act 
----------------------------+
11873  M01S07041.286l859 ---|          EQ     SLPX        RETURN
11874  M01S07042.286l859 ---| SMP      SPACE  4,20
11875  M01S07043.286l859 ---|**        SMP - SET MASTER DEVICE PARAMETERS.
11876  M01S07044.286l859 ---|*
11877  M01S07045.286l859 ---|*         ENTRY  (FSSD) = SINGLE DEVICE SELECTION STATUS.
11878  M01S07046.286l859 ---|*                (MSTT) = MASS STORAGE TABLE.
11879  M01S07047.286l859 ---|*
11880  M01S07048.286l859 ---|*         EXIT   (MASK) = DEVICE DUMP MASK.
11881  M01S07049.286l859 ---|*                (PDWD) = PF DESCRIPTION WORD FOR FAMILY OR AUXILIARY
11882  M01S07050.286l859 ---|*                         DEVICE BEING DUMPED.
11883  M01S07051.286l859 ---|*                (NCAT) = NUMBER OF CATALOG TRACKS FOR FIRST DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
11884  M02S00605.286l859 ---|*                NON-ZERO DEVICE MASKS AND NUMBER OF CATALOG TRACKS

Proceed to Part 11