Deck 1XD Part 004

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05432  M00S03871.1xd     +++|          LDDL   LF
05433  M00S03872.1xd     +++|          LMN    2           SET SYNC OUT
05434  M00S03873.1xd     +++|          RJM    FCN
05435  M00S03874.1xd     +++|          WAIT   10
05436  M00S03875.1xd     +++|          LDDL   LF          NEGATE SYNC OUT
05437  M00S03876.1xd     +++|          SCN    2
05438  M00S03877.1xd     +++|          RJM    FCN
05439  M00S03878.1xd     +++|          LDDL   LF          CLEAR MASTER OUT
05440  M00S03879.1xd     +++|          SCN    4
05441  M00S03880.1xd     +++|          RJM    FCN
05442  M00S03881.1xd     +++|          UJP    RIFX        RETURN
05443  M00S03882.1xd     +++|
05444  M00S03883.1xd     +++|
05445  M00S03884.1xd     +++| RIFA     BSS    0           RESET FUNCTION CODES
05446  M00S03885.1xd     +++|          CONL   F8415
05447  M00S03886.1xd     +++|          CONL   F8215
05448  M00S03887.1xd     +++| RRP      SPACE  4,10
05449  M00S03888.1xd     +++|**        RRP - READ RESPONSE PACKET.
05450  M00S03889.1xd     +++|*
05451  M00S03890.1xd     +++|*         USES   T1.
05452  M00S03891.1xd     +++|*
05453  M00S03892.1xd     +++|*         CALLS  BCS, FCN, GSS.
05454  M00S03893.1xd     +++|
05455  M00S03894.1xd     +++|
05456  M00S03895.1xd     +++| RRP5     LDN    0           GET ENDING STATUS
05457  M00S03896.1xd     +++|          RJM    GSS
05458  M00S03897.1xd     +++|
05459  M00S03898.1xd     +++| RRP      SUBR               ENTRY/EXIT
05460  M00S03899.1xd     +++|          LDN    RIIN
05461  M00S03900.1xd     +++|          RJM    BCS         INITIATE BUS EXCHANGE (RESPONSE IN)
05462  M00S03901.1xd     +++|          LDC    F0281
05463  M00S03902.1xd     +++|          RJM    FCN         READ STREAMING
05464  M00S03903.1xd     +++|          ACN    CH
05465  M00S03904.1xd     +++|          LDN    RPBFL       TRANSFER RESPONSE PACKET
05466  M00S03905.1xd     +++|          IAM    RPBF,CH
05467  M00S03906.1xd     +++|          STD    T0          SAVE RESIDUE
05468  M00S03907.1xd     +++|          SBN    RPBFL-4
05469  M00S03908.1xd     +++|          PJN    RRP2        IF INVALID PACKET LENGTH
05470  M00S03909.1xd     +++|          LDM    RPBF+PLN
05471  M00S03910.1xd     +++|          ADN    3           CONVERT OCTET COUNT TO BYTE COUNT
05472  M00S03911.1xd     +++|          SHN    -1
05473  M00S03912.1xd     +++|          RAD    T0
05474  M00S03913.1xd     +++| RRP2     LDK    RPBFL       COMPARE LENGTH WITH DATA READ
05475  M00S03914.1xd     +++|          SBD    T0
05476  M00S03915.1xd     +++|          STD    T1          SET RESIDUAL BYTE COUNT
05477  M00S03916.1xd     +++|          LDC    50000D
05478  M00S03917.1xd     +++| RRP3     IJM    RRP5,CH     IF SLAVE IN
05479  M00S03918.1xd     +++|          SBN    1
05480  M00S03919.1xd     +++|          NJN    RRP3        IF NOT TIMED OUT
05481  M00S03920.1xd     +++|          LCN    ECNR
05482  M00S03921.1xd     +++|          RJM    ERR         PROCESS ERROR
05483  M00S03922.1xd     +++| RSR      SPACE  4,10
05484  M00S03923.1xd     +++|**        RSR - READ SLAVE RESPONSE.
05485  M00S03924.1xd     +++|*
05486  M00S03925.1xd     +++|*         ENTRY  (A) = TIMEOUT VALUE (MICROSECONDS).
05487  M00S03926.1xd     +++|*
05488  M00S03927.1xd     +++|*         EXIT   (A) = SLAVE RESPONSE.
05489  M00S03928.1xd     +++|*
05490  M00S03929.1xd     +++|*         ERROR  TO *ERR* IF SLAVE NOT RESPONDING.
05491  M00S03930.1xd     +++|
05492  M00S03931.1xd     +++|
05493  M00S03932.1xd     +++| RSR4     IAN    CH          READ SLAVE RESPONSE
05494  M00S03933.1xd     +++|
05495  M00S03934.1xd     +++| RSR      SUBR               ENTRY/EXIT
05496  M00S03935.1xd     +++|          ACN    CH
05497  M00S03936.1xd     +++| RSR1     FJM    RSR4,CH     IF SLAVE IN DROPPED
05498  M00S03937.1xd     +++|          SBN    1
05499  M00S03938.1xd     +++|          NJN    RSR1        IF NOT TIMED OUT
05500  M00S03939.1xd     +++|          LDN    ECNR
05501  M00S03940.1xd     +++|          RJM    ERR         PROCESS ERROR
05502  M00S03941.1xd     +++| RTR      SPACE  4,10
05503  M00S03942.1xd     +++|**        RTR - READ *T* REGISTER.
05504  M00S03943.1xd     +++|
05505  M00S03944.1xd     +++|
05506  M00S03945.1xd     +++| RTR2     ACN    CH          ACTIVATE CHANNEL
05507  M00S03946.1xd     +++|          LDN    3
05508  M00S03947.1xd     +++|          IAM    EDBF+TREG,CH  INPUT REGISTER CONTENTS
05509  M00S03948.1xd     +++|
05510  M00S03949.1xd     +++| RTR      SUBR               ENTRY/EXIT
05511  M00S03950.1xd     +++|          FNC    F0A00,CH
05512  M00S03951.1xd     +++| RTR1     IJM    RTR2,CH     IF FUNCTION ACCEPTED
05513  M00S03952.1xd     +++|          SBN    77
05514  M00S03953.1xd     +++|          PJN    RTR1        IF NOT TIMED OUT
05515  M00S03954.1xd     +++|          DCN    CH+40
05516  M00S03955.1xd     +++|          UJN    RTRX        RETURN
05517  M00S03956.1xd     +++| SAP      SPACE  4,10
05518  M00S03957.1xd     +++|**        SAP - SELECT ADAPTOR PORT.
05519  M00S03958.1xd     +++|*
05520  M00S03959.1xd     +++|*         CALLS  FCN.
05521  M00S03960.1xd     +++|
05522  M00S03961.1xd     +++|
05523  M00S03962.1xd     +++| SAP      SUBR               ENTRY/EXIT
Line S03963 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05524  M01S03963.272l774 ---|          LDM    PNUN
05525  M01S03964.272l774 ---|          SCN    77          ISOLATE PORT NUMBER
05526  M01S03965.272l774 ---|          SHN    13-6
Line S00164 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05527  M01S00164.272l774 +++|          LDM    PNUN,DI
05528  M01S00165.272l774 +++|          SHN    0-11        ISOLATE PORT NUMBER
05529  M01S00166.272l774 +++|          SHN    13-0
05530  M00S03966.1xd     +++|          ERRNZ  F0062+4000-F0862  CODE DEPENDS ON VALUE
05531  M00S03967.1xd     +++|          ADC    F0062
05532  M00S03968.1xd     +++|          RJM    FCN
05533  M00S03969.1xd     +++|          UJN    SAPX        RETURN
05534  M00S03970.1xd     +++| SCM      SPACE  4,10
05535  M00S03971.1xd     +++|**        SCM - SELECT CONTROL MODULE.
05536  M00S03972.1xd     +++|*
05537  M00S03973.1xd     +++|*         ENTRY  (SF) = 1 IF DEVICE PREVIOUSLY SELECTED.
05538  M00S03974.1xd     +++|*                (CN) = CONTROLLER (CM3) NUMBER.
05539  M00S03975.1xd     +++|*
05540  M00S03976.1xd     +++|*         EXIT   (A) = (SF) = 1 = DEVICE SELECTED.
05541  M00S03977.1xd     +++|*
05542  M00S03978.1xd     +++|*         ERROR  TO *ERR* IF SELECT REJECT.
05543  M00S03979.1xd     +++|*
05544  M00S03980.1xd     +++|*         CALLS  DTM, FCN, RSR, SAP.
05545  M00S03981.1xd     +++|
05546  M00S03982.1xd     +++|
05547  M00S03983.1xd     +++| SCM3     AOD    SF          SET DEVICE SELECTED
05548  M00S03984.1xd     +++|
05549  M00S03985.1xd     +++| SCM      SUBR               ENTRY/EXIT
05550  M00S03986.1xd     +++|          LDD    SF
05551  M00S03987.1xd     +++|          NJN    SCMX        IF DEVICE PREVIOUSLY SELECTED
05552  M00S03988.1xd     +++|          STM    GSSA
05553  M00S03989.1xd     +++|          RJM    SAP         SELECT ADAPTOR PORT
05554  M00S03990.1xd     +++|          LDD    CN
05555  M00S03991.1xd     +++|          RJM    DTM         DETERMINE TRANSFER MODE
05556  M00S03992.1xd     +++|          LMN    F0029
05557  M00S03993.1xd     +++|          RJM    FCN         SET SELECT OUT
05558  M00S03994.1xd     +++|          LDN    77
05559  M00S03995.1xd     +++|          RJM    RSR         READ SLAVE RESPONSE
05560  M00S03996.1xd     +++|          LPML   TMSK,CN
05561  M00S03997.1xd     +++|          NJN    SCM3        IF CORRECT CONTROLLER
05562  M00S03998.1xd     +++|          LDN    ETSL
05563  M00S03999.1xd     +++|          RJM    ERR         PROCESS ERROR
05564  M00S04000.1xd     +++| WCB      SPACE  4,15
05565  M00S04001.1xd     +++|**        WCB - WRITE COMMAND BLOCK (PACKET).
05566  M00S04002.1xd     +++|*
05567  M00S04003.1xd     +++|*         ENTRY  (A) = COMMAND BLOCK LENGTH.
05568  M00S04004.1xd     +++|*                (DI) = DEVICE STATE TABLE ADDRESS.
Line S04005 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05569  M01S04005.1xd5    ---|*                (TO) = TIMEOUT VALUE FOR *FTT*.
Line S00597 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05570  M01S00597.1xd5    +++|*                (TO) = TIMEOUT VALUE.
05571  M00S04006.1xd     +++|*
05572  M00S04007.1xd     +++|*         ERROR  TO *ERR*.
05573  M00S04008.1xd     +++|*
05574  M00S04009.1xd     +++|*         USES   T1.
05575  M00S04010.1xd     +++|*
05576  M00S04011.1xd     +++|*         CALLS  BCS, DCM, FCN, GSS, SCM, STO.
05577  M00S04012.1xd     +++|
05578  M00S04013.1xd     +++|
05579  M00S04014.1xd     +++| WCB3     LDN    0           GET STATUS
05580  M00S04015.1xd     +++|          RJM    GSS
05581  M00S04016.1xd     +++|          RJM    DCM         DESELECT CONTROL MODULE
05582  M00S04017.1xd     +++|          LDD    TO
05583  M00S04018.1xd     +++|          RJM    STO         SET TIMEOUT
05584  M00S04019.1xd     +++|
05585  M00S04020.1xd     +++| WCB      SUBR               ENTRY/EXIT
05586  M00S04021.1xd     +++|          STM    CPBF+PLN
05587  M00S04022.1xd     +++|          LDD    DI          SET COMMAND REFERENCE NUMBER
05588  M00S04023.1xd     +++|          STM    CPBF+CRN
05589  M00S04024.1xd     +++|          RJM    SCM         SELECT CONTROL MODULE
05590  M00S04025.1xd     +++|          LDN    CIOT
05591  M00S04026.1xd     +++|          RJM    BCS         INITIATE BUS EXCHANGE (COMMAND OUT)
05592  M00S04027.1xd     +++|          LDML   CPBF+OPC
Line S04028 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05593  M01S04028.272l774 ---|          STML   LCMD        SAVE LAST COMMAND
Line S00167 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05594  M01S00167.272l774 +++|          STML   LCMD,DI     SAVE LAST COMMAND
05595  M00S04029.1xd     +++|          LDC    F0381
05596  M00S04030.1xd     +++|          RJM    FCN         WRITE STREAMING
05597  M00S04031.1xd     +++|          ACN    CH
05598  M00S04032.1xd     +++|          LDM    CPBF+PLN    CONVERT OCTET COUNT TO BYTE COUNT
05599  M00S04033.1xd     +++|          ADN    3
05600  M00S04034.1xd     +++|          SHN    -1          TRANSFER COMMAND PACKET
05601  M00S04035.1xd     +++|          OAM    CPBF,CH
05602  M00S04036.1xd     +++|          STD    T1          SAVE RESIDUAL BYTE COUNT
05603  M00S04037.1xd     +++|          LDC    50000D
05604  M00S04038.1xd     +++| WCB2     IJM    WCB3,CH     IF SLAVE IN
05605  M00S04039.1xd     +++|          SBN    1
05606  M00S04040.1xd     +++|          NJN    WCB2        IF NOT TIMED OUT
05607  M00S04041.1xd     +++|          LDN    ECNR
05608  M00S04042.1xd     +++|          RJM    ERR         PROCESS ERROR
05609  M00S04043.1xd     +++| WTR      SPACE  4,10
05610  M00S04044.1xd     +++|**        WTR - WRITE *T* PRIME REGISTER.
05611  M00S04045.1xd     +++|*
05612  M00S04046.1xd     +++|*         ENTRY  (CB) = *CBT* ORDINAL.
05613  M00S04047.1xd     +++|*                (RW) = READ / WRITE STATUS.
05614  M00S04048.1xd     +++|*
05615  M00S04049.1xd     +++|*         CALLS  FCN, STO, SLB, SUA, WTC.
05616  M00S04050.1xd     +++|
05617  M00S04051.1xd     +++|
05618  M00S04052.1xd     +++| WTR      SUBR               ENTRY/EXIT
05619  M00S04053.1xd     +++|          LDD    RW
05620  M00S04054.1xd     +++|          ZJN    WTR1        IF READ REQUEST
05621  M00S04055.1xd     +++|          LDD    CB
05622  M00S04056.1xd     +++|          RJM    SLB         SET LINKAGE BITS
05623  M00S04057.1xd     +++| WTR1     LDD    CB
05624  M00S04058.1xd     +++|          RJM    SUA         GET UEM BUFFER ADDRESS
05625  M00S04059.1xd     +++|          LDD    UA+1
05626  M00S04060.1xd     +++|          SHN    11          FORMAT ADDRESS
05627  M00S04061.1xd     +++|          SCN    7
05628  M00S04062.1xd     +++|          STML   WTRA+2      SET ABSOLUTE ADDRESS
05629  M00S04063.1xd     +++|          LDD    UA
05630  M00S04064.1xd     +++|          SHN    14          COMPLETE BUFFER ADDRESS
05631  M00S04065.1xd     +++|          LMD    UA+1
05632  M00S04066.1xd     +++|          SHN    11-20       INSERT IN REGISTER IMAGE
05633  M00S04067.1xd     +++|          STM    WTRA+1
05634  M00S04068.1xd     +++|          LDML   WTRB,RW     ISSUE DMA FUNCTION
05635  M00S04069.1xd     +++|          RJM    FCN
05636  M00S04070.1xd     +++|          LDN    3           SET BLOCK LENGTH
05637  M00S04071.1xd     +++|          ACN    CH
05638  M00S04072.1xd     +++|          OAM    WTRA,CH     OUTPUT BUFFER PARAMETERS
05639  M00S04073.1xd     +++|          RJM    WTC
05640  M00S04074.1xd     +++|          LDN    3           SET REQUEST TIMEOUT
05641  M00S04075.1xd     +++|          RJM    STO
05642  M00S04076.1xd     +++|          UJP    WTRX        RETURN
05643  M00S04077.1xd     +++|
05644  M00S04078.1xd     +++|
05645  M00S04079.1xd     +++| WTRA     BSS    0           *T* REGISTER BUFFER
05646  M00S04080.1xd     +++|          CONL   40000       BYTE LENGTH OF I/O TRANSFER
05647  M00S04081.1xd     +++|          CONL   0,0         UEM ADDRESS OF BUFFER
05648  M00S04082.1xd     +++|
05649  M00S04083.1xd     +++| WTRB     BSS    0           DMA I/O FUNCTIONS
05650  M00S04084.1xd     +++|          CONL   F0C00
05651  M00S04085.1xd     +++|          CONL   F0D00
05652  M00S04086.1xd     +++|          TITLE  MISCELLANEOUS.
Line S04087 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05653  M01S04087.273l780 ---|          SPACE  4,10
Line S04088 Modification History
M01 (Removed by) 1xd5
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05654  M02S04088.273l780 ---|**        COMMON DECKS.
Line S00598 Modification History
M01 (Added by) 1xd5
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05655  M02S00598.273l780 ---|*         DATA.
05656  M02S00599.273l780 ---|
05657  M02S00600.273l780 ---|
05658  M02S00601.273l780 ---| MSG1     DATA   C* "DN" - UNAUTHORIZED CALL.*
05659  M02S00602.273l780 ---|          SPACE  4,10
05660  M02S00603.273l780 ---|          ERRNG  10000-*     CODE DEPENDS ON VALUE
Line S00604 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05661  M01S00604.1xd5    +++|          SPACE  4,10
05662  M01S00605.1xd5    +++|*         COMMON DECKS.
05663  M00S04089.1xd     +++|
05664  M00S04090.1xd     +++|
05665  M00S04091.1xd     +++|*CALL     COMPCHD
05666  M00S04092.1xd     +++|*CALL     COMPC2D
05667  M00S04093.1xd     +++| RND$     EQU    0           DEFINE ROUNDING FOR *COMPDV5*
05668  M00S04094.1xd     +++|*CALL     COMPDV5
Line S00013 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05669  M01S00013.ns2769  +++| M8K$     EQU    1           USE LONG INSTRUCTIONS
05670  M01S00014.ns2769  +++|*CALL     COMPIMB
05671  M00S04095.1xd     +++|          QUAL   SES
05672  M00S04096.1xd     +++| QUAL$    EQU    0           DONT FURTHER QUALIFY *SES*
05673  M00S04097.1xd     +++| T5       EQU    EO
05674  M00S04098.1xd     +++|*CALL     COMPSES
05675  M00S04099.1xd     +++|          QUAL   *
05676  M00S04100.1xd     +++| SES      EQU    /SES/SES
05677  M00S04101.1xd     +++|          SPACE  4,10
Line S04102 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05678  M01S04102.1xd5    ---|**        BUFFERS.
Line S00606 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05679  M01S00606.1xd5    +++|*         BUFFERS.
05680  M00S04103.1xd     +++|
05681  M00S04104.1xd     +++|
05682  M00S04105.1xd     +++| RPBF     BSS    0           RESPONSE PACKET BUFFER
05683  M00S04106.1xd     +++|
05684  M00S04107.1xd     +++| CPBF     EQU    RPBF+1      COMMAND PACKET BUFFER
05685  M00S04108.1xd     +++|
05686  M00S04109.1xd     +++| RBUF     EQU    RPBF+RPBFL  REGISTER BUFFER
05687  M00S04110.1xd     +++| RBUFL    EQU    2*4
05688  M00S04111.1xd     +++|
05689  M00S04112.1xd     +++| SBUF     EQU    RBUF+RBUFL  SCRATCH BUFFER
05690  M00S04113.1xd     +++| SBUFL    EQU    3*5
Line S04114 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05691  M01S04114.1xd5    ---|
Line S00607 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05692  M01S00607.1xd5    +++|          SPACE  4,10
05693  M00S04115.1xd     +++| EDBF     EQU    20000-400-RTEDL  ERROR DATA BUFFER
05694  M00S04116.1xd     +++|          ERRNG  400-EDBFL+RTEDL  CODE DEPENDS ON VALUE
05695  M00S04117.1xd     +++|          ERRPL  SBUF+SBUFL-EDBF  BUFFER OVERLAP
05696  M00S04118.1xd     +++|
05697  M00S04119.1xd     +++| MSGP     EQU    EDBF+EMBF   MESSAGE PREFIX
05698  M00S04120.1xd     +++| MSGL     EQU    MSGP+2      MESSAGE LENGTH
05699  M00S04121.1xd     +++| MSGT     EQU    MSGL+2      MESSAGE TYPE
05700  M00S04122.1xd     +++|
05701  M00S04123.1xd     +++| BMLM     EQU    MSGT+1      BML MESSAGE HEADER
05702  M00S04124.1xd     +++| MSID     EQU    BMLM        MESSAGE ID
05703  M00S04125.1xd     +++| UNIT     EQU    MSID+3      UNIT NUMBER
05704  M00S04126.1xd     +++| PORT     EQU    UNIT+1      PORT NUMBER
05705  M00S04127.1xd     +++| ESTO     EQU    PORT+1      EST ORDINAL
05706  M00S04128.1xd     +++| MISC     EQU    ESTO+1      RETRY COUNT / WRITE + RECOVERY FLAGS
05707  M00S04129.1xd     +++| MFID     EQU    MISC+2      MAINFRAME ID
Line S04130 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05708  M01S04130.1xd5    ---|          TITLE  PRESET ROUTINES.
Line S00608 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00015 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05744  M01S00015.ns2769  +++|          QUAL   COMPIMB
Line S00643 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05745  M01S00643.1xd5    +++| TEMB     HERE
Line S00016 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
05746  M01S00016.ns2769  +++|          QUAL   *
Line S00644 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
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  M00S04131.1xd     +++| CCP      SPACE  4,10
05854  M00S04132.1xd     +++|**        CCP - CHECK CALLING PROGRAM.
05855  M00S04133.1xd     +++|*
05856  M00S04134.1xd     +++|*         EXIT   (A) = 0.
05857  M00S04135.1xd     +++|*
05858  M00S04136.1xd     +++|*         USES   CM - CM+4.
05859  M00S04137.1xd     +++|*
05860  M00S04138.1xd     +++|*         CALLS  DFM.
05861  M00S04139.1xd     +++|*
05862  M00S04140.1xd     +++|*         MACROS MONITOR.
05863  M00S04141.1xd     +++|
05864  M00S04142.1xd     +++|
05865  M00S04143.1xd     +++| CCP      SUBR               ENTRY/EXIT
05866  M00S04144.1xd     +++|          LDK    NCPL
05867  M00S04145.1xd     +++|          CRD    CM          GET NUMBER OF CONTROL POINTS
05868  M00S04146.1xd     +++|          AOD    CM+1
05869  M00S04147.1xd     +++|          SHN    7
05870  M00S04148.1xd     +++|          LMD    CP
05871  M00S04149.1xd     +++|          ZJN    CCPX        IF DRIVER AT SYSTEM CP
Line S04150 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05872  M01S04150.1xd5    ---|          LDC    CCPA
Line S00750 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05873  M01S00750.1xd5    +++|          LDC    MSG1
05874  M00S04151.1xd     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
05875  M00S04152.1xd     +++|          MONITOR  ABTM
05876  M00S04153.1xd     +++|          LJM    PPR         EXIT TO PP RESIDENT
Line S04154 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05877  M01S04154.1xd5    ---|
05878  M01S04155.1xd5    ---|
05879  M01S04156.1xd5    ---| CCPA     DATA   C* "DN" - UNAUTHORIZED CALL.*
05880  M00S04157.1xd     +++| IST      SPACE  4,15
05881  M00S04158.1xd     +++|**        IST - INITIALIZE DEVICE STATE TABLE.
05882  M00S04159.1xd     +++|*
05883  M00S04160.1xd     +++|*         ENTRY  (RC) = NUMBER OF *PUT* ENTRIES.
05884  M00S04161.1xd     +++|*
05885  M00S04162.1xd     +++|*         EXIT   (A) = 0 IF NO DEVICES FOR THIS DRIVER.
Line S00751 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05886  M01S00751.1xd5    +++|*                (DI) = DEVICE INDEX FOR FIRST DEVICE, IF PRESENT.
05887  M01S00752.1xd5    +++|*                DEVICE PARAMETERS SET FOR FIRST DEVICE, IF PRESENT.
05888  M00S04163.1xd     +++|*
Line S04164 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05889  M01S04164.1xd5    ---|*         USES   DI, T5, CM - CM+4, WB - WB+4.
Line S00753 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05890  M01S00753.1xd5    +++|*         USES   DI, TA, T5, CM - CM+4, WB - WB+4.
05891  M00S04165.1xd     +++|*
Line S04166 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05892  M01S04166.1xd5    ---|*         MACROS PUTE, SFA.
Line S00754 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05893  M01S00754.1xd5    +++|*         CALLS  LDP.
05894  M01S00755.1xd5    +++|*
05895  M01S00756.1xd5    +++|*         MACROS SFA.
05896  M00S04167.1xd     +++|
05897  M00S04168.1xd     +++|
05898  M00S04169.1xd     +++| IST7     LDD    DI          DEFINE END OF DEVICES
05899  M00S04170.1xd     +++|          STM    XMDA
05900  M00S04171.1xd     +++|          LMC    DSTB        SET EXIT CONDITION
Line S00757 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
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  M00S04172.1xd     +++|
05907  M00S04173.1xd     +++| IST      SUBR               ENTRY/EXIT
05908  M00S04174.1xd     +++|          LDC    OCMD-1
05909  M00S04175.1xd     +++|          STD    DI
05910  M00S04176.1xd     +++| IST1     LDN    0           CLEAR DEVICE STATE TABLE
05911  M00S04177.1xd     +++|          STI    DI
05912  M00S04178.1xd     +++|          SOD    DI
05913  M00S04179.1xd     +++|          LMC    DSTB
05914  M00S04180.1xd     +++|          NJN    IST1        IF MORE TO CLEAR
05915  M00S04181.1xd     +++|*         LDN    0
05916  M00S04182.1xd     +++|          STD    T5          INITIALIZE *PUT* ORDINAL
05917  M00S04183.1xd     +++| IST2     AOD    T5
05918  M00S04184.1xd     +++|          LMD    RC
05919  M00S04185.1xd     +++|          ZJN    IST7        IF END OF PHYSICAL UNIT TABLE
05920  M00S04186.1xd     +++|          LDD    T5
05921  M00S04187.1xd     +++|          SHN    PUTLS       READ *PUT* ENTRY
Line S04188 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05922  M01S04188.1xd5    ---|          PUTE   *
05923  M01S04189.1xd5    ---|          ADC    UNCT        GET UNIT CONTROL WORD
Line S00762 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05924  M01S00762.1xd5    +++| ISTA     ADC    UNCT+**     GET UNIT CONTROL WORD
05925  M00S04190.1xd     +++|          CRD    WB
05926  M00S04191.1xd     +++|          SFA    EST,WB+1    FETCH EST ENTRY
05927  M00S04192.1xd     +++|          ADK    EQDE
05928  M00S04193.1xd     +++|          CRD    CM
05929  M00S04194.1xd     +++|          LDN    CM          INITIALIZE CHANNEL BYTE ADDRESS
05930  M00S04195.1xd     +++|          STD    CM
05931  M00S04196.1xd     +++| IST3     AOD    CM          ADVANCE PATH DESCRIPTOR ADDRESS
05932  M00S04197.1xd     +++|          LMN    CM+3
05933  M00S04198.1xd     +++|          ZJN    IST2        IF TWO POSSIBLE CHANNELS CHECKED
05934  M00S04199.1xd     +++|          LDI    CM
05935  M00S04200.1xd     +++|          ZJN    IST3        IF NULL ACCESS
05936  M00S04201.1xd     +++|          LMD    IR+4
05937  M00S04202.1xd     +++|          LPN    77
Line S04203 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05938  M01S04203.1xd5    ---| IST4     NJN    IST3        IF NOT THIS DRIVERS CHANNEL
05939  M01S04204.1xd5    ---|
Line S00763 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05940  M01S00763.1xd5    +++|          NJN    IST3        IF NOT THIS DRIVERS CHANNEL
05941  M00S04205.1xd     +++|          LDD    T5          SET *PUT* ORDINAL IN STATE TABLE
05942  M00S04206.1xd     +++|          STI    DI
05943  M00S04207.1xd     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
Line S00764 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05944  M01S00764.1xd5    +++|          LDC    1S14+1S13   SET INTERNAL SPECIAL REQUEST FLAGS
05945  M01S00765.1xd5    +++|          STML   IPPS,DI
05946  M00S04208.1xd     +++|          LDI    CM
Line S04209 Modification History
M01 (Removed by) 1xd1
Seq #  *Modification Id* Act 
----------------------------+
05947  M01S04209.1xd1    ---|          LPC    100         SET PORT NUMBER
Line S00001 Modification History
M01 (Added by) 1xd1
Seq #  *Modification Id* Act 
----------------------------+
05948  M01S00001.1xd1    +++|          LPC    200         SET PORT NUMBER
Line S00002 Modification History
M01 (Added by) 1xd1
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05949  M02S00002.272l774 ---|          SHN    -1
Line S04210 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
05950  M01S04210.272l774 ---|          STM    PNUN
05951  M01S04211.272l774 ---|          LDD    WB          UNPACK UNIT NUMBER
05952  M01S04212.272l774 ---|          LPN    77
05953  M01S04213.272l774 ---|          RAM    PNUN        APPEND TO PORT NUMBER
05954  M01S04214.272l774 ---|          SHN    -3
Line S00168 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
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  M00S04215.1xd     +++|          STD    WB+4        SET *CSTB* INDEX
05962  M00S04216.1xd     +++|          LDM    CSTB,WB+4
05963  M00S04217.1xd     +++|          NJN    IST5        IF CONTROLLER IDENTIFIED
05964  M00S04218.1xd     +++|          LDD    DI
05965  M00S04219.1xd     +++|          LMC    1S14        RESET FLAG + FIRST *PUT* ORDINAL
05966  M00S04220.1xd     +++|          STML   CSTB,WB+4
Line S04221 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05967  M01S04221.1xd5    ---| IST5     LDD    CM+2
05968  M01S04222.1xd5    ---|          ZJN    IST6        IF NOT DUAL ACCESSED DRIVE
05969  M01S04223.1xd5    ---|          LDML   CSTB,WB+4
05970  M01S04224.1xd5    ---|          LPC    47777       CLEAR DUAL ACCESS FLAG
05971  M01S04225.1xd5    ---|          LMC    1S12
05972  M01S04226.1xd5    ---|          STML   CSTB,WB+4   FLAG DUAL ACCESSED DRIVES ON CONTROLLER
05973  M01S04227.1xd5    ---| IST6     LDN    DSTBE
Line S00766 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05974  M01S00766.1xd5    +++| IST5     LDN    DSTBE
05975  M00S04228.1xd     +++|          RAD    DI          ADVANCE STATE TABLE ADDRESS
05976  M00S04229.1xd     +++|          LMC    DSTBL
05977  M00S04230.1xd     +++|          NJP    IST2        IF DEVICE TABLE NOT FULL
05978  M00S04231.1xd     +++|          LJM    IST7        SET INITIAL STATE TABLE ADDRESS
05979  M00S04232.1xd     +++| MCI      SPACE  4,10
05980  M00S04233.1xd     +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
05981  M00S04234.1xd     +++|*
05982  M00S04235.1xd     +++|*         ENTRY  (IR+4) = CONCURRENT CHANNEL NUMBER.
05983  M00S04236.1xd     +++|*
05984  M00S04237.1xd     +++|*         EXIT   (A) = 0.
05985  M00S04238.1xd     +++|*
05986  M00S04239.1xd     +++|*         USES   T1, T2, T3.
05987  M00S04240.1xd     +++|*
05988  M00S04241.1xd     +++|*         CALLS  C2D.
05989  M00S04242.1xd     +++|
05990  M00S04243.1xd     +++|
Line S04244 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05991  M01S04244.1xd5    ---| MCI1     RAIL   T2          MODIFY CHANNEL INSTRUCTION
Line S00767 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
05992  M01S00767.1xd5    +++| MCI1     LDD    T3
05993  M01S00768.1xd5    +++|          SBN    CH
05994  M01S00769.1xd5    +++|          RAIL   T2          MODIFY CHANNEL INSTRUCTION
05995  M00S04245.1xd     +++|          AOD    T1
Line S04246 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05996  M01S04246.273l780 ---| MCI2     LDM    TCHA,T1     EXTRACT NEXT ADDRESS
05997  M01S04247.273l780 ---|          STD    T2
Line S00176 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05998  M01S00176.273l780 +++| MCI2     LDML   TCHA,T1     EXTRACT CHANNEL NUMBER
05999  M01S00177.273l780 +++|          STDL   T2
Line S04248 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06000  M01S04248.1xd5    ---|          LDD    T3          CHECK END OF LIST
06001  M01S04249.1xd5    ---|          CHTL   *
06002  M01S04250.1xd5    ---|          SBN    CH
06003  M00S04251.1xd     +++|          NJN    MCI1        IF MORE INSTRUCTIONS TO MODIFY
06004  M00S04252.1xd     +++|
06005  M00S04253.1xd     +++| MCI      SUBR               ENTRY/EXIT
06006  M00S04254.1xd     +++|          LDD    IR+4
06007  M00S04255.1xd     +++|          LPN    37          EXTRACT CHANNEL NUMBER
06008  M00S04256.1xd     +++|          STD    T3
06009  M00S04257.1xd     +++|          RJM    C2D         CONVERT FOR OPERATOR MESSAGES
06010  M00S04258.1xd     +++|          STM    SRSH+14
06011  M00S04259.1xd     +++|          STM    SRSG+13
06012  M00S04260.1xd     +++|          LDN    0           INITIALIZE REMOTE TABLE INDEX
06013  M00S04261.1xd     +++|          STD    T1
06014  M00S04262.1xd     +++|          UJN    MCI2        ENTER LOOP
Line S04263 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06015  M01S04263.1xd5    ---| TCHA     SPACE  4,10
06016  M01S04264.1xd5    ---|**        TABLE OF CHANNEL INSTRUCTIONS ADDRESSES.
06017  M01S04265.1xd5    ---|
06018  M01S04266.1xd5    ---|
06019  M01S04267.1xd5    ---| TCHA     CHTB
06020  M01S04268.1xd5    ---|          RSTC               RESTORE CHANNEL INSTRUCTIONS
06021  M01S04269.1xd5    ---| TCBT     SPACE  4,10
06022  M01S04270.1xd5    ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *CBT*.
06023  M01S04271.1xd5    ---|
06024  M01S04272.1xd5    ---|
06025  M01S04273.1xd5    ---| TCBT     BSS    0
06026  M01S04274.1xd5    ---| TCBT     HERE
06027  M01S04275.1xd5    ---|          CON    0           TERMINATE TABLE
06028  M01S04276.1xd5    ---| TCCT     SPACE  4,10
06029  M01S04277.1xd5    ---|**        TABLE OF INSTRUCTIONS REQUIRING ADDRESS OF *CCT* ENTRY.
06030  M01S04278.1xd5    ---|
06031  M01S04279.1xd5    ---|
06032  M01S04280.1xd5    ---| TCCT     BSS    0
06033  M01S04281.1xd5    ---| TCCT     HERE
06034  M01S04282.1xd5    ---|          CON    0           TERMINATE TABLE
06035  M01S04283.1xd5    ---| TCHT     SPACE  4,10
06036  M01S04284.1xd5    ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF CHANNEL TABLE.
06037  M01S04285.1xd5    ---|
06038  M01S04286.1xd5    ---|
06039  M01S04287.1xd5    ---| TCHT     BSS    0
06040  M01S04288.1xd5    ---| TCHT     HERE
06041  M01S04289.1xd5    ---|          CON    0           TERMINATE TABLE
06042  M01S04290.1xd5    ---| TEMB     SPACE  4,10
06043  M01S04291.1xd5    ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *EMB*.
06044  M01S04292.1xd5    ---|
06045  M01S04293.1xd5    ---|
06046  M01S04294.1xd5    ---| TEMB     BSS    0
06047  M01S04295.1xd5    ---| TEMB     HERE
06048  M01S04296.1xd5    ---|          CON    0           TERMINATE TABLE
06049  M01S04297.1xd5    ---| TEXP     SPACE  4,10
06050  M01S04298.1xd5    ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF PP EXCHANGE PACKAGE.
06051  M01S04299.1xd5    ---|
06052  M01S04300.1xd5    ---|
06053  M01S04301.1xd5    ---| TEXP     BSS    0
06054  M01S04302.1xd5    ---| TEXP     HERE
06055  M01S04303.1xd5    ---|          CON    0           TERMINATE TABLE
06056  M01S04304.1xd5    ---| TFTT     SPACE  4,10
06057  M01S04305.1xd5    ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *FTT*.
06058  M01S04306.1xd5    ---|
06059  M01S04307.1xd5    ---|
06060  M01S04308.1xd5    ---| TFTT     BSS    0
06061  M01S04309.1xd5    ---| TFTT     HERE
06062  M01S04310.1xd5    ---|          CON    0           TERMINATE TABLE
06063  M01S04311.1xd5    ---| TPUT     SPACE  4,10
06064  M01S04312.1xd5    ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *PUT*.
06065  M01S04313.1xd5    ---|
06066  M01S04314.1xd5    ---|
06067  M01S04315.1xd5    ---| TPUT     BSS    0
06068  M01S04316.1xd5    ---| TPUT     HERE
06069  M01S04317.1xd5    ---|          CON    0           TERMINATE TABLE
06070  M01S04318.1xd5    ---|          SPACE  4,10
06071  M01S04319.1xd5    ---|          ERRPL  *-10000     CODE DEPENDS ON VALUE
06072  M01S04320.1xd5    ---| PRS      SPACE  4,20
06073  M01S04321.1xd5    ---|**        PRS - PRESET DRIVER FOR PROCESSING.
06074  M01S04322.1xd5    ---|*
06075  M01S04323.1xd5    ---|*         EXIT   (UC) = 0.
06076  M01S04324.1xd5    ---|*
06077  M01S04325.1xd5    ---|*         CALLS  CCP, CCR, IST, MCI, MRS, PCT, SPA, STA.
06078  M01S04326.1xd5    ---|
06079  M01S04327.1xd5    ---|
06080  M01S04328.1xd5    ---| PRS      RJM    CCP         CHECK CALLING PROGRAM
06081  M01S04329.1xd5    ---|*         LDN    0
06082  M01S04330.1xd5    ---|          STD    UC          SET NO UNITS RESERVED
06083  M01S04331.1xd5    ---|          LDC    EDBF
06084  M01S04332.1xd5    ---|          ERRPL  ENDD-EDBF   CODE DEPENDS ON VALUE
06085  M01S04333.1xd5    ---|          STDL   T4
06086  M01S04334.1xd5    ---|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
06087  M01S04335.1xd5    ---|*         LDN    0
06088  M01S04336.1xd5    ---|          STD    CR          SET CHANNEL NOT RESERVED
06089  M01S04337.1xd5    ---|
06090  M01S04338.1xd5    ---|*         PRESET BML ERROR MESSAGE BUFFER.
06091  M01S04339.1xd5    ---|
06092  M01S04340.1xd5    ---| PRS1     STI    T4
06093  M01S04341.1xd5    ---|          AODL   T4          ADVANCE BUFFER ADDRESS
06094  M01S04342.1xd5    ---|          SHN    0-15
06095  M01S04343.1xd5    ---|          ZJN    PRS1        IF NOT END OF BUFFER
06096  M01S04344.1xd5    ---|          LDN    MLDY
06097  M01S04345.1xd5    ---|          STM    MSGT
06098  M01S04346.1xd5    ---|          LDC    BMID        ERROR MESSAGE ID
06099  M01S04347.1xd5    ---|          STM    MSID
06100  M01S04348.1xd5    ---|          RJM    SPA         SET PP EXCHANGE PACKAGE ADDRESSES
06101  M01S04349.1xd5    ---|          RJM    SCT         SET CHANNEL TABLE ADDRESSES
06102  M01S04350.1xd5    ---|          LDK    BIOL
06103  M01S04351.1xd5    ---|          CRD    CM          READ BUFFERED I/O POINTERS
06104  M01S04352.1xd5    ---|          LDD    CM+1
06105  M01S04353.1xd5    ---|          SHN    14
06106  M01S04354.1xd5    ---|          LMD    CM+2
06107  M01S04355.1xd5    ---|          ADN    FTTP        READ *FTT* POINTER
06108  M01S04356.1xd5    ---|          CRD    T6
06109  M01S04357.1xd5    ---|          SBN    FTTP-CCTP   READ *CCT* POINTER
06110  M01S04358.1xd5    ---|          CRD    T4
06111  M01S04359.1xd5    ---|          ADN    CBTP-CCTP   READ *CBT* POINTER
06112  M01S04360.1xd5    ---|          CRD    WB
06113  M01S04361.1xd5    ---|          SBN    CBTP-PUTP   READ *PUT* POINTER
06114  M01S04362.1xd5    ---|          CRD    T2
06115  M01S04363.1xd5    ---|          STM    CFRB        SET ADDRESS OF *PUTP*
06116  M01S04364.1xd5    ---|          SHN    -14
06117  M01S04365.1xd5    ---|          RAM    CFRB-1
06118  M01S04366.1xd5    ---|          AOD    T2          SET NUMBER OF *PUT* ENTRIES
06119  M01S04367.1xd5    ---|          STD    RC
06120  M01S04368.1xd5    ---|          LDC    T5*10000+TPUT  SET *PUT* ADDRESSES
06121  M01S04369.1xd5    ---|          RJM    STA
06122  M01S04370.1xd5    ---|          LDD    IR+2        ADJUST CHANNEL CONTROL TABLE POINTER
06123  M01S04371.1xd5    ---|          SHN    CCTLS-6
06124  M01S04372.1xd5    ---|          RAD    CM
06125  M01S04373.1xd5    ---|          SHN    -14
06126  M01S04374.1xd5    ---|          RAD    T7
06127  M01S04375.1xd5    ---|          LDC    T7*10000+TCCT  SET *CCT* ADDRESSES
06128  M01S04376.1xd5    ---|          RJM    STA
06129  M01S04377.1xd5    ---| .CM1     EQU    CM+1
06130  M01S04378.1xd5    ---|          LDC    .CM1*10000+TFTT  SET *FTT* ADDRESSES
06131  M01S04379.1xd5    ---|          RJM    STA
06132  M01S04380.1xd5    ---| .WB3     EQU    WB+3
06133  M01S04381.1xd5    ---|          LDC    .WB3*10000+TCBT  SET *CBT* ADDRESSES
06134  M01S04382.1xd5    ---|          RJM    STA
06135  M01S04383.1xd5    ---|          LDN    EMBP        FETCH *EMB* POINTER
06136  M01S04384.1xd5    ---|          CRD    CM
06137  M01S04385.1xd5    ---|          LDC    .CM1*10000+TEMB  SET *EMB* ADDRESSES
06138  M01S04386.1xd5    ---|          RJM    STA
06139  M01S04387.1xd5    ---|          LDK    UEML
06140  M01S04388.1xd5    ---|          CRD    CM          READ UEM POINTERS
06141  M01S04389.1xd5    ---|          LDD    CM
06142  M01S04390.1xd5    ---| PRSA     SHN    11
06143  M01S04391.1xd5    ---|*         SHN    11+EMSC
06144  M01S04392.1xd5    ---|          SCN    77
06145  M01S04393.1xd5    ---|          STM    SUAA        SET FWA OF UEM
06146  M01S04394.1xd5    ---|          LDD    CM
06147  M01S04395.1xd5    ---| PRSB     SHN    -3
06148  M01S04396.1xd5    ---|*         SHN    EMSC-3
06149  M01S04397.1xd5    ---|          STM    SUAB
06150  M01S04398.1xd5    ---|          LDK    MMFL        FETCH MACHINE ID
06151  M01S04399.1xd5    ---|          CRD    CM
06152  M01S04400.1xd5    ---|          LDD    CM          SET MAINFRAME ID FOR BML MESSAGES
06153  M01S04401.1xd5    ---|          STM    MFID
06154  M01S04402.1xd5    ---|          RJM    IST         INITIALIZE DEVICE STATE TABLE
06155  M01S04403.1xd5    ---|          ZJN    PRS4        IF NO DEVICES FOR THIS DRIVER
06156  M01S04404.1xd5    ---|          LJM    CCR2        RESERVE CHANNEL
06157  M01S04405.1xd5    ---|
06158  M01S04406.1xd5    ---| PRS3     NJP    MRS+1       IF CHANNEL NOT DOWN
06159  M01S04407.1xd5    ---| PRS4     LJM    XMD8        DROP CPP
06160  M00S04408.1xd     +++| MRS      SPACE  4,10
06161  M00S04409.1xd     +++|**        MRS - MASTER RESET SLAVES.
06162  M00S04410.1xd     +++|*
Line S00770 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06163  M01S00770.1xd5    +++|*         EXIT   TO *XMD4*.
06164  M01S00771.1xd5    +++|*
06165  M00S04411.1xd     +++|*         USES   T1.
06166  M00S04412.1xd     +++|*
06167  M00S04413.1xd     +++|*         CALLS  FCN, RCR.
06168  M00S04414.1xd     +++|*
06169  M00S04415.1xd     +++|*         MACROS WAIT.
06170  M00S04416.1xd     +++|
06171  M00S04417.1xd     +++|
Line S04418 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06172  M01S04418.1xd5    ---| MRS1     SHN    13-0        POSITION PORT NUMBER
Line S00772 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06173  M01S00772.1xd5    +++| MRS      BSS    0           ENTRY
06174  M01S00773.1xd5    +++|          RJM    RCR         MASTER CLEAR CHANNEL
06175  M01S00774.1xd5    +++|          LDN    1
06176  M01S00775.1xd5    +++|          STD    T1
06177  M01S00776.1xd5    +++|          SHN    13-0        POSITION PORT NUMBER
06178  M00S04419.1xd     +++| MRS2     LMC    F0062
06179  M00S04420.1xd     +++|          RJM    FCN         SELECT ADAPTOR PORT
06180  M00S04421.1xd     +++|          LDC    F9213
06181  M00S04422.1xd     +++|          RJM    FCN         ISSUE MASTER RESET
06182  M00S04423.1xd     +++|          WAIT   10
06183  M00S04424.1xd     +++|          LDDL   LF          LAST FUNCTION
06184  M00S04425.1xd     +++|          SCN    2
06185  M00S04426.1xd     +++|          RJM    FCN         CLEAR SYNC OUT
06186  M00S04427.1xd     +++|          SOD    T1
06187  M00S04428.1xd     +++|          ZJN    MRS2        IF ANOTHER PORT TO PROCESS
Line S04429 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06188  M01S04429.1xd5    ---|
06189  M01S04430.1xd5    ---| MRS      SUBR   XMD4        ENTRY/EXIT
06190  M01S04431.1xd5    ---|          RJM    RCR         MASTER CLEAR CHANNEL
06191  M01S04432.1xd5    ---|          LDN    1
06192  M01S04433.1xd5    ---|          STD    T1
06193  M01S04434.1xd5    ---|          UJN    MRS1        PROCESS MASTER CLEAR
Line S00777 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06194  M01S00777.1xd5    +++|          LJM    XMD4        ENTER MAIN LOOP
06195  M00S04435.1xd     +++| SCT      SPACE  4,10
06196  M00S04436.1xd     +++|**        SCT - SET CHANNEL TABLE ENTRY ADDRESSES.
06197  M00S04437.1xd     +++|*
06198  M00S04438.1xd     +++|*         ENTRY  (IR+4) = CHANNEL NUMBER.
06199  M00S04439.1xd     +++|*
06200  M00S04440.1xd     +++|*         USES   T1, T2, CM - CM+4.
06201  M00S04441.1xd     +++|*
06202  M00S04442.1xd     +++|*         CALLS  C2D, STA.
06203  M00S04443.1xd     +++|
06204  M00S04444.1xd     +++|
06205  M00S04445.1xd     +++| SCT      SUBR               ENTRY/EXIT
06206  M00S04446.1xd     +++|          LDD    IR+4
06207  M00S04447.1xd     +++|          STD    T1          SET CHANNEL NUMBER
06208  M00S04448.1xd     +++|          STM    RCSA+3
06209  M00S04449.1xd     +++|          RAM    BMLM+2
06210  M00S04450.1xd     +++|          RJM    C2D         CONVERT FOR ERROR MESSAGE
06211  M00S04451.1xd     +++|          STM    LDAA+6
06212  M00S04452.1xd     +++|          LCN    0           WORD OFFSET
06213  M00S04453.1xd     +++|          STD    T2
06214  M00S04454.1xd     +++| SCT1     AOD    T2          INCREMENT WORD OFFSET
06215  M00S04455.1xd     +++|          LCN    5
06216  M00S04456.1xd     +++|          RAD    T1
06217  M00S04457.1xd     +++|          PJN    SCT1        IF CHANNEL NOT IN THIS WORD
06218  M00S04458.1xd     +++|          ADN    5
06219  M00S04459.1xd     +++|          STD    T1
06220  M00S04460.1xd     +++|          RAM    RCTA        SET BYTE OFFSET
06221  M00S04461.1xd     +++|          LDD    T1
06222  M00S04462.1xd     +++|          SHN    1           BYTE OFFSET * 2
06223  M00S04463.1xd     +++|          ADD    T1          BYTE OFFSET * 3
06224  M00S04464.1xd     +++|          SHN    2           BYTE OFFSET * 12
06225  M00S04465.1xd     +++|          SBN    59D         (BYTE OFFSET * 12) - 59
06226  M00S04466.1xd     +++|          LMC    -0          59 - (BYTE OFFSET * 12)
06227  M00S04467.1xd     +++|          SBN    2
06228  M00S04468.1xd     +++|          SHN    6
06229  M00S04469.1xd     +++|          STM    SRFA+1      SET DRIVER FLAG BIT POSITION
06230  M00S04470.1xd     +++|          LDK    CHTP
06231  M00S04471.1xd     +++|          CRD    CM
06232  M00S04472.1xd     +++|          LDD    T2          SET ADDRESS OF WORD IN CHANNEL TABLE
06233  M00S04473.1xd     +++|          RAD    CM+3
06234  M00S04474.1xd     +++|          SHN    -14
06235  M00S04475.1xd     +++|          RAD    CM+2
06236  M00S04476.1xd     +++| .CM2     EQU    CM+2
Line S04477 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06237  M01S04477.1xd5    ---|          LDC    .CM2*10000+TCHT  SET CHANNEL TABLE ADDRESSES
Line S00778 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06238  M01S00778.1xd5    +++|          LDC    .CM2*20000+TCHT  SET CHANNEL TABLE ADDRESSES
06239  M00S04478.1xd     +++|          RJM    STA
06240  M00S04479.1xd     +++|          LJM    SCTX        RETURN
06241  M00S04480.1xd     +++| SPA      SPACE  4,10
06242  M00S04481.1xd     +++|**        SPA - SET PP EXCHANGE PACKAGE ADDRESSES.
06243  M00S04482.1xd     +++|*
06244  M00S04483.1xd     +++|*         USES   T1 - T5, CM - CM+4.
06245  M00S04484.1xd     +++|*
06246  M00S04485.1xd     +++|*         CALLS  STA.
06247  M00S04486.1xd     +++|
06248  M00S04487.1xd     +++|
06249  M00S04488.1xd     +++| SPA      SUBR               ENTRY/EXIT
06250  M00S04489.1xd     +++|          LDN    PXPP
06251  M00S04490.1xd     +++|          CRD    CM          FETCH FWA OF PP EXCHANGE PACKAGE AREA
06252  M00S04491.1xd     +++|          ADN    1
06253  M00S04492.1xd     +++|          CRM    AMEA,ON     SET FIRST WORD OF PP EXCHANGE PACKAGE
06254  M00S04493.1xd     +++|          ADN    PPCP-PXPP-2
06255  M00S04494.1xd     +++|          CRD    T1          READ PP COMMUNICATION AREA POINTER
06256  M00S04495.1xd     +++|          LDD    IA
06257  M00S04496.1xd     +++|          STM    AMEA+4      SET (B0) NON-ZERO FOR EXCHANGE TEST
06258  M00S04497.1xd     +++|          SBD    T1+4
06259  M00S04498.1xd     +++|          SHN    -3          (A) = CPP NUMBER
06260  M00S04499.1xd     +++|          SBN    24
06261  M00S04500.1xd     +++|          SHN    6
06262  M00S04501.1xd     +++|          STM    BMLM+2      INSERT CPP NUMBER IN BML MESSAGE
06263  M00S04502.1xd     +++|          SHN    -6
06264  M00S04503.1xd     +++|          ADN    24-2
06265  M00S04504.1xd     +++|          STD    T1          CPP NUMBER - 2
06266  M00S04505.1xd     +++|          SHN    4
06267  M00S04506.1xd     +++|          ADD    T1          (CPP NUMBER - 2) * 21B
06268  M00S04507.1xd     +++|          RAD    CM+4
06269  M00S04508.1xd     +++|          SHN    -14
06270  M00S04509.1xd     +++|          RAD    CM+3
06271  M00S04510.1xd     +++| .CM3     EQU    CM+3
Line S04511 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06272  M01S04511.1xd5    ---|          LDC    .CM3*10000+TEXP  SET EXCHANGE PACKAGE ADDRESSES
Line S00779 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06273  M01S00779.1xd5    +++|          LDC    .CM3*20000+TEXP  SET EXCHANGE PACKAGE ADDRESSES
06274  M00S04512.1xd     +++|          RJM    STA
06275  M00S04513.1xd     +++|          LJM    SPAX        RETURN
06276  M00S04514.1xd     +++| STA      SPACE  4,10
Line S04515 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
06277  M01S04515.ns2769  ---|**        STA - SET BUFFERED DEVICE TABLE ADDRESSES.
Line S00017 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
06278  M01S00017.ns2769  +++|**        STA - SET TABLE ADDRESSES.
06279  M00S04516.1xd     +++|*
Line S04517 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06280  M01S04517.1xd5    ---|*         ENTRY  (A) = 6/ TP, 12/ TA
Line S00780 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06281  M01S00780.1xd5    +++|*         ENTRY  (A) = 5/ TP, 13/ TA
Line S04518 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
06282  M01S04518.ns2769  ---|*                      TP = BUFFERED DEVICE TABLE POINTER.
Line S00018 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
06283  M01S00018.ns2769  +++|*                      TP = TABLE POINTER.
06284  M00S04519.1xd     +++|*                      TA = INSTRUCTION TABLE ADDRESS.
06285  M00S04520.1xd     +++|*
06286  M00S04521.1xd     +++|*         EXIT   (A) = 0.
06287  M00S04522.1xd     +++|*
06288  M00S04523.1xd     +++|*         USES   T1, T2, T3.
06289  M00S04524.1xd     +++|
06290  M00S04525.1xd     +++|
Line S04526 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
06291  M01S04526.273l780 ---| STA1     STD    T2          SET INSTRUCTION ADDRESS
Line S00178 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
06292  M01S00178.273l780 +++| STA1     STDL   T2          SET INSTRUCTION ADDRESS
06293  M00S04527.1xd     +++|          LDM    1,T1
06294  M00S04528.1xd     +++|          RAM    1,T2        SET LOWER 12 BITS OF ADDRESS
06295  M00S04529.1xd     +++|          SHN    -14
06296  M00S04530.1xd     +++|          ADI    T1          SET UPPER 6 BITS OF ADDRESS
06297  M00S04531.1xd     +++|          LPN    37
06298  M00S04532.1xd     +++|          RAI    T2
Line S04533 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06299  M01S04533.1xd5    ---|          AOD    T3          ADVANCE INSTRUCTION LIST
Line S00781 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06300  M01S00781.1xd5    +++|          AODL   T3          ADVANCE INSTRUCTION LIST
Line S04534 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
06301  M01S04534.273l780 ---| STA2     LDI    T3
Line S00179 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
06302  M01S00179.273l780 +++| STA2     LDIL   T3
06303  M00S04535.1xd     +++|          NJN    STA1        IF NOT END OF TABLE
06304  M00S04536.1xd     +++|
06305  M00S04537.1xd     +++| STA      SUBR               ENTRY/EXIT
Line S04538 Modification History
M01 (Removed by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06306  M01S04538.1xd5    ---|          STD    T3
06307  M01S04539.1xd5    ---|          SHN    -14         SET ADDRESS POINTER
Line S00782 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06308  M01S00782.1xd5    +++|          STDL   T3
06309  M01S00783.1xd5    +++|          SHN    -15         SET POINTER ADDRESS
06310  M00S04540.1xd     +++|          STD    T1
Line S00784 Modification History
M01 (Added by) 1xd5
Seq #  *Modification Id* Act 
----------------------------+
06311  M01S00784.1xd5    +++|          LDDL   T3          SET INSTRUCTION TABLE ADDRESS
06312  M01S00785.1xd5    +++|          LPC    17777
06313  M01S00786.1xd5    +++|          STDL   T3
06314  M00S04541.1xd     +++|          UJN    STA2        ENTER LOOP
06315  M00S04542.1xd     +++|
06316  M00S04543.1xd     +++|
06317  M00S04544.1xd     +++| ENDD     BSS    0           END OF DRIVER
06318  M00S04545.1xd     +++|          OVERFLOW  OCMD,20000
06319  M00S04546.1xd     +++|
06320  M00S04547.1xd     +++|          END