User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:msi.001

Deck MSI Part 001

8 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
02007  M00S01992.msi     +++|*                A - 1, 2, 4, 6.
02008  M00S01993.msi     +++|*                B - 3, 4.
02009  M00S01994.msi     +++|*
02010  M00S01995.msi     +++|*         MACROS SYSTEM.
02011  M00S01996.msi     +++|
02012  M00S01997.msi     +++|
02013  M00S01998.msi     +++| EDD      SUBR               ENTRY/EXIT
02014  M00S01999.msi     +++|          SA1    ESTF+B7     SET IMS PARAMETER WORD
02015  M00S02000.msi     +++|          MX0    -8
02016  M00S02001.msi     +++|          SB3    -B1
02017  M00S02002.msi     +++|          SA4    X1+PUGL
02018  M00S02003.msi     +++|          BX0    -X0*X4      EXTRACT DEVICE MASK
02019  M00S02004.msi     +++|          LX0    59-11
02020  M00S02005.msi     +++|          ZR     X0,EDDX     IF NOT MASTER DEVICE
02021  M00S02006.msi     +++|          SB0    0
02022  M00S02007.msi     +++| EDD1     SB3    B3+B1
02023  M00S02008.msi     +++|          SB4    ESMX
02024  M00S02009.msi     +++|          SX5    B3
02025  M00S02010.msi     +++|          EQ     B3,B4,EDDX  IF END OF EQUIPMENTS
02026  M00S02011.msi     +++|          SA1    ESTF+B3
02027  M00S02012.msi     +++|          ZR     X1,EDD1     IF NO ENTRY
02028  M00S02013.msi     +++|          EQ     B3,B7,EDD1  IF EQUIPMENT BEING INITIALIZED
02029  M00S02014.msi     +++|          LX5    47-11
02030  M00S02015.msi     +++|          SA2    X1+STLL
02031  M00S02016.msi     +++|          MX4    60-LIPF
02032  M00S02017.msi     +++|          BX2    X4*X2
02033  M00S02018.msi     +++|          BX6    X0+X5
02034  M00S02019.msi     +++|          NZ     X2,EDD1     IF FULL OR *PF* INITIALIZE SET
02035  M00S02020.msi     +++|          SA6    EDPA
02036  M00S02021.msi     +++|          SYSTEM IMS,R,EDPA,EDT    EDIT TRT ON DEVICE
02037  M00S02022.msi     +++|          EQ     EDD1        LOOP FOR NEXT EQUIPMENT
02038  M00S02023.msi     +++|
02039  M00S02024.msi     +++| EDPA     CON    0           12/MASK, 12/EQ, 36/0
02040  M00S02025.msi     +++|
02041  M00S02026.msi     +++| ECT      SPACE  4,10
02042  M00S02027.msi     +++|**        ECT - EDIT CATALOGS.
02043  M00S02028.msi     +++|*
02044  M00S02029.msi     +++|*         ENTRY  (B6) = DEVICE NUMBER.
02045  M00S02030.msi     +++|*                (B7) = EST ORDINAL.
02046  M00S02031.msi     +++|*
02047  M00S02032.msi     +++|*         EXIT   (B6) (B7) UNCHANGED.
02048  M00S02033.msi     +++|*
02049  M00S02034.msi     +++|*         USES   ALL BUT B6 AND B7
02050  M00S02035.msi     +++|*
02051  M00S02036.msi     +++|*         CALLS  OPC, RDC, SCT, SFF, WTC.
02052  M00S02037.msi     +++|*
02053  M00S02038.msi     +++|*         MACROS CALLPFU, MESSAGE, RECALL, RETURN, SYSTEM.
02054  M00S02039.msi     +++|
02055  M00S02040.msi     +++|
02056  M00S02041.msi     +++| ECT      SUBR               ENTRY/EXIT
02057  M00S02042.msi     +++|          RETURN CATS,R
02058  M00S02043.msi     +++|          SB5    ESTF-1
02059  M00S02044.msi     +++|          NZ     B6,ECT1     IN DEVICE NUMBER .NE. 0
02060  M00S02045.msi     +++|          MESSAGE  MESD      * INTERNAL ERROR IN MSI.*
Line S02046 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02061  M01S02046.253l688 ---|          EQ     ABT         ABORT *MSI*
Line S00013 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02062  M01S00013.253l688 +++|          RJ     ABT         ABORT *MSI*
02063  M00S02047.msi     +++|
02064  M00S02048.msi     +++| ECT1     SB4    B5-ESTF-ESMX+1
02065  M00S02049.msi     +++|          ZR     B4,ECTX     IF END FAMILY
02066  M00S02050.msi     +++|          SA1    B5+B1
02067  M00S02051.msi     +++|          SB5    B5+B1
02068  M00S02052.msi     +++|          ZR     X1,ECT1     IF EMPTY LINK
02069  M00S02053.msi     +++|          SA3    X1+ALGL
02070  M00S02054.msi     +++|          SA5    X1+PUGL
02071  M00S02055.msi     +++|          MX0    -8
02072  M00S02056.msi     +++|          MX2    -12
02073  M00S02057.msi     +++|          SA4    X1+STLL
02074  M00S02058.msi     +++|          LX3    -12
02075  M00S02059.msi     +++|          BX7    -X0*X5      DEVICE MASK
02076  M00S02060.msi     +++|          MX0    60-LIPF
02077  M00S02061.msi     +++|          BX6    -X2*X3      MASK CATALOG TRACK COUNT
02078  M00S02062.msi     +++|          ZR     X7,ECT1     IF NOT MASTER DEVICE
02079  M00S02063.msi     +++|          SA6    CNT         SAVE CATALOG TRACK COUNT
02080  M00S02064.msi     +++|          BX4    X0*X4
02081  M00S02065.msi     +++|          SA5    X1+PFGL
02082  M00S02066.msi     +++|          NZ     X4,ECT1     IF FULL OR *PF* INITIALIZE SET
02083  M00S02067.msi     +++|          RJ     OCT         OPEN CATALOG
02084  M00S02068.msi     +++| ECT2     RJ     RDC         READ CATALOG ENTRIES
02085  M00S02069.msi     +++|          RJ     SFF         SEARCH FOR FILES AND DELETE
02086  M00S02070.msi     +++|          ZR     X6,ECT3     IF NO FILES DELETED
02087  M00S02071.msi     +++|          RJ     WTC         REWRITE UPDATED CATALOG
02088  M00S02072.msi     +++| ECT3     PL     X7,ECT2     IF NOT END OF CATALOG TRACK
02089  M00S02073.msi     +++|          RJ     ACT         ADVANCE TO NEXT CATALOG TRACK
02090  M00S02074.msi     +++|          PL     X7,ECT2     IF NOT END OF CATALOG TRACKS
02091  M00S02075.msi     +++|          SA1    CATS        DROP *PFU*
02092  M00S02076.msi     +++|          SX7    10B
02093  M00S02077.msi     +++|          MX0    42
02094  M00S02078.msi     +++|          BX6    X0*X1
02095  M00S02079.msi     +++|          BX7    X7+X6       SET FUNCTION TO DROP *PFU*
02096  M00S02080.msi     +++|          SA7    A1
02097  M00S02081.msi     +++|          RECALL A1          WAIT FOR PFU TO COMPLETE
02098  M00S02082.msi     +++|          CALLPFU UIFT,CTCU,R CLEAR UTILITY INTERLOCK
02099  M00S02083.msi     +++|          RETURN CATS
02100  M00S02084.msi     +++|          EQ     ECT1        LOOP FOR NEXT EQUIPMENT
Line S02085 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02101  M01S02085.253l688 ---|
02102  M01S02086.253l688 ---|*         RELEASE *PFU* IF ABORT OCCURS.
02103  M01S02087.253l688 ---|
02104  M01S02088.253l688 ---| ABT      SYSTEM IMS,R,B1,CIT CLEAR *CMS* INTERLOCK
02105  M01S02089.253l688 ---|          SB3    B0
02106  M01S02090.253l688 ---|          SB5    ESMX
02107  M01S02091.253l688 ---| ABT0     SA2    ESTF+B3     CHECK FOR ISD INTERLOCK
02108  M01S02092.253l688 ---|          LX2    59-58
02109  M01S02093.253l688 ---|          PL     X2,ABT0.1   IF EQUIPMENT NOT INTERLOCKED
02110  M01S02094.253l688 ---|          SX6    B3          SET EST ORDINAL
02111  M01S02095.253l688 ---|          LX6    48
Line S00014 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02112  M01S00014.253l688 +++| ABT      SPACE  4,10
02113  M01S00015.253l688 +++|**        ABT - ABORT JOB.
02114  M01S00016.253l688 +++|*
02115  M01S00017.253l688 +++|*         USES   X - 0, 1, 2, 6, 7.
02116  M01S00018.253l688 +++|*                A - 1, 2, 6, 7.
02117  M01S00019.253l688 +++|*                B - 3, 5.
02118  M01S00020.253l688 +++|*
02119  M01S00021.253l688 +++|*         MACROS ABORT, CALLPFU, MESSAGE, RECALL, ROUTE, SYSTEM.
02120  M01S00022.253l688 +++|
02121  M01S00023.253l688 +++|
02122  M01S00024.253l688 +++| ABT      SUBR               ENTRY
02123  M01S00025.253l688 +++| ABT1     SA1    SSID
02124  M01S00026.253l688 +++|          SX1    X1-DSSI
02125  M01S00027.253l688 +++|          NZ     X1,ABT2     IF NOT DEADSTART SEQUENCING
02126  M01S00028.253l688 +++|          MESSAGE  MESL
02127  M01S00029.253l688 +++| +        EQ     *           HANG
02128  M01S00030.253l688 +++|
02129  M01S00031.253l688 +++| ABT2     SYSTEM IMS,R,B1,CIT CLEAR *CMS* INTERLOCK
02130  M01S00032.253l688 +++|          SB3    0
02131  M01S00033.253l688 +++|          SB5    ESMX
02132  M01S00034.253l688 +++| ABT3     SA2    ESTF+B3     CHECK FOR ISD INTERLOCK
02133  M01S00035.253l688 +++|          LX2    59-58
02134  M01S00036.253l688 +++|          PL     X2,ABT4     IF EQUIPMENT NOT INTERLOCKED
02135  M01S00037.253l688 +++|          SX6    B3
02136  M01S00038.253l688 +++|          LX6    48          SET EST ORDINAL
02137  M00S02096.msi     +++|          SA6    CIRB
02138  M00S02097.msi     +++|          SYSTEM IMS,R,CIRB,ISD  CLEAR DEVICE INTERLOCK
02139  M00S02098.msi     +++|          SA1    CIRB
Line S02099 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02140  M01S02099.253l688 ---|          PL     X1,ABT0     IF INTERLOCK NOT CLEARED
02141  M01S02100.253l688 ---| ABT0.1   SB3    B3+B1
02142  M01S02101.253l688 ---|          LT     B3,B5,ABT0  IF NOT END OF EQUIPMENTS
02143  M01S02102.253l688 ---|          SA1    CATS        CHECK *PFU* ACTIVITY
02144  M01S02103.253l688 ---|          SA2    PFUF
Line S00039 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02145  M01S00039.253l688 +++|          PL     X1,ABT3     IF INTERLOCK NOT CLEARED
02146  M01S00040.253l688 +++| ABT4     SB3    B3+1
02147  M01S00041.253l688 +++|          LT     B3,B5,ABT3  IF NOT END OF EQUIPMENTS
02148  M01S00042.253l688 +++|          SA2    PFUF
02149  M01S00043.253l688 +++|          SA1    CATS        CHECK *PFU* ACTIVITY
02150  M00S02104.msi     +++|          SX7    10B
02151  M00S02105.msi     +++|          MX0    42
Line S02106 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02152  M01S02106.253l688 ---|          ZR     X2,ABT1     IF *PFU* NOT ACTIVE
Line S00044 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02153  M01S00044.253l688 +++|          ZR     X2,ABT5     IF *PFU* NOT ACTIVE
02154  M00S02107.msi     +++|          BX6    X0*X1
02155  M00S02108.msi     +++|          BX7    X7+X6
02156  M00S02109.msi     +++|          SA7    A1
02157  M00S02110.msi     +++|          RECALL A1          WAIT FOR PFU TO COMPLETE
Line S02111 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02158  M01S02111.253l688 ---| ABT1     SA1    UIFL        CHECK UTILITY INTERLOCK
02159  M01S02112.253l688 ---|          ZR     X1,ABT2     IF NOT SET
02160  M01S02113.253l688 ---|          SA1    UIFT        FORCE FET COMPLETE
02161  M01S02114.253l688 ---|          SX2    B1
Line S00045 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02162  M01S00045.253l688 +++| ABT5     SA1    UIFL
02163  M01S00046.253l688 +++|          ZR     X1,ABT6     IF UTILITY INTERLOCK NOT SET
02164  M01S00047.253l688 +++|          SA1    UIFT
02165  M01S00048.253l688 +++|          SX2    B1          FORCE FET COMPLETE
02166  M00S02115.msi     +++|          BX6    X1+X2
02167  M00S02116.msi     +++|          SA6    A1
02168  M00S02117.msi     +++|          CALLPFU A1,CTCU,R  CLEAR UTILITY INTERLOCK
Line S02118 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02169  M01S02118.253l688 ---| ABT2     MESSAGE  MESB      * MSI ABORTED INITIALIZE MAY NOT BE
Line S00049 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02170  M01S00049.253l688 +++| ABT6     MESSAGE  MESB      * MSI ABORTED INITIALIZE MAY NOT BE
02171  M00S02119.msi     +++|*                            COMPLETE.*
02172  M00S02120.msi     +++|          SYSTEM DMD,R,RFL=
Line S00050 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02173  M01S00050.253l688 +++|          SETFS  OUTPUT,0    CHANGE FILE STATUS FOR SSJ= OUTPUT
02174  M00S02121.msi     +++|          ROUTE  ABTA,R
02175  M00S02122.msi     +++|          ABORT              ABORT *MSI*
02176  M00S02123.msi     +++|
02177  M00S02124.msi     +++|
02178  M00S02125.msi     +++|*         ROUTE BLOCK FOR MEMORY DUMP.
02179  M00S02126.msi     +++|
02180  M00S02127.msi     +++| ABTA     VFD    42/0LOUTPUT,18/0
02181  M00S02128.msi     +++|          VFD    24/0,12/2HLP,6/0,18/FRCS+FRDC
02182  M00S02129.msi     +++|          BSS    DPBL-2
02183  M00S02130.msi     +++| OCT      SPACE  4,10
02184  M00S02131.msi     +++|**        OCT - OPEN CATALOG.
02185  M00S02132.msi     +++|*
02186  M00S02133.msi     +++|*         ENTRY  (B5) = ESTF POINTER.
02187  M00S02134.msi     +++|*                (B6) = DEVICE NUMBER.
02188  M00S02135.msi     +++|*                (B7) = EST ORDINAL.
02189  M00S02136.msi     +++|*                (X5) = *PFGL* WORD OF MST.
02190  M00S02137.msi     +++|*                (X7) = DEVICE MASK.
02191  M00S02138.msi     +++|*
02192  M00S02139.msi     +++|*         EXIT   B5, B6, B7, NOT CHANGED.
02193  M00S02140.msi     +++|*                CATALOG OPENED AND *PFU* ACTIVE.
02194  M00S02141.msi     +++|*                CATS FET NOT BUSY.
02195  M00S02142.msi     +++|*
02196  M00S02143.msi     +++|*         USES   ALL BUT B5, B6, B7.
02197  M00S02144.msi     +++|*
02198  M00S02145.msi     +++|*         MACROS CALLPFU, RECALL.
02199  M00S02146.msi     +++|
02200  M00S02147.msi     +++|
02201  M00S02148.msi     +++| OCT      SUBR               ENTRY/EXIT
02202  M00S02149.msi     +++|          MX0    -6
02203  M00S02150.msi     +++|          AX5    12
02204  M00S02151.msi     +++|          BX3    -X0*X5
02205  M00S02152.msi     +++|          SB2    X3          SAVE DN OF THIS EQIPMENT
02206  M00S02153.msi     +++|          LX5    12
02207  M00S02154.msi     +++|          SB4    7
02208  M00S02155.msi     +++|          LX7    59-7
02209  M00S02156.msi     +++| OCT1     MI     X7,OCT2     IF MASK BIT SET
02210  M00S02157.msi     +++|          LX7    1
02211  M00S02158.msi     +++|          SB4    B4-B1
02212  M00S02159.msi     +++|          EQ     OCT1        FORM USER NAME FOR THIS DEVICE
02213  M00S02160.msi     +++|
02214  M00S02161.msi     +++| OCT2     MX0    42
02215  M00S02162.msi     +++|          SX7    B5-ESTF     EQ NUMBER
02216  M00S02163.msi     +++|          SA7    SCRB        PF DESCRIPTION (42/0, 6/, 12/ EST ORDINAL)
02217  M00S02164.msi     +++|          SX6    B4          SAVE USER INDEX
02218  M00S02165.msi     +++|          SA6    A7+B1
02219  M00S02166.msi     +++|          SX1    A7          SET ADDRESS OF PF DESCRIPTION
02220  M00S02167.msi     +++|          SX2    A6          SET ADDRESS OF USER INDEX
02221  M00S02168.msi     +++|          LX1    18
02222  M00S02169.msi     +++|          BX7    X1+X2
02223  M00S02170.msi     +++|          SA7    CATS+FTPM
02224  M00S02171.msi     +++|          CALLPFU CATS,CTCT,R GET CATALOG TRACK PARAMETERS
02225  M00S02172.msi     +++|
02226  M00S02173.msi     +++|*         OPEN CATALOG FILE.
02227  M00S02174.msi     +++|
02228  M00S02175.msi     +++|          SX2    5           FILE STATUS
02229  M00S02176.msi     +++|          SA1    CATS+FTPM   GET CATALOG TRACK PARAMETERS
02230  M00S02177.msi     +++|          MX0    -24
02231  M00S02178.msi     +++|          BX1    -X0*X1      SET EST ORDINAL AND FIRST TRACK
02232  M00S02179.msi     +++|          MX0    -12
02233  M00S02180.msi     +++|          BX6    -X0*X1      SET CURRENT TRACK
02234  M00S02181.msi     +++|          LX1    36
02235  M00S02182.msi     +++|          BX2    X2+X1       BUILD CATALOG TRACK FST ENTRY
02236  M00S02183.msi     +++|          LX6    24
02237  M00S02184.msi     +++|          BX7    X2+X6
02238  M00S02185.msi     +++|          SA7    A1
02239  M00S02186.msi     +++|          BX6    X6-X6       CLEAR SECTOR COUNT
02240  M00S02187.msi     +++|          SA6    CATS+FTSC
02241  M00S02188.msi     +++|          CALLPFU CATS,CTOP,R OPEN CATALOG FILE
02242  M00S02189.msi     +++|
02243  M00S02190.msi     +++|*         SET UTILITY INTERLOCK ON DEVICE.
02244  M00S02191.msi     +++|
02245  M00S02192.msi     +++|          SX7    B5-ESTF     SET EQUIPMENT TO INTERLOCK
02246  M00S02193.msi     +++|          SX2    UIFL        SET INTERLOCK FLAG ADDRESS
02247  M00S02194.msi     +++|          LX7    48
02248  M00S02195.msi     +++|          BX6    X7+X2
02249  M00S02196.msi     +++|          SA6    UIFT+FTPM
02250  M00S02197.msi     +++|          CALLPFU UIFT,CTSU,R SET PF UTILITY INTERLOCK
02251  M00S02198.msi     +++|
02252  M00S02199.msi     +++|*         ACTIVATE PFU LOAD PROCESSOR.
02253  M00S02200.msi     +++|
02254  M00S02201.msi     +++|          SA1    CATS        CLEAR CATS FET STATUS
02255  M00S02202.msi     +++|          SX7    B2          SET MASTER DEVICE NUMBER
02256  M00S02203.msi     +++|          MX2    42
02257  M00S02204.msi     +++|          SX3    PFUF        SET ADDRESS OF PFU ACTIVE FLAG
02258  M00S02205.msi     +++|          LX7    54
02259  M00S02206.msi     +++|          BX6    X7+X3
02260  M00S02207.msi     +++|          SA6    CATS+FTPM
02261  M00S02208.msi     +++|          BX1    X2*X1
02262  M00S02209.msi     +++|          SX2    B1          SET CATS FET COMPLETE
02263  M00S02210.msi     +++|          BX7    X1+X2
02264  M00S02211.msi     +++|          SA7    A1
02265  M00S02212.msi     +++|
02266  M00S02213.msi     +++|*         IT IS NECESSARY TO DO A SEPARATE RECALL ON CATS RATHER THAN
02267  M00S02214.msi     +++|*         CALLING THE CTLM PROCESSOR OF PFU WITH AUTO RECALL SINCE PFU
02268  M00S02215.msi     +++|*         STAYS AT THE CONTROL POINT AFTER INITIALIZING THE CTLM
02269  M00S02216.msi     +++|*         PROCESSOR AND SETTING THE FET COMPLETE BUT DOES NOT RESTART
02270  M00S02217.msi     +++|*         THE CPU.
02271  M00S02218.msi     +++|
02272  M00S02219.msi     +++|          CALLPFU CATS,CTLM  ACTIVATE PFU LOAD PROCESSOR
02273  M00S02220.msi     +++|          RECALL CATS        WAIT FOR PFU TO INITIALIZE
02274  M00S02221.msi     +++|          EQ     OCTX        EXIT
02275  M00S02222.msi     +++|
02276  M00S02223.msi     +++|
02277  M00S02224.msi     +++| ACT      SPACE  4,10
02278  M00S02225.msi     +++|**        ACT - ADVANCE CATALOG TRACK.
02279  M00S02226.msi     +++|*
02280  M00S02227.msi     +++|*         ENTRY  (B5) = ESTF POINTER.
02281  M00S02228.msi     +++|*                (B6) = DEVICE NUMBER.
02282  M00S02229.msi     +++|*                (B7) = EST ORDINAL.
02283  M00S02230.msi     +++|*                CATS FET NOT BUSY.
02284  M00S02231.msi     +++|*
02285  M00S02232.msi     +++|*         EXIT   B5,B6,B7 UNCHANGED.
02286  M00S02233.msi     +++|*                (X7) = 0 CATALOG TRACK ADVANCED.
02287  M00S02234.msi     +++|*                (X7) .LT. 0 END OF CATALOG TRACKS.
02288  M00S02235.msi     +++|*                CATS FET NOT BUSY.
02289  M00S02236.msi     +++|*
02290  M00S02237.msi     +++|*         USES   X - 0, 1, 2, 3, 6, 7.
02291  M00S02238.msi     +++|*                A - 1, 2, 6, 7.
02292  M00S02239.msi     +++|*
02293  M00S02240.msi     +++|*         MACROS RECALL.
02294  M00S02241.msi     +++|
02295  M00S02242.msi     +++|
02296  M00S02243.msi     +++| ACT      SUBR               ENTRY/EXIT
02297  M00S02244.msi     +++|          SA1    CNT
02298  M00S02245.msi     +++|          SX6    X1-1
02299  M00S02246.msi     +++|          SA6    A1
02300  M00S02247.msi     +++|
02301  M00S02248.msi     +++|*         ADVANCE TO NEXT CATALOG TRACK
02302  M00S02249.msi     +++|
02303  M00S02250.msi     +++| ACT1     SA2    SCRB+1      18/UI
02304  M00S02251.msi     +++|          SX7    X2+10B
02305  M00S02252.msi     +++|          SA7    A2          18/NEXT UI
02306  M00S02253.msi     +++|          SX0    A7-B1
02307  M00S02254.msi     +++|          SX7    A7
02308  M00S02255.msi     +++|          LX0    18
02309  M00S02256.msi     +++|          BX7    X0+X7       18/SCR,18/SCR+1
02310  M00S02257.msi     +++|          SA1    CATS+1      REWIND BUFFER
02311  M00S02258.msi     +++|          SA2    A1-B1       SET POSITION FUNCTION CODE IN FET
02312  M00S02259.msi     +++|          SA7    CATS+FTCA
02313  M00S02260.msi     +++|          MX3    42
02314  M00S02261.msi     +++|          SX6    X1
02315  M00S02262.msi     +++|          BX7    X7-X7       CLEAR SECTOR COUNTER
02316  M00S02263.msi     +++|          SA6    A1+B1
02317  M00S02264.msi     +++|          SA7    CATS+FTSC
02318  M00S02265.msi     +++|          BX7    X3*X2
02319  M00S02266.msi     +++|          SA6    A6+B1
02320  M00S02267.msi     +++|          SA7    A2          ISSUE FILE POSITION REQUEST
02321  M00S02268.msi     +++|          RECALL A2          WAIT FOR *PFU* TO PROCESS REQUEST
02322  M00S02269.msi     +++|          SA1    CNT         CHECK IF END OF CATALOG TRACKS
02323  M00S02270.msi     +++|          MX7    1
02324  M00S02271.msi     +++|          ZR     X1,ACTX     IF END OF CATALOG TRACKS
02325  M00S02272.msi     +++|          MX7    0
02326  M00S02273.msi     +++|          EQ     ACTX        RETURN
02327  M00S02274.msi     +++| RDC      SPACE  4,10
02328  M00S02275.msi     +++|**        RDC - READ CATALOG.
02329  M00S02276.msi     +++|*
02330  M00S02277.msi     +++|*         ENTRY  (B5) = ESTF POINTER.
02331  M00S02278.msi     +++|*                (B6) = DEVICE NUMBER.
02332  M00S02279.msi     +++|*                (B7) = EST ORDINAL.
02333  M00S02280.msi     +++|*
02334  M00S02281.msi     +++|*         EXIT   B5,B6,B7 UNCHANGED.
02335  M00S02282.msi     +++|*                CATALOGS READ INTO CATS BUFFER.
02336  M00S02283.msi     +++|*                CATS FET NOT BUSY.
02337  M00S02284.msi     +++|*
02338  M00S02285.msi     +++|*         USES   X - 0, 1, 2, 3, 6, 7.
02339  M00S02286.msi     +++|*                A - 1, 3, 6, 7.
02340  M00S02287.msi     +++|*
02341  M00S02288.msi     +++|*         MACROS RECALL.
02342  M00S02289.msi     +++|
02343  M00S02290.msi     +++|
02344  M00S02291.msi     +++| RDC      SUBR               ENTRY/EXIT
02345  M00S02292.msi     +++|          SA1    CATS
02346  M00S02293.msi     +++|          MX0    42
02347  M00S02294.msi     +++|          BX6    X0*X1
02348  M00S02295.msi     +++|          SX2    4           READ FUNCTION
02349  M00S02296.msi     +++|          BX6    X6+X2
02350  M00S02297.msi     +++|          SA3    A1+B1       GET FIRST
02351  M00S02298.msi     +++|          BX7    -X0*X3
02352  M00S02299.msi     +++|          SA7    A3+B1       RESET IN AND OUT
02353  M00S02300.msi     +++|          SA7    A7+B1
02354  M00S02301.msi     +++|          SA6    A1          SET FUNCTION
02355  M00S02302.msi     +++|          RECALL CATS
02356  M00S02303.msi     +++|          MX7    0
02357  M00S02304.msi     +++|          SA7    CATS+FTSC   CLEAR SECTOR COUNT
02358  M00S02305.msi     +++|          EQ     RDCX        RETURN
02359  M00S02306.msi     +++| SFF      SPACE  4,20
02360  M00S02307.msi     +++|**        SFF - SEARCH FOR FILES.
02361  M00S02308.msi     +++|*
02362  M00S02309.msi     +++|*         ENTRY  (B5) = ESTF POINTER.
02363  M00S02310.msi     +++|*                (B6) = DEVICE NUMBER.
02364  M00S02311.msi     +++|*                (B7) = EST ORDINAL.
02365  M00S02312.msi     +++|*
02366  M00S02313.msi     +++|*         EXIT   B5,B6,B7 UNCHANGED.
02367  M00S02314.msi     +++|*                (X6) = 0 IF CATALOG NOT CHANGED.
02368  M00S02315.msi     +++|*                (X7) .LT. 0 IF EOI ENCOUNTERED.
02369  M00S02316.msi     +++|*                CATALOG ENTRIES (PFC-S) THAT POINT TO FILES ON
02370  M00S02317.msi     +++|*                SPECIFIED DEVICE ARE CHANGED AS FOLLOWS.
02371  M00S02318.msi     +++|*                1. IF PFC HAS VALID ALTERNATE STORAGE ADDRESS (ASA),
02372  M00S02319.msi     +++|*                THE DISK ADDRESS IS CLEARED.
02373  M00S02320.msi     +++|*                2. IF THE PFC HAS NO ASA, THEN THE PFC IS DELETED
02374  M00S02321.msi     +++|*                BY CLEARING THE USER INDEX.
02375  M00S02322.msi     +++|*
02376  M00S02323.msi     +++|*         USES   X - 0, 1, 2, 4, 6, 7.
02377  M00S02324.msi     +++|*                A - 1, 2, 4, 7.
02378  M00S02325.msi     +++|*                B - 3, 4.
02379  M00S02326.msi     +++|
02380  M00S02327.msi     +++|
02381  M00S02328.msi     +++| SFF      SUBR               ENTRY/EXIT
02382  M00S02329.msi     +++|          SX7    B0
02383  M00S02330.msi     +++|          SX6    B0
02384  M00S02331.msi     +++|          SA1    CATS+2      IN
02385  M00S02332.msi     +++|          SA2    CATS+1      FIRST
02386  M00S02333.msi     +++|          SX0    177B
02387  M00S02334.msi     +++|          SA2    X2
02388  M00S02335.msi     +++|          BX0    X0*X2       CHECK FOR EMPTY SECTOR
02389  M00S02336.msi     +++|          NZ     X0,SFF1     IF NOT EMPTY
02390  M00S02337.msi     +++|          MX7    1
02391  M00S02338.msi     +++|          EQ     SFFX        EXIT
02392  M00S02339.msi     +++|
02393  M00S02340.msi     +++| SFF1     SB4    CATB+1
02394  M00S02341.msi     +++|          SB3    X0          WORDS IN SECTOR
02395  M00S02342.msi     +++|          MX0    -6
02396  M00S02343.msi     +++|          SX1    B1          SET WRITE WITHOUT EOI FLAG
02397  M00S02344.msi     +++|          LX1    53-0
02398  M00S02345.msi     +++|          BX7    X1+X2
02399  M00S02346.msi     +++|          SA7    A2
02400  M00S02347.msi     +++| SFF2     SA1    B4+FCEO     CHECK DEVICE NUMBER
02401  M00S02348.msi     +++|          SX4    B6
02402  M00S02349.msi     +++|          LX1    59-35
02403  M00S02350.msi     +++|          BX1    -X0*X1      MASK OFF DN
02404  M00S02351.msi     +++|          IX4    X1-X4
02405  M00S02352.msi     +++|          NZ     X4,SFF4     IF DN-S DO NOT MATCH
Line S00001 Modification History
M01 (Added by) msi11
Seq #  *Modification Id* Act 
----------------------------+
02406  M01S00001.msi11   +++|
02407  M01S00002.msi11   +++|*         CHECK ALTERNATE STORAGE COPIES OF FILE DATA.  IF THE FILE
02408  M01S00003.msi11   +++|*         DATA RESIDES ON TAPE OR CARTRIDGE ALTERNATE STORAGE, THE
02409  M01S00004.msi11   +++|*         DISK ADDRESS AND THE DEVICE NUMBER IN THE CATALOG ENTRY
02410  M01S00005.msi11   +++|*         WILL BE CLEARED TO FORCE A RESTAGE OF THE FILE ON THE NEXT
02411  M01S00006.msi11   +++|*         *ATTACH*.  OTHERWISE, THE CATALOG ENTRY WILL BE DELETED.
02412  M01S00007.msi11   +++|
02413  M01S00008.msi11   +++|          SA1    B4+FCTV
02414  M01S00009.msi11   +++|          MX2    -24
02415  M01S00010.msi11   +++|          BX7    -X2*X1
02416  M01S00011.msi11   +++|          NZ     X7,SFF2.1   IF TAPE ALTERNATE STORAGE COPY EXISTS
02417  M00S02353.msi     +++|          SA1    B4+FCAA
02418  M00S02354.msi     +++|          MX2    -36
02419  M00S02355.msi     +++|          BX7    -X2*X1
Line S02356 Modification History
M01 (Removed by) msi11
Seq #  *Modification Id* Act 
----------------------------+
02420  M01S02356.msi11   ---|          ZR     X7,SFF3     IF NO ALTERNATE STORAGE COPY OF FILE
Line S00012 Modification History
M01 (Added by) msi11
Seq #  *Modification Id* Act 
----------------------------+
02421  M01S00012.msi11   +++|          ZR     X7,SFF3     IF NO CARTRIDGE ALTERNATE STORAGE COPY
02422  M00S02357.msi     +++|          LX1    59-48
Line S02358 Modification History
M01 (Removed by) msi11
Seq #  *Modification Id* Act 
----------------------------+
02423  M01S02358.msi11   ---|          NG     X1,SFF3     IF ALTERNATE STORAGE COPY OBSOLETE
Line S00013 Modification History
M01 (Added by) msi11
Seq #  *Modification Id* Act 
----------------------------+
02424  M01S00013.msi11   +++|          NG     X1,SFF3     IF CARTRIDGE COPY OBSOLETE
02425  M01S00014.msi11   +++| SFF2.1   SA2    B4+FCBT     CLEAR DISK ADDRESS OF FILE
02426  M00S02359.msi     +++|          MX7    48
Line S02360 Modification History
M01 (Removed by) msi11
Seq #  *Modification Id* Act 
----------------------------+
02427  M01S02360.msi11   ---|          SA2    B4+FCBT     CLEAR DISK ADDRESS OF FILE
02428  M00S02361.msi     +++|          LX7    12
02429  M00S02362.msi     +++|          BX7    X7*X2
02430  M00S02363.msi     +++|          SA7    A2
Line S00015 Modification History
M01 (Added by) msi11
Seq #  *Modification Id* Act 
----------------------------+
02431  M01S00015.msi11   +++|          SA2    B4+FCDN     CLEAR DEVICE NUMBER
02432  M01S00016.msi11   +++|          MX7    54
02433  M01S00017.msi11   +++|          LX7    36
02434  M01S00018.msi11   +++|          BX7    X7*X2
02435  M01S00019.msi11   +++|          SA7    A2
02436  M00S02364.msi     +++|          SX6    B1          FORCE CATALOG UPDATE
02437  M00S02365.msi     +++|          EQ     SFF4        CHECK NEXT CATALOG ENTRY
02438  M00S02366.msi     +++|
02439  M00S02367.msi     +++| SFF3     SA1    B4+FCUI     CLEAR USER INDEX OF FILE
02440  M00S02368.msi     +++|          MX2    42
02441  M00S02369.msi     +++|          BX7    X2*X1       CLEAR USER INDEX
02442  M00S02370.msi     +++|          SA7    A1
02443  M00S02371.msi     +++|          SX6    B1          FORCE CATALOG UPDATE
02444  M00S02372.msi     +++|
02445  M00S02373.msi     +++|*         PROCESS NEXT CATALOG ENTRY.
02446  M00S02374.msi     +++|
02447  M00S02375.msi     +++| SFF4     SB4    B4+NWCE
02448  M00S02376.msi     +++|          SB3    B3-NWCE
02449  M00S02377.msi     +++|          NZ     B3,SFF2     IF MORE ENTRIES IN THIS SECTOR
02450  M00S02378.msi     +++|          SA1    CATS+2      GET IN
02451  M00S02379.msi     +++|          SA2    CATS+FTSC
02452  M00S02380.msi     +++|          SA4    CATS+4      GET LIMIT
02453  M00S02381.msi     +++|          SB3    B0
02454  M00S02382.msi     +++|          SX7    X2+B1       BUMP SECTOR COUNT
02455  M00S02383.msi     +++|          SX2    B4+B1
02456  M00S02384.msi     +++|          IX2    X1-X2       IN - BUFFER POINTER
02457  M00S02385.msi     +++|          SA7    A2
02458  M00S02386.msi     +++|          IX4    X4-X1       LIMIT - IN
02459  M00S02387.msi     +++|          MI     X2,SFFX     IF POINTER .EQ. IN
02460  M00S02388.msi     +++|          SA1    B4          READ NEXT CONTROL WORD
02461  M00S02389.msi     +++|          MX2    -24
02462  M00S02390.msi     +++|          SX7    177B
02463  M00S02391.msi     +++|          BX2    -X2*X1
02464  M00S02392.msi     +++|          BX7    X7*X1
02465  M00S02393.msi     +++|          SB4    B4+B1       SET TO NEXT CATALOG ENTRY
02466  M00S02394.msi     +++|          SB3    X7          WORDS IN SECTOR
02467  M00S02395.msi     +++|          MX7    1           SET WRITE WITHOUT EOI FLAG
02468  M00S02396.msi     +++|          LX7    53-59
02469  M00S02397.msi     +++|          BX7    X7+X1
02470  M00S02398.msi     +++|          SA7    A1
02471  M00S02399.msi     +++|          NZ     X2,SFF2     IF MORE DATA
02472  M00S02400.msi     +++|          MX7    1           FLAG EOI ENCOUNTERED
02473  M00S02401.msi     +++|          EQ     SFFX        RETURN
02474  M00S02402.msi     +++| WTC      SPACE  4,10
02475  M00S02403.msi     +++|**        WTC - WRITE CATALOG BUFFER TO DISK.
02476  M00S02404.msi     +++|*
02477  M00S02405.msi     +++|*         ENTRY  (B5) = ESTF POINTER.
02478  M00S02406.msi     +++|*                (B6) = DEVICE NUMBER.
02479  M00S02407.msi     +++|*                (B7) = EST ORDINAL.
02480  M00S02408.msi     +++|*
02481  M00S02409.msi     +++|*         EXIT   B5,B6,B7 UNCHANGED.
02482  M00S02410.msi     +++|*                CATALOGS WRITTEN FROM CATS BUFFER.
02483  M00S02411.msi     +++|*                CATS FET NOT BUSY.
02484  M00S02412.msi     +++|*
02485  M00S02413.msi     +++|*         USES   X - 0, 1, 2, 6.
02486  M00S02414.msi     +++|*                A - 1, 6.
02487  M00S02415.msi     +++|*
02488  M00S02416.msi     +++|*         MACROS RECALL.
02489  M00S02417.msi     +++|
02490  M00S02418.msi     +++|
02491  M00S02419.msi     +++| WTC      SUBR               ENTRY/EXIT
02492  M00S02420.msi     +++|          SA1    CATS
02493  M00S02421.msi     +++|          MX0    42
02494  M00S02422.msi     +++|          SX2    2           WRITE FUNCTION
02495  M00S02423.msi     +++|          BX6    X0*X1
02496  M00S02424.msi     +++|          BX6    X6+X2
02497  M00S02425.msi     +++|          SA6    CATS        WRITE CATALOG
02498  M00S02426.msi     +++|          RECALL CATS
02499  M00S02427.msi     +++|          EQ     WTCX        RETURN
02500  M00S02428.msi     +++|          TITLE  SUBROUTINES.
02501  M00S02429.msi     +++| ALD      SPACE  4,15
02502  M00S02430.msi     +++|**        ALD - ALLOCATE *LDAM* DEVICES.
02503  M00S02431.msi     +++|*
02504  M00S02432.msi     +++|*         ENTRY  (A3) = EST ENTRY ADDRESS.
02505  M00S02433.msi     +++|*                (A5) = *PALF* ADDRESS.
02506  M00S02434.msi     +++|*                (X2) = EST ORDINAL.
02507  M00S02435.msi     +++|*                (X5) = UNIT COUNT-1 REMAINING TO ALLOCATE.
02508  M00S02436.msi     +++|*                (X7) = ORIGINAL UNIT COUNT.
02509  M00S02437.msi     +++|*                (B2) = *PKL* INDEX.
02510  M00S02438.msi     +++|*
02511  M00S02439.msi     +++|*         EXIT   (A5) = *PALF* ADDRESS.
02512  M00S02440.msi     +++|*                (B2) = *PKL* INDEX.
02513  M00S02441.msi     +++|*                (X5) = .LT. 0 IF DEVICE ALLOCATED.
02514  M00S02442.msi     +++|*
02515  M00S02443.msi     +++|*         USES   X - ALL.
02516  M00S02444.msi     +++|*                A - 1, 2, 3, 4, 6, 7.
02517  M00S02445.msi     +++|*                B - 2, 3, 4, 5.
02518  M00S02446.msi     +++|*
02519  M00S02447.msi     +++|*         CALLS  AUL.
02520  M00S02448.msi     +++|
02521  M00S02449.msi     +++|
02522  M00S02450.msi     +++| ALD      SUBR               ENTRY/EXIT
02523  M00S02451.msi     +++|          SA3    A3          GET EST ENTRY
02524  M00S02452.msi     +++|          SB3    X2          SAVE EST ORDINAL
02525  M00S02453.msi     +++|          SA1    ALDA        GET ALLOCATION MASK
02526  M00S02454.msi     +++|          SB4    X2          SET SEARCH INDEX
02527  M00S02455.msi     +++|          BX0    X1
02528  M00S02456.msi     +++|          BX1    X0*X3       MATCH CRITERIA
02529  M00S02457.msi     +++|          LX3    59-56
02530  M00S02458.msi     +++|          PL     X3,ALDX     IF DEVICE NOT REMOVABLE
02531  M00S02459.msi     +++| ALD1     SB4    B4+B1       INCREMENT EST ORDINAL
02532  M00S02460.msi     +++|          SX3    B4
02533  M00S02461.msi     +++|          R=     X2,ESTE
02534  M00S02462.msi     +++|          IX2    X3*X2
02535  M00S02463.msi     +++|          SA2    ESTB+X2+EQDE  GET EST ENTRY
02536  M00S02464.msi     +++|          SA3    B4+ESTF
02537  M00S02465.msi     +++|          SX4    B4-ESMX
02538  M00S02466.msi     +++|          PL     X4,ALDX     IF END OF EST ENTRIES
02539  M00S02467.msi     +++|          BX6    X0*X2       CHECK DEVICE FOR MATCH
02540  M00S02468.msi     +++|          BX6    X1-X6
02541  M00S02469.msi     +++|          SA4    X3+STLL
02542  M00S02470.msi     +++|          NZ     X6,ALD1     IF NO DEVICE MATCH
02543  M00S02471.msi     +++|
02544  M00S02472.msi     +++|*         THE CHANNELS OF THE FIRST DEVICE ARE COMPARED WITH
02545  M00S02473.msi     +++|*         THE CHANNELS OF THE LINK CANDIDATES TO INSURE THAT ALL
02546  M00S02474.msi     +++|*         ITS CHANNELS ARE CONTAINED IN THE LINK DEVICES CHANNELS.
02547  M00S02475.msi     +++|
02548  M00S02476.msi     +++|          SB5    B0          INITIALIZE CHANNEL COMPARE
02549  M00S02477.msi     +++|          LX2    24          POSITION CHANNELS (B * * * * * * * A)
02550  M00S02478.msi     +++|          MX3    -12
02551  M00S02479.msi     +++|          BX6    -X3*X2      CHANNEL *A*
02552  M00S02480.msi     +++|          SA6    ALDB
02553  M00S02481.msi     +++|          LX2    12
02554  M00S02482.msi     +++|          BX6    -X3*X2      CHANNEL *B*
02555  M00S02483.msi     +++|          SA6    A6+B1
02556  M00S02484.msi     +++|          SX3    B3
02557  M00S02485.msi     +++|          R=     X2,ESTE
02558  M00S02486.msi     +++|          IX3    X3*X2
02559  M00S02487.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY OF FIRST EQUIPMENT
02560  M00S02488.msi     +++|          LX3    24
02561  M00S02489.msi     +++|          SA2    ALDB
02562  M00S02490.msi     +++| ALD2     MX6    -12         CHECK CHANNEL WITH LIST
02563  M00S02491.msi     +++|          BX6    -X6*X3
02564  M00S02492.msi     +++|          ZR     X6,ALD3     IF CHANNEL .EQ. 0
02565  M00S02493.msi     +++|          BX2    X2-X6
02566  M00S02494.msi     +++|          ZR     X2,ALD4     IF CHANNELS COMPARE
02567  M00S02495.msi     +++|          SA2    A2+B1
02568  M00S02496.msi     +++|          NZ     X2,ALD2     IF MORE CHANNELS TO CHECK
02569  M00S02497.msi     +++|          EQ     ALD1        LOOP FOR NEXT EQUIPMENT
02570  M00S02498.msi     +++|
02571  M00S02499.msi     +++| ALD3     NZ     B5,ALD4     IF NOT CHANNEL *A*
02572  M00S02500.msi     +++|          NZ     X2,ALD1     IF LIST CHANNEL *A* .NE. 0
02573  M00S02501.msi     +++| ALD4     LX3    12          TEST NEXT CHANNEL
02574  M00S02502.msi     +++|          SB5    B5+B1
02575  M00S02503.msi     +++|          SA2    ALDB
02576  M00S02504.msi     +++|          SX6    B5-2        *** TWO CHANNEL SUPPORT
02577  M00S02505.msi     +++|          NZ     X6,ALD2     IF NOT END OF CHANNELS
02578  M00S02506.msi     +++|          MX6    12          CHECK FOR ACTIVE USES
02579  M00S02507.msi     +++|          SX2    B4
02580  M00S02508.msi     +++|          MX3    60-LIFD
02581  M00S02509.msi     +++|          LX6    24
02582  M00S02510.msi     +++|          BX6    X6*X4
02583  M00S02511.msi     +++|          BX3    X3*X4
02584  M00S02512.msi     +++|          NZ     X6,ALD1     IF ACTIVE USERS
02585  M00S02513.msi     +++|          ZR     X3,ALD1     IF TOTAL INITIALIZE NOT SET
02586  M00S02514.msi     +++|          LX7    39
02587  M00S02515.msi     +++|          LX4    0-3
02588  M00S02516.msi     +++|          BX7    X7+X2       FORM *PKL* ENTRY
02589  M00S02517.msi     +++|          MX6    -3
02590  M00S02518.msi     +++|          SA7    B2
02591  M00S02519.msi     +++|          BX7    -X6*X4
02592  M00S02520.msi     +++|          SB2    B2+B1       INCREMENT *PKL* INDEX
02593  M00S02521.msi     +++|          SX7    X7+B1       ADJUST UNIT COUNT
02594  M00S02522.msi     +++|          IX5    X5-X7
02595  M00S02523.msi     +++|          PL     X5,ALD1     IF MORE UNITS TO ALLOCATE
02596  M00S02524.msi     +++|          RJ     AUL         ASSEMBLE UNIT LIST
02597  M00S02525.msi     +++|          EQ     ALDX        RETURN
02598  M00S02526.msi     +++|
02599  M00S02527.msi     +++| ALDA     VFD    12/5600B    *MS*, SHARED, REMOVABLE, *LDAM*
02600  M00S02528.msi     +++|          VFD    24/0
02601  M00S02529.msi     +++|          VFD    12/7777B    0N/OFF AND TYPE
02602  M00S02530.msi     +++|          VFD    12/0
02603  M00S02531.msi     +++| ALDB     BSS    3           CHANNEL LIST FOR DEVICE MATCH
02604  M00S02532.msi     +++| AUL      SPACE  4,10
02605  M00S02533.msi     +++|**        AUL - ASSEMBLE UNIT LIST.
02606  M00S02534.msi     +++|*
02607  M00S02535.msi     +++|*         ENTRY  (B3) = EST ORDINAL.
02608  M00S02536.msi     +++|*
02609  M00S02537.msi     +++|*         EXIT   *DDLL* LIST BUILT.
02610  M00S02538.msi     +++|*
02611  M00S02539.msi     +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
02612  M00S02540.msi     +++|*                A - 1, 2, 3, 4, 7.
02613  M00S02541.msi     +++|*                B - 3, 4, 5, 6, 7.
02614  M00S02542.msi     +++|
02615  M00S02543.msi     +++|
02616  M00S02544.msi     +++| AUL3     SA2    B3+ESTF     FORM *DDLL*
02617  M00S02545.msi     +++|          MX0    -48
02618  M00S02546.msi     +++|          LX7    B5,X7
02619  M00S02547.msi     +++|          SA1    X2+DDLL
02620  M00S02548.msi     +++|          BX4    -X0*X7
02621  M00S02549.msi     +++|          BX1    X0*X1
02622  M00S02550.msi     +++|          BX7    X1+X4
02623  M00S02551.msi     +++|          SA7    X2+DDLL     SET *DDLL* IMAGE IN MST
02624  M00S02552.msi     +++|
02625  M00S02553.msi     +++| AUL      SUBR               ENTRY/EXIT
02626  M00S02554.msi     +++|          SB4    PKL         INITIALIZE INDEX
02627  M00S02555.msi     +++|          SX1    B3
02628  M00S02556.msi     +++|          MX0    -6
02629  M00S02557.msi     +++|          SA4    PARC+PMNP   GET UNIT COUNT
02630  M00S02558.msi     +++|          SB5    B0          INITIALIZE SHIFT INDEX
02631  M00S02559.msi     +++|          SB6    X4
02632  M00S02560.msi     +++| AUL1     SA1    X1+ESTF
02633  M00S02561.msi     +++|          SA3    X1+DDLL
02634  M00S02562.msi     +++|          BX2    X3
02635  M00S02563.msi     +++|          MX6    -3          GET ORIGINAL UNIT COUNT
02636  M00S02564.msi     +++|          LX2    -51
02637  M00S02565.msi     +++|          SB7    6
02638  M00S02566.msi     +++|          BX6    -X6*X2
02639  M00S02567.msi     +++| AUL2     BX4    -X0*X3      MASK UNIT
02640  M00S02568.msi     +++|          BX7    X0*X7
02641  M00S02569.msi     +++|          BX7    X4+X7       MERGE NEXT UNIT
02642  M00S02570.msi     +++|          SX6    X6-1
02643  M00S02571.msi     +++|          SB6    B6-B1
02644  M00S02572.msi     +++|          LX7    -6
02645  M00S02573.msi     +++|          AX3    6
02646  M00S02574.msi     +++|          SB5    B5+B7
02647  M00S02575.msi     +++|          ZR     B6,AUL3     IF END OF ASSEMBLY
02648  M00S02576.msi     +++|          PL     X6,AUL2     IF MORE UNITS TO MERGE
02649  M00S02577.msi     +++|          SA1    B4          GET NEXT EQUIPMENT
02650  M00S02578.msi     +++|          SB4    B4+B1
02651  M00S02579.msi     +++|          EQ     AUL1        LOOP TO ASSEMBLE NEXT UNIT
02652  M00S02580.msi     +++| BPT      SPACE  4,10
02653  M00S02581.msi     +++|**        BPT - BUILD MST UPDATING PARAMETER TABLE.
02654  M00S02582.msi     +++|*
02655  M00S02583.msi     +++|*         ENTRY  (X1) = EST ORDINAL.
02656  M00S02584.msi     +++|*                INTERNAL EST AND MST REFLECT NEW PARAMETERS.
02657  M00S02585.msi     +++|*                (X5) = *PKL* LIST ENTRY.
02658  M00S02586.msi     +++|*
02659  M00S02587.msi     +++|*         EXIT   *TUMS* BUILT FOR IMS FUNCTION 6.
02660  M00S02588.msi     +++|*                (X5) = UNCHANGED.
02661  M00S02589.msi     +++|*
02662  M00S02590.msi     +++|*         USES   X - 0, 2, 3, 4, 6, 7.
02663  M00S02591.msi     +++|*                A - 2, 3, 4, 6, 7.
02664  M00S02592.msi     +++|
02665  M00S02593.msi     +++|
02666  M00S02594.msi     +++| BPT      SUBR               ENTRY/EXIT
02667  M00S02595.msi     +++|          SA2    X1+ESTF     MST ADDRESS
02668  M00S02596.msi     +++|          R=     X3,ESTE
02669  M00S02597.msi     +++|          IX3    X1*X3
02670  M00S02598.msi     +++|          SA3    ESTB+X3+EQDE  GET NEW EST ENTRY
02671  M00S02599.msi     +++|          SA4    X2+PFGL     GET NEW MST WORDS
02672  M00S02600.msi     +++|          BX6    X3
02673  M00S02601.msi     +++|          LX7    X4
02674  M00S02602.msi     +++|          SA3    X2+PUGL
02675  M00S02603.msi     +++|          SA6    TUMS
02676  M00S02604.msi     +++|          MX0    1           SET 16-WORD PFC FLAG
02677  M00S02605.msi     +++|          SA4    X2+MDGL
02678  M00S02606.msi     +++|          LX0    57-59
02679  M00S02607.msi     +++|          SA7    A6+B1       TUMS + 1
02680  M00S02608.msi     +++|          LX6    X3
02681  M00S02609.msi     +++|          BX7    X0+X4
02682  M00S02610.msi     +++|          SA6    A7+B1       TUMS + 2
02683  M00S02611.msi     +++|          SA7    A6+B1       TUMS + 3
02684  M00S02612.msi     +++|          MX0    -12
02685  M00S02613.msi     +++|          SA3    X2+ALGL     CATALOG COUNT
02686  M00S02614.msi     +++|          AX3    12
02687  M00S02615.msi     +++|          BX6    -X0*X3
02688  M00S02616.msi     +++|          SA4    X2+DILL     ALGORITHM INDEX
02689  M00S02617.msi     +++|          SA3    X2+STLL
02690  M00S02618.msi     +++|          LX6    12
02691  M00S02619.msi     +++|          MX7    LIHD-LIFD+1
02692  M00S02620.msi     +++|          BX6    X6+X1       NC, EQ
02693  M00S02621.msi     +++|          LX7    LIHD-59
02694  M00S02622.msi     +++|          BX4    -X0*X4
02695  M00S02623.msi     +++|          LX6    12
02696  M00S02624.msi     +++|          BX7    X7*X3
02697  M00S02625.msi     +++|          ZR     X7,BPT1     IF NOT CHANGING ALGORITHM INDEX
02698  M00S02626.msi     +++|          BX6    X6+X4       NC, EQ, AI
02699  M00S02627.msi     +++| BPT1     LX3    59-LDIU
02700  M00S02628.msi     +++|          LX6    24
02701  M00S02629.msi     +++|          LX0    12
02702  M00S02630.msi     +++|          BX6    -X0+X6      NC, EQ, AI, CI
02703  M00S02631.msi     +++|          SA4    X2+DDLL     GET NEW DEVICES UNIT LIST
02704  M00S02632.msi     +++|          PL     X3,BPT2     IF CLEARING DEVICE IN USE IN CHAIN
02705  M00S02633.msi     +++|          SA4    X2+STLL     GET CURRENT UNIT COUNT
02706  M00S02634.msi     +++|          SA3    X2+DDLL     GET CURRENT UNIT LIST
02707  M00S02635.msi     +++|          BX6    X0*X6
02708  M00S02636.msi     +++|          MX0    -48
02709  M00S02637.msi     +++|          LX4    59-14
02710  M00S02638.msi     +++|          MX2    3
02711  M00S02639.msi     +++|          BX7    -X0*X3
02712  M00S02640.msi     +++|          LX2    -9
02713  M00S02641.msi     +++|          BX4    X2*X4
02714  M00S02642.msi     +++|          BX4    X4+X7
02715  M00S02643.msi     +++| BPT2     SX3    X5          SET NEXT EQUIPMENT IN CHAIN
02716  M00S02644.msi     +++|          BX6    X6+X3
02717  M00S02645.msi     +++|          SA6    A7+B1       TUMS+4
02718  M00S02646.msi     +++|          BX7    X4
02719  M00S02647.msi     +++|          MX6    0
02720  M00S02648.msi     +++|          SA7    A6+B1       TUMS+5
02721  M00S02649.msi     +++|          SA6    A7+B1       TUMS+6 = CLEAR REPLY WORD
02722  M00S02650.msi     +++|          EQ     BPTX        RETURN
02723  M00S02651.msi     +++| CIR      SPACE  4,10
02724  M00S02652.msi     +++|**        CIR - CHECK INITIALIZATION REQUESTED.
02725  M00S02653.msi     +++|*
02726  M00S02654.msi     +++|*         EXIT   (B6) .LT. 0 IF NO EQUIPMENT FOUND.
02727  M00S02655.msi     +++|*                (B6) = FIRST EQUIPMENT FOUND.
02728  M00S02656.msi     +++|*
02729  M00S02657.msi     +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
02730  M00S02658.msi     +++|*                A - 1, 2, 3, 4, 6.
02731  M00S02659.msi     +++|*                B - 4, 5, 6.
02732  M00S02660.msi     +++|*
02733  M00S02661.msi     +++|*         MACROS SYSTEM.
02734  M00S02662.msi     +++|
02735  M00S02663.msi     +++|
02736  M00S02664.msi     +++| CIR      SUBR               ENTRY/EXIT
02737  M00S02665.msi     +++|          SB3    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
02738  M00S02666.msi     +++|          SB6    -B1
02739  M00S02667.msi     +++|          SB5    ESMX
02740  M00S02668.msi     +++| CIR1     EQ     B3,B5,CIRX  IF END OF EQUIPMENTS
02741  M00S02669.msi     +++|          SA2    ESTF+B3
02742  M00S02670.msi     +++|          SB3    B3+B1
02743  M00S02671.msi     +++|          ZR     X2,CIR1     IF EMPTY LINK
02744  M00S02672.msi     +++|          SX6    B3-B1       EST ORDINAL
02745  M00S02673.msi     +++|          R=     X1,ESTE
02746  M00S02674.msi     +++|          IX1    X6*X1
02747  M00S02675.msi     +++|          SA1    ESTB+X1+EQDE  GET EST ENTRY
02748  M00S02676.msi     +++|          SA4    X2+STLL
02749  M00S02677.msi     +++|          NG     X4,CIR2     IF FORMAT PENDING
02750  M00S02678.msi     +++|          MX3    60-LIPF
02751  M00S02679.msi     +++|          BX7    X3*X4
02752  M00S02680.msi     +++|          LX4    59-LIRP
02753  M00S02681.msi     +++|          PL     X4,CIR1     IF NO INITIALIZE REQUESTS PENDING
02754  M00S02682.msi     +++|          BX3    X1
02755  M00S02683.msi     +++|          LX4    LIRP-LUNL
02756  M00S02684.msi     +++|          MI     X4,CIR1     IF DEVICE UNLOADED
02757  M00S02685.msi     +++|          LX1    59-57
02758  M00S02686.msi     +++|          BX4    X3
02759  M00S02687.msi     +++|          LX4    59-49
02760  M00S02688.msi     +++|          LX3    59-52
02761  M00S02689.msi     +++|          BX1    X3+X1
02762  M00S02690.msi     +++|          LX6    48
02763  M00S02691.msi     +++|          NG     X4,CIR2     IF DEVICE OFF OR DOWN
02764  M00S02692.msi     +++|          PL     X1,CIR3     IF NOT SHARED DEVICE
02765  M00S02693.msi     +++|          ZR     X7,CIR3     IF NOT GLOBAL INITIALIZE
02766  M00S02694.msi     +++|          SA6    CIRA
02767  M00S02695.msi     +++|          PL     X3,CIR1.1   IF NOT AN ISD DEVICE
02768  M00S02696.msi     +++|          SX7    B1
02769  M00S02697.msi     +++|          BX6    X6+X7
02770  M00S02698.msi     +++|          SA6    CIRB
02771  M00S02699.msi     +++|          SYSTEM  IMS,R,CIRB,ISD  INTERLOCK DEVICE
02772  M00S02700.msi     +++|          SA1    CIRB
02773  M00S02701.msi     +++|          PL     X1,CIR2     IF DEVICE NOT INTERLOCKED
02774  M00S02702.msi     +++|          SA2    B3+ESTF-1   SET DEVICE INTERLOCKED FLAG
02775  M00S02703.msi     +++|          MX7    1
02776  M00S02704.msi     +++|          LX7    -1
02777  M00S02705.msi     +++|          BX7    X7+X2
02778  M00S02706.msi     +++|          SA7    A2
02779  M00S02707.msi     +++| CIR1.1   SYSTEM IMS,R,CIRA,CSD  CHECK DEVICE STATUS
02780  M00S02708.msi     +++|          SA1    CIRA        CHECK REPLY
02781  M00S02709.msi     +++|          NG     X1,CIR3     IF DEVICE UNLOADED IN OTHER MACHINES
02782  M00S02710.msi     +++| CIR2     SA4    A4          CLEAR INITIALIZE REQUESTS
02783  M00S02711.msi     +++|          MX3    60-LIRP
02784  M00S02712.msi     +++|          BX4    -X3*X4
02785  M00S02713.msi     +++|          MX3    48-LIMF
02786  M00S02714.msi     +++|          LX3    48
02787  M00S02715.msi     +++|          BX6    -X3*X4
02788  M00S02716.msi     +++|          SA6    A4+
02789  M00S02717.msi     +++|          EQ     CIR1        LOOP ON SEARCH
02790  M00S02718.msi     +++|
02791  M00S02719.msi     +++| CIR3     PL     B6,CIR1     IF EQUIPMENT ALREADY FOUND
02792  M00S02720.msi     +++|          SB6    B3-B1
02793  M00S02721.msi     +++|          SX7    B3-B1       SET EQUIPMENT TO PROCESS
02794  M00S02722.msi     +++|          SX1    B3+1000B-1  ENSURE LEADING ZEROES IN CONVERSION
02795  M00S02723.msi     +++|          MX0    -18
02796  M00S02724.msi     +++|          SA7    PARC+PMEQ
02797  M00S02725.msi     +++|          RJ     COD
02798  M00S02726.msi     +++|          SA2    =7L
02799  M00S02727.msi     +++|          BX6    -X0*X6
02800  M00S02728.msi     +++|          SA6    EQ
02801  M00S02729.msi     +++|          BX7    X6+X2
02802  M00S02730.msi     +++|          LX7    -18
02803  M00S02731.msi     +++|          SA7    EQDS+1      SET EST ORDINAL IN K-DISPLAY
02804  M00S02732.msi     +++|          EQ     CIR1        LOOP ON SEARCH
02805  M00S02733.msi     +++|
02806  M00S02734.msi     +++|
02807  M00S02735.msi     +++| CIRA     CON    0           IMS REQUEST/REPLY AREA
02808  M00S02736.msi     +++| CIRB     CON    0           ISD INTERLOCK STATUS
02809  M00S02737.msi     +++| CMC      SPACE  4,10
02810  M00S02738.msi     +++|**        CMC - CHECK MODE CHANGE.
02811  M00S02739.msi     +++|*
02812  M00S02740.msi     +++|*         ENTRY  (PARC+PMEQ) = EQUIPMENT TO CHECK FOR MODE CHANGE.
02813  M00S02741.msi     +++|*                (B5) = MST ADDRESS OF EQUIPMENT.
02814  M00S02742.msi     +++|*
02815  M00S02743.msi     +++|*         EXIT   (X7) = 0 IF NO FULL TRACK ACCESS WHEN REQUIRED.
02816  M00S02744.msi     +++|*                TO *ABT* IF INTERNAL ERROR DETECTED.
02817  M00S02745.msi     +++|*
02818  M00S02746.msi     +++|*         USES   X - ALL.
02819  M00S02747.msi     +++|*                A - 1, 2, 3, 4, 6, 7.
02820  M00S02748.msi     +++|*                B - 3, 6.
02821  M00S02749.msi     +++|*
02822  M00S02750.msi     +++|*         CALLS  PMC.
02823  M00S02751.msi     +++|
02824  M00S02752.msi     +++|
02825  M00S02753.msi     +++| CMC4     SX6    -B3         SET *CLEAR* OVERRIDE
02826  M00S02754.msi     +++|          SA6    CLOV
02827  M00S02755.msi     +++|          MX0    18
02828  M00S02756.msi     +++|          SA4    EQ
02829  M00S02757.msi     +++|          SA1    ERROR23     FORM MESSAGE
02830  M00S02758.msi     +++|          LX0    -12
02831  M00S02759.msi     +++|          BX6    -X0*X1
02832  M00S02760.msi     +++|          LX4    48-18
02833  M00S02761.msi     +++|          BX6    X6+X4
02834  M00S02762.msi     +++|          SA6    A1          *EQXXX, NO FULL TRACK ACCESS.*
02835  M00S02763.msi     +++|          BX7    X7-X7
02836  M00S02764.msi     +++|
02837  M00S02765.msi     +++| CMC      SUBR               ENTRY/EXIT
02838  M00S02766.msi     +++|          SA4    PARC+PMEQ
02839  M00S02767.msi     +++|          SX7    B1
02840  M00S02768.msi     +++|          SB3    X4
02841  M00S02769.msi     +++|          SA3    B5+STLL
02842  M00S02770.msi     +++|          LX3    59-LIHD
02843  M00S02771.msi     +++|          SB6    B0          INDICATE HALF TRACK
02844  M00S02772.msi     +++|          NG     X3,CMC1     IF HALF TRACK MODE
02845  M00S02773.msi     +++|          LX3    LIHD-LIFD
02846  M00S02774.msi     +++|          PL     X3,CMCX     IF NO MODE CHANGE
02847  M00S02775.msi     +++|          BX3    X3-X3
02848  M00S02776.msi     +++| CMC1     RJ     PMC         PROCESS MODE CHANGE
02849  M00S02777.msi     +++|          NG     X5,CMC4     IF NO FULL TRACK ACCESS
02850  M00S02778.msi     +++|          SB3    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
02851  M00S02779.msi     +++| CMC2     SB3    B3+B1       ADVANCE EST ORDINAL
02852  M00S02780.msi     +++|          SX7    B1
02853  M00S02781.msi     +++|          SB4    B3-ESMX
02854  M00S02782.msi     +++|          ZR     B4,CMCX     IF END OF EST
02855  M00S02783.msi     +++|          SA2    B3+ESTF
02856  M00S02784.msi     +++|          SB4    X2
02857  M00S02785.msi     +++|          EQ     B4,B5,CMC2  IF CURRENT EQUIPMENT
02858  M00S02786.msi     +++|          SA3    B4+STLL
02859  M00S02787.msi     +++|          LX3    59-LIHD
02860  M00S02788.msi     +++|          SB6    B0          SET HALF TRACK MODE
02861  M00S02789.msi     +++|          NG     X3,CMC3     IF HALF TRACK MODE
02862  M00S02790.msi     +++|          LX3    LIHD-LIFD
02863  M00S02791.msi     +++|          PL     X3,CMC2     IF NO MODE CHANGE
02864  M00S02792.msi     +++|          BX3    X3-X3
02865  M00S02793.msi     +++| CMC3     RJ     PMC         PROCESS MODE CHANGE
02866  M00S02794.msi     +++|          EQ     CMC2        LOOP
02867  M00S02795.msi     +++| DIO      SPACE  4,10
02868  M00S02796.msi     +++|**        DIO - DISPLAY INITIALIZE OPTIONS.
02869  M00S02797.msi     +++|*
02870  M00S02798.msi     +++|*         EXIT   DISPLAY UPDATED.
02871  M00S02799.msi     +++|*                (TOTL) = 0 IF NOT TOTAL INITIALIZE.
02872  M00S02800.msi     +++|*
02873  M00S02801.msi     +++|*         USES   X - 0, 2, 3, 5, 6, 7.
02874  M00S02802.msi     +++|*                A - 2, 3, 5, 6, 7.
02875  M00S02803.msi     +++|*                B - 2, 3, 4.
02876  M00S02804.msi     +++|
02877  M00S02805.msi     +++|
02878  M00S02806.msi     +++|*         DISABLE ACCESS LEVEL PARAMETER ENTRIES ON ANYTHING
02879  M00S02807.msi     +++|*         OTHER THAN A TOTAL INITIALIZE.
02880  M00S02808.msi     +++|
02881  M00S02809.msi     +++| DIO2     MX7    1
02882  M00S02810.msi     +++|          SA7    ENLA        DISABLE *LA* PARAMETER ENTRY
02883  M00S02811.msi     +++|          SA7    A7+B1       DISABLE *UA* PARAMETER ENTRY
02884  M00S02812.msi     +++|          ERRNZ  ENUA-ENLA-1 ERROR IF WORDS NOT CONTIGUOUS
02885  M00S02813.msi     +++|          MX0    LIPF-LIQF+1 EXTRACT *PF* AND *QF* OPTIONS
02886  M00S02814.msi     +++|          LX5    LIFD-LIPF
02887  M00S02815.msi     +++|          BX3    X0*X5
02888  M00S02816.msi     +++|          MX0    48-LIMF     EXTRACT DAYFILE OPTIONS
02889  M00S02817.msi     +++|          LX5    LIPF-LIDF
02890  M00S02818.msi     +++|          BX2    X0*X5
02891  M00S02819.msi     +++|          LX2    LIQF-LIFD   MERGE PARTIAL INITIALIZE OPTIONS
02892  M00S02820.msi     +++|          BX5    X3+X2
02893  M00S02821.msi     +++|          SB4    TPDS+2
02894  M00S02822.msi     +++|          SA3    BLK
02895  M00S02823.msi     +++|          SB3    42
02896  M00S02824.msi     +++|          SA2    DIOB
02897  M00S02825.msi     +++|          BX7    X3
02898  M00S02826.msi     +++|          SX0    77B
02899  M00S02827.msi     +++| DIO3     PL     X5,DIO4     IF OPTION NOT SET
02900  M00S02828.msi     +++|          BX3    X0*X2
02901  M00S02829.msi     +++|          LX3    6
02902  M00S02830.msi     +++|          SX3    X3+1RF&1R
02903  M00S02831.msi     +++|          LX6    X3,B3
02904  M00S02832.msi     +++|          BX7    X6-X7
02905  M00S02833.msi     +++|          SB3    B3-18
02906  M00S02834.msi     +++|          PL     B3,DIO4     IF DISPLAY WORD NOT FILLED
02907  M00S02835.msi     +++|          SA7    B4+1
02908  M00S02836.msi     +++|          SX6    A7-TPDS-4
02909  M00S02837.msi     +++|          ZR     X6,DIOX     IF DISPLAY LINE LIMIT
02910  M00S02838.msi     +++|          SA3    BLK
02911  M00S02839.msi     +++|          SB4    A7
02912  M00S02840.msi     +++|          BX7    X3
02913  M00S02841.msi     +++|          SB3    48          RESET SHIFT COUNT
02914  M00S02842.msi     +++| DIO4     AX2    6
02915  M00S02843.msi     +++|          LX5    1
02916  M00S02844.msi     +++|          NZ     X2,DIO3     IF ALL OPTIONS NOT CHECKED
02917  M00S02845.msi     +++|          BX6    X6-X6
02918  M00S02846.msi     +++|          SA7    B4+B1
02919  M00S02847.msi     +++|          SA6    TOTL        CLEAR TOTAL INITIALIZE STATUS
02920  M00S02848.msi     +++|
02921  M00S02849.msi     +++| DIO      SUBR               ENTRY/EXIT
02922  M00S02850.msi     +++|          SA3    PARC+PMEQ   GET EST ORDINAL
02923  M00S02851.msi     +++|          SA4    ESTF+X3     GET MST ADDRESS
02924  M00S02852.msi     +++|          SA5    X4+STLL
02925  M00S02853.msi     +++|          SB2    B0
02926  M00S02854.msi     +++|          LX5    59-LIAL
02927  M00S02855.msi     +++|          NG     X5,DIO1     IF INITIALIZE *AL*
02928  M00S02856.msi     +++|          SB2    B2+B1
02929  M00S02857.msi     +++|          LX5    LIAL-LIHD
02930  M00S02858.msi     +++|          NG     X5,DIO1     IF INITIALIZE *HT*
02931  M00S02859.msi     +++|          SB2    B2+B1
02932  M00S02860.msi     +++|          LX5    LIHD-LIFD
02933  M00S02861.msi     +++| DIO1     PL     X5,DIO2     IF NOT INITIALIZE *FT*
02934  M00S02862.msi     +++|          SA2    B2+DIOA     SET VALUE FOR INITIALIZE REQUEST
02935  M00S02863.msi     +++|          MX7    1
02936  M00S02864.msi     +++|          SA3    BLK
02937  M00S02865.msi     +++|          BX6    X2
02938  M00S02866.msi     +++|          SA7    TOTL        SET TOTAL INITIALIZE INDICATOR
02939  M00S02867.msi     +++|          SA6    TPDS+3
02940  M00S02868.msi     +++|          BX7    X3
02941  M00S02869.msi     +++|          SA7    A6+B1
02942  M00S02870.msi     +++|          EQ     DIOX        RETURN
02943  M00S02871.msi     +++|
02944  M00S02872.msi     +++|
02945  M00S02873.msi     +++| DIOA     DATA   H$  *TOTAL*$
02946  M00S02874.msi     +++|          DATA   H$*TOTAL/HT*$
02947  M00S02875.msi     +++|          DATA   H$*TOTAL/FT*$
02948  M00S02876.msi     +++| DIOB     VFD    24/0,36/6RMEADQP&6R
02949  M00S02877.msi     +++| DTY      SPACE  4,10
02950  M00S02878.msi     +++|**        DTY - GET PARAMETERS FOR DEVICE TYPE.
02951  M00S02879.msi     +++|*
02952  M00S02880.msi     +++|*         ENTRY  PARC+PMEQ = EST ORDINAL.
02953  M00S02881.msi     +++|*
02954  M00S02882.msi     +++|*         EXIT   (X3) = TDTY ENTRY FOR DEVICE TYPE.
02955  M00S02883.msi     +++|*                (X3) = 0 IF EQUIPMENT NOT FOUND.
02956  M00S02884.msi     +++|*                (X5) = EST ORDINAL.
02957  M00S02885.msi     +++|*
02958  M00S02886.msi     +++|*         USES   X - 2, 3, 5, 6.
02959  M00S02887.msi     +++|*                A - 3, 5.
02960  M00S02888.msi     +++|
02961  M00S02889.msi     +++|
02962  M00S02890.msi     +++| DTY      SUBR               ENTRY/EXIT
02963  M00S02891.msi     +++|          MX2    11
02964  M00S02892.msi     +++|          SA5    PARC+PMEQ   GET EQUIPMENT
02965  M00S02893.msi     +++|          LX2    -1
02966  M00S02894.msi     +++|          R=     X3,ESTE
02967  M00S02895.msi     +++|          IX3    X5*X3
02968  M00S02896.msi     +++|          SA3    ESTB+X3+EQDE  GET EST ENTRY
02969  M00S02897.msi     +++|          LX3    36
02970  M00S02898.msi     +++|          BX2    X2*X3       DEVICE TYPE
02971  M00S02899.msi     +++|          BX6    X2          SAVE DEVICE TYPE
02972  M00S02900.msi     +++|          LX6    12
02973  M00S02901.msi     +++|          SA6    DTYA
02974  M00S02902.msi     +++|          SA3    TDTY-1
02975  M00S02903.msi     +++| DTY1     SA3    A3+B1
02976  M00S02904.msi     +++|          BX6    X2-X3
02977  M00S02905.msi     +++|          LX6    1
02978  M00S02906.msi     +++|          AX6    48+1
02979  M00S02907.msi     +++|          ZR     X6,DTYX     IF DEVICE TYPE FOUND
02980  M00S02908.msi     +++|          NZ     X3,DTY1     IF MORE ENTRIES
02981  M00S02909.msi     +++|          EQ     DTYX        RETURN
02982  M00S02910.msi     +++|
02983  M00S02911.msi     +++|
02984  M00S02912.msi     +++| DTYA     CON    0           DEVICE TYPE
02985  M00S02913.msi     +++| ISF      SPACE  4,15
02986  M00S02914.msi     +++|**        ISF - INITIALIZE SPECIAL FILES.
02987  M00S02915.msi     +++|*
02988  M00S02916.msi     +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
02989  M00S02917.msi     +++|*                A - 1, 2, 3, 4, 6.
02990  M00S02918.msi     +++|*
02991  M00S02919.msi     +++|*         MACROS MESSAGE, QCALL, SYSTEM.
02992  M00S02920.msi     +++|
02993  M00S02921.msi     +++|
02994  M00S02922.msi     +++| ISF      SUBR               ENTRY/EXIT
02995  M00S02923.msi     +++|          SA1    PARC+PMEQ   GET MST POINTER
02996  M00S02924.msi     +++|          SA1    X1+ESTF
02997  M00S02925.msi     +++|          SB5    X1
02998  M00S02926.msi     +++|          SA3    TOTL
02999  M00S02927.msi     +++|          SA4    B5+STLL
03000  M00S02928.msi     +++|          AX3    59
03001  M00S02929.msi     +++|          BX4    X3+X4
03002  M00S02930.msi     +++|          MX5    -4
03003  M00S02931.msi     +++|          LX4    59-LIQF     CHECK QUEUE FILE INITIALIZATION
03004  M00S02932.msi     +++|          PL     X4,ISF5     IF NOT SELECTED
03005  M00S02933.msi     +++|
03006  M00S02934.msi     +++|*         INITIALIZE INACTIVE QUEUED FILES.
03007  M00S02935.msi     +++|
03008  M00S02936.msi     +++|          SA3    QFET
03009  M00S02937.msi     +++|          SA2    PARC+PMEQ
03010  M00S02938.msi     +++|          LX5    10
03011  M00S02939.msi     +++|          BX6    X5*X3       CLEAR ERROR CODE
03012  M00S02940.msi     +++|          LX2    48-0
03013  M00S02941.msi     +++|          SA6    A3          RESET FET+0
03014  M00S02942.msi     +++|          BX6    X2
03015  M00S02943.msi     +++|          SA6    A3+7        SET EST ORDINAL FOR *QFM*
03016  M00S02944.msi     +++|          QCALL  IIQF,QFET   INITIALIZE QUEUED FILES
03017  M00S02945.msi     +++|          SA1    QFET
03018  M00S02946.msi     +++|          BX5    -X5*X1      ISOLATE ERROR CODE
03019  M00S02947.msi     +++|          AX5    10D         SET ERROR CODE LOWER
03020  M00S02948.msi     +++|          SA1    PARC+PMEQ
03021  M00S02949.msi     +++|          SA3    MESI        * EQXXX, INACTIVE QUEUES INITIALIZED.*
03022  M00S02950.msi     +++|          SA2    TOTL
03023  M00S02951.msi     +++|          ZR     X5,ISF1     IF QUEUES INITIALIZED
03024  M00S02952.msi     +++|          SA3    MESE        * EQXXX, UNABLE TO INITIALIZE IQFT.*
03025  M00S02953.msi     +++|          NG     X2,ISF5     IF TOTAL INITIALIZE
03026  M00S02954.msi     +++| ISF1     SA1    EQ          SET EST ORDINAL IN MESSAGE
03027  M00S02955.msi     +++|          MX0    42
03028  M00S02956.msi     +++|          LX1    42-18
03029  M00S02957.msi     +++|          LX0    42-18
03030  M00S02958.msi     +++|          BX3    X0*X3
03031  M00S02959.msi     +++|          BX6    X3+X1
03032  M00S02960.msi     +++|          SA6    A3
03033  M00S02961.msi     +++|          SX0    A3          SET MESSAGE ADDRESS
03034  M00S02962.msi     +++|          ZR     X5,ISF4     IF FILE INITIALIZED
03035  M00S02963.msi     +++|          SX2    X5-FAIE
03036  M00S02964.msi     +++|          NZ     X2,ISF2     IF NOT INTERLOCK ERROR
03037  M00S02965.msi     +++|          MESSAGE  MESF,,R   * IQFT FILE INTERLOCKED.*
03038  M00S02966.msi     +++|          EQ     ISF4        SET UNABLE TO INITIALIZE IQFT FILE
03039  M00S02967.msi     +++|
03040  M00S02968.msi     +++| ISF2     SX2    X5-FNFE
03041  M00S02969.msi     +++|          NZ     X2,ISF3     IF FILE FOUND
03042  M00S02970.msi     +++|          MESSAGE  MESG,,R   * NO IQFT FILE FOUND.*
03043  M00S02971.msi     +++| ISF3     SX2    X5-RMSE
03044  M00S02972.msi     +++|          NZ     X2,ISF4     IF NOT RMS ERROR
03045  M00S02973.msi     +++|          MESSAGE  MESH,,R   * UNABLE TO READ IQFT FILE.*
03046  M00S02974.msi     +++| ISF4     MESSAGE  X0,,R     ISSUE INITIALIZATION STATUS MESSAGE
03047  M00S02975.msi     +++|*         MESSAGE  MESE,,R   * EQXXX, UNABLE TO INITIALIZE IQFT.*
03048  M00S02976.msi     +++|*         MESSAGE  MESI,,R   * EQXXX, INACTIVE QUEUES INITIALIZED.*
03049  M00S02977.msi     +++| ISF5     SA5    DSI
03050  M00S02978.msi     +++|          SA4    B5+STLL
03051  M00S02979.msi     +++|          NG     X5,ISFX     IF DEADSTART INITIALIZE
03052  M00S02980.msi     +++|          SA3    TOTL
03053  M00S02981.msi     +++|          AX3    59
03054  M00S02982.msi     +++|          SA5    PARC+PMEQ
03055  M00S02983.msi     +++|          BX4    X3+X4
03056  M00S02984.msi     +++|          LX4    59-LIDF
03057  M00S02985.msi     +++|          PL     X4,ISF6     IF NOT DAYFILE INITIALIZATON
03058  M00S02986.msi     +++|
03059  M00S02987.msi     +++|*         INITIALIZE SYSTEM DAYFILE.
03060  M00S02988.msi     +++|
03061  M00S02989.msi     +++|          SYSTEM IMS,R,X5,IDF
03062  M00S02990.msi     +++| ISF6     LX4    LIDF-LIAF
03063  M00S02991.msi     +++|          PL     X4,ISF7     IF NOT ACCOUNT FILE INITIALIZATION
03064  M00S02992.msi     +++|
03065  M00S02993.msi     +++|*         INITIALIZE ACCOUNT FILE.
03066  M00S02994.msi     +++|
03067  M00S02995.msi     +++|          SYSTEM IMS,R,X5,IDF+1
03068  M00S02996.msi     +++| ISF7     LX4    LIAF-LIEF
03069  M00S02997.msi     +++|          PL     X4,ISF8     IF NOT ERRLOG INITIALIZATION
03070  M00S02998.msi     +++|
03071  M00S02999.msi     +++|*         INITIALIZE ERRLOG.
03072  M00S03000.msi     +++|
03073  M00S03001.msi     +++|          SYSTEM IMS,R,X5,IDF+2
03074  M00S03002.msi     +++| ISF8     LX4    LIEF-LIMF
03075  M00S03003.msi     +++|          PL     X4,ISF9     IF NOT MAINTENANCE LOG INITIALIZATION
03076  M00S03004.msi     +++|
03077  M00S03005.msi     +++|*         INITIALIZE MAINTENANCE LOG.
03078  M00S03006.msi     +++|
03079  M00S03007.msi     +++|          SYSTEM IMS,R,X5,IDF+3
03080  M00S03008.msi     +++| ISF9     PL     X3,ISFX     IF NOT TOTAL INITIALIZE
03081  M00S03009.msi     +++|          SA1    B5+ACGL     CHECK FOR LOCAL AREA SECTOR
03082  M00S03010.msi     +++|          LX1    59-GLAP
03083  M00S03011.msi     +++|          PL     X1,ISFX     IF LOCAL AREA SECTOR NOT DEFINED
03084  M00S03012.msi     +++|          SYSTEM IMS,R,X5,ILA INITIALIZE LOCAL AREAS
03085  M00S03013.msi     +++|          EQ     ISFX        RETURN
03086  M00S03014.msi     +++| MTW      SPACE  4,10
03087  M00S03015.msi     +++|**        MTW - MOVE THREE WORDS TO DISPLAY LINE.
03088  M00S03016.msi     +++|*
03089  M00S03017.msi     +++|*         ENTRY  (A1) = MESSAGE ADDRESS.
03090  M00S03018.msi     +++|*
03091  M00S03019.msi     +++|*         USES   X - 1, 2, 5, 6, 7.
03092  M00S03020.msi     +++|*                A - 1, 2, 5, 6, 7.
03093  M00S03021.msi     +++|*                B - 2.
03094  M00S03022.msi     +++|
03095  M00S03023.msi     +++|
03096  M00S03024.msi     +++| MTW      SUBR               ENTRY/EXIT
03097  M00S03025.msi     +++|          SA2    A1+B1
03098  M00S03026.msi     +++|          BX6    X1
03099  M00S03027.msi     +++|          SA1    A2+B1
03100  M00S03028.msi     +++|          LX7    X2
03101  M00S03029.msi     +++|          SA2    FLFG
03102  M00S03030.msi     +++|          NZ     X2,MTW2     IF FLAW PROCESSING
03103  M00S03031.msi     +++|          SA5    PAGA
03104  M00S03032.msi     +++|          LX5    30
03105  M00S03033.msi     +++|          SB2    X5
03106  M00S03034.msi     +++|          GT     B2,B1,MTW2  IF CURRENT LEFT SCREEN INDEX IS 2
03107  M00S03035.msi     +++|          SA6    MSDS1+1
03108  M00S03036.msi     +++| MTW1     BX6    X1
03109  M00S03037.msi     +++|          SA7    A6+1
03110  M00S03038.msi     +++|          SA6    A7+B1
03111  M00S03039.msi     +++|          SA1    BLK
03112  M00S03040.msi     +++|          BX6    X1
03113  M00S03041.msi     +++|          EQ     B1,B2,MTW3  IF CURRENT LEFT SCREEN INDEX IS 1
03114  M00S03042.msi     +++|          SA2    MSDS1+1
03115  M00S03043.msi     +++| MTW1.1   SA6    A2
03116  M00S03044.msi     +++|          SA6    A2+1
03117  M00S03045.msi     +++|          SA6    A6+B1
03118  M00S03046.msi     +++|          EQ     MTWX        RETURN
03119  M00S03047.msi     +++|
03120  M00S03048.msi     +++| MTW2     SA6   MSDS2+1      DISPLAY FLAW MESSAGE
03121  M00S03049.msi     +++|          EQ    MTW1         CONTINUE
03122  M00S03050.msi     +++|
03123  M00S03051.msi     +++| MTW3     SA2    MSDS2+1
03124  M00S03052.msi     +++|          EQ     MTW1.1      CONTINUE
03125  M00S03053.msi     +++| PMC      SPACE  4,15
03126  M00S03054.msi     +++|**        PMC - PROCESS MODE CHANGE.
03127  M00S03055.msi     +++|*
03128  M00S03056.msi     +++|*         ENTRY  (B3) = EST ORDINAL.
03129  M00S03057.msi     +++|*                (X3) = .LT. 0, IF HALF TRACK ACCESS.
03130  M00S03058.msi     +++|*                (B6) = 0, IF HALF TRACK MODE.
03131  M00S03059.msi     +++|*
03132  M00S03060.msi     +++|*         EXIT   (X5) .LT. 0, IF NO FULL TRACK ACCESS.
03133  M00S03061.msi     +++|*
03134  M00S03062.msi     +++|*         USES   X - ALL.
03135  M00S03063.msi     +++|*                A - 2, 4, 5, 7.
03136  M00S03064.msi     +++|*                B - 4, 6.
03137  M00S03065.msi     +++|*
03138  M00S03066.msi     +++|*         CALLS  DTY.
03139  M00S03067.msi     +++|*
03140  M00S03068.msi     +++|*         MACROS MESSAGE.
03141  M00S03069.msi     +++|
03142  M00S03070.msi     +++|
03143  M00S03071.msi     +++| PMC      SUBR               ENTRY/EXIT
03144  M00S03072.msi     +++|          MX0    -12
03145  M00S03073.msi     +++|          MX1    0
03146  M00S03074.msi     +++|          NG     X3,PMC3     IF HALF TRACK ACCESS
03147  M00S03075.msi     +++|          MX1    60
03148  M00S03076.msi     +++|          SB6    12          SET FULL TRACK SHIFT COUNT
03149  M00S03077.msi     +++|
03150  M00S03078.msi     +++|*         ASSEMBLE EST IMAGE.
03151  M00S03079.msi     +++|
03152  M00S03080.msi     +++| PMC3     SX7    B3
03153  M00S03081.msi     +++|          R=     X4,ESTE
03154  M00S03082.msi     +++|          IX7    X7*X4
03155  M00S03083.msi     +++|          SA4    ESTB+X7+EQDE READ EST ENTRY
03156  M00S03084.msi     +++|          LX4    -12
Line S03085 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03157  M01S03085.284l847 ---|          BX7    -X0*X4      CURRENT DEVICE TYPE
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03158  M01S00001.284l847 +++|          BX5    -X0*X4      CURRENT DEVICE TYPE
03159  M00S03086.msi     +++|          SA2    PMCB-1
03160  M00S03087.msi     +++| PMC4     SA2    A2+B1       READ NEXT LIST WORD
Line S03088 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03161  M01S03088.284l847 ---|          BX5    -X0*X2
03162  M01S03089.284l847 ---|          ZR     X2,PMC5     IF END OF LIST
Line S00002 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03163  M01S00002.284l847 +++|          BX7    -X0*X2
03164  M01S00003.284l847 +++|          ZR     X2,PMC4.0   IF END OF LIST
03165  M00S03090.msi     +++|          BX6    X5-X7
03166  M00S03091.msi     +++|          NZ     X6,PMC4     IF NO MATCH
03167  M00S03092.msi     +++|          AX2    12
03168  M00S03093.msi     +++|          AX2    X2,B6       POSITION NEW DEVICE TYPE
Line S03094 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03169  M01S03094.284l847 ---|          BX4    X0*X4
03170  M00S03095.msi     +++|          BX5    -X0*X2      NEW DEVICE TYPE
Line S00004 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03171  M01S00004.284l847 +++| PMC4.0   BX4    X0*X4
03172  M00S03096.msi     +++|          BX7    X4+X5       MERGE NEW DEVICE TYPE
03173  M00S03097.msi     +++|          SX0    10001B      SET CHANNEL ACCESS FLAGS
03174  M00S03098.msi     +++|          LX7    12
03175  M00S03099.msi     +++|          LX0    24+8
03176  M00S03100.msi     +++|          BX2    X0*X7       CHANNEL MODE FLAGS
03177  M00S03101.msi     +++|          BX2    X1-X2       SELECT MODE OF OPERATION
03178  M00S03102.msi     +++|          BX2    X0*X2       NEW CHANNEL ACCESS FLAGS
03179  M00S03103.msi     +++|          MX5    1
03180  M00S03104.msi     +++|          ZR     X1,PMC4.1   IF HALF TRACK INITIALIZE
03181  M00S03105.msi     +++|          ZR     X2,PMCX     IF NO CHANNELS FOR ACCESS
03182  M00S03106.msi     +++| PMC4.1   SA7    A4
03183  M00S03107.msi     +++|          RJ     DTY         SET SINGLE UNIT SECTOR LIMIT
03184  M00S03108.msi     +++|          MX0    12
03185  M00S03109.msi     +++|          LX0    -12
03186  M00S03110.msi     +++|          SA1    X5+ESTF
03187  M00S03111.msi     +++|          SA2    X1+MDGL
03188  M00S03112.msi     +++|          BX7    X0*X3
03189  M00S03113.msi     +++|          BX2    -X0*X2
03190  M00S03114.msi     +++|          AX3    12
03191  M00S03115.msi     +++|          BX7    X2+X7
03192  M00S03116.msi     +++|          MX0    -6
03193  M00S03117.msi     +++|          SA7    A2
03194  M00S03118.msi     +++|          SA4    X1+DILL     CHANGE ALGORITHM INDEX
03195  M00S03119.msi     +++|          BX2    -X0*X3
03196  M00S03120.msi     +++|          BX4    X0*X4
03197  M00S03121.msi     +++|          BX7    X2+X4
03198  M00S03122.msi     +++|          SA7    A4
03199  M00S03123.msi     +++|          EQ     PMCX        RETURN
03200  M00S03124.msi     +++|
Line S03125 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03201  M01S03125.284l847 ---| PMC5     MESSAGE  MESD      * INTERNAL ERROR IN MSI.*
Line S03126 Modification History
M01 (Removed by) 253l688
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03202  M02S03126.284l847 ---|          EQ     ABT         EXIT TO ABORT PROCESSOR
Line S00051 Modification History
M01 (Added by) 253l688
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03203  M02S00051.284l847 ---|          RJ     ABT         ABORT *MSI*
Line S03127 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03204  M01S03127.284l847 ---|
03205  M00S03128.msi     +++|**        DEVICE CONVERSION TABLES.
03206  M00S03129.msi     +++|*T PMCB   24/,12/ *FT* TYPE, 12/ *HT* TYPE, 12/OLD TYPE
Figure PMCB

01112232429OLD TYPE *HT* TYPE *FT* TYPE30353659 *FT* TYPE

03207  M00S03130.msi     +++|
03208  M00S03131.msi     +++| PMCB     VFD    24/,12/2RDK,12/2RDI,12/2RDI
03209  M00S03132.msi     +++|          VFD    24/,12/2RDL,12/2RDJ,12/2RDJ
03210  M00S03133.msi     +++|          VFD    24/,12/2RDK,12/2RDI,12/2RDK
03211  M00S03134.msi     +++|          VFD    24/,12/2RDL,12/2RDJ,12/2RDL
03212  M00S03135.msi     +++|          VFD    24/,12/2RDQ,12/2RDM,12/2RDM
03213  M00S03136.msi     +++|          VFD    24/,12/2RDQ,12/2RDM,12/2RDQ
Line S03137 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03214  M01S03137.284l847 ---|          VFD    24/,12/2RDV,12/2RDV,12/2RDV
03215  M01S03138.284l847 ---|          VFD    24/,12/2RDW,12/2RDW,12/2RDW
03216  M01S03139.284l847 ---|          VFD    24/,12/2RDX,12/2RDX,12/2RDX
03217  M01S03140.284l847 ---|          VFD    24/,12/2RDY,12/2RDY,12/2RDY
03218  M01S03141.284l847 ---|          VFD    24/,12/2RDZ,12/2RDZ,12/2RDZ
03219  M01S03142.284l847 ---|          VFD    24/,12/2RDA,12/2RDA,12/2RDA
03220  M01S03143.284l847 ---|          VFD    24/,12/2RDB,12/2RDB,12/2RDB
03221  M01S03144.284l847 ---|          VFD    24/,12/2RDC,12/2RDC,12/2RDC
03222  M01S03145.284l847 ---|          VFD    24/,12/2RDD,12/2RDD,12/2RDD
03223  M01S03146.284l847 ---|          VFD    24/,12/2RDF,12/2RDF,12/2RDF
03224  M01S03147.284l847 ---|          VFD    24/,12/2RDG,12/2RDG,12/2RDG
03225  M01S03148.284l847 ---|          VFD    24/,12/2RDH,12/2RDH,12/2RDH
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03226  M02S00001.284l847 ---|          VFD    24/,12/2RDN,12/2RDN,12/2RDN
Line S00001 Modification History
M01 (Added by) 272l774
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03227  M02S00001.284l847 ---|          VFD    24/,12/2REA,12/2REA,12/2REA
03228  M02S00002.284l847 ---|          VFD    24/,12/2REB,12/2REB,12/2REB
03229  M02S00003.284l847 ---|          VFD    24/,12/2REC,12/2REC,12/2REC
03230  M02S00004.284l847 ---|          VFD    24/,12/2RED,12/2RED,12/2RED
03231  M02S00005.284l847 ---|          VFD    24/,12/2REE,12/2REE,12/2REE
03232  M02S00006.284l847 ---|          VFD    24/,12/2REF,12/2REF,12/2REF
Line S00001 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
03233  M02S00001.284l847 ---|          VFD    24/,12/2REG,12/2REG,12/2REG
03234  M02S00002.284l847 ---|          VFD    24/,12/2REH,12/2REH,12/2REH
03235  M00S03149.msi     +++|          CON    0           END OF TABLE
03236  M00S03150.msi     +++| PTY      SPACE  4,10
03237  M00S03151.msi     +++|**        PTY - PROCESS TYPE.
03238  M00S03152.msi     +++|*
03239  M00S03153.msi     +++|*         ENTRY  (B5) = MST POINTER.
03240  M00S03154.msi     +++|*
03241  M00S03155.msi     +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
03242  M00S03156.msi     +++|*                A - 1, 2, 3.
03243  M00S03157.msi     +++|*
03244  M00S03158.msi     +++|*         CALLS  COD.
03245  M00S03159.msi     +++|
03246  M00S03160.msi     +++|
03247  M00S03161.msi     +++| PTY      SUBR               ENTRY/EXIT
03248  M00S03162.msi     +++|          SA1    PARC+PMTY
03249  M00S03163.msi     +++|          SA2    B5+MDGL
03250  M00S03164.msi     +++|          LX1    6
03251  M00S03165.msi     +++|          SA3    B5+PUGL
03252  M00S03166.msi     +++|          LX2    59-58
03253  M00S03167.msi     +++| PTY1     MX0    -16
03254  M00S03168.msi     +++|          ZR     X1,PTY3     IF TYPE NOT ENTERED
03255  M00S03169.msi     +++|          BX6    -X0         DEFAULT MASK FOR AUXILIARY DEVICES
03256  M00S03170.msi     +++|          MX7    1           SET AUXILIARY BIT
03257  M00S03171.msi     +++|          SX4    X1-1RX
03258  M00S03172.msi     +++|          BX2    -X7*X2
03259  M00S03173.msi     +++|          ZR     X4,PTY2     IF AUXILIARY TYPE
03260  M00S03174.msi     +++|          MX7    0           CLEAR AUXILIARY BIT
03261  M00S03175.msi     +++|          BX6    -X0*X3      DEFAULT MASKS FOR FAMILY TYPE
03262  M00S03176.msi     +++|          SX1    1RF         SET TO FAMILY DEVICE
03263  M00S03177.msi     +++| PTY2     BX3    X0*X3       SET DEFAULT MASKS
03264  M00S03178.msi     +++|          BX6    X3+X6
03265  M00S03179.msi     +++|          BX7    X7+X2       MERGE NEW AUXILIARY BIT
03266  M00S03180.msi     +++|          SA6    A3
03267  M00S03181.msi     +++|          LX7    58-59
03268  M00S03182.msi     +++|          SA7    A2
03269  M00S03183.msi     +++|          LX1    -6
03270  M00S03184.msi     +++|          BX6    X1
03271  M00S03185.msi     +++|          SA6    A1          RESET TYPE
03272  M00S03186.msi     +++|          SA6    TYDS+1
03273  M00S03187.msi     +++|          SA1    B5+PUGL     SET INDIRECT FILE MASK
03274  M00S03188.msi     +++|          MX0    -8
03275  M00S03189.msi     +++|          BX7    -X0*X1
03276  M00S03190.msi     +++|          BX1    -X0*X1
03277  M00S03191.msi     +++|          SA7    PARC+PMDM
03278  M00S03192.msi     +++|          RJ     COD
03279  M00S03193.msi     +++|          SA1    B5+PUGL     SET DIRECT ACCESS MASK
03280  M00S03194.msi     +++|          BX6    X4
03281  M00S03195.msi     +++|          AX1    8
03282  M00S03196.msi     +++|          SA6    DMDS+1
03283  M00S03197.msi     +++|          BX7    -X0*X1
03284  M00S03198.msi     +++|          BX1    -X0*X1
03285  M00S03199.msi     +++|          SA7    PARC+PMSM
03286  M00S03200.msi     +++|          RJ     COD
03287  M00S03201.msi     +++|          BX6    X4
03288  M00S03202.msi     +++|          SA6    SMDS+1
03289  M00S03203.msi     +++|          EQ     PTYX        RETURN
03290  M00S03204.msi     +++|
03291  M00S03205.msi     +++| PTY3     SX1    1RX
03292  M00S03206.msi     +++|          NG     X2,PTY1     IF AUXILIARY DEVICE
03293  M00S03207.msi     +++|          SX1    1RF         SET TO FAMILY DEVICE
03294  M00S03208.msi     +++|          EQ     PTY1        LOOP
03295  M00S03209.msi     +++| SAL      SPACE  4,15
03296  M00S03210.msi     +++|**        SAL - SET ACCESS LEVEL DEFAULTS.
03297  M00S03211.msi     +++|*
03298  M00S03212.msi     +++|*         EXIT   DEFAULTS SET IN THE PARAMETER LIST AND THE K-DISPLAY.
03299  M00S03213.msi     +++|*                IF THE INITIALIZE IS TOTAL, THE DEFAULTS WILL BE
03300  M00S03214.msi     +++|*                SET TO THE LOWER EQUIPMENT ACCESS LIMIT FROM THE
03301  M00S03215.msi     +++|*                EST ENTRY.
03302  M00S03216.msi     +++|*                THE DEFAULTS WILL BE SET FROM THE MST FOR DEADSTART
03303  M00S03217.msi     +++|*                INITIALIZE, AS WELL AS FOR A NON-TOTAL INITIALIZE.
03304  M00S03218.msi     +++|*
03305  M00S03219.msi     +++|*         USES   X - 0, 1, 2, 5, 6.
03306  M00S03220.msi     +++|*                A - 1, 5, 6.
03307  M00S03221.msi     +++|*                B - 3, 4.
03308  M00S03222.msi     +++|
03309  M00S03223.msi     +++|
03310  M00S03224.msi     +++| SAL      SUBR               ENTRY/EXIT
03311  M00S03225.msi     +++|          SA1    TOTL
03312  M00S03226.msi     +++|          SA5    B5+PFGL     READ ACCESS LEVELS FROM LABEL
03313  M00S03227.msi     +++|          SB4    51          SET SHIFT COUNTS
03314  M00S03228.msi     +++|          SB3    3
03315  M00S03229.msi     +++|          MX0    -3
03316  M00S03230.msi     +++|          PL     X1,SAL1     IF NOT TOTAL INITIALIZE
03317  M00S03231.msi     +++|          SA1    DSI
03318  M00S03232.msi     +++|          NG     X1,SAL1     IF DEADSTART INITIALIZE
03319  M00S03233.msi     +++|          SA5    PARC+PMEQ
03320  M00S03234.msi     +++|          R=     X1,ESTE
03321  M00S03235.msi     +++|          IX1    X5*X1
03322  M00S03236.msi     +++|          SA5    ESTB+X1+EQAE  READ ACCESS LEVELS FROM EST
03323  M00S03237.msi     +++|          SB4    45          SET SHIFT COUNTS
03324  M00S03238.msi     +++|          SB3    B0+
03325  M00S03239.msi     +++| SAL1     LX5    B4          POSITION ACCESS LEVELS
03326  M00S03240.msi     +++|          BX1    -X0*X5      PROCESS LOWER ACCESS LEVEL
03327  M00S03241.msi     +++|          SA1    X1+TALV
03328  M00S03242.msi     +++|          MX2    42
03329  M00S03243.msi     +++|          BX6    X2*X1
03330  M00S03244.msi     +++|          SA6    PARC+PMLA   SET LOWER LIMIT IN PARAMETER LIST
03331  M00S03245.msi     +++|          SA6    LADS+1      SET LOWER LIMIT IN DISPLAY
03332  M00S03246.msi     +++|          LX5    B3          PROCESS UPPER ACCESS LEVEL
03333  M00S03247.msi     +++|          BX1    -X0*X5
03334  M00S03248.msi     +++|          SA1    X1+TALV
03335  M00S03249.msi     +++|          BX6    X2*X1
03336  M00S03250.msi     +++|          SA6    PARC+PMUA   SET UPPER LIMIT IN PARAMETER LIST
03337  M00S03251.msi     +++|          SA6    UADS+1      SET UPPER LIMIT IN DISPLAY
03338  M00S03252.msi     +++|          EQ     SALX        RETURN
03339  M00S03253.msi     +++| PRS      SPACE  4,15
03340  M00S03254.msi     +++|**        PRS - PRESET PROGRAM.
03341  M00S03255.msi     +++|*
03342  M00S03256.msi     +++|*         EXIT   EST AND MST TABLE READ INTO BUFFERS.
03343  M00S03257.msi     +++|*
03344  M00S03258.msi     +++|*         USES   X - ALL.
03345  M00S03259.msi     +++|*                A - 1, 2, 5, 6, 7.
03346  M00S03260.msi     +++|*                B - 7.
03347  M00S03261.msi     +++|*
03348  M00S03262.msi     +++|*         CALLS  PRK.
03349  M00S03263.msi     +++|*
03350  M00S03264.msi     +++|*         MACROS CLEAR, GETSSM, MESSAGE, SYSTEM.
03351  M00S03265.msi     +++|
03352  M00S03266.msi     +++|
03353  M00S03267.msi     +++| PRS      SUBR               ENTRY/EXIT
03354  M00S03268.msi     +++|          SA5    JOPR        CHECK JOB ORIGIN
03355  M00S03269.msi     +++|          MX0    -12
03356  M00S03270.msi     +++|          LX5    -24
03357  M00S03271.msi     +++|          BX5    -X0*X5
03358  M00S03272.msi     +++|          SB7    X5-SYOT
03359  M00S03273.msi     +++|          NZ     B7,PRS3     IF NOT SYSTEM ORIGIN
03360  M00S03274.msi     +++|          SX3    KYCT
03361  M00S03275.msi     +++|          RJ     PRK         PRESET *K* DISPLAY
03362  M00S03276.msi     +++|          SX7    TFLA        SET FLAW INDEX
03363  M00S03277.msi     +++|          SA7    FLAI
03364  M00S03278.msi     +++|          CLEAR  ESTB,BUF-ESTB  CLEAR *ESTB*, *ESTF*, AND *PKL*
03365  M00S03279.msi     +++|          CLEAR  FLGS,FLGSL,X7     CLEAR FLAGS
03366  M00S03280.msi     +++|          CLEAR  PARC+PMFN,OTBLL,X7
03367  M00S03281.msi     +++|          SA7    PREQ
03368  M00S03282.msi     +++|          SA7    CFEB        PREVENT SETTING FLAWS FOR SPECIFIED DEVICE
03369  M00S03283.msi     +++|          SA1    PRSA        READ EST POINTER WORD
03370  M00S03284.msi     +++|          MX6    1
03371  M00S03285.msi     +++|          BX7    X1
03372  M00S03286.msi     +++|          SA6    ESTB        SET LOW CORE READ
03373  M00S03287.msi     +++|          SA7    LCRC
03374  M00S03288.msi     +++|          SYSTEM RSB,R,LCRC
03375  M00S03289.msi     +++|          SA2    ESTB        SET *COMCRSB* ENTRY CONDITIONS
03376  M00S03290.msi     +++|          MX3    -12
03377  M00S03291.msi     +++|          SX1    A2          SET ADDRESS TO TRANSFER TO
03378  M00S03292.msi     +++|          AX2    12
03379  M00S03293.msi     +++|          BX7    -X3*X2
03380  M00S03294.msi     +++|          AX2    24          SET ADDRESS TO TRANSFER FROM
03381  M00S03295.msi     +++|          SA7    PRSB        SAVE LAST EST ORDINAL + 1
03382  M00S03296.msi     +++|          R=     X6,ESTE
03383  M00S03297.msi     +++|          IX3    X7*X6       SET WORD COUNT
03384  M00S03298.msi     +++|          SX4    B0          SET SUBSYSTEM (= *CMR*)
03385  M00S03299.msi     +++|          MX6    1
03386  M00S03300.msi     +++|          SA6    X1
03387  M00S03301.msi     +++|          RJ     RSB=        READ EST
Line S00052 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03388  M01S00052.253l688 +++|          GETSSID  SSID      GET SUBSYSTEM ID
03389  M00S03302.msi     +++|          GETSSM SSFL        GET SYSTEM SECURITY MODE
03390  M00S03303.msi     +++|          SA1    PRSC        READ MMFL WORD
03391  M00S03304.msi     +++|          MX6    1
03392  M00S03305.msi     +++|          BX7    X1
03393  M00S03306.msi     +++|          SA6    SCRB
03394  M00S03307.msi     +++|          SA7    LCRC
03395  M00S03308.msi     +++|          SYSTEM RSB,R,LCRC
03396  M00S03309.msi     +++|          SA1    SCRB        SET LINK DEVICE
03397  M00S03310.msi     +++|          MX6    -9
03398  M00S03311.msi     +++|          LX1    59-35
03399  M00S03312.msi     +++|          BX6    -X6*X1
03400  M00S03313.msi     +++|          NZ     X6,PRS1     IF LINK DEVICE DEFINED
03401  M00S03314.msi     +++|          R=     X6,NEEQ
03402  M00S03315.msi     +++| PRS1     SA6    LINK
03403  M00S03316.msi     +++|          SX6    BUF         READ MST,S FOR ALL MASS STORAGE
03404  M00S03317.msi     +++|          SA6    BUFI
03405  M00S03318.msi     +++|          SX6    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
03406  M00S03319.msi     +++|          SA6    TEMP
03407  M00S03320.msi     +++| PRS2     SA5    TEMP
03408  M00S03321.msi     +++|          SX7    X5+B1
03409  M00S03322.msi     +++|          SA7    A5
03410  M00S03323.msi     +++|          SA1    PRSB        CHECK ORDINAL
03411  M00S03324.msi     +++|          IX6    X5-X1
03412  M00S03325.msi     +++|          R=     X0,ESTE
03413  M00S03326.msi     +++|          IX7    X5*X0
03414  M00S03327.msi     +++|          SA1    ESTB+X7+EQDE  GET EST ENTRY
03415  M00S03328.msi     +++|          ZR     X6,PRSX     IF END OF EST
03416  M00S03329.msi     +++|          PL     X1,PRS2     IF NOT MASS STORAGE
03417  M00S03330.msi     +++|          MX0    -12
03418  M00S03331.msi     +++|          SX6    MSTL
03419  M00S03332.msi     +++|          SA2    BUFI
03420  M00S03333.msi     +++|          IX7    X2+X6       INCREMENT BUFFER POINTER
03421  M00S03334.msi     +++|          LX6    36
03422  M00S03335.msi     +++|          BX1    -X0*X1
03423  M00S03336.msi     +++|          SA7    A2
03424  M00S03337.msi     +++|          LX1    18+3        MST ADDRESS
03425  M00S03338.msi     +++|          BX6    X6+X2
03426  M00S03339.msi     +++|          IX6    X6+X1
03427  M00S03340.msi     +++|          SA6    LCRC
03428  M00S03341.msi     +++|          BX7    X2
03429  M00S03342.msi     +++|          MX6    1
03430  M00S03343.msi     +++|          SA7    ESTF+X5     SET MST ADDRESS IN ESTF
03431  M00S03344.msi     +++|          SA6    X2          FLAG LOW CORE READ
03432  M00S03345.msi     +++|          SYSTEM RSB,R,LCRC  READ MST
03433  M00S03346.msi     +++|          EQ     PRS2        LOOP FOR NEXT DEVICE
03434  M00S03347.msi     +++|
03435  M00S03348.msi     +++| PRS3     MESSAGE  MESK      * USER ACCESS NOT VALID.*
03436  M00S03349.msi     +++|          ABORT
03437  M00S03350.msi     +++|
03438  M00S03351.msi     +++| PRSA     VFD    24/1,18/ESTP,18/ESTB
03439  M00S03352.msi     +++| PRSB     CON    **          LAST MASS STORAGE ORDINAL + 1
03440  M00S03353.msi     +++| PRSC     VFD    24/1,18/MMFL,18/SCRB
03441  M00S03354.msi     +++|          TITLE  K DISPLAY KEYBOARD MESSAGES
03442  M00S03355.msi     +++|          SPACE  4
03443  M00S03356.msi     +++|*         K-DISPLAY KEYBOARD ERROR MESSAGES.
03444  M00S03357.msi     +++|
03445  M00S03358.msi     +++| ERRF     BSS    1
03446  M00S03359.msi     +++| ERROR1   DATA   30HUN MUST BE SPECIFIED.
03447  M00S03360.msi     +++| ERROR2   DATA   30HNC IS NOT A POWER OF 2.
03448  M00S03361.msi     +++| ERROR3   DATA   30HFAMILY MASK NOT EQUAL TO 377.
03449  M00S03362.msi     +++| ERROR5   DATA   30HEQ OR DN INCORRECT.
03450  M00S03363.msi     +++| ERROR6   DATA   30HINCORRECT ENTRY.
03451  M00S03364.msi     +++| ERROR7   DATA   30HFM OR PN MUST BE SPECIFIED.
03452  M00S03365.msi     +++| ERROR8   DATA   30HNP GREATER THAN 8.
03453  M00S03366.msi     +++| ERROR9   DATA   30HDUPLICATE PN.
03454  M00S03367.msi     +++| ERROR10  DATA   30HNC EXCEEDS 200B.
03455  M00S03368.msi     +++| ERROR11  DATA   30HCANNOT ALLOCATE DEVICE.
03456  M00S03369.msi     +++| ERROR12  DATA   30HNOT AUXILIARY PACK.
03457  M00S03370.msi     +++| ERROR13  DATA   30HDUPLICATE DN.
03458  M00S03371.msi     +++| ERROR15  DATA   30HDEVICE NOT REMOVABLE.
03459  M00S03372.msi     +++| ERROR16  DATA   30HNP NOT ALLOWED.
03460  M00S03373.msi     +++| ERROR17  DATA   30HDUPLICATE BITS IN MASK.
03461  M00S03374.msi     +++| ERROR18  DATA   30HDEVICE NOT FIRST IN CHAIN.
03462  M00S03375.msi     +++| ERROR19  DATA   30HEQXXX, INITIALIZE BIT NOT SET.
03463  M00S03376.msi     +++| ERROR20  DATA   30HDN CANNOT BE ZERO.
03464  M00S03377.msi     +++| ERROR21  DATA   30HEQXXX, FORMAT PENDING.
03465  M00S03378.msi     +++| ERROR22  DATA   30HDEFINED DEVICE ALREADY EXISTS.
03466  M00S03379.msi     +++| ERROR23  DATA   30HEQXXX, NO FULL TRACK ACCESS.
03467  M00S03380.msi     +++| ERROR24  DATA   30HDEADSTART INITIALIZE REQUIRED.
03468  M00S03381.msi     +++| ERROR25  DATA   30HFULL INITIALIZE REQUIRED.
03469  M00S03382.msi     +++| ERROR26  DATA   30HEQXXX, TRACK LIMIT.
03470  M00S03383.msi     +++| ERROR27  DATA   30HUA NOT WITHIN LIMIT.
03471  M00S03384.msi     +++| ERROR28  DATA   30HLA NOT WITHIN LIMIT.
03472  M00S03385.msi     +++| ERROR29  DATA   30HLA GREATER THAN UA.
03473  M00S03386.msi     +++| ERROR30  DATA   30HUNKNOWN ACCESS LEVEL NAME.
03474  M00S03387.msi     +++|
03475  M00S03388.msi     +++|*         K-DISPLAY KEYBOARD INFORMATIVE MESSAGES.
03476  M00S03389.msi     +++|
03477  M00S03390.msi     +++| REQOP    DATA   30HENTER OPTION.
03478  M00S03391.msi     +++| REQEQ    DATA   30HENTER EST ORDINAL.
03479  M00S03392.msi     +++| REQPM    DATA   30HENTER PARAMETERS.
03480  M00S03393.msi     +++| ENOFN    DATA   30HENTER OLD FAMILY NAME.
03481  M00S03394.msi     +++| ENOPN    DATA   30HENTER OLD PACK NAME.
03482  M00S03395.msi     +++| ENOUN    DATA   30HENTER OLD USER NAME.
03483  M00S03396.msi     +++| ENODN    DATA   30HENTER OLD DEVICE NUMBER.
03484  M00S03397.msi     +++| ENNFN    DATA   30HENTER NEW FAMILY/PACK NAME.
03485  M00S03398.msi     +++| ENFLS    DATA   30HENTER FLAWS.
03486  M00S03399.msi     +++| ENID     DATA   30HENTER IDENTITY OF EQXXX.
03487  M00S03400.msi     +++| EDRN     DATA   30HEND OF RUN.
03488  M00S03401.msi     +++| ENCL     DATA   30HENTER CLEAR OR RERUN.
03489  M00S03402.msi     +++|
03490  M00S03403.msi     +++|*         DAYFILE MESSAGES.
03491  M00S03404.msi     +++|
03492  M00S03405.msi     +++| MESA     DATA   C* EQXXX, ACTIVE FILES, CANNOT INITIALIZE.*
03493  M00S03406.msi     +++| MESB     DATA   C* MSI ABORTED INITIALIZE MAY NOT BE COMPLETE.*
03494  M00S03407.msi     +++| MESC     DATA   C* NO INITIALIZE REQUESTS SET FOR MSI.*
03495  M00S03408.msi     +++| MESD     DATA   C* INTERNAL ERROR IN MSI.*
03496  M00S03409.msi     +++| MESE     DATA   C* EQXXX, UNABLE TO INITIALIZE IQFT.*
03497  M00S03410.msi     +++| MESF     DATA   C* IQFT FILE INTERLOCKED.*
03498  M00S03411.msi     +++| MESG     DATA   C* NO IQFT FILE FOUND.*
03499  M00S03412.msi     +++| MESH     DATA   C* UNABLE TO READ IQFT FILE.*
03500  M00S03413.msi     +++| MESI     DATA   C* EQXXX, INACTIVE QUEUES INITIALIZED.*
03501  M00S03414.msi     +++| MESJ     DATA   C* LINK DEVICE CANNOT BE ALTERED.*
03502  M00S03415.msi     +++| MESK     DATA   C* USER ACCESS NOT VALID.*
Line S00053 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03503  M01S00053.253l688 +++| MESL     DATA   C* MSI HUNG.*
03504  M00S03416.msi     +++|          TITLE  KEYBOARD INPUT PROCESSOR.
03505  M00S03417.msi     +++| PKI      SPACE  4,10
03506  M00S03418.msi     +++|**        PKI - PROCESS KEYBOARD INPUT.
03507  M00S03419.msi     +++|*
03508  M00S03420.msi     +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
03509  M00S03421.msi     +++|*                A - 0, 1, 2, 4, 5, 6, 7.
03510  M00S03422.msi     +++|*                B - 2, 3, 4, 5, 7.
03511  M00S03423.msi     +++|*
03512  M00S03424.msi     +++|*         CALLS  ARG, CFE, DTY, DXB, RPT, SPT.
03513  M00S03425.msi     +++|
03514  M00S03426.msi     +++|
03515  M00S03427.msi     +++| PKI      SUBR               ENTRY/EXIT
03516  M00S03428.msi     +++| PKI1     EQ     KIP         KEYBOARD INPUT PROCESSOR
03517  M00S03429.msi     +++|
03518  M00S03430.msi     +++| PKI2     ZR     B6,PKI3     IF NO PARAMETERS ENTERED
03519  M00S03431.msi     +++|          KEYMES BLK         BLANK MESSAGE LINE
03520  M00S03432.msi     +++|          SB4    PAR
03521  M00S03433.msi     +++|          RJ     CFE         CHECK FOR FLAW ENTRY
03522  M00S03434.msi     +++|          NZ     X4,PKI3     IF ERROR
03523  M00S03435.msi     +++|          ZR     X2,PKI1     IF FLAW ENTRY
03524  M00S03436.msi     +++|          SA4    PAR
03525  M00S03437.msi     +++|          SA2    ARGP
03526  M00S03438.msi     +++|          SB4    B6
03527  M00S03439.msi     +++|          SB5    X2
03528  M00S03440.msi     +++|          RJ     ARG
03529  M00S03441.msi     +++|          ZR     X1,PKI4     IF NO ARGUMENT ERRORS
03530  M00S03442.msi     +++| PKI3     ERROR  6           *INCORRECT ENTRY.*
03531  M00S03443.msi     +++|          EQ     PKI1        LOOP FOR NEW DATA
03532  M00S03444.msi     +++|
03533  M00S03445.msi     +++| PKI4     BX6    X6-X6       CLEAR ERROR FLAG
03534  M00S03446.msi     +++|          SA6    ERRF
03535  M00S03447.msi     +++|          SB2    TENP        SET INITIAL REGISTERS
03536  M00S03448.msi     +++|          SB4    PARC
03537  M00S03449.msi     +++|          SA0    DATB
03538  M00S03450.msi     +++|
03539  M00S03451.msi     +++|*         PROCESS NAMES.
03540  M00S03452.msi     +++|
03541  M00S03453.msi     +++|          SB3    NNME        SET NUMBER OF NAMES TO PROCESS
03542  M00S03454.msi     +++| PKI5     SA2    B2          GET NAME
03543  M00S03455.msi     +++|          ZR     X2,PKI7     IF NAME NOT ENTERED
03544  M00S03456.msi     +++|          BX7    X2          SAVE CONVERTED PARAMETER
03545  M00S03457.msi     +++|          SA1    A0          DISPLAY ENTERED PARAMETER
03546  M00S03458.msi     +++|          SA7    X1
03547  M00S03459.msi     +++|          SA1    =1L0
03548  M00S03460.msi     +++|          BX1    X7-X1
03549  M00S03461.msi     +++|          NZ     X1,PKI6     IF NOT *0*
03550  M00S03462.msi     +++|          BX7    X7-X7
03551  M00S03463.msi     +++| PKI6     SA7    B4          STORE PARAMETER
03552  M00S03464.msi     +++| PKI7     SB2    B2+B1       INCREMENT POINTERS
03553  M00S03465.msi     +++|          SB3    B3-B1
03554  M00S03466.msi     +++|          SB4    B4+B1
03555  M00S03467.msi     +++|          SA0    A0+B1
03556  M00S03468.msi     +++|          NZ     B3,PKI5     IF MORE NAMES TO PROCESS
03557  M00S03469.msi     +++|
03558  M00S03470.msi     +++|*         PROCESS OCTAL PARAMETERS.
03559  M00S03471.msi     +++|
03560  M00S03472.msi     +++|          SB3    NOCT        SET NUMBER OF OCTAL PARAMETERS
03561  M00S03473.msi     +++|          SB7    B0
03562  M00S03474.msi     +++| PKI8     SA5    B2          GET OCTAL PARAMETER
03563  M00S03475.msi     +++|          ZR     X5,PKI10    IF PARAMETER NOT ENTERED
03564  M00S03476.msi     +++|          RJ     SPT         SAVE POINTERS
03565  M00S03477.msi     +++|          RJ     DXB         CONVERT PARAMETER
03566  M00S03478.msi     +++|          RJ     RPT         RESTORE POINTERS
03567  M00S03479.msi     +++|          ZR     X4,PKI9     IF NO ERROR IN CONVERSION
03568  M00S03480.msi     +++|          SX6    B1          SET ERROR FLAG
03569  M00S03481.msi     +++|          SA6    ERRF
03570  M00S03482.msi     +++|          EQ     PKI10       INCREMENT POINTERS
03571  M00S03483.msi     +++|
03572  M00S03484.msi     +++| PKI9     SA6    B4          SAVE CONVERTED VALUE
03573  M00S03485.msi     +++|          SA1    B2          DISPLAY ENTERED PARAMETER
03574  M00S03486.msi     +++|          BX6    X1
03575  M00S03487.msi     +++|          SA1    A0
03576  M00S03488.msi     +++|          SA6    X1
03577  M00S03489.msi     +++| PKI10    SB2    B2+B1       INCREMENT POINTERS
03578  M00S03490.msi     +++|          SB3    B3-B1
03579  M00S03491.msi     +++|          SB4    B4+B1
03580  M00S03492.msi     +++|          SA0    A0+B1
03581  M00S03493.msi     +++|          NZ     B3,PKI8     IF MORE OCTAL PARAMETERS TO PROCESS
03582  M00S03494.msi     +++|
03583  M00S03495.msi     +++|*         CLEAR OUT ENTRY AREA.
03584  M00S03496.msi     +++|
03585  M00S03497.msi     +++|          SB3    OTBLL-1     SET PARAMETER AREA LENGTH
03586  M00S03498.msi     +++|          SB2    PARE
03587  M00S03499.msi     +++|          BX6    X6-X6
03588  M00S03500.msi     +++| PKI11    SA6    B2+B3
03589  M00S03501.msi     +++|          SB3    B3-B1
03590  M00S03502.msi     +++|          PL     B3,PKI11    IF MORE TO CLEAR
03591  M00S03503.msi     +++|          RJ     DTY         GET FLAW PROCESSOR
03592  M00S03504.msi     +++|          AX3    18
03593  M00S03505.msi     +++|          SX6    X3
03594  M00S03506.msi     +++|          SA6    DFPR
03595  M00S03507.msi     +++|
03596  M00S03508.msi     +++|*         CHECK FOR ERROR CONDITION.
03597  M00S03509.msi     +++|
03598  M00S03510.msi     +++|          SA1    ERRF        CHECK FOR ERROR IN CONVERSION
03599  M00S03511.msi     +++|          SA2    CNT
03600  M00S03512.msi     +++|          NZ     X1,PKI3     DISPLAY ERROR MESSAGE
03601  M00S03513.msi     +++|          SX7    X2-1
03602  M00S03514.msi     +++|          SA7    CNT
03603  M00S03515.msi     +++|          ZR     X7,PKIX     IF END OF EXPECTED PARAMETERS
03604  M00S03516.msi     +++|          EQ     PKI1        GO FOR NEXT PARAMETER
03605  M00S03517.msi     +++| RPT      SPACE  4,10
03606  M00S03518.msi     +++|**        RPT - RESTORE POINTERS.
03607  M00S03519.msi     +++|*
03608  M00S03520.msi     +++|*         ENTRY  SPTA = ENTERED PARAMETER ADDRESS.
03609  M00S03521.msi     +++|*                SPTA+1 = NUMBER OF PARAMETERS TO PROCESS.
03610  M00S03522.msi     +++|*                SPTA+2 = CONVERTED PARAMETER ADDRESS.
03611  M00S03523.msi     +++|*
03612  M00S03524.msi     +++|*         EXIT   (B2), (B3) AND (B4) RESTORED.
03613  M00S03525.msi     +++|*
03614  M00S03526.msi     +++|*         USES   X - 1, 2.
03615  M00S03527.msi     +++|*                A - 1, 2.
03616  M00S03528.msi     +++|*                B - 2, 3, 4.
03617  M00S03529.msi     +++|
03618  M00S03530.msi     +++|
03619  M00S03531.msi     +++| RPT      SUBR               ENTRY/EXIT
03620  M00S03532.msi     +++|          SA1    SPTA
03621  M00S03533.msi     +++|          SA2    A1+B1
03622  M00S03534.msi     +++|          SB2    X1
03623  M00S03535.msi     +++|          SB3    X2
03624  M00S03536.msi     +++|          SA1    A2+B1
03625  M00S03537.msi     +++|          SB4    X1
03626  M00S03538.msi     +++|          EQ     RPTX        EXIT
03627  M00S03539.msi     +++| SPT      SPACE  4,10
03628  M00S03540.msi     +++|**        SPT - SAVE POINTERS.
03629  M00S03541.msi     +++|*
03630  M00S03542.msi     +++|*         ENTRY  (B2) = ENTERED PARAMETER ADDRESS.
03631  M00S03543.msi     +++|*                (B3) = NUMBER OF PARAMETERS LEFT TO PROCESS.
03632  M00S03544.msi     +++|*                (B4) = CONVERTED PARAMETER ADDRESS.
03633  M00S03545.msi     +++|*
03634  M00S03546.msi     +++|*         EXIT   (SPTA - SPTA+1) = (B2), (B3) AND (B4).
03635  M00S03547.msi     +++|*
03636  M00S03548.msi     +++|*         USES   X - 6, 7.
03637  M00S03549.msi     +++|*                A - 6, 7.
03638  M00S03550.msi     +++|*                B - NONE.
03639  M00S03551.msi     +++|
03640  M00S03552.msi     +++|
03641  M00S03553.msi     +++| SPT      SUBR               ENTRY/EXIT
03642  M00S03554.msi     +++|          SX6    B2
03643  M00S03555.msi     +++|          SX7    B3
03644  M00S03556.msi     +++|          SA6    SPTA
03645  M00S03557.msi     +++|          SA7    A6+B1
03646  M00S03558.msi     +++|          SX6    B4
03647  M00S03559.msi     +++|          SA6    A7+B1
03648  M00S03560.msi     +++|          EQ     SPTX        EXIT
03649  M00S03561.msi     +++|
03650  M00S03562.msi     +++|
03651  M00S03563.msi     +++| SPTA     BSS    1           ADDRESS OF ENTERED PARAMETER
03652  M00S03564.msi     +++|          BSS    1           NUMBER OF PARAMETERS LEFT TO PROCESS
03653  M00S03565.msi     +++|          BSS    1           ADDRESS OF CONVERTED PARAMETERS
03654  M00S03566.msi     +++|          TITLE  PROCESS FLAW ENTRIES
03655  M00S03567.msi     +++|**        CFE - CHECK FOR FLAW ENTRY.
03656  M00S03568.msi     +++|*
03657  M00S03569.msi     +++|*         ENTRY  (B4) = ADDRESS OF PARAMETER.
03658  M00S03570.msi     +++|*                (B6) = PARAMETER COUNT.
03659  M00S03571.msi     +++|*
03660  M00S03572.msi     +++|*         EXIT   (X2) = 0, IF FLAW ENTRY.
03661  M00S03573.msi     +++|*                (X4) = 0, IF NO ERROR.
03662  M00S03574.msi     +++|*
03663  M00S03575.msi     +++|*         USES   X - ALL.
03664  M00S03576.msi     +++|*                A - 0, 1, 2, 3, 4, 6, 7.
03665  M00S03577.msi     +++|*                B - 2, 3, 4, 6.
03666  M00S03578.msi     +++|*
03667  M00S03579.msi     +++|*         CALLS  COD, FMD, FRD, RPA, SFN.
03668  M00S03580.msi     +++|
03669  M00S03581.msi     +++|
03670  M00S03582.msi     +++| CFE      SUBR               ENTRY/EXIT
03671  M00S03583.msi     +++|          SX7    B1          SELECT *SET FLAW* AS DEFAULT
03672  M00S03584.msi     +++|          SA7    CFEA
03673  M00S03585.msi     +++|          SA1    B4
03674  M00S03586.msi     +++|          MX0    18
03675  M00S03587.msi     +++|          SX3    1R=
03676  M00S03588.msi     +++|          BX4    -X0*X1
03677  M00S03589.msi     +++|          SX2    B1
03678  M00S03590.msi     +++|          IX3    X3-X4
03679  M00S03591.msi     +++|          BX4    X4-X4
03680  M00S03592.msi     +++|          NZ     X3,CFEX     IF NOT EQUIVALENCED
03681  M00S03593.msi     +++|          SA3    CFEB
03682  M00S03594.msi     +++|          ZR     X3,CFEX     IF FLAWS NOT ALLOWED YET
03683  M00S03595.msi     +++|          SA3    =0LCPF
03684  M00S03596.msi     +++|          BX6    X0*X1
03685  M00S03597.msi     +++|          BX2    X6-X3
03686  M00S03598.msi     +++|          ZR     X2,CFE2     IF CLEARING PHYSICAL FLAW
03687  M00S03599.msi     +++|          SA3    =0LSPF
03688  M00S03600.msi     +++|          BX2    X6-X3
03689  M00S03601.msi     +++|          ZR     X2,CFE2.1   IF SETTING PHYSICAL FLAW
03690  M00S03602.msi     +++|          SA3    =0LSLF
03691  M00S03603.msi     +++|          BX2    X6-X3
03692  M00S03604.msi     +++|          ZR     X2,CFE1     IF SETTING LOGICAL FLAW
03693  M00S03605.msi     +++|          SA3    =0LCLF
03694  M00S03606.msi     +++|          BX2    X6-X3
03695  M00S03607.msi     +++|          NZ     X2,CFEX     IF NOT CLEARING LOGICAL FLAW
03696  M00S03608.msi     +++|
03697  M00S03609.msi     +++|*         PROCESS *CLF* ENTRY.
03698  M00S03610.msi     +++|
03699  M00S03611.msi     +++|          SX7    B1+B1       SELECT *CLEAR FLAW* OPTION
03700  M00S03612.msi     +++|          SA7    CFEA
03701  M00S03613.msi     +++|
03702  M00S03614.msi     +++|*         PROCESS *SLF* ENTRY.
03703  M00S03615.msi     +++|
03704  M00S03616.msi     +++| CFE1     SX4    B1          PRESET RESPONSE
03705  M00S03617.msi     +++|          SB6    B6-B1
03706  M00S03618.msi     +++|          NE     B6,B1,CFEX  IF INCORRECT ENTRY
03707  M00S03619.msi     +++|          SB4    B4+B1
03708  M00S03620.msi     +++|          SX1    B0
03709  M00S03621.msi     +++|          SX2    7777B       LIMIT
03710  M00S03622.msi     +++|          RJ     RPA         RETRIEVE PARAMETER
03711  M00S03623.msi     +++|          NZ     X4,CFEX     IF ERROR
03712  M00S03624.msi     +++|          EQ     CFER        STORE ENTRY
03713  M00S03625.msi     +++|
03714  M00S03626.msi     +++|*         PROCESS *CPF* ENTRY.
03715  M00S03627.msi     +++|
03716  M00S03628.msi     +++| CFE2     SX7    B1+B1       SELECT *CLEAR FLAW* OPTION
03717  M00S03629.msi     +++|          SA7    CFEA
03718  M00S03630.msi     +++|
03719  M00S03631.msi     +++|*         PROCESS *SPF* ENTRY.
03720  M00S03632.msi     +++|
03721  M00S03633.msi     +++| CFE2.1   SB4    B4+B1
03722  M00S03634.msi     +++|          SB6    B6-B1
03723  M00S03635.msi     +++|          SA1    DFPR
03724  M00S03636.msi     +++|          ZR     X1,FMD      IF LARGE MEMORY DEVICE
03725  M00S03637.msi     +++|          SA0    X1          SET PHYSICAL DESCRIPTOR ENTRY ADDRESS
03726  M00S03638.msi     +++|          EQ     FRD         FLAW ROTATING MASS STORAGE DEVICE
03727  M00S03639.msi     +++|
03728  M00S03640.msi     +++| CFER     NZ     X4,CFEX     IF ERROR
03729  M00S03641.msi     +++|          SA1    FLAI
03730  M00S03642.msi     +++|          SX3    X1-TFLA-PNFE
03731  M00S03643.msi     +++|          SX4    B1          PRESET ERROR
03732  M00S03644.msi     +++|          SX7    X1+B1       INCREMENT POINTER
03733  M00S03645.msi     +++|          PL     X3,CFEX     IF LIMIT EXCEEDED
03734  M00S03646.msi     +++|          SA2    CFEA
03735  M00S03647.msi     +++|          SA7    A1
03736  M00S03648.msi     +++|          LX2    48
03737  M00S03649.msi     +++|          BX6    X6+X2
03738  M00S03650.msi     +++|          SA6    X1
03739  M00S03651.msi     +++|          MX0    -12         FORM MASK FOR LOGICAL ENTRY
03740  M00S03652.msi     +++|          BX1    -X0*X6      MASK OFF
03741  M00S03653.msi     +++|          BX5    X6          SAVE X6
03742  M00S03654.msi     +++|          RJ     COD         CONVERT TO DISPLAY CODE
03743  M00S03655.msi     +++|          SA1    DASM
03744  M00S03656.msi     +++|          SA0    X1          SAVE LAST ADDRESS
03745  M00S03657.msi     +++|          SX7    X1+6
03746  M00S03658.msi     +++|          SA7    A1
03747  M00S03659.msi     +++|          SA6    X1
03748  M00S03660.msi     +++|          SA4    DAST        GET DISPLAY ADDRESS
03749  M00S03661.msi     +++|          SX7    X4+6
03750  M00S03662.msi     +++|          SA1    I           DISPLAY ENTRY
03751  M00S03663.msi     +++|          SA7    A4
03752  M00S03664.msi     +++|          BX0    X4          SAVE (X4)
03753  M00S03665.msi     +++|          RJ     SFN
03754  M00S03666.msi     +++|          SA6    X4
03755  M00S03667.msi     +++|          SA1    A1+B1
03756  M00S03668.msi     +++|          RJ     SFN
03757  M00S03669.msi     +++|          SA6    X0+B1
03758  M00S03670.msi     +++|          SB3    A0          LAST ADDRESS OF LOGICAL TRACK
03759  M00S03671.msi     +++|          SB2    LTDS+3
03760  M00S03672.msi     +++|          SA4    STAR        PRESET STAR
03761  M00S03673.msi     +++|          BX6    X4
03762  M00S03674.msi     +++| CFE3     EQ     B2,B3,CFE5  IF END OF LOOP - EXIT
03763  M00S03675.msi     +++|          SA3    B3          MORE ENTRIES
03764  M00S03676.msi     +++|          SA2    B2
03765  M00S03677.msi     +++|          IX5    X3-X2
03766  M00S03678.msi     +++|          NZ     X5,CFE4     IF NOT EQUAL GO TO NEXT ENTRY
03767  M00S03679.msi     +++|          SA6    B3+2        WRITE STAR TO BOTH ENTRIES
03768  M00S03680.msi     +++|          SA6    B2+2
03769  M00S03681.msi     +++| CFE4     SB2    B2+6        INCREMENT TO NEXT ENTRY
03770  M00S03682.msi     +++|          EQ     CFE3        LOOP
03771  M00S03683.msi     +++|
03772  M00S03684.msi     +++| CFE5     BX4    X4-X4       CLEAR X4
03773  M00S03685.msi     +++|          BX2    X2-X2
03774  M00S03686.msi     +++|          EQ     CFEX        RETURN
03775  M00S03687.msi     +++|
03776  M00S03688.msi     +++| CFEA     BSSZ   1           FLAW TYPE INDICATOR
03777  M00S03689.msi     +++| CFEB     CON    0           *FLAWS ALLOWED* FLAG
03778  M00S03690.msi     +++| STAR     DIS    1,    *
03779  M00S03691.msi     +++|
03780  M00S03692.msi     +++| LRDS     VFD    24/I,18/R,18/L  FLAW K-DISPLAY CONTROL WORD
03781  M00S03693.msi     +++|
03782  M00S03694.msi     +++|*         FLAW PROCESSOR TABLE.
03783  M00S03695.msi     +++|
03784  M00S03696.msi     +++| DFPR     CON    0
03785  M00S03697.msi     +++| RPA      SPACE  4,10
03786  M00S03698.msi     +++|**        RPA - RETRIEVE PARAMETERS.
03787  M00S03699.msi     +++|*
03788  M00S03700.msi     +++|*         ENTRY  (B4) = ADDRESS OF PARAMETER.
03789  M00S03701.msi     +++|*                (X1) = 0, IF NO PARAMETER CHECK REQUIRED.
03790  M00S03702.msi     +++|*                (X1) = RIGHT JUSTIFIED CHARACTER TO CHECK FOR.
03791  M00S03703.msi     +++|*                (X2) = MAXIMUM VALUE.
03792  M00S03704.msi     +++|*
03793  M00S03705.msi     +++|*         EXIT   (X4) = 0, IF NO ERROR.
03794  M00S03706.msi     +++|*                (X6) = PARAMETER.
03795  M00S03707.msi     +++|*                (B4) = ADDRESS OF NEXT PARAMETER.
03796  M00S03708.msi     +++|*
03797  M00S03709.msi     +++|*         USES   X - 0, 1, 2, 4, 5, 6.
03798  M00S03710.msi     +++|*                A - 1, 5, 6.
03799  M00S03711.msi     +++|*                B - 4, 7.
03800  M00S03712.msi     +++|*
03801  M00S03713.msi     +++|*         CALLS  DXB.
03802  M00S03714.msi     +++|
03803  M00S03715.msi     +++|
03804  M00S03716.msi     +++| RPA      SUBR               ENTRY/EXIT
03805  M00S03717.msi     +++|          SB7    B0          SET OCTAL BASE
03806  M00S03718.msi     +++|          SX6    B1
03807  M00S03719.msi     +++|          LX1    54
03808  M00S03720.msi     +++|          IX6    X2-X6       ADJUST MAXIMUM COUNT
03809  M00S03721.msi     +++|          SA5    B4          GET PARAMETER
03810  M00S03722.msi     +++|          SA6    RPAA        SAVE MAXIMUM VALUE
03811  M00S03723.msi     +++|          ZR     X1,RPA1     IF NO CHARACTER TO CHECK
03812  M00S03724.msi     +++|          MX0    6
03813  M00S03725.msi     +++|          BX2    X0*X5
03814  M00S03726.msi     +++|          BX4    X2-X1
03815  M00S03727.msi     +++|          NZ     X4,RPAX     IF INCORRECT ENTRY
03816  M00S03728.msi     +++|          LX5    6
03817  M00S03729.msi     +++| RPA1     MX0    36          MASK OFF VALUE
03818  M00S03730.msi     +++|          BX5    X0*X5
03819  M00S03731.msi     +++|          SX6    B4          SAVE PARAMETER ADDRESS
03820  M00S03732.msi     +++|          SA6    RPAB
03821  M00S03733.msi     +++|          RJ     DXB         CONVERT TO OCTAL
03822  M00S03734.msi     +++|          SA1    RPAB        RESTORE PARAMETER ADDRESS
03823  M00S03735.msi     +++|          SB4    X1+B1
03824  M00S03736.msi     +++|          NZ     X4,RPAX     RETURN - IF ERROR
03825  M00S03737.msi     +++|          SA1    RPAA
03826  M00S03738.msi     +++|          IX4    X1-X6
03827  M00S03739.msi     +++|          NG     X4,RPAX     IF MAXIMUM VALUE EXCEEDED
03828  M00S03740.msi     +++|          BX4    X4-X4
03829  M00S03741.msi     +++|          EQ     RPAX        RETURN
03830  M00S03742.msi     +++|
03831  M00S03743.msi     +++| RPAA     BSSZ   1           HOLD FOR MAXIMUM VALUE
03832  M00S03744.msi     +++| RPAB     BSSZ   1           HOLD FOR PARAMETER ADDRESS
03833  M00S03745.msi     +++|          SPACE  4
03834  M00S03746.msi     +++|**        FLAW ROUTINES.
03835  M00S03747.msi     +++|*
03836  M00S03748.msi     +++|*         ENTRY  (B4) = PARAMETER ADDRESS.
03837  M00S03749.msi     +++|*                (B6) = PARAMETER COUNT.
03838  M00S03750.msi     +++|*
03839  M00S03751.msi     +++|*         EXIT   (X4) = 0, IF NO ERROR.
03840  M00S03752.msi     +++|*                     = 1, IF ERROR.
03841  M00S03753.msi     +++|*                (X6) = LOGICAL TRACK TO FLAW.
03842  M00S03754.msi     +++|*
03843  M00S03755.msi     +++|*         USES   X - ALL.
03844  M00S03756.msi     +++|*                A - 0, 1, 2, 3, 5, 6.
03845  M00S03757.msi     +++|*                B - ALL.
03846  M00S03758.msi     +++|*
03847  M00S03759.msi     +++|*         CALLS  RPA.
03848  M00S03760.msi     +++|
03849  M00S03761.msi     +++| FMD      SPACE  4,10
03850  M00S03762.msi     +++|**        FMD - FLAW LARGE MEMORY DEVICES.
03851  M00S03763.msi     +++|
03852  M00S03764.msi     +++|
03853  M00S03765.msi     +++| FMD      SX4    B6-B1
03854  M00S03766.msi     +++|          R=     X1,1RA
03855  M00S03767.msi     +++|          NZ     X4,CFER     IF ERROR
03856  M00S03768.msi     +++|          SA2    =100000000
03857  M00S03769.msi     +++|          RJ     RPA         RETRIEVE ADDRESS
03858  M00S03770.msi     +++|          NZ     X4,CFER     IF ERROR
03859  M00S03771.msi     +++|          SX1    202B        CONVERT TRACK ADDRESS
03860  M00S03772.msi     +++|          SA4    PARC+PMEQ   EXTRACT XM SHIFT
03861  M00S03773.msi     +++|          R=     X5,ESTE
03862  M00S03774.msi     +++|          IX5    X4*X5
03863  M00S03775.msi     +++|          SA5    ESTB+X5+EQAE
03864  M00S03776.msi     +++|          MX0    -2
03865  M00S03777.msi     +++|          LX5    -30
03866  M00S03778.msi     +++|          BX5    -X0*X5
03867  M00S03779.msi     +++|          SB7    X5
03868  M00S03780.msi     +++|          LX1    B7
03869  M00S03781.msi     +++|          IX6    X6/X1
03870  M00S03782.msi     +++|          NZ     X5,FMD1     IF NOT DEFAULT TRACK SIZE
03871  M00S03783.msi     +++|          SX4    CETK-4000B
03872  M00S03784.msi     +++|          IX4    X6-X4
03873  M00S03785.msi     +++|          NZ     X4,FMD1     IF NOT CETK
03874  M00S03786.msi     +++|          SX4    B1
03875  M00S03787.msi     +++|          EQ     CFER
03876  M00S03788.msi     +++|
03877  M00S03789.msi     +++| FMD1     BX4    X4-X4       SET NO ERROR RESPONSE
03878  M00S03790.msi     +++|          EQ     CFER        RETURN
03879  M00S03791.msi     +++| FRD      SPACE  4,10
03880  M00S03792.msi     +++|**        FRD - FLAW ROTATING MASS STORAGE DEVICES.
03881  M00S03793.msi     +++|
03882  M00S03794.msi     +++|
03883  M00S03795.msi     +++|*         GET AND VERIFY THE CYLINDER, TRACK AND SECTOR VALUES GIVEN
03884  M00S03796.msi     +++|*         BY THE USER.  FOR BUFFERED MASS STORAGE DEVICES, THE SECTOR
03885  M00S03797.msi     +++|*         NUMBER VALUE ENTERED BY THE USER MUST BE CONVERTED TO THE
03886  M00S03798.msi     +++|*         MAPPING USED BY THE OPERATING SYSTEM.
03887  M00S03799.msi     +++|
03888  M00S03800.msi     +++| FRD      SX4    B6-3
03889  M00S03801.msi     +++|          NZ     X4,CFER     IF TOO MANY PARAMETERS
03890  M00S03802.msi     +++|          SX1    1RC
03891  M00S03803.msi     +++|          SA2    A0          GET CYLINDER LIMIT FOR THIS DEVICE
03892  M00S03804.msi     +++|          MX0    -12
03893  M00S03805.msi     +++|          AX2    48
03894  M00S03806.msi     +++|          BX2    -X0*X2
03895  M00S03807.msi     +++|          RJ     RPA         GET CYLINDER SPECIFIED BY USER
03896  M00S03808.msi     +++|          NZ     X4,CFER     IF INCORRECT CYLINDER VALUE GIVEN
03897  M00S03809.msi     +++|          SA6    FRDA        SAVE CYLINDER NUMBER
03898  M00S03810.msi     +++|          SX1    1RT
03899  M00S03811.msi     +++|          SA2    A0          GET TRACK LIMIT FOR THIS DEVICE
03900  M00S03812.msi     +++|          MX0    -6
03901  M00S03813.msi     +++|          AX2    42
03902  M00S03814.msi     +++|          BX2    -X0*X2
03903  M00S03815.msi     +++|          RJ     RPA         GET TRACK SPECIFIED BY USER
03904  M00S03816.msi     +++|          NZ     X4,CFER     IF INCORRECT TRACK VALUE GIVEN
03905  M00S03817.msi     +++|          SA6    FRDB        SAVE TRACK NUMBER
03906  M00S03818.msi     +++|          SX1    1RS
03907  M00S03819.msi     +++|          SA2    A0          GET SECTOR LIMIT FOR THIS DEVICE
Line S03820 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03908  M01S03820.271l716 ---|          MX0    -9
03909  M01S03821.271l716 ---|          AX2    33
Line S00002 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03910  M01S00002.271l716 +++|          MX0    -6
03911  M01S00003.271l716 +++|          AX2    36
03912  M00S03822.msi     +++|          BX2    -X0*X2
03913  M00S03823.msi     +++|          RJ     RPA         GET SECTOR SPECIFIED BY USER
03914  M00S03824.msi     +++|          NZ     X4,CFER     IF INCORRECT SECTOR VALUE GIVEN
Line S03825 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03915  M01S03825.271l716 ---|          SA3    A0+
03916  M01S03826.271l716 ---|
03917  M01S03827.271l716 ---|*         MULTIPLY THE CYLINDER VALUE BY THE NUMBER OF LOGICAL TRACKS
03918  M01S03828.271l716 ---|*         PER CYLINDER.
03919  M01S03829.271l716 ---|
03920  M01S03830.271l716 ---|          SA1    FRDA        CYLINDER NUMBER
03921  M01S03831.271l716 ---|          MX0    -3
03922  M01S03832.271l716 ---|          LX3    -30
03923  M01S03833.271l716 ---|          BX2    -X0*X3      LOGICAL TRACKS / CYLINDER
03924  M01S03834.271l716 ---|          IX1    X1*X2
03925  M01S03835.271l716 ---|
03926  M01S03836.271l716 ---|*         COMPUTE THE RELATIVE OFFSET OF THE SPECIFIED SECTOR FROM THE
03927  M01S03837.271l716 ---|*         BEGINNING OF THE CYLINDER.
03928  M01S03838.271l716 ---|
03929  M01S03839.271l716 ---|          SA2    FRDB        TRACK NUMBER
03930  M01S03840.271l716 ---|          MX0    -9
03931  M01S03841.271l716 ---|          LX3    30-33
03932  M01S03842.271l716 ---|          BX5    -X0*X3      PHYSICAL SECTORS / PHYSICAL TRACK
03933  M01S03843.271l716 ---|          IX5    X5*X2
03934  M01S03844.271l716 ---|          IX6    X6+X5       RELATIVE SECTOR OFFSET INTO CYLINDER
03935  M01S03845.271l716 ---|          LX3    59-14+33-0-60
03936  M01S03846.271l716 ---|          PL     X3,FRD3     IF A FULL TRACK DEVICE
03937  M01S03847.271l716 ---|
03938  M01S03848.271l716 ---|*         FOR HALF TRACK DEVICES, DETERMINE WHICH LOGICAL TRACK IN THE
03939  M01S03849.271l716 ---|*         CYLINDER CONTAINS THE SPECIFIED ADDRESS AND ADD THE LOGICAL
03940  M01S03850.271l716 ---|*         TRACK OFFSET TO THE LOGICAL TRACK TOTAL VALUE.  FOR ALL HALF
03941  M01S03851.271l716 ---|*         TRACK DEVICES EXCEPT *DI*, THE BOTTOM BIT OF THE RELATIVE
03942  M01S03852.271l716 ---|*         SECTOR OFFSET IS THE LOGICAL TRACK OFFSET.
03943  M01S03853.271l716 ---|
03944  M01S03854.271l716 ---|          SA2    DTYA
03945  M01S03855.271l716 ---|          SX2    X2-2RDI
03946  M01S03856.271l716 ---|          NZ     X2,FRD2     IF NOT A *DI* DEVICE
03947  M01S03857.271l716 ---|          MX0    1
03948  M01S03858.271l716 ---|          BX3    -X0*X3
03949  M01S03859.271l716 ---|          SX0    B1
03950  M01S03860.271l716 ---|          BX2    X0*X6
03951  M01S03861.271l716 ---|          LX2    1
03952  M01S03862.271l716 ---|          IX1    X2+X1
03953  M01S03863.271l716 ---|          EQ     FRD3        CHECK FOR GAP SECTOR
03954  M01S03864.271l716 ---|
03955  M01S03865.271l716 ---| FRD2     SX0    B1+         THE BOTTOM BIT IS THE LOGICAL TRACK OFFSET
03956  M01S03866.271l716 ---|          BX2    X0*X6
03957  M01S03867.271l716 ---|          IX1    X2+X1
03958  M01S03868.271l716 ---|
03959  M01S03869.271l716 ---|*         FOR FULL TRACK DEVICES, THE LOGICAL TRACK OFFSET IN THE
03960  M01S03870.271l716 ---|*         CYLINDER IS DETERMINED BY DIVIDING BY THE NUMBER OF SECTORS
03961  M01S03871.271l716 ---|*         PER LOGICAL TRACK, INCLUDING ANY GAP SECTORS.
03962  M01S03872.271l716 ---|
03963  M01S03873.271l716 ---| FRD3     MX0    -3          SAVE NUMBER OF GAP SECTORS
03964  M01S03874.271l716 ---|          BX5    -X0*X3
03965  M01S03875.271l716 ---|          AX3    3
03966  M01S03876.271l716 ---|          MX0    -12         GET PHYSICAL SECTORS PER LOGICAL TRACK
03967  M01S03877.271l716 ---|          BX2    -X0*X3
03968  M01S03878.271l716 ---| FRD4     IX6    X6-X2
03969  M01S03879.271l716 ---|          NG     X6,FRD5     IF IN PREVIOUS LOGICAL TRACK
03970  M01S03880.271l716 ---|          NG     X3,FRD4     IF A HALF TRACK DEVICE
03971  M01S03881.271l716 ---|          SX1    X1+1
03972  M01S03882.271l716 ---|          EQ     FRD4        LOOP
03973  M01S03883.271l716 ---|
03974  M01S03884.271l716 ---|*         DETERMINE WHETHER OR NOT THE USER GAVE THE PHYSICAL ADDRESS
03975  M01S03885.271l716 ---|*         OF A GAP SECTOR.  IF SO, AVOID SETTING OR CLEARING THE FLAW.
03976  M01S03886.271l716 ---|
03977  M01S03887.271l716 ---| FRD5     IX6    X6+X5
03978  M01S03888.271l716 ---|          SX4    B1
03979  M01S03889.271l716 ---|          PL     X6,CFER     IF USER SPECIFIED A GAP SECTOR
03980  M01S03890.271l716 ---|          SX4    B0
03981  M01S03891.271l716 ---|          BX6    X1
Line S00004 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03982  M01S00004.271l716 +++|          SA3    A0
03983  M01S00005.271l716 +++|          MX0    -3
03984  M01S00006.271l716 +++|          LX3    -33         POSITION CONVERSION FACTOR
03985  M01S00007.271l716 +++|          BX2    -X0*X3
03986  M01S00008.271l716 +++|          SB7    X2
03987  M01S00009.271l716 +++|          LX6    B7          CONVERT PHYSICAL TO LOGICAL SECTOR
03988  M01S00010.271l716 +++|
03989  M01S00011.271l716 +++|*         MULTIPLY THE TRACK VALUE BY THE NUMBER OF LOGICAL
03990  M01S00012.271l716 +++|*         SECTORS PER PHYSICAL TRACK.
03991  M01S00013.271l716 +++|
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/msi.001.txt ยท Last modified: by 127.0.0.1