User Tools

Site Tools


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

Deck 1XD Part 004

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S03156 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04508  M02S03156.1xd5    ---|          FTTE   *
Line S03157 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04509  M02S03157.1xd5    ---|          ADC    0           STORE *FTT* ENTRY
Line S03158 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04510  M02S03158.1xd5    ---|          CWD    T5
04511  M01S00534.1xd5    +++|          ADD    CM
04512  M01S00535.1xd5    +++|          STM    FTOC,DI
04513  M01S03159.1xd     +++|          UJN    STOX        RETURN
04514  M01S03160.1xd     +++| SUA      SPACE  4,10
04515  M01S03161.1xd     +++|**        SUA - SET UEM ADDRESS.
04516  M01S03162.1xd     +++|*
04517  M01S03163.1xd     +++|*         ENTRY  (A) = *CBT* ORDINAL.
04518  M01S03164.1xd     +++|*
04519  M01S03165.1xd     +++|*         EXIT   (UA - UA+1) = UEM ADDRESS / 100.
04520  M01S03166.1xd     +++|*
04521  M01S03167.1xd     +++|*         USES   CM - CM+4.
04522  M01S03168.1xd     +++|*
04523  M01S03169.1xd     +++|*         MACROS CBTE.
04524  M01S03170.1xd     +++|
04525  M01S03171.1xd     +++|
04526  M01S03172.1xd     +++| SUA      SUBR               ENTRY/EXIT
04527  M01S03173.1xd     +++|          SHN    CBTLS
04528  M01S03174.1xd     +++|          CBTE   *
04529  M01S03175.1xd     +++|          ADC    IOLK        READ *CBT* ENTRY
04530  M01S03176.1xd     +++|          CRD    CM
04531  M01S03177.1xd     +++|          LDD    CM+4        EXTRACT RELATIVE UEM ADDRESS
04532  M01S03178.1xd     +++|          ADC    0
04533  M01S03179.1xd     +++| SUAA     EQU    *-1
04534  M01S03180.1xd     +++|          SHN    -6
04535  M01S03181.1xd     +++|          STD    UA+1        SET ABSOLUTE ADDRESS / 100
04536  M01S03182.1xd     +++|          LDD    CM+3
04537  M01S03183.1xd     +++|          ADC    0
04538  M01S03184.1xd     +++| SUAB     EQU    *-1
04539  M01S03185.1xd     +++|          SHN    6
04540  M01S03186.1xd     +++|          RAD    UA+1
04541  M01S03187.1xd     +++|          SHN    -14
04542  M01S03188.1xd     +++|          STD    UA
04543  M01S03189.1xd     +++|          UJN    SUAX        RETURN
04544  M01S03190.1xd     +++| SUI      SPACE  4,15
04545  M01S03191.1xd     +++|**        SUI - SET UNIT INTERLOCK.
04546  M01S03192.1xd     +++|*
04547  M01S03193.1xd     +++|*         ENTRY  (DI) = DEVICE STATUS BLOCK INDEX.
04548  M01S03194.1xd     +++|*
04549  M01S03195.1xd     +++|*         EXIT   (A) = 0 IF *PUT* ENTRY INTERLOCKED.
04550  M01S03196.1xd     +++|*                (UC) = UNIT ACTIVITY COUNT INCREMENTED.
04551  M01S03197.1xd     +++|*                (CM+1) = *BIOM* STATUS.
04552  M01S03198.1xd     +++|*
Line S03199 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04553  M02S03199.ns2714  ---|*         USES   CM - CM+4.
Line S03200 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04554  M02S03200.ns2714  ---|*
Line S03201 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04555  M02S03201.ns2714  ---|*         CALLS  CMC.
Line S00242 Modification History
M01 (Added by) ns2714
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04556  M02S00242.272l774 ---|*         USES   CM+1, CM+2.
04557  M01S00147.272l774 +++|*         USES   CM+1, CM+2, UC.
04558  M01S03202.1xd     +++|*
04559  M01S03203.1xd     +++|*         MACROS MONITOR.
04560  M01S03204.1xd     +++|
04561  M01S03205.1xd     +++|
04562  M01S03206.1xd     +++| SUI1     AOD    UC          ADVANCE UNIT ASSIGNED COUNT
04563  M01S03207.1xd     +++|          LDC    4000
Line S03208 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04564  M02S03208.272l774 ---| SUI2     STM    RQLN        SET UNIT INTERLOCKED
04565  M01S00148.272l774 +++| SUI2     STM    RQLN,DI     SET UNIT INTERLOCKED
04566  M01S03209.1xd     +++|          LDN    0
04567  M01S03210.1xd     +++|
04568  M01S03211.1xd     +++| SUI      SUBR               ENTRY/EXIT
Line S03212 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04569  M02S03212.272l774 ---|          LDM    RQLN
04570  M01S00149.272l774 +++|          LDM    RQLN,DI
04571  M01S03213.1xd     +++|          SCN    77
04572  M01S03214.1xd     +++|          NJN    SUI2        IF UNIT ALREADY INTERLOCKED
Line S03215 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04573  M02S03215.ns2714  ---|          RJM    CMC
04574  M01S03216.1xd     +++|          LDI    DI          SET *PUT* ORDINAL
04575  M01S03217.1xd     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
04576  M01S03218.1xd     +++|          STD    CM+2
04577  M01S03219.1xd     +++|          LDN    SUIS        SET SUBFUNCTION
04578  M01S03220.1xd     +++|          STD    CM+1
04579  M01S03221.1xd     +++|          MONITOR  BIOM      INTERLOCK DEVICE
04580  M01S03222.1xd     +++|          LDD    CM+1
04581  M01S03223.1xd     +++|          ZJN    SUI1        IF INTERLOCK ACQUIRED
Line S03224 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04582  M02S03224.ns2714  ---|*         LDN    1
04583  M01S00243.ns2714  +++|          LDN    1
04584  M01S03225.1xd     +++|          UJN    SUIX        RETURN
04585  M01S03226.1xd     +++| TMSE     SPACE  4,10
04586  M01S03227.1xd     +++|**        TMSE - TABLE OF MASS STORAGE ERROR CODES.
04587  M01S03228.1xd     +++|*
04588  M01S03229.1xd     +++|*         INDEXED BY FAULT CODE / 4.
04589  M01S03230.1xd     +++|
04590  M01S03231.1xd     +++|
04591  M01S03232.1xd     +++| TMSE     BSS    0
04592  M01S03233.1xd     +++|          LOC    0
04593  M01S03234.1xd     +++|
04594  M01S03235.1xd     +++|          CON    CHPE        CHANNEL PARITY
04595  M01S03236.1xd     +++|          CON    CHFE        CHANNEL FAILURE
04596  M01S03237.1xd     +++|          CON    FTOE        FUNCTION TIMEOUT
04597  M01S03238.1xd     +++|          CON    PARE        DATA PARITY (MEDIA)
04598  M01S03239.1xd     +++|          CON    NRDE        DEVICE NOT READY
04599  M01S03240.1xd     +++|          CON    IDTE        DATA TRANSFER
04600  M01S03241.1xd     +++|          CON    DSTE        DEVICE STATUS
04601  M01S03242.1xd     +++|          CON    DSTE        DEVICE STATUS
04602  M01S03243.1xd     +++|          CON    DSTE        DEVICE STATUS
04603  M01S03244.1xd     +++|          CON    DSTE        DEVICE STATUS
04604  M01S03245.1xd     +++|          CON    DSTE        DEVICE STATUS
04605  M01S03246.1xd     +++|          CON    DDFE        DIAGNOSTIC FAILURE
04606  M01S03247.1xd     +++|          CON    RAME        CONTROLLER MEMORY
04607  M01S03248.1xd     +++|          CON    CHFE        CHANNEL FAILURE
04608  M01S03249.1xd     +++|          CON    DRVE        DRIVE RESERVE
04609  M01S00244.ns2714  +++|          CON    RAME        CONTROLLER MEMORY
04610  M01S03250.1xd     +++|          LOC    *O
04611  M01S03251.1xd     +++| TMSK     SPACE  4,10
04612  M01S03252.1xd     +++|**        TMSK - TABLE OF UNIT MASKS.
04613  M01S03253.1xd     +++|*
04614  M01S03254.1xd     +++|*         INDEXED BY UNIT NUMBER.
04615  M01S03255.1xd     +++|
04616  M01S03256.1xd     +++|
04617  M01S03257.1xd     +++| TMSK     BSS    0
04618  M01S03258.1xd     +++|          LOC    0
04619  M01S03259.1xd     +++|
04620  M01S03260.1xd     +++|          CON    001
04621  M01S03261.1xd     +++|          CON    002
04622  M01S03262.1xd     +++|          CON    004
04623  M01S03263.1xd     +++|          CON    010
04624  M01S03264.1xd     +++|          CON    020
04625  M01S03265.1xd     +++|          CON    040
04626  M01S03266.1xd     +++|          CON    100
04627  M01S03267.1xd     +++|          CON    200
04628  M01S03268.1xd     +++|          LOC    *O
04629  M01S00109.273l780 +++| UBP      SPACE  4,20
04630  M01S00110.273l780 +++|**        UBP - UPDATE *BDLL* PARAMETER.
04631  M01S00111.273l780 +++|*
Line S00112 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04632  M02S00112.ns2750  ---|*         THIS ROUTINE CHANGES THE CONTROLLER OVER TEMPERATURE BIT IN
Line S00113 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04633  M02S00113.ns2750  ---|*         WORD *BDLL* OF THE MST.
04634  M01S00239.ns2750  +++|*         THIS ROUTINE CHANGES A BIT/FIELD IN WORD *BDLL* OF THE MST.
04635  M01S00114.273l780 +++|*
Line S00115 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04636  M02S00115.ns2750  ---|*         ENTRY  (A) = NEW VALUE.
04637  M01S00240.ns2750  +++|*         ENTRY  (A) = 6/WORD, 6/BITS TO CHANGE.
04638  M01S00116.273l780 +++|*                (EO) = EST ORDINAL.
04639  M01S00241.ns2750  +++|*                (CM+2) = NEW VALUE.
04640  M01S00242.ns2750  +++|*                (T7) = LOW ORDER BIT TO CHANGE TIMES 100.
04641  M01S00117.273l780 +++|*
Line S00118 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04642  M02S00118.ns2750  ---|*         USES   T6, T7, CM - CM+4.
04643  M01S00243.ns2750  +++|*         USES   T6, CM - CM+4.
04644  M01S00119.273l780 +++|*
04645  M01S00120.273l780 +++|*         MACROS MONITOR, SFA.
04646  M01S00121.273l780 +++|
04647  M01S00122.273l780 +++|
04648  M01S00123.273l780 +++| UBP      SUBR               ENTRY/EXIT
Line S00124 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04649  M02S00124.ns2750  ---|          STD    CM+2        NEW VALUE
Line S00125 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04650  M02S00125.ns2750  ---|          LDC    63*100      LOW ORDER BIT TIMES 100
Line S00126 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04651  M02S00126.ns2750  ---|          STD    T7
Line S00127 Modification History
M01 (Added by) 273l780
M02 (Updated by) ns2750
Seq #  *Modification Id* Act 
----------------------------+
04652  M02S00127.ns2750  ---|          LDC    BDLL*100+1  6/WORD, 6/BITS TO CHANGE
04653  M01S00128.273l780 +++|          STD    T6
04654  M01S00129.273l780 +++|          LDD    MA
04655  M01S00130.273l780 +++|          CWD    T6          STORE MESSAGE BUFFER PARAMETERS
04656  M01S00131.273l780 +++|          SFA    EST,EO      CALCULATE EST ADDRESS
04657  M01S00132.273l780 +++|          ADK    EQDE
04658  M01S00133.273l780 +++|          CRD    CM
04659  M01S00134.273l780 +++|          LDD    CM+4
04660  M01S00135.273l780 +++|          SHN    3
04661  M01S00136.273l780 +++|          STD    CM+4        SET BASE *MST* ENTRY ADDRESS
04662  M01S00137.273l780 +++|          SHN    -14
04663  M01S00138.273l780 +++|          STD    CM+3
04664  M01S00139.273l780 +++|          LDN    1
04665  M01S00140.273l780 +++|          STD    CM+1        PARAMETER WORD COUNT
04666  M01S00141.273l780 +++|          MONITOR  UTEM
04667  M01S00142.273l780 +++|          UJN    UBPX        RETURN
04668  M01S03269.1xd     +++| UEC      SPACE  4,15
04669  M01S03270.1xd     +++|**        UEC - UPDATE MST ERROR COUNT.
04670  M01S03271.1xd     +++|*
04671  M01S03272.1xd     +++|*         ENTRY  (EO) = EST ORDINAL.
04672  M01S03273.1xd     +++|*                (BMLM+1) = BML MESSAGE SYMPTOM CODE.
04673  M01S03274.1xd     +++|*                (MISC - BIT 0) = 1 IF UNRECOVERED ERROR.
04674  M01S03275.1xd     +++|*
Line S03276 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04675  M02S03276.272l774 ---|*         USES   CM - CM+4.
04676  M01S00150.272l774 +++|*         USES   CM+1 - CM+3.
04677  M01S03277.1xd     +++|*
04678  M01S03278.1xd     +++|*         MACROS MONITOR.
04679  M01S03279.1xd     +++|
04680  M01S03280.1xd     +++|
04681  M01S03281.1xd     +++| UEC      SUBR               ENTRY/EXIT
04682  M01S03282.1xd     +++|          LDM    BMLM+1
Line S03283 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04683  M02S03283.ns2714  ---|          LMC    HD0105
Line S00245 Modification History
M01 (Added by) ns2714
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04684  M02S00245.272l774 ---|          LMC    D"DN"*400+HD0105
04685  M01S00151.272l774 +++|          LMC    D"DN"*400+HD0111
04686  M01S03284.1xd     +++|          NJN    UECX        IF NOT COMPLETION MESSAGE
04687  M01S03285.1xd     +++|          LDD    EO
04688  M01S03286.1xd     +++|          STD    CM+1        SET EST ORDINAL
04689  M01S03287.1xd     +++|          LDM    MISC
04690  M01S03288.1xd     +++|          LPN    1           SET BYTE NUMBER
04691  M01S03289.1xd     +++|          ADN    3
04692  M01S03290.1xd     +++|          STD    CM+2
04693  M01S03291.1xd     +++|          LDN    ICTS        INCREMENT ERROR COUNT
04694  M01S03292.1xd     +++|          STD    CM+3
04695  M01S03293.1xd     +++|          MONITOR  SMDM
04696  M01S03294.1xd     +++|          UJN    UECX        RETURN
04697  M01S03295.1xd     +++| UHD      SPACE  4,15
04698  M01S03296.1xd     +++|**        UHD - UNPACK HEX DATA.
04699  M01S03297.1xd     +++|*
04700  M01S03298.1xd     +++|*         ENTRY  (A) = DESTINATION DATA ADDRESS.
04701  M01S03299.1xd     +++|*                (T2) = SOURCE DATA ADDRESS.
04702  M01S03300.1xd     +++|*                (T4) = BYTE COUNT OF HEX DATA.
04703  M01S03301.1xd     +++|*
04704  M01S03302.1xd     +++|*         EXIT   (A) = CM WORD COUNT OF 12 BIT DATA.
04705  M01S03303.1xd     +++|*
04706  M01S03304.1xd     +++|*         USES   T2, T3, T4, T5.
04707  M01S03305.1xd     +++|*
04708  M01S03306.1xd     +++|*         CALLS  DV5.
04709  M01S03307.1xd     +++|
04710  M01S03308.1xd     +++|
04711  M01S03309.1xd     +++| UHD3     AODL   T3          SET END OF 12 BIT DATA
04712  M01S03310.1xd     +++|          STML   UHDA
04713  M01S03311.1xd     +++|          LDN    ZERL        ENSURE ZERO FILL TO CM WORD BOUNDARY
04714  M01S03312.1xd     +++|          CRM    *,ON
04715  M01S03313.1xd     +++| UHDA     EQU    *-1
04716  M01S03314.1xd     +++|          LDDL   T3          SET BYTE COUNT OF 12 BIT DATA
04717  M01S03315.1xd     +++|          SBDL   T5
04718  M01S03316.1xd     +++|          RJM    DV5         CONVERT TO CM WORD COUNT
04719  M01S03317.1xd     +++|
04720  M01S03318.1xd     +++| UHD      SUBR               ENTRY/EXIT
04721  M01S03319.1xd     +++|          STDL   T3
04722  M01S03320.1xd     +++|          STDL   T5          PRESERVE DESTINATION BUFFER ADDRESS
04723  M01S03321.1xd     +++| UHD1     LDIL   T2
04724  M01S03322.1xd     +++|          SHN    16
04725  M01S03323.1xd     +++|          STI    T3          UNPACK N+3RD BYTE
04726  M01S03324.1xd     +++|          SHN    -6
04727  M01S03325.1xd     +++|          SCN    77
04728  M01S03326.1xd     +++|          STM    1,T3
04729  M01S03327.1xd     +++|          AODL   T3
04730  M01S03328.1xd     +++|          SOD    T4
04731  M01S03329.1xd     +++| UHD2     ZJN    UHD3        IF END OF HEX DATA
04732  M01S03330.1xd     +++|          AODL   T2
04733  M01S03331.1xd     +++|          LDIL   T2
04734  M01S03332.1xd     +++|          SHN    -10
04735  M01S03333.1xd     +++|          RAI    T3          UNPACK N+4TH BYTE
04736  M01S03334.1xd     +++|          AODL   T3
04737  M01S03335.1xd     +++|          LDIL   T2
04738  M01S03336.1xd     +++|          SHN    4
04739  M01S03337.1xd     +++|          SCN    17
04740  M01S03338.1xd     +++|          STI    T3
04741  M01S03339.1xd     +++|          SOD    T4
04742  M01S03340.1xd     +++|          ZJN    UHD2        IF END OF HEX DATA
04743  M01S03341.1xd     +++|          AODL   T2
04744  M01S03342.1xd     +++|          LDIL   T2
04745  M01S03343.1xd     +++|          STM    1,T3
04746  M01S03344.1xd     +++|          SHN    -14
04747  M01S03345.1xd     +++|          RAI    T3          UNPACK N+5TH BYTE
04748  M01S03346.1xd     +++|          AODL   T3
04749  M01S03347.1xd     +++|          SOD    T4
04750  M01S03348.1xd     +++|          ZJN    UHD2        IF END OF HEX DATA
04751  M01S03349.1xd     +++|          AODL   T2
04752  M01S03350.1xd     +++|          AODL   T3
04753  M01S03351.1xd     +++|          UJP    UHD1        CONTINUE UNPACK
04754  M01S03352.1xd     +++| VIS      SPACE  4,15
04755  M01S03353.1xd     +++|**        VIS - VERIFY INTERRUPT SOURCE.
04756  M01S03354.1xd     +++|*
Line S03355 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04757  M02S03355.1xd5    ---|*         ENTRY  (A) .LT. 0 IF ASYNC INTERRUPT FROM CONTROLLER.
04758  M01S00536.1xd5    +++|*         ENTRY  (A) .LT. 0 IF ASYNC INTERRUPT.
04759  M01S03356.1xd     +++|*                (DI) = DEVICE STATUS BLOCK ADDRESS.
04760  M01S03357.1xd     +++|*                (PA) = REQUEST IN PROGRESS ADDRESS.
04761  M01S03358.1xd     +++|*
04762  M01S03359.1xd     +++|*         EXIT   (A) = 0 IF INTERRUPT FOR INACTIVE DRIVE.
04763  M01S03360.1xd     +++|*                    = RETURN ADDRESS TO PROCESSOR.
04764  M01S03361.1xd     +++|*
Line S03362 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04765  M02S03362.1xd5    ---|*         USES   T4.
04766  M01S00537.1xd5    +++|*         USES   DI, T4.
04767  M01S03363.1xd     +++|*
04768  M01S03364.1xd     +++|*         CALLS  LDP.
04769  M01S03365.1xd     +++|
04770  M01S03366.1xd     +++|
Line S03367 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04771  M02S03367.1xd5    ---| VIS3     LDM    SRSA
Line S03368 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04772  M02S03368.1xd5    ---|          ZJN    VIS5        IF NO RESET IN PROGRESS
Line S03369 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04773  M02S03369.1xd5    ---|          STD    T4
Line S00538 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04774  M02S00538.1xd6a   ---| VIS3     LDM    EEST,DI     PROCESS ASYNC INTERRUPT
04775  M01S00025.1xd6a   +++| VIS3     LDM    ATTN,DI     PROCESS ASYNC INTERRUPT
04776  M01S00026.1xd6a   +++|          ZJN    VIS3.1      IF NOT WAITING FOR INTERRUPT
04777  M01S00027.1xd6a   +++|          LDM    EEST,DI
04778  M01S00539.1xd5    +++|          LMN    ASRT
04779  M01S00540.1xd5    +++|          ZJN    VIS6        IF WAITING FOR ASYNC INTERRUPT
Line S00541 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04780  M02S00541.1xd6a   ---|          LDN    0
04781  M01S00028.1xd6a   +++| VIS3.1   LDM    ADDR,DI
04782  M01S00029.1xd6a   +++|          LMC    SRS12
04783  M01S00030.1xd6a   +++|          NJN    VIS3.2      IF NOT NONCONTROLLING DRIVE ON SLAVE RESET
04784  M01S00031.1xd6a   +++|          STM    ADDR,DI     CLEAR REENTRY ADDRESS
04785  M01S00032.1xd6a   +++| VIS3.2   LDN    0
04786  M01S00542.1xd5    +++|          UJN    VISX        DISCARD UNSOLICITED ASYNC INTERRUPT
04787  M01S00543.1xd5    +++|
04788  M01S03370.1xd     +++| VIS4     LDD    T4          CHANGE ADDRESS TO CORRECT DEVICE
04789  M01S03371.1xd     +++|          STD    DI
04790  M01S03372.1xd     +++|          RJM    LDP         LOAD DEVICE PARAMETERS
Line S03373 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
04791  M02S03373.272l774 ---| VIS5     LDM    RQLN
04792  M01S00152.272l774 +++| VIS5     LDM    RQLN,DI
04793  M01S03374.1xd     +++|          SCN    77
04794  M01S03375.1xd     +++|          ZJN    VISX        IF UNIT NOT INTERLOCKED
Line S03376 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04795  M02S03376.1xd5    ---|          LDD    PA
04796  M01S00544.1xd5    +++| VIS6     LDD    PA
04797  M01S03377.1xd     +++|          LMC    ATT2
04798  M01S03378.1xd     +++|          NJN    VIS2        IF NOT SOLICITED INTERRUPT
Line S03379 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04799  M02S03379.1xd5    ---|          LDM    ATTN
04800  M01S00545.1xd5    +++|          LDM    ATTN,DI
04801  M01S03380.1xd     +++|
04802  M01S03381.1xd     +++| VIS      SUBR               ENTRY/EXIT
Line S03382 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd6a
Seq #  *Modification Id* Act 
----------------------------+
04803  M02S03382.1xd6a   ---|          MJN    VIS3        IF ASYNC INTERRUPT
04804  M01S00033.1xd6a   +++|          MJP    VIS3        IF ASYNC INTERRUPT
04805  M01S03383.1xd     +++|          LDM    RPBF+CRN    CHECK COMMAND NUMBER
04806  M01S03384.1xd     +++|          LMD    DI
04807  M01S03385.1xd     +++|          ZJN    VIS5        IF INTERRUPT FROM CURRENT DEVICE
04808  M01S03386.1xd     +++|          LDC    DSTB
04809  M01S03387.1xd     +++|          STD    T4
04810  M01S03388.1xd     +++| VIS1     LDM    RPBF+CRN    COMPARE COMMAND NUMBER
04811  M01S03389.1xd     +++|          LMD    T4
04812  M01S03390.1xd     +++|          ZJN    VIS4        IF DEVICE FOUND
04813  M01S03391.1xd     +++|          LDN    DSTBE
04814  M01S03392.1xd     +++|          RAD    T4          ADVANCE TABLE ADDRESS
04815  M01S03393.1xd     +++|          LMM    XMDA
04816  M01S03394.1xd     +++|          NJN    VIS1        IF NOT END OF DEVICE STATE TABLE
04817  M01S03395.1xd     +++| VIS2     LDN    0
04818  M01S03396.1xd     +++|          UJN    VISX        RETURN
04819  M01S03397.1xd     +++| WLB      SPACE  4,10
04820  M01S03398.1xd     +++|**        WLB - WRITE LINKAGE BITS.
04821  M01S03399.1xd     +++|*
04822  M01S03400.1xd     +++|*         ENTRY  (A) = (T6) = ADDRESS FOR LINKAGE IN (CM - CM+4).
04823  M01S03401.1xd     +++|*                (T1) = DATA BUFFER ADDRESS.
04824  M01S03402.1xd     +++|*                (T5) = NUMBER OF WORDS TO WRITE.
04825  M01S03403.1xd     +++|*                (CM - CM+4) = *PAD* WORD OF *CBT* ENTRY.
04826  M01S03404.1xd     +++|*
04827  M01S03405.1xd     +++|*         EXIT   SECTOR LINKAGE SET IN DATA BUFFER.
04828  M01S03406.1xd     +++|*
Line S03407 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04829  M02S03407.1xd5    ---|*         USES   T6.
04830  M01S00546.1xd5    +++|*         USES   T1, T6.
04831  M01S03408.1xd     +++|
04832  M01S03409.1xd     +++|
04833  M01S03410.1xd     +++| WLB1     LDN    10+4        ADVANCE BUFFER ADDRESS
Line S03411 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
04834  M02S03411.1xd5    ---|          RAD    T1
04835  M01S00547.1xd5    +++|          RADL   T1
04836  M01S03412.1xd     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
04837  M01S03413.1xd     +++|          SHN    -10
04838  M01S03414.1xd     +++|*         LPN    17
04839  M01S03415.1xd     +++|          SHN    14          POSITION FOR DATA BUFFER
04840  M01S03416.1xd     +++|          LMI    T1
04841  M01S03417.1xd     +++|          STIL   T1
04842  M01S03418.1xd     +++| WLB2     LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
04843  M01S03419.1xd     +++|          SHN    -4
04844  M01S03420.1xd     +++|          LPN    17
04845  M01S03421.1xd     +++|          SHN    14          POSITION FOR DATA BUFFER
04846  M01S03422.1xd     +++|          LMM    4,T1
04847  M01S03423.1xd     +++|          STML   4,T1
04848  M01S03424.1xd     +++|          LDI    T6          EXTRACT LINKAGE FROM *CBT* ENTRY
04849  M01S03425.1xd     +++|*         SHN    0
04850  M01S03426.1xd     +++|          LPN    17
04851  M01S03427.1xd     +++|          SHN    14          POSITION FOR DATA BUFFER
04852  M01S03428.1xd     +++|          LMM    10,T1
04853  M01S03429.1xd     +++|          STML   10,T1
04854  M01S03430.1xd     +++|          AOD    T6          ADVANCE *CBT* WORD ADDRESS
04855  M01S03431.1xd     +++|          LMN    CM+5
04856  M01S03432.1xd     +++|          NJN    WLB1        IF MORE LINKAGE
04857  M01S03433.1xd     +++|          LDC    1S17
04858  M01S03434.1xd     +++|          CWML   SBUF,T5     UPDATE DATA BUFFER
04859  M01S03435.1xd     +++|
04860  M01S03436.1xd     +++| WLB      SUBR               ENTRY/EXIT
04861  M01S03437.1xd     +++|*         LDD    T6
04862  M01S03438.1xd     +++|          UJN    WLB2        MOVE SECTOR LINKAGE
04863  M01S03439.1xd     +++| WMC      SPACE  4,10
04864  M01S03440.1xd     +++|**        WMC - WAIT MAINTENANCE CHANNEL EMPTY.
04865  M01S03441.1xd     +++|*
04866  M01S03442.1xd     +++|*         EXIT   (A) = 0 IF CHANNEL EMPTY.
04867  M01S03443.1xd     +++|*                    .NE. 0 IF CHANNEL HUNG FULL.
04868  M01S03444.1xd     +++|
04869  M01S03445.1xd     +++|
04870  M01S03446.1xd     +++| WMC3     LDN    0           INDICATE CHANNEL EMPTY
04871  M01S03447.1xd     +++|
04872  M01S03448.1xd     +++| WMC      SUBR               ENTRY/EXIT
04873  M01S03449.1xd     +++|          LDD    TH
04874  M01S03450.1xd     +++| WMC1     EJM.   WMC3,MR     IF TRANSMISSION COMPLETE
04875  M01S03451.1xd     +++|          SBN    1
04876  M01S03452.1xd     +++|          NJN    WMC1        IF NOT TIMED OUT
04877  M01S03453.1xd     +++| WMC2     DCN.   MR+40
04878  M01S03454.1xd     +++|          CCF.   *+2,MR      CLEAR CHANNEL FLAG
04879  M01S03455.1xd     +++|          LDD    CP
04880  M01S03456.1xd     +++|          ADN    MS2W        STORE CP MESSAGE
04881  M01S03457.1xd     +++|          CWM    WMCA,TR
04882  M01S03458.1xd     +++|          UJN    WMCX        RETURN
04883  M01S03459.1xd     +++|
04884  M01S03460.1xd     +++|
04885  M01S03461.1xd     +++| WMCA     DATA   C*MR ERROR.*
04886  M01S03462.1xd     +++| WTC      SPACE  4,10
04887  M01S03463.1xd     +++|**        WTC - WAIT TRANSMISSION COMPLETE.
04888  M01S03464.1xd     +++|*
04889  M01S03465.1xd     +++|*         ERROR  TO *ERR*.
04890  M01S03466.1xd     +++|*
04891  M01S03467.1xd     +++|*         USES   T1.
04892  M01S03468.1xd     +++|*
04893  M01S03469.1xd     +++|*         CALLS  CFE.
04894  M01S03470.1xd     +++|
04895  M01S03471.1xd     +++|
04896  M01S03472.1xd     +++| WTC3     LDD    T1          CHECK FOR I/O ERROR
04897  M01S03473.1xd     +++|          RJM    CFE
04898  M01S03474.1xd     +++|          DCN    CH+40       DEACTIVATE CHANNEL
04899  M01S03475.1xd     +++|
04900  M01S03476.1xd     +++| WTC      SUBR               ENTRY/EXIT
04901  M01S03477.1xd     +++|          STD    T1
04902  M01S03478.1xd     +++|          LDN    5           SET TIMEOUT = 5*262 MILLISECONDS
04903  M01S03479.1xd     +++|          STD    T0
04904  M01S03480.1xd     +++| WTC1     LDN    0
04905  M01S03481.1xd     +++| WTC2     EJM    WTC3,CH     IF LAST BYTE TAKEN OFF CHANNEL
04906  M01S03482.1xd     +++|          SBN    1
04907  M01S03483.1xd     +++|          NJN    WTC2        IF NOT TIMED OUT
04908  M01S03484.1xd     +++|          SOD    T0
04909  M01S03485.1xd     +++|          NJN    WTC1        IF NOT TIMEOUT
04910  M01S03486.1xd     +++|          LDN    ECHF
04911  M01S03487.1xd     +++|          RJM    ERR         PROCESS CHANNEL ERROR
04912  M01S03488.1xd     +++|          TITLE  CHANNEL SUBROUTINES.
04913  M01S03489.1xd     +++| BCS      SPACE  4,10
04914  M01S03490.1xd     +++|**        BCS - DEFINE INFORMATION TRANSFER.
04915  M01S03491.1xd     +++|*
04916  M01S03492.1xd     +++|*         ENTRY  (A) = BUS *A* BITS 7 AND 6.
04917  M01S03493.1xd     +++|*
04918  M01S03494.1xd     +++|*         ERROR  TO *ERR*.
04919  M01S03495.1xd     +++|*
04920  M01S03496.1xd     +++|*         CALLS  FCN, RSR.
04921  M01S03497.1xd     +++|
04922  M01S03498.1xd     +++|
04923  M01S03499.1xd     +++| BCS2     LDDL   LF          FETCH LAST FUNCTION
04924  M01S03500.1xd     +++|          LMN    0#32
04925  M01S03501.1xd     +++|          RJM    FCN         DROP SYNC OUT (NO PARITY CHECK)
04926  M01S03502.1xd     +++|          LDN    77
04927  M01S03503.1xd     +++|          RJM    RSR         READ SLAVE RESPONSE
04928  M01S03504.1xd     +++|
04929  M01S03505.1xd     +++| BCS      SUBR               ENTRY/EXIT
04930  M01S03506.1xd     +++|          SHN    17-1
04931  M01S03507.1xd     +++|          ADC    F005B       SET SYNC OUT
04932  M01S03508.1xd     +++|          RJM    FCN
04933  M01S03509.1xd     +++|          LDN    77          READ SLAVE RESPONSE
04934  M01S03510.1xd     +++|          RJM    RSR
04935  M01S03511.1xd     +++|          LPC    377
04936  M01S03512.1xd     +++|          ZJN    BCS2        IF BUS ACKNOWLEDGE CORRECT
04937  M01S03513.1xd     +++|          LDN    EBAE
04938  M01S03514.1xd     +++|          RJM    ERR         PROCESS ERROR
04939  M01S03515.1xd     +++| CFE      SPACE  4,10
04940  M01S03516.1xd     +++|**        CFE - CHECK FOR I/O ERROR.
04941  M01S03517.1xd     +++|*
04942  M01S03518.1xd     +++|*         ENTRY  (A) = RESIDUAL WORD COUNT.
04943  M01S03519.1xd     +++|*
04944  M01S03520.1xd     +++|*         EXIT   (A) = 0.
04945  M01S03521.1xd     +++|*
04946  M01S03522.1xd     +++|*         ERROR  TO *ERR*.
04947  M01S03523.1xd     +++|
04948  M01S03524.1xd     +++|
04949  M01S03525.1xd     +++| CFE5     NJN    CFE3        IF INCOMPLETE DATA TRANSFER
04950  M01S03526.1xd     +++|
04951  M01S03527.1xd     +++| CFE      SUBR               ENTRY/EXIT
04952  M01S03528.1xd     +++|          CFM    CFE5,CH     IF CHANNEL ERROR FLAG CLEAR
04953  M01S03529.1xd     +++| CFE1     LDN    ECIE
04954  M01S03530.1xd     +++| CFE2     RJM    ERR         PROCESS CHANNEL ERROR
04955  M01S03531.1xd     +++|
04956  M01S03532.1xd     +++| CFE3     LDN    EIDT
04957  M01S03533.1xd     +++|          UJN    CFE2        PROCESS ERROR
04958  M01S03534.1xd     +++| CTC      SPACE  4,10
04959  M01S03535.1xd     +++|**        CTC - CHECK TRANSFER COMPLETE.
04960  M01S03536.1xd     +++|*
04961  M01S03537.1xd     +++|*         EXIT   (A) = 0.
04962  M01S03538.1xd     +++|*
04963  M01S03539.1xd     +++|*         ERROR  TO *ERR*.
04964  M01S03540.1xd     +++|*
04965  M01S03541.1xd     +++|*         CALLS  CTO.
04966  M01S03542.1xd     +++|
04967  M01S03543.1xd     +++|
04968  M01S03544.1xd     +++| CTC      SUBR               ENTRY/EXIT
04969  M01S03545.1xd     +++| CTC1     LDC    F0700
04970  M01S03546.1xd     +++|          RJM    FCN         REQUEST OPERATIONAL STATUS
04971  M01S03547.1xd     +++|          ACN    CH
04972  M01S03548.1xd     +++|          IAN    CH          READ STATUS
04973  M01S03549.1xd     +++|          SFM    CFE1,CH     IF CHANNEL ERROR FLAG SET
04974  M01S03550.1xd     +++|          LPC    176001
04975  M01S03551.1xd     +++|          ZJN    CTCX        IF TRANSFER COMPLETE
04976  M01S03552.1xd     +++|          SCN    1
04977  M01S03553.1xd     +++|          NJN    CTC4        IF REGISTER PARITY ERROR
04978  M01S03554.1xd     +++|          RJM    CTO         CHECK ELAPSED TIME
04979  M01S03555.1xd     +++|          MJN    CTC1        IF NOT TIMEOUT
04980  M01S03556.1xd     +++|          LDN    ETTC
04981  M01S03557.1xd     +++| CTC3     RJM    ERR         PROCESS ERROR
04982  M01S03558.1xd     +++|
04983  M01S03559.1xd     +++| CTC4     LDN    ERPE
04984  M01S03560.1xd     +++|          UJN    CTC3        PROCESS ERROR
04985  M01S03561.1xd     +++| DCM      SPACE  4,10
04986  M01S03562.1xd     +++|**        DCM - DESELECT CONTROL MODULE.
04987  M01S03563.1xd     +++|*
04988  M01S03564.1xd     +++|*         ENTRY  (SF) = 0 IF CONTROLLER NOT SELECTED.
04989  M01S03565.1xd     +++|*
04990  M01S03566.1xd     +++|*         EXIT   (A) = (SF) = 0.
04991  M01S03567.1xd     +++|*
04992  M01S00153.272l774 +++|*         USES   SF.
04993  M01S00154.272l774 +++|*
Line S03568 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
04994  M02S03568.ns2714  ---|*         CALLS  FCN, RSR.
04995  M01S00246.ns2714  +++|*         ERROR  TO *ERR*.
04996  M01S00247.ns2714  +++|*
04997  M01S00248.ns2714  +++|*         CALLS  FCN.
04998  M01S03569.1xd     +++|
04999  M01S00249.ns2714  +++|
05000  M01S00250.ns2714  +++| DCM2     IAN    CH+40       READ CONTROLLER RESPONSE
05001  M01S00251.ns2714  +++|          LDN    0
05002  M01S00252.ns2714  +++|          STD    SF          CLEAR SELECT FLAG
05003  M01S03570.1xd     +++|
05004  M01S03571.1xd     +++| DCM      SUBR               ENTRY/EXIT
05005  M01S03572.1xd     +++|          LDD    SF
05006  M01S03573.1xd     +++|          ZJN    DCMX        IF CONTROLLER NOT SELECTED
05007  M01S03574.1xd     +++|          LDC    F0071
05008  M01S03575.1xd     +++|          RJM    FCN         CLEAR SELECT OUT
05009  M01S03576.1xd     +++|          LDC    2000
Line S03577 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05010  M02S03577.ns2714  ---|          RJM    RSR         GET CONTROLLER RESPONSE
Line S03578 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05011  M02S03578.ns2714  ---|          LDN    0
Line S03579 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05012  M02S03579.ns2714  ---|          STD    SF
Line S03580 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05013  M02S03580.ns2714  ---|          UJN    DCMX        RETURN
05014  M01S00253.ns2714  +++|          ACN    CH
05015  M01S00254.ns2714  +++| DCM1     FJM    DCM2,CH     IF SLAVE IN DROPPED
05016  M01S00255.ns2714  +++|          SBN    1
05017  M01S00256.ns2714  +++|          NJN    DCM1        IF NOT TIMED OUT
Line S00257 Modification History
M01 (Added by) ns2714
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05018  M02S00257.272l774 ---|          LDM    ESAD
05019  M01S00155.272l774 +++|          LDM    ESAD,DI
05020  M01S00258.ns2714  +++|          NJN    DCM2        IF ERROR PROCESSING
05021  M01S00259.ns2714  +++|          LDN    ECNR
05022  M01S00260.ns2714  +++|          RJM    ERR         PROCESS ERROR
05023  M01S03581.1xd     +++| DTM      SPACE  4,10
05024  M01S03582.1xd     +++|**        DTM - DETERMINE TRANSFER MODE.
05025  M01S03583.1xd     +++|*
05026  M01S03584.1xd     +++|*         ENTRY  (A) = CONTROLLER NUMBER.
05027  M01S03585.1xd     +++|*
05028  M01S03586.1xd     +++|*         EXIT   (A) = CONTROLLER NUMBER + TRANSFER MODE CHANGE.
05029  M01S03587.1xd     +++|*
05030  M01S03588.1xd     +++|*         USES   T4.
05031  M01S03589.1xd     +++|*
05032  M01S03590.1xd     +++|*         CALLS  FCN, RSR.
05033  M01S03591.1xd     +++|
05034  M01S03592.1xd     +++|
05035  M01S03593.1xd     +++| DTM      SUBR               ENTRY/EXIT
05036  M01S03594.1xd     +++|          SHN    14
05037  M01S03595.1xd     +++|          STDL   T4          SET CONTROLLER NUMBER IN RESPONSE
05038  M01S03596.1xd     +++|          LMC    F8025
05039  M01S03597.1xd     +++|          RJM    FCN         REQUEST TRANSFER MODE (SET MASTER OUT)
05040  M01S03598.1xd     +++|          LDN    77
05041  M01S03599.1xd     +++|          RJM    RSR         READ SLAVE RESPONSE
05042  M01S03600.1xd     +++|          LPN    0#10
05043  M01S03601.1xd     +++|          LMN    0#10        COMPLEMENT TRANSFER MODE
05044  M01S03602.1xd     +++|          SHN    13-4
05045  M01S03603.1xd     +++|          RADL   T4          APPEND TRANSFER MODE TO RESPONSE
05046  M01S03604.1xd     +++|          LDDL   LF
05047  M01S03605.1xd     +++|          LMC    0#54        DROP MASTER OUT
05048  M01S03606.1xd     +++|          RJM    FCN
05049  M01S03607.1xd     +++|          LDN    77          READ SLAVE RESPONSE
05050  M01S03608.1xd     +++|          RJM    RSR
05051  M01S03609.1xd     +++|          LDDL   T4
05052  M01S03610.1xd     +++|          UJP    DTMX        RETURN
Line S03611 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05053  M02S03611.1xd5    ---| ECI      SPACE  4,10
05054  M01S00548.1xd5    +++| ECI      SPACE  4,20
05055  M01S03612.1xd     +++|**        ECI - EXAMINE CONTROLLER INTERRUPTS.
05056  M01S03613.1xd     +++|*
05057  M01S03614.1xd     +++|*         ENTRY  (DI) = DEVICE STATUS BLOCK ADDRESS.
05058  M01S03615.1xd     +++|*
Line S03616 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05059  M02S03616.1xd5    ---|*         EXIT   (A) = (PA) = 0 IF NO REQUEST IN PROGRESS.
05060  M01S00549.1xd5    +++|*         EXIT   (A) .NE. 0, IF RESET OR ERROR IN PROGRESS.
05061  M01S00550.1xd5    +++|*                (PA) = 0 IF NO REQUEST IN PROGRESS.
05062  M01S00551.1xd5    +++|*                (CM - CM+4) = *PILL* WORD OF *PUT* ENTRY.
05063  M01S00552.1xd5    +++|*                (WB - WB+4) = *UNCT* WORD OF *PUT* ENTRY.
05064  M01S00553.1xd5    +++|*                TO (ATTN) IF INTERRUPT RECEIVED.
05065  M01S00554.1xd5    +++|*                TO *SRS* IF LOGICAL RESET NOT YET PERFORMED.
05066  M01S03617.1xd     +++|*
Line S03618 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05067  M02S03618.ns2714  ---|*         USES   T5, CM - CM+4.
Line S00261 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05068  M02S00261.1xd5    ---|*         ERROR  TO *ERR*.
Line S00262 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05069  M02S00262.1xd5    ---|*
Line S00263 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05070  M02S00263.1xd5    ---|*         USES   PA, T5, CM - CM+4.
05071  M01S00555.1xd5    +++|*         USES   PA, T5.
05072  M01S03619.1xd     +++|*
05073  M01S03620.1xd     +++|*         CALLS  FCN, GIS, IHD, LDP, SAP, SUI.
05074  M01S03621.1xd     +++|
05075  M01S03622.1xd     +++|
05076  M01S03623.1xd     +++| ECI      SUBR               ENTRY/EXIT
05077  M01S03624.1xd     +++| ECI1     RJM    SAP         SELECT ADAPTOR PORT
05078  M01S03625.1xd     +++|          LDC    F0715       ENABLE INTERRUPTS
05079  M01S03626.1xd     +++|          RJM    FCN
05080  M01S03627.1xd     +++|          RJM    LDP         LOAD DEVICE PARAMETERS
05081  M01S03628.1xd     +++|          RJM    GIS         GET INTERRUPT STATUS
05082  M01S03629.1xd     +++|          LPML   TMSK,CN
05083  M01S03630.1xd     +++|          ZJN    ECI3        IF NO INTERRUPT FROM THIS CONTROLLER
05084  M01S03631.1xd     +++|
05085  M01S03632.1xd     +++|*         CHECK THAT INTERRUPT BELONGS TO CURRENT DRIVE.
05086  M01S03633.1xd     +++|
05087  M01S03634.1xd     +++|          RJM    IHD
Line S03635 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05088  M02S03635.1xd5    ---|          ZJN    ECI1        IF RESPONSE FROM INACTIVE DRIVE
05089  M01S00556.1xd5    +++|          ZJN    ECI3        IF RESPONSE FROM INACTIVE DRIVE
Line S03636 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05090  M02S03636.272l774 ---|*         LDM    ATTN
05091  M01S00156.272l774 +++|*         LDM    ATTN,DI
05092  M01S03637.1xd     +++|          STD    PA          SET RETURN ADDRESS
05093  M01S03638.1xd     +++|          LDN    0
Line S03639 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05094  M02S03639.272l774 ---|          STM    ATTN        DEACTIVATE RETURN
05095  M01S00157.272l774 +++|          STM    ATTN,DI     DEACTIVATE RETURN
05096  M01S00557.1xd5    +++|          STM    ADDR,DI     CLEAR REENTRY ADDRESS
05097  M01S03640.1xd     +++|
05098  M01S03641.1xd     +++|*         RETURN TO CALLER WITH STATUS FROM RESPONSE PACKET.
05099  M01S03642.1xd     +++|
Line S03643 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05100  M02S03643.272l774 ---|          LDM    EEST        EXPECTED RESPONSE TYPE
05101  M01S00158.272l774 +++|          LDM    EEST,DI     EXPECTED RESPONSE TYPE
05102  M01S03644.1xd     +++|          LMD    RT
05103  M01S03645.1xd     +++|          ZJN    ECI2        IF EXPECTED RESPONSE
05104  M01S03646.1xd     +++|          LMD    RT
05105  M01S03647.1xd     +++|          LMD    MS
05106  M01S03648.1xd     +++|          ZJN    ECI2        IF EXPECTED STATUS
05107  M01S03649.1xd     +++|          LMK    CMCS&CMSS
05108  M01S03650.1xd     +++| ECI2     LJM    0,PA        RETURN TO CALLER
05109  M01S03651.1xd     +++|
05110  M01S03652.1xd     +++| ECI3     LDD    PA
05111  M01S03653.1xd     +++|          NJN    ECI2        IF REQUEST IN PROGRESS
05112  M01S03654.1xd     +++|          LDM    ERFL
05113  M01S03655.1xd     +++|          ZJN    ECI4        IF DRIVER NOT IN ERROR PROCESSING
05114  M01S03656.1xd     +++|          LMD    DI
Line S03657 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05115  M02S03657.ns2714  ---|          NJN    ECI5        IF ERROR ON DIFFERENT DEVICE
Line S03658 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05116  M02S03658.ns2714  ---| ECI4     LDM    PNUN
05117  M01S00264.ns2714  +++|          NJN    ECI7        IF ERROR ON DIFFERENT DEVICE
05118  M01S00265.ns2714  +++| ECI4     LDM    SRSA
05119  M01S00266.ns2714  +++|          NJN    ECI7        IF RESET IN PROGRESS
Line S00267 Modification History
M01 (Added by) ns2714
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05120  M02S00267.272l774 ---|          LDM    PNUN
Line S03659 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05121  M02S03659.272l774 ---|          SHN    -3          SET CONTROLLER BLOCK INDEX
05122  M01S00159.272l774 +++|          LDM    PNUN,DI
05123  M01S00160.272l774 +++|          SHN    -6          SET CONTROLLER BLOCK INDEX
05124  M01S03660.1xd     +++|          STD    T5
05125  M01S03661.1xd     +++|          LDML   CSTB,T5     CHECK CONTROLLER STATUS
Line S03662 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05126  M02S03662.ns2714  ---|          SHN    -16
Line S03663 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05127  M02S03663.ns2714  ---|          ZJP    ECIX        IF AVAILABLE
Line S00268 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05128  M02S00268.1xd5    ---| ECI5     SHN    -16
05129  M01S00558.1xd5    +++|          SHN    -16
05130  M01S00269.ns2714  +++|          ZJN    ECI7        IF AVAILABLE
05131  M01S03664.1xd     +++|          SHN    -1
Line S03665 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05132  M02S03665.ns2714  ---|          ZJN    ECI6        IF NOT RESET FAILURE
Line S03666 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05133  M02S03666.ns2714  ---|          LDM    SRSA
Line S03667 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05134  M02S03667.ns2714  ---|          NJN    ECI5        IF RESET IN PROGRESS
Line S00270 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05135  M02S00270.1xd5    ---|          ZJN    ECI8        IF NOT RESET FAILURE
05136  M01S00559.1xd5    +++|          ZJN    ECI8        IF NOT SLAVE RESET FAILURE
05137  M01S00560.1xd5    +++|          LDM    ENAD,DI
05138  M01S00561.1xd5    +++|          NJN    ECI6        IF DRIVE ALREADY DISABLED
05139  M01S03668.1xd     +++|          LDC    SRSH
Line S03669 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05140  M02S03669.ns2714  ---|          STM    IOMA
Line S03670 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05141  M02S03670.ns2714  ---| ECI5     LJM    XMD2        RETURN TO MAIN LOOP
05142  M01S00271.ns2714  +++|          STM    IOMA        SET ERROR MESSAGE
Line S00272 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05143  M02S00272.1xd5    ---|          LDM    ENAD
Line S00273 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05144  M02S00273.1xd5    ---|          NJN    ECI5        IF DRIVE DISABLED
Line S00274 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05145  M02S00274.1xd5    ---|          RJM    SUI         SET UNIT INTERLOCK
Line S00275 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05146  M02S00275.1xd5    ---|          ZJN    ECI10       IF INTERLOCK ACQUIRED
Line S00276 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05147  M02S00276.1xd5    ---|*         LDN    1
05148  M01S00562.1xd5    +++|          STM    ENAD,DI     DISABLE DRIVE
05149  M01S00563.1xd5    +++| ECI6     LDN    0
05150  M01S00277.ns2714  +++| ECI7     LJM    ECIX        RETURN
05151  M01S00564.1xd5    +++|
05152  M01S00565.1xd5    +++|*         AT DRIVER INITIATION, PERFORM LOGICAL RESET ON CONTROLLING
05153  M01S00566.1xd5    +++|*         DRIVE OF EACH CONTROL MODULE.  NO ACTIVITY ON OTHER DRIVES
05154  M01S00567.1xd5    +++|*         ON THE CONTROL MODULE WILL BE ALLOWED UNTIL THE RESET IS
05155  M01S00568.1xd5    +++|*         COMPLETE.
05156  M01S03671.1xd     +++|
Line S03672 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05157  M02S03672.ns2714  ---| ECI6     LDM    CSTB,T5     CHECK CONTROLLING DRIVE INDEX
05158  M01S00278.ns2714  +++| ECI8     LDM    CSTB,T5     CHECK CONTROLLING DRIVE INDEX
05159  M01S03673.1xd     +++|          LMD    DI
Line S03674 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05160  M02S03674.ns2714  ---|          NJN    ECI5        IF NOT THIS DRIVE
05161  M01S00279.ns2714  +++|          NJN    ECI7        IF NOT THIS DRIVE
05162  M01S03675.1xd     +++|          RJM    SUI         SET UNIT INTERLOCK
Line S03676 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05163  M02S03676.ns2714  ---|          NJN    ECI5        IF DEVICE ASSIGNED ELSEWHERE
05164  M01S00280.ns2714  +++|          NJN    ECI7        IF DEVICE ASSIGNED ELSEWHERE
Line S03677 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05165  M02S03677.1xd5    ---|          LDN    SSTL        READ SYSTEM STATUS WORD
Line S03678 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05166  M02S03678.1xd5    ---|          CRD    CM
Line S03679 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05167  M02S03679.1xd5    ---|          LDD    CM+1        EXTRACT CM RESET ENABLE
Line S03680 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05168  M02S03680.1xd5    ---|          SHN    0-13
Line S03681 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05169  M02S03681.1xd5    ---|          LJM    SRS         INITIATE SLAVE RESET
Line S00281 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05170  M02S00281.1xd5    ---|
Line S00282 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05171  M02S00282.1xd5    ---|*ECI10    LDN    0           CLEAR CHANNEL ERROR
Line S00283 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05172  M02S00283.1xd5    ---| ECI10    STM    EDBF+FCS1
Line S00284 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05173  M02S00284.1xd5    ---|          LDN    4           SET MESSAGE LENGTH
Line S00285 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05174  M02S00285.1xd5    ---|          STM    MSGL+1
Line S00286 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05175  M02S00286.1xd5    ---|          LDN    ECRE        CONTROLLER RESET FAULT
Line S00287 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05176  M02S00287.1xd5    ---|          STM    ENAD
Line S00288 Modification History
M01 (Added by) ns2714
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05177  M02S00288.1xd5    ---|          RJM    ERR         PROCESS ERROR
05178  M01S00569.1xd5    +++|          LDC    1S12+CMP
05179  M01S00570.1xd5    +++|          LJM    SRS         INITIATE LOGICAL RESET
05180  M01S03682.1xd     +++| FCN      SPACE  4,10
05181  M01S03683.1xd     +++|**        FCN - ISSUE FUNCTION.
05182  M01S03684.1xd     +++|*
05183  M01S03685.1xd     +++|*         ENTRY  (A) = FUNCTION CODE.
05184  M01S03686.1xd     +++|*
05185  M01S03687.1xd     +++|*         EXIT   (A) .NE. 0.
05186  M01S03688.1xd     +++|*                (LF) = FUNCTION CODE.
05187  M01S03689.1xd     +++|*
05188  M01S00161.272l774 +++|*         USES   LF.
05189  M01S00162.272l774 +++|*
05190  M01S03690.1xd     +++|*         ERROR  TO *ERR*.
05191  M01S03691.1xd     +++|
05192  M01S03692.1xd     +++|
05193  M01S03693.1xd     +++| FCN2     DCN    CH+40       LEAVE CHANNEL INACTIVE
05194  M01S03694.1xd     +++|
05195  M01S03695.1xd     +++| FCN      SUBR               ENTRY/EXIT
05196  M01S03696.1xd     +++|          DCN    CH+40
05197  M01S03697.1xd     +++|          STDL   LF
05198  M01S03698.1xd     +++|          FAN    CH          ISSUE FUNCTION
05199  M01S03699.1xd     +++|          LDN    20D
05200  M01S03700.1xd     +++| FCN1     IJM    FCNX,CH     IF FUNCTION ACCEPTED
05201  M01S03701.1xd     +++|          SBN    1
05202  M01S03702.1xd     +++|          NJN    FCN1        IF NOT TIMED OUT
Line S03703 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05203  M02S03703.ns2714  ---|          LDM    ERFL
Line S00289 Modification History
M01 (Added by) ns2714
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05204  M02S00289.272l774 ---|          LDM    ESAD
05205  M01S00163.272l774 +++|          LDM    ESAD,DI
05206  M01S03704.1xd     +++|          NJN    FCN2        IF ERROR IN PROGRESS
05207  M01S03705.1xd     +++|          LDN    ETFN
05208  M01S03706.1xd     +++|          RJM    ERR         PROCESS ERROR
05209  M01S03707.1xd     +++| GIS      SPACE  4,10
05210  M01S03708.1xd     +++|**        GIS - GET INTERRUPT STATUS.
05211  M01S03709.1xd     +++|*
05212  M01S03710.1xd     +++|*         EXIT   (A) = (GISA) = INTERRUPT STATUS.
05213  M01S03711.1xd     +++|*
05214  M01S03712.1xd     +++|*         CALLS  FCN, RSR.
05215  M01S03713.1xd     +++|
05216  M01S03714.1xd     +++|
05217  M01S03715.1xd     +++| GIS2     IAN    CH          READ INTERRUPT STATUS
05218  M01S03716.1xd     +++| GIS3     STML   GISA
05219  M01S03717.1xd     +++|          LDC    F0711       NEGATE MASTER OUT
05220  M01S03718.1xd     +++|          RJM    FCN
05221  M01S03719.1xd     +++|          LDN    20D         READ SLAVE RESPONSE
05222  M01S03720.1xd     +++|          RJM    RSR
05223  M01S03721.1xd     +++|          LDML   GISA        RETURN WITH (A) = STATUS
05224  M01S03722.1xd     +++|
05225  M01S03723.1xd     +++| GIS      SUBR               ENTRY/EXIT
05226  M01S03724.1xd     +++|          LDN    20D
05227  M01S03725.1xd     +++|          ACN    CH+40
05228  M01S03726.1xd     +++| GIS1     FJM    GIS2,CH     IF SLAVE IN
05229  M01S03727.1xd     +++|          SBN    1
05230  M01S03728.1xd     +++|          NJN    GIS1        IF NOT TIMED OUT
05231  M01S03729.1xd     +++|*         LDN    0
05232  M01S03730.1xd     +++|          UJP    GIS3        SET NULL STATUS
05233  M01S03731.1xd     +++|
05234  M01S03732.1xd     +++|
05235  M01S03733.1xd     +++| GISA     CON    0
05236  M01S03734.1xd     +++| GSS      SPACE  4,15
05237  M01S03735.1xd     +++|**        GSS - GET SLAVE STATUS.
05238  M01S03736.1xd     +++|*
05239  M01S03737.1xd     +++|*         ENTRY  (A) = 0 IF STATUS W/O MASTER TERMINATE.
05240  M01S03738.1xd     +++|*                    = MASTER TERMINATE OPTION.
05241  M01S03739.1xd     +++|*                (T1) = RESIDUAL BYTE COUNT.
05242  M01S03740.1xd     +++|*
05243  M01S03741.1xd     +++|*         EXIT   (A) = (T7) = SLAVE STATUS IF TRANSFER SUCCESSFUL.
05244  M01S03742.1xd     +++|*                (GSSA) = SLAVE STATUS AS READ FROM CONTROLLER.
05245  M01S03743.1xd     +++|*
05246  M01S03744.1xd     +++|*         ERROR  TO *ERR* IF STATUS ERROR.
05247  M01S03745.1xd     +++|*
Line S03746 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05248  M02S03746.273l780 ---|*         CALLS  CFE, FCN.
05249  M01S00143.273l780 +++|*         USES   T7.
05250  M01S00144.273l780 +++|*
05251  M01S00145.273l780 +++|*         CALLS  FCN, RRP, RSR.
05252  M01S03747.1xd     +++|
05253  M01S03748.1xd     +++|
Line S03749 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05254  M02S03749.273l780 ---| GSS1     SHN    10          REALIGN ENDING STATUS
05255  M01S00146.273l780 +++| GSS5     LDML   GSSA        ENDING STATUS
05256  M01S03750.1xd     +++|          STDL   T7
05257  M01S03751.1xd     +++|
05258  M01S03752.1xd     +++| GSS      SUBR               ENTRY/EXIT
05259  M01S03753.1xd     +++|          SHN    10
05260  M01S03754.1xd     +++|          ADC    F8039       INDICATE TRANSFER SUCCESSFUL
05261  M01S03755.1xd     +++|          RJM    FCN
05262  M01S03756.1xd     +++|          LDC    2000        READ SLAVE RESPONSE
05263  M01S03757.1xd     +++|          RJM    RSR
05264  M01S03758.1xd     +++|          STML   GSSA
Line S03759 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05265  M02S03759.273l780 ---|          LDD    T1          CHECK CHANNEL ERROR
Line S03760 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05266  M02S03760.273l780 ---|          RJM    CFE
Line S03761 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05267  M02S03761.273l780 ---|          LDML   GSSA        REVIEW ENDING STATUS
Line S03762 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05268  M02S03762.273l780 ---|          SHN    21-7
Line S03763 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05269  M02S03763.273l780 ---|          MJN    GSS1        IF TRANSFER SUCCESSFUL
Line S03764 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05270  M02S03764.273l780 ---|          LDN    EUST
Line S03765 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05271  M02S03765.273l780 ---|          RJM    ERR         PROCESS ERROR
05272  M01S00147.273l780 +++|          SFM    GSS3,CH     IF ERROR FLAG SET
05273  M01S00148.273l780 +++|          SHN    21-7
05274  M01S00149.273l780 +++|          PJN    GSS1        IF TRANSFER NOT SUCCESSFUL
05275  M01S00150.273l780 +++|          LDD    T1
05276  M01S00151.273l780 +++|          ZJN    GSS5        IF ALL WORDS TRANSFERRED
05277  M01S00152.273l780 +++|          LDN    EIDT
05278  M01S00153.273l780 +++|          UJN    GSS4        PROCESS ERROR
05279  M01S00154.273l780 +++|
05280  M01S00155.273l780 +++| GSS1     SHN    10
05281  M01S00156.273l780 +++|          LPC    117
05282  M01S00157.273l780 +++|          LMN    3
05283  M01S00158.273l780 +++|          NJN    GSS2        IF NOT COMMAND REJECT
05284  M01S00159.273l780 +++|
05285  M01S00160.273l780 +++|*         IF CONTROLLER OVER TEMPERATURE OCCURS BEFORE THE COMMAND IS
05286  M01S00161.273l780 +++|*         ISSUED, A COMMAND REJECT ERROR COULD OCCUR.  A LOGICAL RESET
05287  M01S00162.273l780 +++|*         WOULD CAUSE THE OVER TEMPERATURE STATUS TO BE LOST.
05288  M01S00163.273l780 +++|
05289  M01S00164.273l780 +++|          RJM    RRP         READ RESPONSE PACKET
05290  M01S00165.273l780 +++|          LCN    EUST
05291  M01S00166.273l780 +++|          UJN    GSS4        PROCESS ERROR
05292  M01S00167.273l780 +++|
05293  M01S00168.273l780 +++| GSS2     LDN    EUST
05294  M01S00169.273l780 +++|          UJN    GSS4        PROCESS ERROR
05295  M01S00170.273l780 +++|
05296  M01S00171.273l780 +++| GSS3     LDN    ECIE
05297  M01S00172.273l780 +++| GSS4     RJM    ERR         PROCESS ERROR
05298  M01S03766.1xd     +++|
05299  M01S03767.1xd     +++|
05300  M01S03768.1xd     +++| GSSA     CON    0           ENDING STATUS
05301  M01S03769.1xd     +++| IHD      SPACE  4,15
05302  M01S03770.1xd     +++|**        IHD - INTERRUPT HANDLER.
05303  M01S03771.1xd     +++|*
05304  M01S03772.1xd     +++|*         ENTRY  (DI) = *DSTB* ADDRESS.
05305  M01S03773.1xd     +++|*                (DN) = DRIVE NUMBER.
05306  M01S03774.1xd     +++|*
05307  M01S03775.1xd     +++|*         EXIT   (A) = EXIT CONDITION FROM ROUTINE *VIS*.
05308  M01S03776.1xd     +++|*                    = 0 IF INTERRUPT FOR INACTIVE DRIVE.
05309  M01S03777.1xd     +++|*                    = RETURN ADDRESS TO PROCESSOR.
05310  M01S03778.1xd     +++|*                (MS) = MAJOR STATUS FROM RESPONSE PACKET.
05311  M01S03779.1xd     +++|*                (RT) = RESPONSE TYPE FROM STATUS BLOCK.
05312  M01S03780.1xd     +++|*
Line S03781 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05313  M02S03781.1xd5    ---|*         USES   T4.
05314  M01S00571.1xd5    +++|*         USES   DI, MS, RT, T4.
05315  M01S03782.1xd     +++|*
Line S03783 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05316  M02S03783.1xd5    ---|*         CALLS  DCM, LSD, RRP, SCM, VIS.
Line S00572 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05317  M02S00572.273l780 ---|*         CALLS  DCM, LDP, LSD, RRP, SCM, VIS.
05318  M01S00173.273l780 +++|*         CALLS  CCO, DCM, LDP, LSD, RRP, SCM, VIS.
05319  M01S03784.1xd     +++|
05320  M01S03785.1xd     +++|
05321  M01S03786.1xd     +++| IHD4     LCN    0           INDICATE ASYNC INTERRUPT
05322  M01S03787.1xd     +++| IHD5     RJM    VIS         VERIFY INTERRUPT SOURCE
05323  M01S03788.1xd     +++|
05324  M01S03789.1xd     +++| IHD      SUBR               ENTRY/EXIT
05325  M01S03790.1xd     +++|          RJM    SCM         SELECT CONTROL MODULE
05326  M01S03791.1xd     +++|          RJM    RRP         READ RESPONSE PACKET
05327  M01S03792.1xd     +++|          LDML   RPBF+MST
05328  M01S03793.1xd     +++|          STDL   MS          SAVE MAJOR STATUS
05329  M01S03794.1xd     +++|          SHN    -4
05330  M01S03795.1xd     +++|          LPN    17          EXTRACT RESPONSE TYPE
05331  M01S03796.1xd     +++|          STD    RT
05332  M01S03797.1xd     +++|          LMN    XFNT
05333  M01S03798.1xd     +++|          ZJN    IHD5        IF TRANSFER NOTIFICATION
05334  M01S03799.1xd     +++|          RJM    DCM         DESELECT CONTROL MODULE
05335  M01S03800.1xd     +++|          LDD    RT          CHECK RESPONSE TYPE
05336  M01S03801.1xd     +++|          LMN    ASRT
05337  M01S03802.1xd     +++|          NJN    IHD5        IF NOT ASYNC (UNSOLICITED) RESPONSE
05338  M01S03803.1xd     +++|          LDM    RPBF+CUN
05339  M01S03804.1xd     +++|          LPC    377
05340  M01S03805.1xd     +++|          STD    T4          SAVE DRIVE NUMBER
05341  M01S03806.1xd     +++|          LMC    0#FF
Line S03807 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05342  M02S03807.1xd5    ---|          ZJN    IHD4        IF RESPONSE FROM CONTROLLER
Line S03808 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05343  M02S03808.1xd5    ---|          LDD    T4          CHECK FACILITY ADDRESS
05344  M01S00573.1xd5    +++|          NJN    IHD1        IF NOT RESPONSE FROM CONTROLLER
05345  M01S00174.273l780 +++|          LDN    1           ISSUE BML MESSAGE IF OVER TEMPERATURE
05346  M01S00175.273l780 +++|          RJM    CCO         CHECK FOR CONTROLLER OVER TEMPERATURE
05347  M01S00574.1xd5    +++|          LDM    SRSA
05348  M01S00575.1xd5    +++|          ZJN    IHD3        IF RESET NOT IN PROGRESS
05349  M01S00576.1xd5    +++|          STD    DI          SET DEVICE INDEX
05350  M01S00577.1xd5    +++|          RJM    LDP
05351  M01S00578.1xd5    +++| IHD0     LJM    IHD4        PROCESS ASYNC INTERRUPT
05352  M01S00579.1xd5    +++|
05353  M01S00580.1xd5    +++|*         ON SLAVE RESET, IF DRIVE INTERRUPT FOR THE CONTROLLING DRIVE
05354  M01S00581.1xd5    +++|*         IS RECEIVED BEFORE THE CONTROLLER INTERRUPT, CLEAR *SRSC*
05355  M01S00582.1xd5    +++|*         AND DISCARD DRIVE INTERRUPT.
05356  M01S00583.1xd5    +++|
05357  M01S00584.1xd5    +++| IHD1     LDD    T4          CHECK FACILITY ADDRESS
05358  M01S03809.1xd     +++|          LMD    DN
05359  M01S03810.1xd     +++|          ZJN    IHD2        IF INTERRUPT FROM CURRENT DRIVE
Line S03811 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05360  M02S03811.ns2714  ---|          LDM    PNUN
Line S03812 Modification History
M01 (Added by) 1xd
M02 (Updated by) ns2714
Seq #  *Modification Id* Act 
----------------------------+
05361  M02S03812.ns2714  ---|          SHN    -3          LOCATE SPECIFIED DRIVE
Line S03813 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05362  M02S03813.1xd5    ---|          RJM    LSD
05363  M01S00585.1xd5    +++|          RJM    LSD         LOCATE SELECTED DRIVE
05364  M01S03814.1xd     +++|          ZJN    IHD3        IF DRIVE UNKNOWN ON THIS CONTROLLER
Line S03815 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05365  M02S03815.1xd5    ---|          STD    DI
05366  M01S00586.1xd5    +++|          STD    DI          SET DEVICE INDEX
05367  M01S00587.1xd5    +++|          RJM    LDP
05368  M01S03816.1xd     +++| IHD2     LDM    SRSA        CHECK RESET IN PROGRESS
05369  M01S03817.1xd     +++|          LMD    DI
Line S03818 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05370  M02S03818.1xd5    ---|          NJP    CMP9        IF NOT FIRST DRIVE ON CONTROLLER
Line S03819 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05371  M02S03819.1xd5    ---|          STM    SRSC
05372  M01S00588.1xd5    +++|          NJN    IHD0        IF NOT DRIVE CONTROLLING RESET
05373  M01S00589.1xd5    +++|          STM    SRSC        INDICATE DRIVE INTERRUPT RECEIVED
05374  M01S03820.1xd     +++| IHD3     LJM    XMD2        RETURN TO MAIN LOOP
05375  M01S03821.1xd     +++| RCR      SPACE  4,10
05376  M01S03822.1xd     +++|**        RCR - RESET CHANNEL REGISTERS.
05377  M01S03823.1xd     +++|*
05378  M01S03824.1xd     +++|*         ENTRY  (CR) = CHANNEL RESERVATION STATUS.
05379  M01S03825.1xd     +++|*
05380  M01S03826.1xd     +++|*         EXIT   (SF) = 0 (DEVICE NOT SELECTED).
05381  M01S03827.1xd     +++|*
05382  M01S03828.1xd     +++|*         CALLS  FCN.
05383  M01S03829.1xd     +++|*
05384  M01S03830.1xd     +++|*         MACROS WAIT.
05385  M01S03831.1xd     +++|
05386  M01S03832.1xd     +++|
05387  M01S03833.1xd     +++| RCR      SUBR               ENTRY/EXIT
05388  M01S03834.1xd     +++|          LDD    CR
05389  M01S03835.1xd     +++|          ZJN    RCRX        IF CHANNEL NOT RESERVED
05390  M01S03836.1xd     +++|          LDN    F0000
05391  M01S03837.1xd     +++|          RJM    FCN         MASTER CLEAR THE ADAPTOR
05392  M01S03838.1xd     +++|          WAIT   100
05393  M01S03839.1xd     +++|*         LDN    0           SET DEVICE NOT SELECTED
05394  M01S03840.1xd     +++|          STD    SF
05395  M01S03841.1xd     +++|          ADK    F0000-0     ENSURE NO SEQUENCE ERROR
05396  M01S03842.1xd     +++|          RJM    FCN
05397  M01S03843.1xd     +++|          LDC    F7E42       FIX CHANNEL TRANSFER RATE AT 10 MB
05398  M01S03844.1xd     +++|          RJM    FCN
05399  M01S03845.1xd     +++|          UJN    RCRX        RETURN
05400  M01S03846.1xd     +++| RIF      SPACE  4,15
05401  M01S03847.1xd     +++|**        RIF - RESET INTERFACE.
05402  M01S03848.1xd     +++|*
Line S03849 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05403  M02S03849.1xd5    ---|*         ENTRY  (A) = 0 TO RESET SLAVE INTERFACE.
Line S03850 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05404  M02S03850.1xd5    ---|*                    = 1 TO RESET LOGICAL INTERFACE.
05405  M01S00590.1xd5    +++|*         ENTRY  (RW) = 0 TO RESET SLAVE INTERFACE.
05406  M01S00591.1xd5    +++|*                (RW) = 1 TO RESET LOGICAL INTERFACE.
05407  M01S03851.1xd     +++|*                (CN) = CONTROLLER NUMBER.
05408  M01S03852.1xd     +++|*
05409  M01S03853.1xd     +++|*         EXIT   (RF) = 1.
05410  M01S03854.1xd     +++|*
Line S03855 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05411  M02S03855.1xd5    ---|*         USES   T7.
05412  M01S00592.1xd5    +++|*         USES   RF.
05413  M01S03856.1xd     +++|*
Line S03857 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05414  M02S03857.1xd5    ---|*         CALLS  FCN, SAP.
05415  M01S00593.1xd5    +++|*         CALLS  FCN, RCR, SAP.
05416  M01S03858.1xd     +++|*
05417  M01S03859.1xd     +++|*         MACROS WAIT.
05418  M01S03860.1xd     +++|
05419  M01S03861.1xd     +++|
05420  M01S03862.1xd     +++| RIF      SUBR               ENTRY/EXIT
Line S03863 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05421  M02S03863.1xd5    ---|          STD    T7
05422  M01S00594.1xd5    +++|          AOD    RF          FLAG RESET IN PROGRESS
05423  M01S00595.1xd5    +++|          RJM    RCR         RESET CHANNEL REGISTERS
05424  M01S03864.1xd     +++|          RJM    SAP         SELECT ADAPTOR PORT
05425  M01S03865.1xd     +++|          LDD    CN
05426  M01S03866.1xd     +++|          SHN    14          FORM RESET FUNCTION
Line S03867 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05427  M02S03867.1xd5    ---|          LMML   RIFA,T7
05428  M01S00596.1xd5    +++|          LMML   RIFA,RW
05429  M01S03868.1xd     +++|          RJM    FCN         ISSUE LOGICAL RESET
05430  M01S03869.1xd     +++|          WAIT   20
Line S03870 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05431  M02S03870.1xd5    ---|          AOD    RF          FLAG RESET IN PROGRESS
05432  M01S03871.1xd     +++|          LDDL   LF
05433  M01S03872.1xd     +++|          LMN    2           SET SYNC OUT
05434  M01S03873.1xd     +++|          RJM    FCN
05435  M01S03874.1xd     +++|          WAIT   10
05436  M01S03875.1xd     +++|          LDDL   LF          NEGATE SYNC OUT
05437  M01S03876.1xd     +++|          SCN    2
05438  M01S03877.1xd     +++|          RJM    FCN
05439  M01S03878.1xd     +++|          LDDL   LF          CLEAR MASTER OUT
05440  M01S03879.1xd     +++|          SCN    4
05441  M01S03880.1xd     +++|          RJM    FCN
05442  M01S03881.1xd     +++|          UJP    RIFX        RETURN
05443  M01S03882.1xd     +++|
05444  M01S03883.1xd     +++|
05445  M01S03884.1xd     +++| RIFA     BSS    0           RESET FUNCTION CODES
05446  M01S03885.1xd     +++|          CONL   F8415
05447  M01S03886.1xd     +++|          CONL   F8215
05448  M01S03887.1xd     +++| RRP      SPACE  4,10
05449  M01S03888.1xd     +++|**        RRP - READ RESPONSE PACKET.
05450  M01S03889.1xd     +++|*
05451  M01S03890.1xd     +++|*         USES   T1.
05452  M01S03891.1xd     +++|*
05453  M01S03892.1xd     +++|*         CALLS  BCS, FCN, GSS.
05454  M01S03893.1xd     +++|
05455  M01S03894.1xd     +++|
05456  M01S03895.1xd     +++| RRP5     LDN    0           GET ENDING STATUS
05457  M01S03896.1xd     +++|          RJM    GSS
05458  M01S03897.1xd     +++|
05459  M01S03898.1xd     +++| RRP      SUBR               ENTRY/EXIT
05460  M01S03899.1xd     +++|          LDN    RIIN
05461  M01S03900.1xd     +++|          RJM    BCS         INITIATE BUS EXCHANGE (RESPONSE IN)
05462  M01S03901.1xd     +++|          LDC    F0281
05463  M01S03902.1xd     +++|          RJM    FCN         READ STREAMING
05464  M01S03903.1xd     +++|          ACN    CH
05465  M01S03904.1xd     +++|          LDN    RPBFL       TRANSFER RESPONSE PACKET
05466  M01S03905.1xd     +++|          IAM    RPBF,CH
05467  M01S03906.1xd     +++|          STD    T0          SAVE RESIDUE
05468  M01S03907.1xd     +++|          SBN    RPBFL-4
05469  M01S03908.1xd     +++|          PJN    RRP2        IF INVALID PACKET LENGTH
05470  M01S03909.1xd     +++|          LDM    RPBF+PLN
05471  M01S03910.1xd     +++|          ADN    3           CONVERT OCTET COUNT TO BYTE COUNT
05472  M01S03911.1xd     +++|          SHN    -1
05473  M01S03912.1xd     +++|          RAD    T0
05474  M01S03913.1xd     +++| RRP2     LDK    RPBFL       COMPARE LENGTH WITH DATA READ
05475  M01S03914.1xd     +++|          SBD    T0
05476  M01S03915.1xd     +++|          STD    T1          SET RESIDUAL BYTE COUNT
05477  M01S03916.1xd     +++|          LDC    50000D
05478  M01S03917.1xd     +++| RRP3     IJM    RRP5,CH     IF SLAVE IN
05479  M01S03918.1xd     +++|          SBN    1
05480  M01S03919.1xd     +++|          NJN    RRP3        IF NOT TIMED OUT
05481  M01S03920.1xd     +++|          LCN    ECNR
05482  M01S03921.1xd     +++|          RJM    ERR         PROCESS ERROR
05483  M01S03922.1xd     +++| RSR      SPACE  4,10
05484  M01S03923.1xd     +++|**        RSR - READ SLAVE RESPONSE.
05485  M01S03924.1xd     +++|*
05486  M01S03925.1xd     +++|*         ENTRY  (A) = TIMEOUT VALUE (MICROSECONDS).
05487  M01S03926.1xd     +++|*
05488  M01S03927.1xd     +++|*         EXIT   (A) = SLAVE RESPONSE.
05489  M01S03928.1xd     +++|*
05490  M01S03929.1xd     +++|*         ERROR  TO *ERR* IF SLAVE NOT RESPONDING.
05491  M01S03930.1xd     +++|
05492  M01S03931.1xd     +++|
05493  M01S03932.1xd     +++| RSR4     IAN    CH          READ SLAVE RESPONSE
05494  M01S03933.1xd     +++|
05495  M01S03934.1xd     +++| RSR      SUBR               ENTRY/EXIT
05496  M01S03935.1xd     +++|          ACN    CH
05497  M01S03936.1xd     +++| RSR1     FJM    RSR4,CH     IF SLAVE IN DROPPED
05498  M01S03937.1xd     +++|          SBN    1
05499  M01S03938.1xd     +++|          NJN    RSR1        IF NOT TIMED OUT
05500  M01S03939.1xd     +++|          LDN    ECNR
05501  M01S03940.1xd     +++|          RJM    ERR         PROCESS ERROR
05502  M01S03941.1xd     +++| RTR      SPACE  4,10
05503  M01S03942.1xd     +++|**        RTR - READ *T* REGISTER.
05504  M01S03943.1xd     +++|
05505  M01S03944.1xd     +++|
05506  M01S03945.1xd     +++| RTR2     ACN    CH          ACTIVATE CHANNEL
05507  M01S03946.1xd     +++|          LDN    3
05508  M01S03947.1xd     +++|          IAM    EDBF+TREG,CH  INPUT REGISTER CONTENTS
05509  M01S03948.1xd     +++|
05510  M01S03949.1xd     +++| RTR      SUBR               ENTRY/EXIT
05511  M01S03950.1xd     +++|          FNC    F0A00,CH
05512  M01S03951.1xd     +++| RTR1     IJM    RTR2,CH     IF FUNCTION ACCEPTED
05513  M01S03952.1xd     +++|          SBN    77
05514  M01S03953.1xd     +++|          PJN    RTR1        IF NOT TIMED OUT
05515  M01S03954.1xd     +++|          DCN    CH+40
05516  M01S03955.1xd     +++|          UJN    RTRX        RETURN
05517  M01S03956.1xd     +++| SAP      SPACE  4,10
05518  M01S03957.1xd     +++|**        SAP - SELECT ADAPTOR PORT.
05519  M01S03958.1xd     +++|*
05520  M01S03959.1xd     +++|*         CALLS  FCN.
05521  M01S03960.1xd     +++|
05522  M01S03961.1xd     +++|
05523  M01S03962.1xd     +++| SAP      SUBR               ENTRY/EXIT
Line S03963 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05524  M02S03963.272l774 ---|          LDM    PNUN
Line S03964 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05525  M02S03964.272l774 ---|          SCN    77          ISOLATE PORT NUMBER
Line S03965 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05526  M02S03965.272l774 ---|          SHN    13-6
05527  M01S00164.272l774 +++|          LDM    PNUN,DI
05528  M01S00165.272l774 +++|          SHN    0-11        ISOLATE PORT NUMBER
05529  M01S00166.272l774 +++|          SHN    13-0
05530  M01S03966.1xd     +++|          ERRNZ  F0062+4000-F0862  CODE DEPENDS ON VALUE
05531  M01S03967.1xd     +++|          ADC    F0062
05532  M01S03968.1xd     +++|          RJM    FCN
05533  M01S03969.1xd     +++|          UJN    SAPX        RETURN
05534  M01S03970.1xd     +++| SCM      SPACE  4,10
05535  M01S03971.1xd     +++|**        SCM - SELECT CONTROL MODULE.
05536  M01S03972.1xd     +++|*
05537  M01S03973.1xd     +++|*         ENTRY  (SF) = 1 IF DEVICE PREVIOUSLY SELECTED.
05538  M01S03974.1xd     +++|*                (CN) = CONTROLLER (CM3) NUMBER.
05539  M01S03975.1xd     +++|*
05540  M01S03976.1xd     +++|*         EXIT   (A) = (SF) = 1 = DEVICE SELECTED.
05541  M01S03977.1xd     +++|*
05542  M01S03978.1xd     +++|*         ERROR  TO *ERR* IF SELECT REJECT.
05543  M01S03979.1xd     +++|*
05544  M01S03980.1xd     +++|*         CALLS  DTM, FCN, RSR, SAP.
05545  M01S03981.1xd     +++|
05546  M01S03982.1xd     +++|
05547  M01S03983.1xd     +++| SCM3     AOD    SF          SET DEVICE SELECTED
05548  M01S03984.1xd     +++|
05549  M01S03985.1xd     +++| SCM      SUBR               ENTRY/EXIT
05550  M01S03986.1xd     +++|          LDD    SF
05551  M01S03987.1xd     +++|          NJN    SCMX        IF DEVICE PREVIOUSLY SELECTED
05552  M01S03988.1xd     +++|          STM    GSSA
05553  M01S03989.1xd     +++|          RJM    SAP         SELECT ADAPTOR PORT
05554  M01S03990.1xd     +++|          LDD    CN
05555  M01S03991.1xd     +++|          RJM    DTM         DETERMINE TRANSFER MODE
05556  M01S03992.1xd     +++|          LMN    F0029
05557  M01S03993.1xd     +++|          RJM    FCN         SET SELECT OUT
05558  M01S03994.1xd     +++|          LDN    77
05559  M01S03995.1xd     +++|          RJM    RSR         READ SLAVE RESPONSE
05560  M01S03996.1xd     +++|          LPML   TMSK,CN
05561  M01S03997.1xd     +++|          NJN    SCM3        IF CORRECT CONTROLLER
05562  M01S03998.1xd     +++|          LDN    ETSL
05563  M01S03999.1xd     +++|          RJM    ERR         PROCESS ERROR
05564  M01S04000.1xd     +++| WCB      SPACE  4,15
05565  M01S04001.1xd     +++|**        WCB - WRITE COMMAND BLOCK (PACKET).
05566  M01S04002.1xd     +++|*
05567  M01S04003.1xd     +++|*         ENTRY  (A) = COMMAND BLOCK LENGTH.
05568  M01S04004.1xd     +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
Line S04005 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05569  M02S04005.1xd5    ---|*                (TO) = TIMEOUT VALUE FOR *FTT*.
05570  M01S00597.1xd5    +++|*                (TO) = TIMEOUT VALUE.
05571  M01S04006.1xd     +++|*
05572  M01S04007.1xd     +++|*         ERROR  TO *ERR*.
05573  M01S04008.1xd     +++|*
05574  M01S04009.1xd     +++|*         USES   T1.
05575  M01S04010.1xd     +++|*
05576  M01S04011.1xd     +++|*         CALLS  BCS, DCM, FCN, GSS, SCM, STO.
05577  M01S04012.1xd     +++|
05578  M01S04013.1xd     +++|
05579  M01S04014.1xd     +++| WCB3     LDN    0           GET STATUS
05580  M01S04015.1xd     +++|          RJM    GSS
05581  M01S04016.1xd     +++|          RJM    DCM         DESELECT CONTROL MODULE
05582  M01S04017.1xd     +++|          LDD    TO
05583  M01S04018.1xd     +++|          RJM    STO         SET TIMEOUT
05584  M01S04019.1xd     +++|
05585  M01S04020.1xd     +++| WCB      SUBR               ENTRY/EXIT
05586  M01S04021.1xd     +++|          STM    CPBF+PLN
05587  M01S04022.1xd     +++|          LDD    DI          SET COMMAND REFERENCE NUMBER
05588  M01S04023.1xd     +++|          STM    CPBF+CRN
05589  M01S04024.1xd     +++|          RJM    SCM         SELECT CONTROL MODULE
05590  M01S04025.1xd     +++|          LDN    CIOT
05591  M01S04026.1xd     +++|          RJM    BCS         INITIATE BUS EXCHANGE (COMMAND OUT)
05592  M01S04027.1xd     +++|          LDML   CPBF+OPC
Line S04028 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05593  M02S04028.272l774 ---|          STML   LCMD        SAVE LAST COMMAND
05594  M01S00167.272l774 +++|          STML   LCMD,DI     SAVE LAST COMMAND
05595  M01S04029.1xd     +++|          LDC    F0381
05596  M01S04030.1xd     +++|          RJM    FCN         WRITE STREAMING
05597  M01S04031.1xd     +++|          ACN    CH
05598  M01S04032.1xd     +++|          LDM    CPBF+PLN    CONVERT OCTET COUNT TO BYTE COUNT
05599  M01S04033.1xd     +++|          ADN    3
05600  M01S04034.1xd     +++|          SHN    -1          TRANSFER COMMAND PACKET
05601  M01S04035.1xd     +++|          OAM    CPBF,CH
05602  M01S04036.1xd     +++|          STD    T1          SAVE RESIDUAL BYTE COUNT
05603  M01S04037.1xd     +++|          LDC    50000D
05604  M01S04038.1xd     +++| WCB2     IJM    WCB3,CH     IF SLAVE IN
05605  M01S04039.1xd     +++|          SBN    1
05606  M01S04040.1xd     +++|          NJN    WCB2        IF NOT TIMED OUT
05607  M01S04041.1xd     +++|          LDN    ECNR
05608  M01S04042.1xd     +++|          RJM    ERR         PROCESS ERROR
05609  M01S04043.1xd     +++| WTR      SPACE  4,10
05610  M01S04044.1xd     +++|**        WTR - WRITE *T* PRIME REGISTER.
05611  M01S04045.1xd     +++|*
05612  M01S04046.1xd     +++|*         ENTRY  (CB) = *CBT* ORDINAL.
05613  M01S04047.1xd     +++|*                (RW) = READ / WRITE STATUS.
05614  M01S04048.1xd     +++|*
05615  M01S04049.1xd     +++|*         CALLS  FCN, STO, SLB, SUA, WTC.
05616  M01S04050.1xd     +++|
05617  M01S04051.1xd     +++|
05618  M01S04052.1xd     +++| WTR      SUBR               ENTRY/EXIT
05619  M01S04053.1xd     +++|          LDD    RW
05620  M01S04054.1xd     +++|          ZJN    WTR1        IF READ REQUEST
05621  M01S04055.1xd     +++|          LDD    CB
05622  M01S04056.1xd     +++|          RJM    SLB         SET LINKAGE BITS
05623  M01S04057.1xd     +++| WTR1     LDD    CB
05624  M01S04058.1xd     +++|          RJM    SUA         GET UEM BUFFER ADDRESS
05625  M01S04059.1xd     +++|          LDD    UA+1
05626  M01S04060.1xd     +++|          SHN    11          FORMAT ADDRESS
05627  M01S04061.1xd     +++|          SCN    7
05628  M01S04062.1xd     +++|          STML   WTRA+2      SET ABSOLUTE ADDRESS
05629  M01S04063.1xd     +++|          LDD    UA
05630  M01S04064.1xd     +++|          SHN    14          COMPLETE BUFFER ADDRESS
05631  M01S04065.1xd     +++|          LMD    UA+1
05632  M01S04066.1xd     +++|          SHN    11-20       INSERT IN REGISTER IMAGE
05633  M01S04067.1xd     +++|          STM    WTRA+1
05634  M01S04068.1xd     +++|          LDML   WTRB,RW     ISSUE DMA FUNCTION
05635  M01S04069.1xd     +++|          RJM    FCN
05636  M01S04070.1xd     +++|          LDN    3           SET BLOCK LENGTH
05637  M01S04071.1xd     +++|          ACN    CH
05638  M01S04072.1xd     +++|          OAM    WTRA,CH     OUTPUT BUFFER PARAMETERS
05639  M01S04073.1xd     +++|          RJM    WTC
05640  M01S04074.1xd     +++|          LDN    3           SET REQUEST TIMEOUT
05641  M01S04075.1xd     +++|          RJM    STO
05642  M01S04076.1xd     +++|          UJP    WTRX        RETURN
05643  M01S04077.1xd     +++|
05644  M01S04078.1xd     +++|
05645  M01S04079.1xd     +++| WTRA     BSS    0           *T* REGISTER BUFFER
05646  M01S04080.1xd     +++|          CONL   40000       BYTE LENGTH OF I/O TRANSFER
05647  M01S04081.1xd     +++|          CONL   0,0         UEM ADDRESS OF BUFFER
05648  M01S04082.1xd     +++|
05649  M01S04083.1xd     +++| WTRB     BSS    0           DMA I/O FUNCTIONS
05650  M01S04084.1xd     +++|          CONL   F0C00
05651  M01S04085.1xd     +++|          CONL   F0D00
05652  M01S04086.1xd     +++|          TITLE  MISCELLANEOUS.
Line S04087 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05653  M02S04087.273l780 ---|          SPACE  4,10
Line S04088 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05654  M03S04088.273l780 ---|**        COMMON DECKS.
Line S00598 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05655  M02S00598.273l780 ---|*         DATA.
Line S00599 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05656  M02S00599.273l780 ---|
Line S00600 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05657  M02S00600.273l780 ---|
Line S00601 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05658  M02S00601.273l780 ---| MSG1     DATA   C* "DN" - UNAUTHORIZED CALL.*
Line S00602 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05659  M02S00602.273l780 ---|          SPACE  4,10
Line S00603 Modification History
M01 (Added by) 1xd5
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05660  M02S00603.273l780 ---|          ERRNG  10000-*     CODE DEPENDS ON VALUE
05661  M01S00604.1xd5    +++|          SPACE  4,10
05662  M01S00605.1xd5    +++|*         COMMON DECKS.
05663  M01S04089.1xd     +++|
05664  M01S04090.1xd     +++|
05665  M01S04091.1xd     +++|*CALL     COMPCHD
05666  M01S04092.1xd     +++|*CALL     COMPC2D
05667  M01S04093.1xd     +++| RND$     EQU    0           DEFINE ROUNDING FOR *COMPDV5*
05668  M01S04094.1xd     +++|*CALL     COMPDV5
05669  M01S00013.ns2769  +++| M8K$     EQU    1           USE LONG INSTRUCTIONS
05670  M01S00014.ns2769  +++|*CALL     COMPIMB
05671  M01S04095.1xd     +++|          QUAL   SES
05672  M01S04096.1xd     +++| QUAL$    EQU    0           DONT FURTHER QUALIFY *SES*
05673  M01S04097.1xd     +++| T5       EQU    EO
05674  M01S04098.1xd     +++|*CALL     COMPSES
05675  M01S04099.1xd     +++|          QUAL   *
05676  M01S04100.1xd     +++| SES      EQU    /SES/SES
05677  M01S04101.1xd     +++|          SPACE  4,10
Line S04102 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05678  M02S04102.1xd5    ---|**        BUFFERS.
05679  M01S00606.1xd5    +++|*         BUFFERS.
05680  M01S04103.1xd     +++|
05681  M01S04104.1xd     +++|
05682  M01S04105.1xd     +++| RPBF     BSS    0           RESPONSE PACKET BUFFER
05683  M01S04106.1xd     +++|
05684  M01S04107.1xd     +++| CPBF     EQU    RPBF+1      COMMAND PACKET BUFFER
05685  M01S04108.1xd     +++|
05686  M01S04109.1xd     +++| RBUF     EQU    RPBF+RPBFL  REGISTER BUFFER
05687  M01S04110.1xd     +++| RBUFL    EQU    2*4
05688  M01S04111.1xd     +++|
05689  M01S04112.1xd     +++| SBUF     EQU    RBUF+RBUFL  SCRATCH BUFFER
05690  M01S04113.1xd     +++| SBUFL    EQU    3*5
Line S04114 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05691  M02S04114.1xd5    ---|
05692  M01S00607.1xd5    +++|          SPACE  4,10
05693  M01S04115.1xd     +++| EDBF     EQU    20000-400-RTEDL  ERROR DATA BUFFER
05694  M01S04116.1xd     +++|          ERRNG  400-EDBFL+RTEDL  CODE DEPENDS ON VALUE
05695  M01S04117.1xd     +++|          ERRPL  SBUF+SBUFL-EDBF  BUFFER OVERLAP
05696  M01S04118.1xd     +++|
05697  M01S04119.1xd     +++| MSGP     EQU    EDBF+EMBF   MESSAGE PREFIX
05698  M01S04120.1xd     +++| MSGL     EQU    MSGP+2      MESSAGE LENGTH
05699  M01S04121.1xd     +++| MSGT     EQU    MSGL+2      MESSAGE TYPE
05700  M01S04122.1xd     +++|
05701  M01S04123.1xd     +++| BMLM     EQU    MSGT+1      BML MESSAGE HEADER
05702  M01S04124.1xd     +++| MSID     EQU    BMLM        MESSAGE ID
05703  M01S04125.1xd     +++| UNIT     EQU    MSID+3      UNIT NUMBER
05704  M01S04126.1xd     +++| PORT     EQU    UNIT+1      PORT NUMBER
05705  M01S04127.1xd     +++| ESTO     EQU    PORT+1      EST ORDINAL
05706  M01S04128.1xd     +++| MISC     EQU    ESTO+1      RETRY COUNT / WRITE + RECOVERY FLAGS
05707  M01S04129.1xd     +++| MFID     EQU    MISC+2      MAINFRAME ID
Line S04130 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05708  M02S04130.1xd5    ---|          TITLE  PRESET ROUTINES.
05709  M01S00608.1xd5    +++|          TITLE  INSTRUCTION MODIFICATION TABLES.
05710  M01S00609.1xd5    +++| TCHA     SPACE  4,10
05711  M01S00610.1xd5    +++|**        TABLE OF CHANNEL INSTRUCTIONS ADDRESSES.
05712  M01S00611.1xd5    +++|
05713  M01S00612.1xd5    +++|
05714  M01S00613.1xd5    +++| TCHA     CHTB
05715  M01S00614.1xd5    +++|          CON    0           END OF TABLE
05716  M01S00615.1xd5    +++|
05717  M01S00616.1xd5    +++|          RSTC               RESTORE CHANNEL INSTRUCTIONS
05718  M01S00617.1xd5    +++| TCBT     SPACE  4,10
05719  M01S00618.1xd5    +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *CBT*.
05720  M01S00619.1xd5    +++|
05721  M01S00620.1xd5    +++|
05722  M01S00621.1xd5    +++| TCBT     BSS    0
05723  M01S00622.1xd5    +++| TCBT     HERE
05724  M01S00623.1xd5    +++|          CON    0           TERMINATE TABLE
05725  M01S00624.1xd5    +++| TCCT     SPACE  4,10
05726  M01S00625.1xd5    +++|**        TABLE OF INSTRUCTIONS REQUIRING ADDRESS OF *CCT* ENTRY.
05727  M01S00626.1xd5    +++|
05728  M01S00627.1xd5    +++|
05729  M01S00628.1xd5    +++| TCCT     BSS    0
05730  M01S00629.1xd5    +++| TCCT     HERE
05731  M01S00630.1xd5    +++|          CON    0           TERMINATE TABLE
05732  M01S00631.1xd5    +++| TCHT     SPACE  4,10
05733  M01S00632.1xd5    +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF CHANNEL TABLE.
05734  M01S00633.1xd5    +++|
05735  M01S00634.1xd5    +++|
05736  M01S00635.1xd5    +++| TCHT     BSS    0
05737  M01S00636.1xd5    +++| TCHT     HERE
05738  M01S00637.1xd5    +++|          CON    0           TERMINATE TABLE
05739  M01S00638.1xd5    +++| TEMB     SPACE  4,10
05740  M01S00639.1xd5    +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *EMB*.
05741  M01S00640.1xd5    +++|
05742  M01S00641.1xd5    +++|
05743  M01S00642.1xd5    +++| TEMB     BSS    0
05744  M01S00015.ns2769  +++|          QUAL   COMPIMB
05745  M01S00643.1xd5    +++| TEMB     HERE
05746  M01S00016.ns2769  +++|          QUAL   *
05747  M01S00644.1xd5    +++|          CON    0           TERMINATE TABLE
05748  M01S00645.1xd5    +++| TEXP     SPACE  4,10
05749  M01S00646.1xd5    +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF PP EXCHANGE PACKAGE.
05750  M01S00647.1xd5    +++|
05751  M01S00648.1xd5    +++|
05752  M01S00649.1xd5    +++| TEXP     BSS    0
05753  M01S00650.1xd5    +++| TEXP     HERE
05754  M01S00651.1xd5    +++|          CON    0           TERMINATE TABLE
05755  M01S00652.1xd5    +++| TPUT     SPACE  4,10
05756  M01S00653.1xd5    +++|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *PUT*.
05757  M01S00654.1xd5    +++|
05758  M01S00655.1xd5    +++|
05759  M01S00656.1xd5    +++| TPUT     BSS    0
05760  M01S00657.1xd5    +++| TPUT     HERE
05761  M01S00658.1xd5    +++|          CON    0           TERMINATE TABLE
05762  M01S00659.1xd5    +++|          TITLE  PRESET.
05763  M01S00660.1xd5    +++| PRS      SPACE  4,20
05764  M01S00661.1xd5    +++|**        PRS - PRESET DRIVER FOR PROCESSING.
05765  M01S00662.1xd5    +++|*
05766  M01S00663.1xd5    +++|*         EXIT   (UC) = 0.
05767  M01S00664.1xd5    +++|*                TO *MRS*.
05768  M01S00665.1xd5    +++|*                TO *XMD8* IF CHANNEL DOWN OR NO DEVICES FOR DRIVER.
05769  M01S00666.1xd5    +++|*
05770  M01S00667.1xd5    +++|*         CALLS  CCP, CCR2, IST, MCI, SCT, SPA, STA.
05771  M01S00668.1xd5    +++|
05772  M01S00669.1xd5    +++|
05773  M01S00670.1xd5    +++| PRS      BSS    0           ENTRY
05774  M01S00671.1xd5    +++|          RJM    CCP         CHECK CALLING PROGRAM
05775  M01S00672.1xd5    +++|*         LDN    0
05776  M01S00673.1xd5    +++|          STD    UC          SET NO UNITS RESERVED
05777  M01S00674.1xd5    +++|          LDC    EDBF
05778  M01S00675.1xd5    +++|          ERRPL  ENDD-EDBF   CODE DEPENDS ON VALUE
05779  M01S00676.1xd5    +++|          STDL   T4
05780  M01S00677.1xd5    +++|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
05781  M01S00678.1xd5    +++|*         LDN    0
05782  M01S00679.1xd5    +++|          STD    CR          SET CHANNEL NOT RESERVED
05783  M01S00680.1xd5    +++|
05784  M01S00681.1xd5    +++|*         PRESET BML ERROR MESSAGE BUFFER.
05785  M01S00682.1xd5    +++|
05786  M01S00683.1xd5    +++| PRS1     STI    T4
05787  M01S00684.1xd5    +++|          AODL   T4          ADVANCE BUFFER ADDRESS
05788  M01S00685.1xd5    +++|          SHN    0-15
05789  M01S00686.1xd5    +++|          ZJN    PRS1        IF NOT END OF BUFFER
05790  M01S00687.1xd5    +++|          LDN    MLDY
05791  M01S00688.1xd5    +++|          STM    MSGT
05792  M01S00689.1xd5    +++|          LDC    BMID        ERROR MESSAGE ID
05793  M01S00690.1xd5    +++|          STM    MSID
05794  M01S00691.1xd5    +++|          RJM    SPA         SET PP EXCHANGE PACKAGE ADDRESSES
05795  M01S00692.1xd5    +++|          RJM    SCT         SET CHANNEL TABLE ADDRESSES
05796  M01S00693.1xd5    +++|          LDK    BIOL
05797  M01S00694.1xd5    +++|          CRD    CM          READ BUFFERED I/O POINTERS
05798  M01S00695.1xd5    +++|          LDD    CM+1
05799  M01S00696.1xd5    +++|          SHN    14
05800  M01S00697.1xd5    +++|          LMD    CM+2
05801  M01S00698.1xd5    +++|          ADN    CCTP        READ *CCT* POINTER
05802  M01S00699.1xd5    +++|          CRD    T4
05803  M01S00700.1xd5    +++|          ADN    CBTP-CCTP   READ *CBT* POINTER
05804  M01S00701.1xd5    +++|          CRD    WB
05805  M01S00702.1xd5    +++|          SBN    -PUTP+CBTP  READ *PUT* POINTER
05806  M01S00703.1xd5    +++|          CRD    T2
05807  M01S00704.1xd5    +++|          LDD    T2+3        SET ADDRESS OF *PUT*
05808  M01S00705.1xd5    +++|          LPN    77
05809  M01S00706.1xd5    +++|          RAM    ISTA
05810  M01S00707.1xd5    +++|          LDD    T2+4
05811  M01S00708.1xd5    +++|          RAM    ISTA+1
05812  M01S00709.1xd5    +++|          AOD    T2          SET NUMBER OF *PUT* ENTRIES
05813  M01S00710.1xd5    +++|          STD    RC
05814  M01S00711.1xd5    +++|          LDC    T5*20000+TPUT  SET *PUT* ADDRESSES
05815  M01S00712.1xd5    +++|          RJM    STA
05816  M01S00713.1xd5    +++|          LDD    IR+2        ADJUST CHANNEL CONTROL TABLE POINTER
05817  M01S00714.1xd5    +++|          SHN    CCTLS-6
05818  M01S00715.1xd5    +++|          RAD    CM
05819  M01S00716.1xd5    +++|          SHN    -14
05820  M01S00717.1xd5    +++|          RAD    T7
05821  M01S00718.1xd5    +++|          LDC    T7*20000+TCCT  SET *CCT* ADDRESSES
05822  M01S00719.1xd5    +++|          RJM    STA
05823  M01S00720.1xd5    +++| .WB3     EQU    WB+3
05824  M01S00721.1xd5    +++|          LDC    .WB3*20000+TCBT  SET *CBT* ADDRESSES
05825  M01S00722.1xd5    +++|          RJM    STA
05826  M01S00723.1xd5    +++|          LDN    EMBP        FETCH *EMB* POINTER
05827  M01S00724.1xd5    +++|          CRD    CM
05828  M01S00725.1xd5    +++| .CM1     EQU    CM+1
05829  M01S00726.1xd5    +++|          LDC    .CM1*20000+TEMB  SET *EMB* ADDRESSES
05830  M01S00727.1xd5    +++|          RJM    STA
05831  M01S00728.1xd5    +++|          LDK    UEML
05832  M01S00729.1xd5    +++|          CRD    CM          READ UEM POINTERS
05833  M01S00730.1xd5    +++|          LDD    CM
05834  M01S00731.1xd5    +++| PRSA     SHN    11
05835  M01S00732.1xd5    +++|*         SHN    11+EMSC
05836  M01S00733.1xd5    +++|          SCN    77
05837  M01S00734.1xd5    +++|          STM    SUAA        SET FWA OF UEM
05838  M01S00735.1xd5    +++|          LDD    CM
05839  M01S00736.1xd5    +++| PRSB     SHN    -3
05840  M01S00737.1xd5    +++|*         SHN    EMSC-3
05841  M01S00738.1xd5    +++|          STM    SUAB
05842  M01S00739.1xd5    +++|          LDK    MMFL        FETCH MACHINE ID
05843  M01S00740.1xd5    +++|          CRD    CM
05844  M01S00741.1xd5    +++|          LDD    CM          SET MAINFRAME ID FOR BML MESSAGES
05845  M01S00742.1xd5    +++|          STM    MFID
05846  M01S00743.1xd5    +++|          RJM    IST         INITIALIZE DEVICE STATE TABLE
05847  M01S00744.1xd5    +++|          ZJN    PRS4        IF NO DEVICES FOR THIS DRIVER
05848  M01S00745.1xd5    +++|          LJM    CCR2        RESERVE CHANNEL (RETURN TO *PRS3*)
05849  M01S00746.1xd5    +++|
05850  M01S00747.1xd5    +++| PRS3     NJP    MRS         IF CHANNEL NOT DOWN
05851  M01S00748.1xd5    +++| PRS4     LJM    XMD8        DROP CPP
05852  M01S00749.1xd5    +++|          TITLE  PRESET SUBROUTINES.
05853  M01S04131.1xd     +++| CCP      SPACE  4,10
05854  M01S04132.1xd     +++|**        CCP - CHECK CALLING PROGRAM.
05855  M01S04133.1xd     +++|*
05856  M01S04134.1xd     +++|*         EXIT   (A) = 0.
05857  M01S04135.1xd     +++|*
05858  M01S04136.1xd     +++|*         USES   CM - CM+4.
05859  M01S04137.1xd     +++|*
05860  M01S04138.1xd     +++|*         CALLS  DFM.
05861  M01S04139.1xd     +++|*
05862  M01S04140.1xd     +++|*         MACROS MONITOR.
05863  M01S04141.1xd     +++|
05864  M01S04142.1xd     +++|
05865  M01S04143.1xd     +++| CCP      SUBR               ENTRY/EXIT
05866  M01S04144.1xd     +++|          LDK    NCPL
05867  M01S04145.1xd     +++|          CRD    CM          GET NUMBER OF CONTROL POINTS
05868  M01S04146.1xd     +++|          AOD    CM+1
05869  M01S04147.1xd     +++|          SHN    7
05870  M01S04148.1xd     +++|          LMD    CP
05871  M01S04149.1xd     +++|          ZJN    CCPX        IF DRIVER AT SYSTEM CP
Line S04150 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05872  M02S04150.1xd5    ---|          LDC    CCPA
05873  M01S00750.1xd5    +++|          LDC    MSG1
05874  M01S04151.1xd     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
05875  M01S04152.1xd     +++|          MONITOR  ABTM
05876  M01S04153.1xd     +++|          LJM    PPR         EXIT TO PP RESIDENT
Line S04154 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05877  M02S04154.1xd5    ---|
Line S04155 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05878  M02S04155.1xd5    ---|
Line S04156 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05879  M02S04156.1xd5    ---| CCPA     DATA   C* "DN" - UNAUTHORIZED CALL.*
05880  M01S04157.1xd     +++| IST      SPACE  4,15
05881  M01S04158.1xd     +++|**        IST - INITIALIZE DEVICE STATE TABLE.
05882  M01S04159.1xd     +++|*
05883  M01S04160.1xd     +++|*         ENTRY  (RC) = NUMBER OF *PUT* ENTRIES.
05884  M01S04161.1xd     +++|*
05885  M01S04162.1xd     +++|*         EXIT   (A) = 0 IF NO DEVICES FOR THIS DRIVER.
05886  M01S00751.1xd5    +++|*                (DI) = DEVICE INDEX FOR FIRST DEVICE, IF PRESENT.
05887  M01S00752.1xd5    +++|*                DEVICE PARAMETERS SET FOR FIRST DEVICE, IF PRESENT.
05888  M01S04163.1xd     +++|*
Line S04164 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05889  M02S04164.1xd5    ---|*         USES   DI, T5, CM - CM+4, WB - WB+4.
05890  M01S00753.1xd5    +++|*         USES   DI, TA, T5, CM - CM+4, WB - WB+4.
05891  M01S04165.1xd     +++|*
Line S04166 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05892  M02S04166.1xd5    ---|*         MACROS PUTE, SFA.
05893  M01S00754.1xd5    +++|*         CALLS  LDP.
05894  M01S00755.1xd5    +++|*
05895  M01S00756.1xd5    +++|*         MACROS SFA.
05896  M01S04167.1xd     +++|
05897  M01S04168.1xd     +++|
05898  M01S04169.1xd     +++| IST7     LDD    DI          DEFINE END OF DEVICES
05899  M01S04170.1xd     +++|          STM    XMDA
05900  M01S04171.1xd     +++|          LMC    DSTB        SET EXIT CONDITION
05901  M01S00757.1xd5    +++|          ZJN    ISTX        IF NO DEVICES FOR THIS DRIVER
05902  M01S00758.1xd5    +++|          LDC    DSTB        SET DEVICE INDEX FOR FIRST DEVICE
05903  M01S00759.1xd5    +++|          STD    DI
05904  M01S00760.1xd5    +++|          STD    TA
05905  M01S00761.1xd5    +++|          RJM    LDP         LOAD DEVICE PARAMETERS
05906  M01S04172.1xd     +++|
05907  M01S04173.1xd     +++| IST      SUBR               ENTRY/EXIT
05908  M01S04174.1xd     +++|          LDC    OCMD-1
05909  M01S04175.1xd     +++|          STD    DI
05910  M01S04176.1xd     +++| IST1     LDN    0           CLEAR DEVICE STATE TABLE
05911  M01S04177.1xd     +++|          STI    DI
05912  M01S04178.1xd     +++|          SOD    DI
05913  M01S04179.1xd     +++|          LMC    DSTB
05914  M01S04180.1xd     +++|          NJN    IST1        IF MORE TO CLEAR
05915  M01S04181.1xd     +++|*         LDN    0
05916  M01S04182.1xd     +++|          STD    T5          INITIALIZE *PUT* ORDINAL
05917  M01S04183.1xd     +++| IST2     AOD    T5
05918  M01S04184.1xd     +++|          LMD    RC
05919  M01S04185.1xd     +++|          ZJN    IST7        IF END OF PHYSICAL UNIT TABLE
05920  M01S04186.1xd     +++|          LDD    T5
05921  M01S04187.1xd     +++|          SHN    PUTLS       READ *PUT* ENTRY
Line S04188 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05922  M02S04188.1xd5    ---|          PUTE   *
Line S04189 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05923  M02S04189.1xd5    ---|          ADC    UNCT        GET UNIT CONTROL WORD
05924  M01S00762.1xd5    +++| ISTA     ADC    UNCT+**     GET UNIT CONTROL WORD
05925  M01S04190.1xd     +++|          CRD    WB
05926  M01S04191.1xd     +++|          SFA    EST,WB+1    FETCH EST ENTRY
05927  M01S04192.1xd     +++|          ADK    EQDE
05928  M01S04193.1xd     +++|          CRD    CM
05929  M01S04194.1xd     +++|          LDN    CM          INITIALIZE CHANNEL BYTE ADDRESS
05930  M01S04195.1xd     +++|          STD    CM
05931  M01S04196.1xd     +++| IST3     AOD    CM          ADVANCE PATH DESCRIPTOR ADDRESS
05932  M01S04197.1xd     +++|          LMN    CM+3
05933  M01S04198.1xd     +++|          ZJN    IST2        IF TWO POSSIBLE CHANNELS CHECKED
05934  M01S04199.1xd     +++|          LDI    CM
05935  M01S04200.1xd     +++|          ZJN    IST3        IF NULL ACCESS
05936  M01S04201.1xd     +++|          LMD    IR+4
05937  M01S04202.1xd     +++|          LPN    77
Line S04203 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05938  M02S04203.1xd5    ---| IST4     NJN    IST3        IF NOT THIS DRIVERS CHANNEL
Line S04204 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05939  M02S04204.1xd5    ---|
05940  M01S00763.1xd5    +++|          NJN    IST3        IF NOT THIS DRIVERS CHANNEL
05941  M01S04205.1xd     +++|          LDD    T5          SET *PUT* ORDINAL IN STATE TABLE
05942  M01S04206.1xd     +++|          STI    DI
05943  M01S04207.1xd     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
05944  M01S00764.1xd5    +++|          LDC    1S14+1S13   SET INTERNAL SPECIAL REQUEST FLAGS
05945  M01S00765.1xd5    +++|          STML   IPPS,DI
05946  M01S04208.1xd     +++|          LDI    CM
Line S04209 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd1
Seq #  *Modification Id* Act 
----------------------------+
05947  M02S04209.1xd1    ---|          LPC    100         SET PORT NUMBER
05948  M01S00001.1xd1    +++|          LPC    200         SET PORT NUMBER
Line S00002 Modification History
M01 (Added by) 1xd1
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05949  M02S00002.272l774 ---|          SHN    -1
Line S04210 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05950  M02S04210.272l774 ---|          STM    PNUN
Line S04211 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05951  M02S04211.272l774 ---|          LDD    WB          UNPACK UNIT NUMBER
Line S04212 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05952  M02S04212.272l774 ---|          LPN    77
Line S04213 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05953  M02S04213.272l774 ---|          RAM    PNUN        APPEND TO PORT NUMBER
Line S04214 Modification History
M01 (Added by) 1xd
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05954  M02S04214.272l774 ---|          SHN    -3
05955  M01S00168.272l774 +++|          SHN    11-7
05956  M01S00169.272l774 +++|          STM    PNUN,DI
05957  M01S00170.272l774 +++|          LDD    WB          GET CONTROLLER AND UNIT NUMBERS
05958  M01S00171.272l774 +++|          LPC    777
05959  M01S00172.272l774 +++|          RAM    PNUN,DI     APPEND TO PORT NUMBER
05960  M01S00173.272l774 +++|          SHN    -6
05961  M01S04215.1xd     +++|          STD    WB+4        SET *CSTB* INDEX
05962  M01S04216.1xd     +++|          LDM    CSTB,WB+4
05963  M01S04217.1xd     +++|          NJN    IST5        IF CONTROLLER IDENTIFIED
05964  M01S04218.1xd     +++|          LDD    DI
05965  M01S04219.1xd     +++|          LMC    1S14        RESET FLAG + FIRST *PUT* ORDINAL
05966  M01S04220.1xd     +++|          STML   CSTB,WB+4
Line S04221 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05967  M02S04221.1xd5    ---| IST5     LDD    CM+2
Line S04222 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05968  M02S04222.1xd5    ---|          ZJN    IST6        IF NOT DUAL ACCESSED DRIVE
Line S04223 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05969  M02S04223.1xd5    ---|          LDML   CSTB,WB+4
Line S04224 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05970  M02S04224.1xd5    ---|          LPC    47777       CLEAR DUAL ACCESS FLAG
Line S04225 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05971  M02S04225.1xd5    ---|          LMC    1S12
Line S04226 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05972  M02S04226.1xd5    ---|          STML   CSTB,WB+4   FLAG DUAL ACCESSED DRIVES ON CONTROLLER
Line S04227 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05973  M02S04227.1xd5    ---| IST6     LDN    DSTBE
05974  M01S00766.1xd5    +++| IST5     LDN    DSTBE
05975  M01S04228.1xd     +++|          RAD    DI          ADVANCE STATE TABLE ADDRESS
05976  M01S04229.1xd     +++|          LMC    DSTBL
05977  M01S04230.1xd     +++|          NJP    IST2        IF DEVICE TABLE NOT FULL
05978  M01S04231.1xd     +++|          LJM    IST7        SET INITIAL STATE TABLE ADDRESS
05979  M01S04232.1xd     +++| MCI      SPACE  4,10
05980  M01S04233.1xd     +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
05981  M01S04234.1xd     +++|*
05982  M01S04235.1xd     +++|*         ENTRY  (IR+4) = CONCURRENT CHANNEL NUMBER.
05983  M01S04236.1xd     +++|*
05984  M01S04237.1xd     +++|*         EXIT   (A) = 0.
05985  M01S04238.1xd     +++|*
05986  M01S04239.1xd     +++|*         USES   T1, T2, T3.
05987  M01S04240.1xd     +++|*
05988  M01S04241.1xd     +++|*         CALLS  C2D.
05989  M01S04242.1xd     +++|
05990  M01S04243.1xd     +++|
Line S04244 Modification History
M01 (Added by) 1xd
M02 (Updated by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05991  M02S04244.1xd5    ---| MCI1     RAIL   T2          MODIFY CHANNEL INSTRUCTION
05992  M01S00767.1xd5    +++| MCI1     LDD    T3
05993  M01S00768.1xd5    +++|          SBN    CH
05994  M01S00769.1xd5    +++|          RAIL   T2          MODIFY CHANNEL INSTRUCTION
05995  M01S04245.1xd     +++|          AOD    T1
Line S04246 Modification History
M01 (Added by) 1xd
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05996  M02S04246.273l780 ---| MCI2     LDM    TCHA,T1     EXTRACT NEXT ADDRESS
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/1xd.004.txt ยท Last modified: by 127.0.0.1