User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ds.004

Deck 1DS Part 004

41 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
06536  M00S04805.1ds     +++|          LMD    CN+3
06537  M00S04806.1ds     +++|          NJN    DDP1        IF NOT DEVICE TYPE MATCH
06538  M00S04807.1ds     +++| DDP2     LDN    1
06539  M00S04808.1ds     +++|          STD    T1
06540  M00S04809.1ds     +++| DDP3     LDM    CN+1,T1
06541  M00S04810.1ds     +++|          LMD    CH
06542  M00S04811.1ds     +++|          LPN    77
06543  M00S04812.1ds     +++|          NJN    DDP4        IF WRONG CHANNEL
06544  M00S04813.1ds     +++|          LDM    CN+1,T1
06545  M00S04814.1ds     +++|          SHN    0-11
06546  M00S04815.1ds     +++|          SBN    4
06547  M00S04816.1ds     +++|          MJN    DDP4        IF CHANNEL NOT PRESENT OR DISABLED
06548  M00S04817.1ds     +++|          LMN    1
06549  M00S04818.1ds     +++|          ZJN    DDP6        IF CHANNEL STATE = *IDLE*
06550  M00S04819.1ds     +++|          LMD    FT
06551  M00S04820.1ds     +++|          LPN    1
06552  M00S04821.1ds     +++|          NJN    DDP6        IF RIGHT CHANNEL STATE
06553  M00S04822.1ds     +++| DDP4     SOD    T1
06554  M00S04823.1ds     +++|          PJN    DDP3        IF CHANNEL 1 NOT YET CHECKED
06555  M00S04824.1ds     +++| DDP5     UJP    DDPX        RETURN
06556  M00S04825.1ds     +++|
06557  M00S04826.1ds     +++| DDP6     LDD    MX
06558  M00S04827.1ds     +++|          ZJN    DDP5        IF MUX CHANNEL NOT SPECIFIED
06559  M00S04828.1ds     +++|          LDD    CN
06560  M00S04829.1ds     +++|          SHN    21-13
06561  M00S04830.1ds     +++|          PJN    DDP5        IF NOT MASS STORAGE DEVICE
06562  M00S04831.1ds     +++|          SHN    13-7
06563  M00S04832.1ds     +++|          UJN    DDP5        RETURN WITH (A) .LT. 0 IF *LDAM* DEVICE
06564  M00S04833.1ds     +++|
06565  M00S04834.1ds     +++|
06566  M00S04835.1ds     +++| TDVT     BSS    0           TABLE OF DEVICE TYPES TO BE PROCESSED
Line S04836 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06567  M01S04836.274l797 ---|
Line S00053 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06568  M01S00053.274l797 +++|          CON    2ROD
06569  M00S04837.1ds     +++|          CON    2RLX
06570  M00S04838.1ds     +++|          CON    2RLY
Line S04839 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06571  M01S04839.274l797 ---| TDVTA    EQU    *-TDVT
Line S00054 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
06572  M02S00054.282l826 ---| TDVTA    EQU    *-TDVT      BEGINNING OF MAGNETIC TAPE DEVICE TYPES
Line S00055 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06573  M01S00055.274l797 +++|          CON    2RCT
06574  M00S04840.1ds     +++|          CON    2RMT
06575  M00S04841.1ds     +++|          CON    2RNT
Line S00056 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06576  M01S00056.274l797 +++|          CON    2RAT
Line S04842 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
06577  M01S04842.274l797 ---|
06578  M00S04843.1ds     +++| TDVTL    EQU    *-TDVT      TABLE LENGTH
06579  M00S04844.1ds     +++| DEQ      SPACE  4,20
06580  M00S04845.1ds     +++|**        DEQ - DOWN EQUIPMENT.
06581  M00S04846.1ds     +++|*
06582  M00S04847.1ds     +++|*         THIS SUBROUTINE REQUESTS *MTR* TO DOWN A MASS STORAGE
06583  M00S04848.1ds     +++|*         DEVICE.  IT ALSO ISSUES BML AND ERRLOG MESSAGES TO
06584  M00S04849.1ds     +++|*         RECORD THE EVENT.
06585  M00S04850.1ds     +++|*
06586  M00S04851.1ds     +++|*         ENTRY  (T5) = EST ORDINAL.
06587  M00S04852.1ds     +++|*
06588  M00S04853.1ds     +++|*         EXIT   (A) .GE. 0 IF EQUIPMENT WAS DOWNED.
06589  M00S04854.1ds     +++|*                    .LT. 0 IF EQUIPMENT CANNOT BE DOWNED.
06590  M00S04855.1ds     +++|*
06591  M00S04856.1ds     +++|*         USES   CM+1, CM+2.
06592  M00S04857.1ds     +++|*
06593  M00S04858.1ds     +++|*         CALLS  IMS.
06594  M00S04859.1ds     +++|*
06595  M00S04860.1ds     +++|*         MACROS MONITOR.
06596  M00S04861.1ds     +++|
06597  M00S04862.1ds     +++| DEQ1     LCN    0           SET REJECT STATUS
06598  M00S04863.1ds     +++|
06599  M00S04864.1ds     +++| DEQ      SUBR               ENTRY/EXIT
06600  M00S04865.1ds     +++|          LDD    T5          STORE EST ORDINAL IN REQUEST
06601  M00S04866.1ds     +++|          STD    CM+1
06602  M00S04867.1ds     +++|          LDK    DWES        STORE SUBFUNCTION IN REQUEST
06603  M00S04868.1ds     +++|          STD    CM+2
06604  M00S04869.1ds     +++|          MONITOR  SEQM
06605  M00S04870.1ds     +++|          LDD    CM+1
06606  M00S04871.1ds     +++|          ZJN    DEQ1        IF FUNCTION REJECTED
06607  M00S04872.1ds     +++|          LDN    MSI1        MESSAGE INDEX
06608  M00S04873.1ds     +++|          RJM    IMS         ISSUE MESSAGES (IF CALLED BY DRIVER)
06609  M00S04874.1ds     +++|          UJN    DEQX        RETURN
06610  M00S04875.1ds     +++| IBM      SPACE  4,15
06611  M00S04876.1ds     +++|**        IBM - ISSUE BML MESSAGE.
06612  M00S04877.1ds     +++|*
06613  M00S04878.1ds     +++|*         ENTRY  (CH) = CHANNEL NUMBER, INCLUDING CONCURRENCY FLAG.
06614  M00S04879.1ds     +++|*                (S1) = MESSAGE INDEX.
06615  M00S04880.1ds     +++|*                (T5) = EST ORDINAL.
06616  M00S04881.1ds     +++|*                (CN - CN+4) = *EQDE* WORD OF EST ENTRY.
06617  M00S04882.1ds     +++|*
06618  M00S04883.1ds     +++|*         EXIT   (A) = 0.
06619  M00S04884.1ds     +++|*
06620  M00S04885.1ds     +++|*         USES   T1, T2, CM - CM+4, FS - FS+4.
06621  M00S04886.1ds     +++|*
06622  M00S04887.1ds     +++|*         CALLS  DFM.
06623  M00S04888.1ds     +++|
06624  M00S04889.1ds     +++|
06625  M00S04890.1ds     +++| IBM      SUBR               ENTRY/EXIT
Line S04891 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06626  M01S04891.272l774 ---|          LDN    0           INITIALIZE *TMID* INDEX
Line S00024 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06627  M01S00024.272l774 +++|          LDC    TMID-2      SET TABLE ADDRESS
06628  M00S04892.1ds     +++|          STD    T1
Line S04893 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06629  M01S04893.272l774 ---|          LDD    CN+3        SAVE LAST CHARACTER OF DEVICE TYPE
06630  M01S04894.272l774 ---|          LPN    77
Line S00025 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06631  M01S00025.272l774 +++|          LDD    CN+3        SAVE DEVICE TYPE
06632  M00S04895.1ds     +++|          STD    T2
Line S04896 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06633  M01S04896.272l774 ---|          LMN    1RP
Line S00026 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06634  M01S00026.272l774 +++|          LMC    2RDP
06635  M00S04897.1ds     +++|          NJN    IBM1        IF NOT *DP* DEVICE TYPE
Line S00027 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06636  M01S00027.272l774 +++|          LDC    TEMID-2     SET TABLE ADDRESS
06637  M01S00028.272l774 +++|          STD    T1
06638  M00S04898.1ds     +++|          LDD    CN+4
06639  M00S04899.1ds     +++|          SHN    3
06640  M00S04900.1ds     +++|          ADK    DILL
06641  M00S04901.1ds     +++|          CRD    CM
06642  M00S04902.1ds     +++|          LDD    CM+3
06643  M00S04903.1ds     +++|          LPC    707
06644  M00S04904.1ds     +++|          STD    T2
Line S04905 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06645  M01S04905.272l774 ---| IBM1     LDN    2           ADVANCE *TMID* INDEX
Line S00029 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06646  M01S00029.272l774 +++| IBM1     LDN    2           CHECK NEXT TABLE ENTRY
06647  M00S04906.1ds     +++|          RAD    T1
Line S04907 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06648  M01S04907.272l774 ---|          LDM    TMID-2,T1
Line S00030 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06649  M01S00030.272l774 +++|          LDI    T1
06650  M00S04908.1ds     +++|          ZJN    IBM2        IF DEVICE TYPE NOT FOUND IN TABLE
06651  M00S04909.1ds     +++|          LMD    T2
06652  M00S04910.1ds     +++|          NJN    IBM1        IF NOT A MATCH
Line S04911 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06653  M01S04911.272l774 ---|          LDM    TMID-1,T1   MESSAGE ID
Line S00031 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06654  M01S00031.272l774 +++|          LDM    1,T1        MESSAGE ID
06655  M00S04912.1ds     +++| IBM2     STM    BMLID
06656  M00S04913.1ds     +++|          LDM    IBMA,S1     SYMPTOM CODE
06657  M00S04914.1ds     +++|          STM    BMLSC
06658  M00S04915.1ds     +++|          LDD    CH          CHANNEL NUMBER
06659  M00S04916.1ds     +++|          STM    BMLPP
06660  M00S04917.1ds     +++|          LDK    PPCP        READ PP COMMUNICATIONS AREA POINTER
06661  M00S04918.1ds     +++|          CRD    CM
06662  M00S04919.1ds     +++|          ADK    MMFL-PPCP
06663  M00S04920.1ds     +++|          CRD    FS
06664  M00S04921.1ds     +++|          LDD    FS          MAINFRAME ID
06665  M00S04922.1ds     +++|          STM    BMLMF
06666  M00S04923.1ds     +++|          LDD    IA          COMPUTE PP NUMBER
06667  M00S04924.1ds     +++|          SBD    CM+4
06668  M00S04925.1ds     +++|          SHN    6-3
06669  M00S04926.1ds     +++|          RAM    BMLPP
Line S04927 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06670  M01S04927.272l774 ---|          LDD    CN+4        GET UNIT NUMBER
Line S00032 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06671  M01S00032.272l774 +++|          LDD    CN+4        READ EQUIPMENT AND UNIT NUMBERS
06672  M00S04928.1ds     +++|          SHN    3
06673  M00S04929.1ds     +++|          ADK    DDLL
06674  M00S04930.1ds     +++|          CRD    CM
Line S04931 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06675  M01S04931.272l774 ---|          LDD    CM+4
06676  M01S04932.272l774 ---|          LPN    77
Line S00033 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06677  M01S00033.272l774 +++|          LDD    CM          GET EQUIPMENT (CONTROLLER) NUMBER
06678  M01S00034.272l774 +++|          LPC    700
06679  M01S00035.272l774 +++|          LMD    CM+4        MERGE WITH UNIT NUMBER
06680  M01S00036.272l774 +++|          SCN    77
06681  M01S00037.272l774 +++|          LMD    CM+4
06682  M00S04933.1ds     +++|          STM    BMLUN
06683  M00S04934.1ds     +++|          LDD    T5          STORE EST ORDINAL
06684  M00S04935.1ds     +++|          STM    BMLEO
06685  M00S04936.1ds     +++|          LDM    IBMA,S1     SYMPTOM CODE
06686  M00S04937.1ds     +++|          STM    BMLSC
06687  M00S04938.1ds     +++|          LDK    BMLL        SET MESSAGE LENGTH
06688  M00S04939.1ds     +++|          STD    CM+1
06689  M00S04940.1ds     +++|          LDC    BML+BMLN    ISSUE MESSAGE
06690  M00S04941.1ds     +++|          RJM    DFM
06691  M00S04942.1ds     +++|*         LDN    0
06692  M00S04943.1ds     +++|          LJM    IBMX        RETURN
06693  M00S04944.1ds     +++|
06694  M00S04945.1ds     +++|
06695  M00S04946.1ds     +++|*         MESSAGE INDICES.
06696  M00S04947.1ds     +++|
06697  M00S04948.1ds     +++| BEGIN    BSSN   0
Line S04949 Modification History
M01 (Removed by) 1ds23
Seq #  *Modification Id* Act 
----------------------------+
06698  M01S04949.1ds23   ---|          LIST   G
06699  M01S04950.1ds23   ---|
06700  M00S04951.1ds     +++| MSI0     BSSN   1
06701  M00S04952.1ds     +++| MSI1     BSSN   1
Line S04953 Modification History
M01 (Removed by) 1ds23
Seq #  *Modification Id* Act 
----------------------------+
06702  M01S04953.1ds23   ---|
06703  M00S04954.1ds     +++| MSIX     BSSN   1           MAXIMUM INDEX + 1
Line S04955 Modification History
M01 (Removed by) 1ds23
Seq #  *Modification Id* Act 
----------------------------+
06704  M01S04955.1ds23   ---|          LIST   *
06705  M00S04956.1ds     +++| END      BSSN
06706  M00S04957.1ds     +++|
06707  M00S04958.1ds     +++|
06708  M00S04959.1ds     +++|*         TABLE OF SYMPTOM CODES.
06709  M00S04960.1ds     +++|
06710  M00S04961.1ds     +++| IBMA     INDEX
06711  M00S04962.1ds     +++|          INDEX  MSI0,/COMSDFS/HS0015
06712  M00S04963.1ds     +++|          INDEX  MSI1,/COMSDFS/HS0034
06713  M00S04964.1ds     +++|          INDEX  MSIX
Line S04965 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06714  M01S04965.272l774 ---|
06715  M01S04966.272l774 ---|
Line S00038 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06716  M01S00038.272l774 +++| TMID     SPACE  4,10
06717  M00S04967.1ds     +++|*         TABLE OF MESSAGE ID-S.
06718  M00S04968.1ds     +++|
06719  M00S04969.1ds     +++| TMID     BSS    0
Line S04970 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06720  M01S04970.272l774 ---|          CON    1RI,/COMSDFS/RM0002    (DI)  844-2X, HALF TRACK
06721  M01S04971.272l774 ---|          CON    1RJ,/COMSDFS/RM0003    (DJ)  844-4X, HALF TRACK
06722  M01S04972.272l774 ---|          CON    1RK,/COMSDFS/RM0004    (DK)  844-2X, FULL TRACK
06723  M01S04973.272l774 ---|          CON    1RL,/COMSDFS/RM0005    (DL)  844-4X, FULL TRACK
06724  M01S04974.272l774 ---|          CON    1RM,/COMSDFS/RM0007    (DM)  885-1X, HALF TRACK
06725  M01S04975.272l774 ---|          CON    1RQ,/COMSDFS/RM0017    (DQ)  885-1X, FULL TRACK
06726  M01S04976.272l774 ---|          CON    1RX,/COMSDFS/RM0010    (DX)  3330-1
06727  M01S04977.272l774 ---|          CON    1RY,/COMSDFS/RM0011    (DY)  3330-11
06728  M01S04978.272l774 ---|          CON    1RZ,/COMSDFS/RM0012    (DZ)  3350
06729  M01S04979.272l774 ---|          CON    1RA,/COMSDFS/RM0013    (DA)  33502
06730  M01S04980.272l774 ---|          CON    1RB,/COMSDFS/RM0014    (DB)  885-42
06731  M01S04981.272l774 ---|          CON    1RD,/COMSDFS/RM0110    (DD)  834
06732  M01S04982.272l774 ---|          CON    1RF,/COMSDFS/RM0120    (DF)  887 (SMALL SECTOR)
06733  M01S04983.272l774 ---|          CON    1RG,/COMSDFS/RM0111    (DG)  836
06734  M01S04984.272l774 ---|          CON    1RH,/COMSDFS/RM0121    (DH)  887 (LARGE SECTOR)
06735  M01S04985.272l774 ---|          CON    1RC,/COMSDFS/RM0115    (DC)  895
Line S00001 Modification History
M01 (Added by) 1ds29
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06736  M02S00001.272l774 ---|          CON    1RN,/COMSDFS/RM0124    (DN)  9853
Line S00039 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06737  M01S00039.272l774 +++|          CON    2RDI,/COMSDFS/RM0002   (DI)  844-2X, HALF TRACK
06738  M01S00040.272l774 +++|          CON    2RDJ,/COMSDFS/RM0003   (DJ)  844-4X, HALF TRACK
06739  M01S00041.272l774 +++|          CON    2RDK,/COMSDFS/RM0004   (DK)  844-2X, FULL TRACK
06740  M01S00042.272l774 +++|          CON    2RDL,/COMSDFS/RM0005   (DL)  844-4X, FULL TRACK
06741  M01S00043.272l774 +++|          CON    2RDM,/COMSDFS/RM0007   (DM)  885-1X, HALF TRACK
06742  M01S00044.272l774 +++|          CON    2RDQ,/COMSDFS/RM0017   (DQ)  885-1X, FULL TRACK
Line S00001 Modification History
M01 (Added by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
06743  M01S00001.ns2776  +++|          CON    2RDR,/COMSDFS/RM0015   (DR)  CDSS II
Line S00045 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06744  M01S00045.272l774 +++|          CON    2RDX,/COMSDFS/RM0010   (DX)  3330-1
06745  M01S00046.272l774 +++|          CON    2RDY,/COMSDFS/RM0011   (DY)  3330-11
06746  M01S00047.272l774 +++|          CON    2RDZ,/COMSDFS/RM0012   (DZ)  3350
06747  M01S00048.272l774 +++|          CON    2RDA,/COMSDFS/RM0013   (DA)  33502
06748  M01S00049.272l774 +++|          CON    2RDB,/COMSDFS/RM0014   (DB)  885-42
06749  M01S00050.272l774 +++|          CON    2RDD,/COMSDFS/RM0110   (DD)  834
06750  M01S00051.272l774 +++|          CON    2RDF,/COMSDFS/RM0120   (DF)  887 (4KB SECTOR)
06751  M01S00052.272l774 +++|          CON    2RDG,/COMSDFS/RM0111   (DG)  836
06752  M01S00053.272l774 +++|          CON    2RDH,/COMSDFS/RM0121   (DH)  887 (16KB SECTOR)
06753  M01S00054.272l774 +++|          CON    2RDC,/COMSDFS/RM0115   (DC)  895
06754  M01S00055.272l774 +++|          CON    2RDN,/COMSDFS/RM0124   (DN)  9853 (XMD/CM3)
06755  M01S00056.272l774 +++|          CON    2REA,/COMSDFS/RM0130   (EA)  5832 (1X SSD)
06756  M01S00057.272l774 +++|          CON    2REB,/COMSDFS/RM0131   (EB)  5832 (2X SSD)
06757  M01S00058.272l774 +++|          CON    2REC,/COMSDFS/RM0132   (EC)  5833 (1X SABRE)
06758  M01S00059.272l774 +++|          CON    2RED,/COMSDFS/RM0133   (ED)  5833 (1XP SABRE)
06759  M01S00060.272l774 +++|          CON    2REE,/COMSDFS/RM0134   (EE)  5833 (2X SABRE)
06760  M01S00061.272l774 +++|          CON    2REF,/COMSDFS/RM0137   (EF)  5833 (2XP SABRE)
Line S00001 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
06761  M01S00001.ns2768  +++|          CON    2REG,/COMSDFS/RM0142   (EG)  5838 (1X ELITE)
06762  M01S00002.ns2768  +++|          CON    2REH,/COMSDFS/RM0143   (EH)  5838 (1XP ELITE)
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
06763  M01S00001.284l847 +++|          CON    2REI,/COMSDFS/RM0144   (EI)  5838 (2X ELITE)
06764  M01S00002.284l847 +++|          CON    2REJ,/COMSDFS/RM0147   (EJ)  5838 (2XP ELITE)
06765  M01S00003.284l847 +++|          CON    2REK,/COMSDFS/RM0145   (EK)  5838 (3XP ELITE)
06766  M01S00004.284l847 +++|          CON    2REL,/COMSDFS/RM0146   (EL)  5838 (4X ELITE)
06767  M01S00005.284l847 +++|          CON    2REM,/COMSDFS/RM0135   (EM)  5833 (3XP SABRE)
06768  M01S00006.284l847 +++|          CON    2REN,/COMSDFS/RM0136   (EN)  5833 (4X SABRE)
06769  M01S00007.284l847 +++|          CON    2REO,/COMSDFS/RM0162   (EO)  47444 (1X 3.5IN)
06770  M01S00008.284l847 +++|          CON    2REP,/COMSDFS/RM0163   (EP)  47444 (1XP 3.5IN)
06771  M01S00009.284l847 +++|          CON    2RES,/COMSDFS/RM0164   (ES)  47444 (2X 3.5IN)
06772  M01S00010.284l847 +++|          CON    2REU,/COMSDFS/RM0167   (EU)  47444 (2XP 3.5IN)
06773  M01S00011.284l847 +++|          CON    2REV,/COMSDFS/RM0165   (EV)  47444 (3XP 3.5IN)
06774  M01S00012.284l847 +++|          CON    2REW,/COMSDFS/RM0166   (EW)  47444 (4X 3.5IN)
Line S00062 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
06775  M01S00062.272l774 +++|          CON    0
06776  M01S00063.272l774 +++| TEMID    SPACE  4,10
06777  M01S00064.272l774 +++|*         TABLE OF MESSAGE ID-S FOR EXTENDED MEMORY DEVICES.
06778  M01S00065.272l774 +++|
06779  M01S00066.272l774 +++|
06780  M01S00067.272l774 +++| TEMID    BSS    0
06781  M00S04986.1ds     +++|          CON    102,/COMSDFS/RM0070    (DP)  ECS I  - DC135 DDP
06782  M00S04987.1ds     +++|          CON    202,/COMSDFS/RM0072    (DP)  ECS II - DC135 DDP
06783  M00S04988.1ds     +++|          CON    101,/COMSDFS/RM0074    (DP)  ECS I  - DC145 DDP
06784  M00S04989.1ds     +++|          CON    201,/COMSDFS/RM0075    (DP)  ECS II - DC145 DDP
06785  M00S04990.1ds     +++|          CON    300,/COMSDFS/RM0076    (DP)  LCME   - COUPLER
06786  M00S04991.1ds     +++|          CON    501,/COMSDFS/RM0210    (DP)  ESM    - LOW SPEED PORT
Line S00001 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
06787  M01S00001.261l700 +++|          CON    601,/COMSDFS/RM0172    (DP)  STORNET
06788  M00S04992.1ds     +++|          CON    0           END OF TABLE
06789  M00S04993.1ds     +++| BML      SPACE  4,10
06790  M00S04994.1ds     +++|*         BINARY MAINTENANCE LOG MESSAGE.
06791  M00S04995.1ds     +++|
06792  M00S04996.1ds     +++| BML      BSS    0
06793  M00S04997.1ds     +++|
06794  M00S04998.1ds     +++| BMLID    VFD    12/         MESSAGE ID
06795  M00S04999.1ds     +++|
06796  M00S05000.1ds     +++| BMLSC    VFD    12/         SYMPTOM CODE
06797  M00S05001.1ds     +++|
06798  M00S05002.1ds     +++| BMLPP    VFD    6/          PP NUMBER
06799  M00S05003.1ds     +++|          VFD    6/          CHANNEL NUMBER
06800  M00S05004.1ds     +++|
06801  M00S05005.1ds     +++| BMLUN    VFD    6/0         EQUIPMENT NUMBER
06802  M00S05006.1ds     +++|          VFD    6/          UNIT NUMBER
06803  M00S05007.1ds     +++|
06804  M00S05008.1ds     +++|          VFD    12/0        RESERVED
06805  M00S05009.1ds     +++|
06806  M00S05010.1ds     +++| BMLEO    VFD    12/         EST ORDINAL
06807  M00S05011.1ds     +++|
06808  M00S05012.1ds     +++|          VFD    24/0        RESERVED
06809  M00S05013.1ds     +++| BMLMF    VFD    12/         MAINFRAME ID
06810  M00S05014.1ds     +++|
06811  M00S05015.1ds     +++|          VFD    12/0        RESERVED
06812  M00S05016.1ds     +++|
06813  M00S05017.1ds     +++| BMLL     EQU    *-BML       MESSAGE LENGTH
06814  M00S05018.1ds     +++| IFL      SPACE  4,15
06815  M00S05019.1ds     +++|**        IFL - INITIATE FIRMWARE LOAD.
06816  M00S05020.1ds     +++|*
06817  M00S05021.1ds     +++|*         ENTRY  (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
06818  M00S05022.1ds     +++|*                (MX) = MUX CHANNEL FLAG.
06819  M00S05023.1ds     +++|*                (CN - CN+4) = *EQDE* EST WORD.
06820  M00S05024.1ds     +++|*
06821  M00S05025.1ds     +++|*         USES   IR+2, IR+4, CM - CM+4.
06822  M00S05026.1ds     +++|*
06823  M00S05027.1ds     +++|*         CALLS  RCE.
06824  M00S05028.1ds     +++|*
06825  M00S05029.1ds     +++|*         MACROS EXECUTE, MONITOR.
06826  M00S05030.1ds     +++|
06827  M00S05031.1ds     +++|
06828  M00S05032.1ds     +++|*         CHECK FOR FIRMWARE LOAD COMPLETE.
06829  M00S05033.1ds     +++|
06830  M00S05034.1ds     +++| IFL1     RJM    RCE         READ CONTROLWARE TABLE ENTRY
06831  M00S05035.1ds     +++|          SHN    21-13
06832  M00S05036.1ds     +++|          PJN    IFLX        IF LOAD IS COMPLETE
06833  M00S05037.1ds     +++|
06834  M00S05038.1ds     +++|*         ENTER PP RECALL QUEUE.
06835  M00S05039.1ds     +++|
06836  M00S05040.1ds     +++|          LDK    ZERL        SET 1 SECOND TIMED RECALL PARAMETERS
06837  M00S05041.1ds     +++|          CRD    CM
06838  M00S05042.1ds     +++|          LDM    IDSC        RESTORE ORIGINAL CONTENTS
06839  M00S05043.1ds     +++|          STD    IR+2
06840  M00S05044.1ds     +++|          LDD    MA          SET PP INPUT REGISTER IMAGE
06841  M00S05045.1ds     +++|          CWD    IR
06842  M00S05046.1ds     +++|          MONITOR  RECM      ENTER RECALL AND DROP PP
06843  M00S05047.1ds     +++|          LJM    PPR         EXIT TO PP RESIDENT
06844  M00S05048.1ds     +++|
06845  M00S05049.1ds     +++| IFL      SUBR               ENTRY
06846  M00S05050.1ds     +++|          LDD    CN
06847  M00S05051.1ds     +++|          SHN    21-13
06848  M00S05052.1ds     +++|          PJN    IFLX        IF NOT MASS STORAGE
06849  M00S05053.1ds     +++|          LDD    MX
06850  M00S05054.1ds     +++|          NJN    IFLX        IF MUX CHANNEL
06851  M00S05055.1ds     +++|          LDD    FT
06852  M00S05056.1ds     +++|          ZJN    IFLX        IF *DOWN* REQUEST
06853  M00S05057.1ds     +++|          RJM    RCE         READ CONTROLWARE TABLE
06854  M00S05058.1ds     +++|          LPN    37
06855  M00S05059.1ds     +++|          ZJN    IFLX        IF NO CONTROLWARE
06856  M00S05060.1ds     +++|          LDN    **
06857  M00S05061.1ds     +++| IFLA     EQU    *-1
06858  M00S05062.1ds     +++|          ZJP    IFL1        IF FIRMWARE RELOAD ALREADY STARTED
06859  M00S05063.1ds     +++|
06860  M00S05064.1ds     +++|*         SET RELOAD REQUEST FLAG IN CONTROLWARE TABLE.
06861  M00S05065.1ds     +++|
06862  M00S05066.1ds     +++|          LDD    TA+1
06863  M00S05067.1ds     +++|          STD    CM+4
06864  M00S05068.1ds     +++|          LDD    TA
06865  M00S05069.1ds     +++|          STD    CM+3
06866  M00S05070.1ds     +++|          LDN    1           SET REQUEST COUNT
06867  M00S05071.1ds     +++|          STD    CM+1
06868  M00S05072.1ds     +++|          LDD    MA          PLACE PARAMETERS IN MESSAGE BUFFER
06869  M00S05073.1ds     +++|          CWM    IFLE,ON
06870  M00S05074.1ds     +++|          MONITOR  UTEM
06871  M00S05075.1ds     +++|
06872  M00S05076.1ds     +++|*         USE THIS PP TO INITIATE CONTROLWARE RELOAD.
06873  M00S05077.1ds     +++|
06874  M00S05078.1ds     +++|          LDM    IDSC        SET FUNCTION CODE
06875  M00S05079.1ds     +++|          SCN    77          PRESERVE BUFFER LOCK/LOGGING CONTROL BITS
06876  M00S05080.1ds     +++|          LMN    /1DS/ILJF
06877  M00S05081.1ds     +++|          STD    IR+2
06878  M00S05082.1ds     +++|          LDD    TH          SET *UPCF* CALL FLAG
06879  M00S05083.1ds     +++|          RAD    IR+4
06880  M00S05084.1ds     +++|          LDD    IA          REWRITE PP INPUT REGISTER
06881  M00S05085.1ds     +++|          CWD    IR
06882  M00S05086.1ds     +++|          EXECUTE  1DS,=
06883  M00S05087.1ds     +++|          LJM    PPR         EXIT TO PP RESIDENT
06884  M00S05088.1ds     +++|
06885  M00S05089.1ds     +++|
06886  M00S05090.1ds     +++| IFLE     VFD    1/0,5/,6/1,6/13,42/1  *UTEM* REQUEST
06887  M00S05091.1ds     +++| IMS      SPACE  4,15
06888  M00S05092.1ds     +++|**        IMS - ISSUE MESSAGES TO THE ERRLOG AND BML.
06889  M00S05093.1ds     +++|*
06890  M00S05094.1ds     +++|*         ENTRY  (A) = MESSAGE INDEX.
06891  M00S05095.1ds     +++|*                (CH) = CHANNEL NUMBER.
06892  M00S05096.1ds     +++|*                (IR+4) = DRIVER CALL FLAG.
06893  M00S05097.1ds     +++|*                (MI) = INCREMENTED IF MESSAGES WERE ISSUED.
06894  M00S05098.1ds     +++|*                (T5) = EST ORDINAL.
06895  M00S05099.1ds     +++|*
06896  M00S05100.1ds     +++|*         EXIT   (A) .GE. 0.
06897  M00S05101.1ds     +++|*
06898  M00S05102.1ds     +++|*         USES   S1, T1.
06899  M00S05103.1ds     +++|*
06900  M00S05104.1ds     +++|*         CALLS  C2D, DFM, IBM.
06901  M00S05105.1ds     +++|
06902  M00S05106.1ds     +++|
06903  M00S05107.1ds     +++|*         *MSI0* PROCESSOR.
06904  M00S05108.1ds     +++|
06905  M00S05109.1ds     +++| IMS1     LDD    CH          CONVERT CHANNEL NUMBER TO DISPLAY CODE
06906  M00S05110.1ds     +++|          RJM    C2D
06907  M00S05111.1ds     +++|          STM    MSG0+1
06908  M00S05112.1ds     +++|
06909  M00S05113.1ds     +++|*         *MSI1* PROCESSOR.
06910  M00S05114.1ds     +++|
06911  M00S05115.1ds     +++| IMS2     LDD    T5          CONVERT EST ORDINAL TO DISPLAY CODE
06912  M00S05116.1ds     +++|          SHN    -3
06913  M00S05117.1ds     +++|          RJM    C2D
06914  M00S05118.1ds     +++|          STM    MSG1+1
06915  M00S05119.1ds     +++|          LDD    T5
06916  M00S05120.1ds     +++|          LPN    7
06917  M00S05121.1ds     +++|          SHN    6
06918  M00S05122.1ds     +++|          ADC    2R0
06919  M00S05123.1ds     +++|          STM    MSG1+2
06920  M00S05124.1ds     +++|          LDM    IMSB,S1     ISSUE ERRLOG MESSAGE
06921  M00S05125.1ds     +++|          LMK    ERLN
06922  M00S05126.1ds     +++|          RJM    DFM
06923  M00S05127.1ds     +++|          RJM    IBM         ISSUE BML MESSAGE
06924  M00S05128.1ds     +++|*         LDN    0
06925  M00S05129.1ds     +++|
06926  M00S05130.1ds     +++| IMS      SUBR               ENTRY/EXIT
06927  M00S05131.1ds     +++|          STD    S1          SAVE MESSAGE INDEX
06928  M00S05132.1ds     +++|          LDD    IR+4
06929  M00S05133.1ds     +++|          SHN    21-13
06930  M00S05134.1ds     +++|          PJN    IMSX        IF NOT CALLED BY DRIVER
06931  M00S05135.1ds     +++|          AOD    MI          SET *MESSAGE ISSUED* FLAG
06932  M00S05136.1ds     +++|          LDM    IMSA,S1     GET PROCESSOR ADDRESS
06933  M00S05137.1ds     +++|          STD    T1
06934  M00S05138.1ds     +++|          LJM    0,T1        ENTER PROCESSOR
06935  M00S05139.1ds     +++|
06936  M00S05140.1ds     +++|
06937  M00S05141.1ds     +++|*         MESSAGE INDICES.
06938  M00S05142.1ds     +++|
06939  M00S05143.1ds     +++| BEGIN    BSSN   0
Line S05144 Modification History
M01 (Removed by) 1ds23
Seq #  *Modification Id* Act 
----------------------------+
06940  M01S05144.1ds23   ---|          LIST   G
06941  M01S05145.1ds23   ---|
06942  M00S05146.1ds     +++| MSI0     BSSN   1
06943  M00S05147.1ds     +++| MSI1     BSSN   1
Line S05148 Modification History
M01 (Removed by) 1ds23
Seq #  *Modification Id* Act 
----------------------------+
06944  M01S05148.1ds23   ---|
06945  M00S05149.1ds     +++| MSIX     BSSN   1           MAXIMUM INDEX + 1
Line S05150 Modification History
M01 (Removed by) 1ds23
Seq #  *Modification Id* Act 
----------------------------+
06946  M01S05150.1ds23   ---|          LIST   *
06947  M00S05151.1ds     +++| END      BSSN
06948  M00S05152.1ds     +++|
06949  M00S05153.1ds     +++|
06950  M00S05154.1ds     +++|*         TABLE OF PROCESSOR ADDRESSES.
06951  M00S05155.1ds     +++|
06952  M00S05156.1ds     +++| IMSA     INDEX
06953  M00S05157.1ds     +++|          INDEX  MSI0,IMS1
06954  M00S05158.1ds     +++|          INDEX  MSI1,IMS2
06955  M00S05159.1ds     +++|          INDEX  MSIX
06956  M00S05160.1ds     +++|
06957  M00S05161.1ds     +++|
06958  M00S05162.1ds     +++|*         TABLE OF MESSAGE ADDRESSES.
06959  M00S05163.1ds     +++|
06960  M00S05164.1ds     +++| IMSB     INDEX
06961  M00S05165.1ds     +++|          INDEX  MSI0,MSG0
06962  M00S05166.1ds     +++|          INDEX  MSI1,MSG1
06963  M00S05167.1ds     +++|          INDEX  MSIX
06964  M00S05168.1ds     +++|
06965  M00S05169.1ds     +++|
06966  M00S05170.1ds     +++| MSG0     DATA   6HCHXX,
06967  M00S05171.1ds     +++| MSG1     DATA   C*EQXXX DOWNED BY SYSTEM.*
06968  M00S05172.1ds     +++| RCE      SPACE  4,10
06969  M00S05173.1ds     +++|**        RCE - READ CONTROLWARE TABLE ENTRY.
06970  M00S05174.1ds     +++|*
06971  M00S05175.1ds     +++|*         ENTRY  (CB) = CONTROLWARE TABLE BYTE ADDRESS.
06972  M00S05176.1ds     +++|*                (TA - TA+1) = CONTROLWARE TABLE WORD ADDRESS.
06973  M00S05177.1ds     +++|*
06974  M00S05178.1ds     +++|*         EXIT   (A) = CONTROLWARE TABLE ENTRY.
06975  M00S05179.1ds     +++|*
06976  M00S05180.1ds     +++|*         USES   CM - CM+4.
06977  M00S05181.1ds     +++|
06978  M00S05182.1ds     +++|
06979  M00S05183.1ds     +++| RCE      SUBR               ENTRY/EXIT
06980  M00S05184.1ds     +++|          LDD    TA
06981  M00S05185.1ds     +++|          SHN    14
06982  M00S05186.1ds     +++|          LMD    TA+1
06983  M00S05187.1ds     +++|          CRD    CM
06984  M00S05188.1ds     +++|          LDI    CB
06985  M00S05189.1ds     +++|          UJN    RCEX        RETURN
06986  M00S05190.1ds     +++| RCH      SPACE  4,30
06987  M00S05191.1ds     +++|**        RCH - REQUEST CHANNEL ASSIGNMENT.
06988  M00S05192.1ds     +++|*
06989  M00S05193.1ds     +++|*         THIS SUBROUTINE DETERMINES IF CHANNEL ASSIGNMENT TO THIS PP
06990  M00S05194.1ds     +++|*         IS NECESSARY BEFORE PROCEDING WITH THE *UP*/*DOWN* FUNCTION.
06991  M00S05195.1ds     +++|*         IF THE CHANNEL MUST BE ASSIGNED, THE *CCHM* MONITOR FUNCTION
06992  M00S05196.1ds     +++|*         WILL BE REPEATEDLY ISSUED UNTIL EITHER THE ASSIGNMENT OCCURS
06993  M00S05197.1ds     +++|*         OR CHANNEL ASSIGNMENT BECOMES IMPOSSIBLE DUE TO ASSIGNMENT OF
06994  M00S05198.1ds     +++|*         THE CHANNEL TO A JOB.
06995  M00S05199.1ds     +++|*
06996  M00S05200.1ds     +++|*         ENTRY  (CH) = CHANNEL NUMBER (AND CONCURRENCY FLAG).
06997  M00S05201.1ds     +++|*                (CS) = CHANNEL STATUS.
06998  M00S05202.1ds     +++|*                (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
06999  M00S05203.1ds     +++|*                (MX) = 100 IF MUX CHANNEL.
07000  M00S05204.1ds     +++|*                (CN - CN+4) = WORD *EQDE* OF EST ENTRY.
07001  M00S05205.1ds     +++|*
07002  M00S05206.1ds     +++|*         EXIT   (A) .GE. 0 IF ONE OF THE FOLLOWING IS TRUE -
07003  M00S05207.1ds     +++|*                            A. CHANNEL ASSIGNMENT IS NOT REQUIRED FOR
07004  M00S05208.1ds     +++|*                               PROCESSING THIS FUNCTION.
07005  M00S05209.1ds     +++|*                            B. CHANNEL ASSIGNMENT IS NOT REQUIRED FOR
07006  M00S05210.1ds     +++|*                               PROCESSING THIS DEVICE TYPE.
07007  M00S05211.1ds     +++|*                            C. THE CHANNEL WAS ALREADY ASSIGNED.
07008  M00S05212.1ds     +++|*                            D. THE CHANNEL IS A MUX CHANNEL.
07009  M00S05213.1ds     +++|*                            E. CHANNEL ASSIGNMENT WAS OBTAINED.
07010  M00S05214.1ds     +++|*                    .LT. 0 IF THE CHANNEL IS PRESENTLY ASSIGNED TO A
07011  M00S05215.1ds     +++|*                            JOB.
07012  M00S05216.1ds     +++|*                (CS) = 1 IF CHANNEL ASSIGNED, ELSE 0.
07013  M00S05217.1ds     +++|*
07014  M00S05218.1ds     +++|*         USES   CM+1, CS.
07015  M00S05219.1ds     +++|*
07016  M00S05220.1ds     +++|*         MACROS MONITOR, PAUSE.
07017  M00S05221.1ds     +++|
07018  M00S05222.1ds     +++|
07019  M00S05223.1ds     +++| RCH      SUBR               ENTRY/EXIT
07020  M00S05224.1ds     +++|          LDD    CN
07021  M00S05225.1ds     +++|          SHN    0-13
07022  M00S05226.1ds     +++|          ADD    CS
07023  M00S05227.1ds     +++|          ADD    FT
07024  M00S05228.1ds     +++|          ADD    MX
07025  M00S05229.1ds     +++|          NJN    RCHX        IF CHANNEL NOT TO BE ASSIGNED
07026  M00S05230.1ds     +++| RCH1     LDD    CH          REQUEST CHANNEL ASSIGNMENT
07027  M00S05231.1ds     +++|          STD    CM+1
07028  M00S05232.1ds     +++|          MONITOR  CCHM
07029  M00S05233.1ds     +++|          LDD    CM+1
07030  M00S05234.1ds     +++|          SHN    21-5
07031  M00S05235.1ds     +++|          MJN    RCHX        IF DOWN CHANNEL ASSIGNED TO JOB
07032  M00S05236.1ds     +++|          LDD    CM+2        SET CHANNEL STATUS
07033  M00S05237.1ds     +++|          STD    CS
07034  M00S05238.1ds     +++|          NJN    RCHX        IF CHANNEL ASSIGNED
07035  M00S05239.1ds     +++|          PAUSE  ST
07036  M00S05240.1ds     +++|          UJN    RCH1        RETRY
07037  M00S05241.1ds     +++| RCS      SPACE  4,30
07038  M00S05242.1ds     +++|**        RCS - REQUEST CHANNEL STATUS CHANGE.
07039  M00S05243.1ds     +++|*
07040  M00S05244.1ds     +++|*         THIS SUBROUTINE REQUESTS, VIA THE *SEQM* MONITOR FUNCTION,
07041  M00S05245.1ds     +++|*         THAT THE CHANNEL STATE BE CHANGED TO *UP* OR *DOWN* ON THE
07042  M00S05246.1ds     +++|*         CURRENT DEVICE ACCORDING TO THE *1DS* FUNCTION BEING
07043  M00S05247.1ds     +++|*         PROCESSED.
07044  M00S05248.1ds     +++|*
07045  M00S05249.1ds     +++|*         ENTRY  (CH) = CHANNEL NUMBER.
07046  M00S05250.1ds     +++|*                (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
07047  M00S05251.1ds     +++|*                (MX) = 100 IF MUX CHANNEL.
07048  M00S05252.1ds     +++|*                (TI) = DEVICE TABLE INDEX.
07049  M00S05253.1ds     +++|*                (T5) = EST ORDINAL.
07050  M00S05254.1ds     +++|*                (CN - CN+4) = WORD *EQDE* OF EST ENTRY.
07051  M00S05255.1ds     +++|*
07052  M00S05256.1ds     +++|*         EXIT   (A) .GE. 0 IF CHANNEL STATUS HAS BEEN CHANGED.
07053  M00S05257.1ds     +++|*                    .LT. 0 IF THE *SEQM* REQUEST WAS REJECTED.  THIS
07054  M00S05258.1ds     +++|*                            CAN OCCUR IN THE FOLLOWING CASES -
07055  M00S05259.1ds     +++|*                            A. THE REQUEST IS TO *UP* THE CHANNEL AND
07056  M00S05260.1ds     +++|*                               IT IS PRESENTLY ASSIGNED TO A
07057  M00S05261.1ds     +++|*                               DIAGNOSTIC JOB.
07058  M00S05262.1ds     +++|*                            B. THE REQUEST IS TO *DOWN* THE CHANNEL
07059  M00S05263.1ds     +++|*                               AND THE CHANNEL PROVIDES THE ONLY
07060  M00S05264.1ds     +++|*                               NON-DOWN ACCESS PATH TO THE SPECIFIED
07061  M00S05265.1ds     +++|*                               DEVICE AND THAT DEVICE IS NOT DOWN.
07062  M00S05266.1ds     +++|*
07063  M00S05267.1ds     +++|*         USES   T1, CM+1 - CM+4.
07064  M00S05268.1ds     +++|*
Line S05269 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07065  M01S05269.282l826 ---|*         CALLS  CMG, IFL, IMS.
Line S00017 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07066  M01S00017.282l826 +++|*         CALLS  IFL, IMS.
07067  M00S05270.1ds     +++|*
07068  M00S05271.1ds     +++|*         MACROS MONITOR.
07069  M00S05272.1ds     +++|
07070  M00S05273.1ds     +++|
07071  M00S05274.1ds     +++| RCS6     LDD    T1
07072  M00S05275.1ds     +++|          SHN    -1
07073  M00S05276.1ds     +++|          STD    T1
07074  M00S05277.1ds     +++|          NJN    RCS1        IF MORE RETRIES REQUIRED
07075  M00S05278.1ds     +++|          LCN    0           SET REJECT STATUS
07076  M00S05279.1ds     +++|
07077  M00S05280.1ds     +++| RCS      SUBR               ENTRY/EXIT
07078  M00S05281.1ds     +++|          LDN    10          SET RETRY CONTROL
07079  M00S05282.1ds     +++|          STD    T1
07080  M00S05283.1ds     +++| RCS1     LDD    T5          STORE EST ORDINAL IN REQUEST
07081  M00S05284.1ds     +++|          STD    CM+1
07082  M00S05285.1ds     +++|          ERRNZ  UPCS-DNCS-1 CODE DEPENDS ON VALUE
07083  M00S05286.1ds     +++|          LDD    FT          SET *SEQM* SUBFUNCTION
07084  M00S05287.1ds     +++|          ADK    DNCS
07085  M00S05288.1ds     +++|          STD    CM+2
07086  M00S05289.1ds     +++|          LDD    CH          STORE CHANNEL IN REQUEST
07087  M00S05290.1ds     +++|          STD    CM+3
07088  M00S05291.1ds     +++|          LDD    MX          STORE MUX FLAG IN REQUEST
07089  M00S05292.1ds     +++|          STD    CM+4
07090  M00S05293.1ds     +++|          MONITOR  SEQM      REQUEST CHANNEL STATUS CHANGE
07091  M00S05294.1ds     +++|          LDD    CM+1
07092  M00S05295.1ds     +++|          ZJN    RCS6        IF REQUEST WAS REJECTED
07093  M00S05296.1ds     +++|          RJM    IFL         INITIATE FIRMWARE RELOAD IF NEEDED
07094  M00S05297.1ds     +++|          LDD    CN
07095  M00S05298.1ds     +++|          SHN    0-13
07096  M00S05299.1ds     +++|          NJN    RCS4        IF MASS STORAGE DEVICE
07097  M00S05300.1ds     +++|          LDD    FT
07098  M00S05301.1ds     +++|          ZJN    RCS3        IF *DOWN* REQUEST
07099  M00S05302.1ds     +++|          LDD    T5          EST ORDINAL
07100  M00S05303.1ds     +++|          STD    CM+1
07101  M00S05304.1ds     +++|          LDD    CH          CHANNEL NUMBER
07102  M00S05305.1ds     +++|          STD    CM+2
07103  M00S05306.1ds     +++|          LDK    SUCS        *SCSM* SUBFUNCTION
07104  M00S05307.1ds     +++|          STD    CM+3
07105  M00S05308.1ds     +++|          MONITOR  SCSM      SET CHANNEL STATE = *UP*
Line S05309 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07106  M01S05309.282l826 ---| RCS3     LDD    TI
07107  M01S05310.282l826 ---|          SBN    TDVTA
07108  M01S05311.282l826 ---|          PJN    RCS5        IF TAPE EQUIPMENT
07109  M01S05312.282l826 ---|          LDD    FT
Line S00018 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07110  M01S00018.282l826 +++| RCS3     LDD    FT
07111  M00S05313.1ds     +++|          ZJN    RCS4.1      IF *DOWN* REQUEST
07112  M00S05314.1ds     +++|          LDD    T5          SET CONTROLWARE LOAD REQUIRED
07113  M00S05315.1ds     +++|          STD    CM+1
07114  M00S05316.1ds     +++|          LDN    SB0S        SET SUBFUNCTION
07115  M00S05317.1ds     +++|          STD    CM+2
07116  M00S05318.1ds     +++|          LCN    20          SET MASK
07117  M00S05319.1ds     +++|          STD    CM+3
07118  M00S05320.1ds     +++|          LDN    20          SET VALUE
07119  M00S05321.1ds     +++|          STD    CM+4
07120  M00S05322.1ds     +++|          MONITOR  SEQM
07121  M00S05323.1ds     +++| RCS4     LDK    MSI0        MESSAGE INDEX
07122  M00S05324.1ds     +++|          RJM    IMS         ISSUE MESSAGES, IF NECESSARY
07123  M00S05325.1ds     +++| RCS4.1   LJM    RCSX        RETURN
Line S05326 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07124  M01S05326.282l826 ---|
07125  M01S05327.282l826 ---| RCS5     RJM    CMG         CALL *MAGNET*
07126  M01S05328.282l826 ---|          UJN    RCS4        RETURN
07127  M00S05329.1ds     +++| PRS      SPACE  4,10
07128  M00S05330.1ds     +++|**        PRS - PRESET.
07129  M00S05331.1ds     +++|*
07130  M00S05332.1ds     +++|*         EXIT   (CB) = CONTROLWARE TABLE BYTE ADDRESS.
07131  M00S05333.1ds     +++|*                (CH) = CHANNEL NUMBER (INCLUDING CONCURRENCY FLAG).
07132  M00S05334.1ds     +++|*                (CS) = 0.
07133  M00S05335.1ds     +++|*                (FG) = CME FLAG.
07134  M00S05336.1ds     +++|*                (FT) = FUNCTION TYPE (1 IF *UP*, 0 IF *DOWN*).
07135  M00S05337.1ds     +++|*                (MI) = 0.
07136  M00S05338.1ds     +++|*                (MX) = MUX FLAG (100 IF MUX CHANNEL, ELSE 0).
07137  M00S05339.1ds     +++|*                (TA - TA+1) = CONTROLWARE TABLE WORD ADDRESS.
07138  M00S05340.1ds     +++|*
07139  M00S05341.1ds     +++|*         USES   CH, CS, FT, MI, MX, T1 - T3, CM - CM+4.
07140  M00S05342.1ds     +++|
07141  M00S05343.1ds     +++|
07142  M00S05344.1ds     +++| PRS      SUBR               ENTRY/EXIT
Line S05345 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
07143  M01S05345.282l826 ---|          LDD    FG          SET CME ADJUSTMENT
07144  M01S05346.282l826 ---|          SHN    0-13
07145  M01S05347.282l826 ---|          LMN    1
07146  M01S05348.282l826 ---|          RAM    CMGA
07147  M00S05349.1ds     +++|          LDN    0
07148  M00S05350.1ds     +++|          STD    CS
07149  M00S05351.1ds     +++|          STD    MI
07150  M00S05352.1ds     +++|          STD    T1
07151  M00S05353.1ds     +++|          LDD    IR+3        SET CHANNEL NUMBER
07152  M00S05354.1ds     +++|          LPN    77
07153  M00S05355.1ds     +++|          STD    CH
07154  M00S05356.1ds     +++|          STD    T2
07155  M00S05357.1ds     +++|          STM    CMVA+4
07156  M00S05358.1ds     +++|          LDD    IR+2        SET FUNCTION TYPE
07157  M00S05359.1ds     +++|          ERRNZ  /1DS/UPCF-/1DS/DWNF-1  CODE DEPENDS ON VALUE
07158  M00S05360.1ds     +++|          SBN    /1DS/DWNF
07159  M00S05361.1ds     +++|          STD    FT
07160  M00S05362.1ds     +++|          LDD    IR+3        SET/CLEAR MUX FLAG
07161  M00S05363.1ds     +++|          LPC    100
07162  M00S05364.1ds     +++|          STD    MX
07163  M00S05365.1ds     +++|          LDN    60D
07164  M00S05366.1ds     +++|          STD    T3
07165  M00S05367.1ds     +++| PRS1     AOD    T1          ADVANCE CM WORD INDEX
07166  M00S05368.1ds     +++|          LCN    5
07167  M00S05369.1ds     +++|          RAD    T2
07168  M00S05370.1ds     +++|          PJN    PRS1        IF NOT AT PROPER WORD
07169  M00S05371.1ds     +++|          ADN    5+CM        SET CONTROLWARE TABLE BYTE ADDRESS
07170  M00S05372.1ds     +++|          STD    CB
07171  M00S05373.1ds     +++|          SBN    CM
07172  M00S05374.1ds     +++|          LPN    7
07173  M00S05375.1ds     +++|          STD    T2
07174  M00S05376.1ds     +++| PRS2     LCN    12D         DECREMENT POSITION
07175  M00S05377.1ds     +++|          RAD    T3
07176  M00S05378.1ds     +++|          SOD    T2          DECREMENT BYTE NUMBER
07177  M00S05379.1ds     +++|          PJN    PRS2        IF NOT TO PROPER POSITION
07178  M00S05380.1ds     +++|          LDD    T3          BIT POSITION
07179  M00S05381.1ds     +++|          ADN    13          ADD OFFSET OF BIT WITHIN BYTE
07180  M00S05382.1ds     +++|          SHN    6
07181  M00S05383.1ds     +++|          STM    IFLE+1
07182  M00S05384.1ds     +++|          SBK    200
07183  M00S05385.1ds     +++|          RAM    CDSD+1
07184  M00S05386.1ds     +++|          STM    CDSE+1
07185  M00S05387.1ds     +++|          SBK    300
07186  M00S05388.1ds     +++|          RAM    CRCB+1
07187  M00S05389.1ds     +++|          LDK    CHTP        READ CHANNEL STATUS TABLE
07188  M00S05390.1ds     +++|          CRD    CM
07189  M00S05391.1ds     +++|          LDD    CM+2
07190  M00S05392.1ds     +++|          SHN    14
07191  M00S05393.1ds     +++|          LMD    CM+3
07192  M00S05394.1ds     +++|          ADD    T1
07193  M00S05395.1ds     +++|          SBN    1
07194  M00S05396.1ds     +++|          CRD    CM
07195  M00S05397.1ds     +++|          ADN    CTALL*2     CONTROLWARE TABLE ADDRESS
07196  M00S05398.1ds     +++|          STD    TA+1
07197  M00S05399.1ds     +++|          SHN    -14
07198  M00S05400.1ds     +++|          STD    TA
07199  M00S05401.1ds     +++|          LDI    CB          SAVE GLOBAL DOWN STATUS
07200  M00S05402.1ds     +++|          LPN    40
07201  M00S05403.1ds     +++|          RAM    IFLA
07202  M00S05404.1ds     +++|          LJM    PRSX        RETURN
07203  M00S05405.1ds     +++|
07204  M00S05406.1ds     +++|
Line S05407 Modification History
M01 (Removed by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
07205  M01S05407.1ds21   ---|          OVERFLOW  OVLA
Line S00093 Modification History
M01 (Added by) 1ds21
Seq #  *Modification Id* Act 
----------------------------+
07206  M01S00093.1ds21   +++|          OVERFLOW  OVLA,/OVERLAY/BUFB
07207  M00S05408.1ds     +++|          TTL    1DS - DSD REQUEST PROCESSOR.
07208  M00S05409.1ds     +++|          SPACE  4,10
07209  M00S05410.1ds     +++|          END
cdc/nos2.source/opl.opl871/deck/1ds.004.txt ยท Last modified: (external edit)