User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:set.009

Deck SET Part 009

79 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S10321 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15434  M01S10321.283l840 ---|          STM    ICMB+4
Line S00811 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15435  M01S00811.283l840 +++|          STM    ICTB+4
15436  M00S10322.set     +++|          LDD    CM          STORE SYSTEM EJT ENTRY
15437  M00S10323.set     +++|          SHN    14
15438  M00S10324.set     +++|          LMD    CM+1
Line S10325 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15439  M01S10325.283l840 ---|          CWM    ICMB,ON
Line S00812 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15440  M01S00812.283l840 +++|          CWM    ICTB,ON
15441  M00S10326.set     +++|          ADN    SCLE-JSNE-1
Line S10327 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15442  M01S10327.283l840 ---|          CWM    ICMC,ON
Line S00813 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15443  M01S00813.283l840 +++|          CWM    ICTC,ON
15444  M00S10328.set     +++|          UJN    EJTX        RETURN
15445  M00S10329.set     +++| EMB      SPACE  4,10
15446  M00S10330.set     +++|**        EMB - DEFINE ERROR MESSAGE BUFFER.
15447  M00S10331.set     +++|*
15448  M00S10332.set     +++|*         CALLS  CLS, SPW.
15449  M00S10333.set     +++|
15450  M00S10334.set     +++|
15451  M00S10335.set     +++| EMB      SUBR               ENTRY/EXIT
15452  M00S10336.set     +++|          LDC    1S12+EMBP
15453  M00S10337.set     +++|          RJM    SPW
Line S00025 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
15454  M01S00025.ns2769  +++|          LDM    .EMB+MTBL   CLEAR BUFFER
15455  M01S00026.ns2769  +++|          RJM    CLS
15456  M00S10338.set     +++|          LDN    ZERL        SET UP INTERLOCK WORD
15457  M00S10339.set     +++|          CRD    AB
Line S00027 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
15458  M01S00027.ns2769  +++|          CRD    CN
15459  M00S10340.set     +++|          AOD    AB
Line S10341 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
15460  M01S10341.ns2769  ---|          LDC    EMBLL       CLEAR BUFFER
15461  M01S10342.ns2769  ---|          RJM    CLS
Line S00028 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
15462  M01S00028.ns2769  +++|          LDM    .EMB+MTBL   ESTABLISH *LIMIT*
15463  M01S00029.ns2769  +++|          SBN    2           ALLOW FOR HEADER
15464  M01S00030.ns2769  +++|          STD    CN+4
Line S10343 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
15465  M01S10343.ns2769  ---|          LDD    CM+1        STORE BUFFER INTERLOCK WORD
Line S00031 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
15466  M01S00031.ns2769  +++|          LDD    CM+1        STORE BUFFER INTERLOCK/*IN* WORD
15467  M00S10344.set     +++|          SHN    14
15468  M00S10345.set     +++|          LMD    CM+2
15469  M00S10346.set     +++|          CWD    AB
Line S00032 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
15470  M01S00032.ns2769  +++|          ADN    1           STORE BUFFER *OUT*/*LIMIT* WORD
15471  M01S00033.ns2769  +++|          CWD    CN
15472  M00S10347.set     +++|          UJN    EMBX        RETURN
15473  M00S10348.set     +++| EST      SPACE  4,10
15474  M00S10349.set     +++|**        EST - DEFINE EQUIPMENT STATUS TABLE.
15475  M00S10350.set     +++|*
15476  M00S10351.set     +++|*         EXIT   (KI) = NUMBER OF 819 DEVICES.
15477  M00S10352.set     +++|*
15478  M00S10353.set     +++|*         USES   T1, T2, T5, AB+1 - AB+2, CM - CM+4.
15479  M00S10354.set     +++|*
15480  M00S10355.set     +++|*         CALLS  CKB, PBD, SPW, STA.
15481  M00S10356.set     +++|*
15482  M00S10357.set     +++|*         MACROS CFI, SFA.
15483  M00S10358.set     +++|
15484  M00S10359.set     +++|
15485  M00S10360.set     +++| EST1     RJM    STA         FETCH EST ENTRY
Line S10361 Modification History
M01 (Removed by) set58
Seq #  *Modification Id* Act 
----------------------------+
15486  M01S10361.set58   ---|          ZJN    EST2.1      IF NOT MASS STORAGE
15487  M01S10362.set58   ---|          LDI    ES
15488  M01S10363.set58   ---|          SHN    21-7
15489  M01S10364.set58   ---|          PJN    EST2        IF NOT *LDAM* DEVICE
15490  M01S10365.set58   ---|          LPN    2
15491  M01S10366.set58   ---|          LMC    SCNI+77     SET DRIVER INSTRUCTION
15492  M01S10367.set58   ---|          STM    EBUT+5+2
Line S00001 Modification History
M01 (Added by) set58
Seq #  *Modification Id* Act 
----------------------------+
15493  M01S00001.set58   +++|          ZJN    EST5        IF NOT MASS STORAGE
15494  M00S10368.set     +++|
15495  M00S10369.set     +++|*         SET HALF/FULL TRACK FLAGS.
15496  M00S10370.set     +++|
15497  M00S10371.set     +++|          LDN    AB+1
15498  M00S10372.set     +++|          STD    T1
Line S10373 Modification History
M01 (Removed by) set58
Seq #  *Modification Id* Act 
----------------------------+
15499  M01S10373.set58   ---| EST1.1   LDM    EBUT-AB,T1
15500  M01S10374.set58   ---|          STI    T1
15501  M01S10375.set58   ---|          ZJN    EST2        IF CHANNEL NOT PRESENT
Line S00002 Modification History
M01 (Added by) set58
Seq #  *Modification Id* Act 
----------------------------+
15502  M01S00002.set58   +++| EST2     LDM    EBUT-AB,T1  EXTRACT CHANNEL
15503  M01S00003.set58   +++|          STI    T1
15504  M01S00004.set58   +++|          ZJN    EST4        IF SINGLE ACCESS DEVICE
15505  M00S10376.set     +++|          LPN    77
15506  M00S10377.set     +++|          STD    CM
Line S00005 Modification History
M01 (Added by) set58
Seq #  *Modification Id* Act 
----------------------------+
15507  M01S00005.set58   +++|          LDI    ES          CHECK DEVICE TYPE
15508  M01S00006.set58   +++|          SHN    21-7
15509  M01S00007.set58   +++|          PJN    EST3        IF NOT *LDAM* DEVICE
15510  M01S00008.set58   +++|          LPN    2
15511  M01S00009.set58   +++|          LMC    SCNI+77     SET DRIVER INSTRUCTION
15512  M01S00010.set58   +++|          STM    EBUT+5+2
15513  M00S10378.set     +++|          LDM    TCHS,CM
15514  M00S10379.set     +++|          SBN    CLFT
15515  M00S10380.set     +++|          SHN    -21
15516  M00S10381.set     +++|          SHN    10-0
15517  M00S10382.set     +++|          RAM    EBUT-AB,T1
Line S10383 Modification History
M01 (Removed by) set58
Seq #  *Modification Id* Act 
----------------------------+
15518  M01S10383.set58   ---|          AOD    T1
15519  M01S10384.set58   ---|          LMN    AB+3
15520  M01S10385.set58   ---|          NJN    EST1.1      IF ANOTHER CHANNEL TO PROCESS
15521  M01S10386.set58   ---| EST2     LDM    TDDB+DVED   CHECK EQUIPMENT DESCRIPTION
15522  M01S10387.set58   ---|          SHN    21-12
15523  M01S10388.set58   ---| EST2.1   PJN    EST3        IF NOT BUFFERED DEVICE
15524  M01S10389.set58   ---|          RJM    PBD         PROCESS BUFFERED DEVICE
15525  M01S10390.set58   ---| EST3     SFA    EST,T5
15526  M01S10391.set58   ---|          CWM    EBUT,T2     STORE EST ENTRY
15527  M01S10392.set58   ---| EST4     SOD    T5
15528  M01S10393.set58   ---|          PJP    EST1        IF NOT END OF EST
Line S00011 Modification History
M01 (Added by) set58
Seq #  *Modification Id* Act 
----------------------------+
15529  M01S00011.set58   +++| EST3     AOD    T1          ADVANCE CHANNEL BYTE INDEX
15530  M01S00012.set58   +++|          LMN    AB+3
15531  M01S00013.set58   +++|          NJN    EST2        IF ANOTHER CHANNEL TO PROCESS
15532  M01S00014.set58   +++| EST4     LDM    TDDB+DVED
15533  M01S00015.set58   +++|          SHN    21-12
15534  M01S00016.set58   +++| EST5     PJN    EST6        IF NOT BUFFERED DEVICE
15535  M01S00017.set58   +++|          RJM    PBD         PROCESS BUFFERED DEVICE
15536  M01S00018.set58   +++| EST6     SFA    EST,T5
15537  M01S00019.set58   +++|          CWM    EBUT,T2     STORE EST ENTRY
15538  M01S00020.set58   +++| EST7     SOD    T5
15539  M01S00021.set58   +++|          PJP    EST1        IF NOT END OF EST
15540  M01S00022.set58   +++|
15541  M00S10394.set     +++|*         SET UP CHANNEL TABLE POINTER WORD.
15542  M00S10395.set     +++|
Line S10396 Modification History
M01 (Removed by) set58
Seq #  *Modification Id* Act 
----------------------------+
15543  M01S10396.set58   ---| EST5     LDN    CTALL*5
15544  M01S10397.set58   ---|          STD    T5
15545  M01S10398.set58   ---| EST6     LDM    KBUF,T5
15546  M01S10399.set58   ---|          ZJN    EST7        IF NOT BUFFERED DEVICE
Line S00023 Modification History
M01 (Added by) set58
Seq #  *Modification Id* Act 
----------------------------+
15547  M01S00023.set58   +++|          LDN    CTALL*5     INITIALIZE CHANNEL LIST INDEX
15548  M01S00024.set58   +++|          STD    T5
15549  M01S00025.set58   +++| EST8     LDM    KBUF,T5
15550  M01S00026.set58   +++|          ZJN    EST9        IF NOT BUFFERED DEVICE
15551  M00S10400.set     +++|          AOM    .CCTP
15552  M00S10401.set     +++|          SHN    2           COUNT USAGE
15553  M00S10402.set     +++|          STM    .CCTP+2
15554  M00S10403.set     +++|          ERRNZ  CCTL-4      CODE DEPENDS ON VALUE
Line S10404 Modification History
M01 (Removed by) set58
Seq #  *Modification Id* Act 
----------------------------+
15555  M01S10404.set58   ---| EST7     SOD    T5
15556  M01S10405.set58   ---|          PJN    EST6        IF MORE CHANNELS TO SCAN
Line S00027 Modification History
M01 (Added by) set58
Seq #  *Modification Id* Act 
----------------------------+
15557  M01S00027.set58   +++| EST9     SOD    T5
15558  M01S00028.set58   +++|          PJN    EST8        IF MORE CHANNELS TO SCAN
Line S00001 Modification History
M01 (Added by) set65
Seq #  *Modification Id* Act 
----------------------------+
15559  M01S00001.set65   +++|          LDD    HO          CHECK MAINFRAME TYPE
15560  M01S00002.set65   +++|          SHN    -11
15561  M01S00003.set65   +++|          SBN    7
15562  M01S00004.set65   +++|          NJN    ESTX        IF NOT CYBER 176
15563  M01S00005.set65   +++|
15564  M01S00006.set65   +++|*         SET UP CHANNEL TABLE POINTER FOR CYBER 176/819.
15565  M01S00007.set65   +++|
15566  M01S00008.set65   +++|          LDN    4           SET NUMBER OF ENTRIES
15567  M01S00009.set65   +++|          STM    .CCTP
15568  M01S00010.set65   +++|          SHN    CCTLS       SET TABLE LENGTH
15569  M01S00011.set65   +++|          STM    .CCTP+2
15570  M00S10406.set     +++|
15571  M00S10407.set     +++| EST      SUBR               ENTRY/EXIT
15572  M00S10408.set     +++|          LDN    ESTP
15573  M00S10409.set     +++|          RJM    SPW
15574  M00S10410.set     +++|          LDD    LE          SET LAST EQUIPMENT + 1
15575  M00S10411.set     +++|          STD    CM+2
15576  M00S10412.set     +++|          STD    T5
15577  M00S10413.set     +++|          CFI    EST,,LE     ADVANCE CENTRAL ADDRESS
15578  M00S10414.set     +++|          RAD    CA+1
15579  M00S10415.set     +++|          SHN    -14
15580  M00S10416.set     +++|          RAD    CA
15581  M00S10417.set     +++|          RJM    CKB
15582  M00S10418.set     +++|          LDN    ESTP        STORE EST POINTER
15583  M00S10419.set     +++|          CWD    CM
15584  M00S10420.set     +++|          LDN    ESTE        SET EST ENTRY LENGTH
15585  M00S10421.set     +++|          STD    T2
Line S10422 Modification History
M01 (Removed by) set58
Seq #  *Modification Id* Act 
----------------------------+
15586  M01S10422.set58   ---|          LJM    EST4        PROCESS EST
Line S00029 Modification History
M01 (Added by) set58
Seq #  *Modification Id* Act 
----------------------------+
15587  M01S00029.set58   +++|          LJM    EST7        PROCESS EST
15588  M00S10423.set     +++| EVT      SPACE  4,10
15589  M00S10424.set     +++|**        EVT - DEFINE EVENT TABLE.
15590  M00S10425.set     +++|*
15591  M00S10426.set     +++|*         CALLS  CLS, SPW.
15592  M00S10427.set     +++|
15593  M00S10428.set     +++|
15594  M00S10429.set     +++| EVT      SUBR               ENTRY/EXIT
15595  M00S10430.set     +++|          LDC    EVTP
15596  M00S10431.set     +++|          RJM    SPW
15597  M00S10432.set     +++|          LDN    EVTLL       CLEAR TABLE
15598  M00S10433.set     +++|          RJM    CLS
15599  M00S10434.set     +++|          UJN    EVTX        RETURN
15600  M00S10435.set     +++| EXM      SPACE  4,10
15601  M00S10436.set     +++|**        EXM - DEFINE EXTENDED MEMORY BUFFERS.
15602  M00S10437.set     +++|*
15603  M00S10438.set     +++|*         ENTRY  (EN) = EXTENDED MEMORY CPU ACCESS EST ORDINAL.
15604  M00S10439.set     +++|*
15605  M00S10440.set     +++|*         USES   T3, AB - AB+4, CN - CN+4.
15606  M00S10441.set     +++|*
15607  M00S10442.set     +++|*         CALLS  CLS, SPW.
15608  M00S10443.set     +++|*
15609  M00S10444.set     +++|*         MACROS SFA.
15610  M00S10445.set     +++|
15611  M00S10446.set     +++|
15612  M00S10447.set     +++| EXM      SUBR               ENTRY/EXIT
15613  M00S10448.set     +++|          LDK    UEML
15614  M00S10449.set     +++|          CRD    AB
15615  M00S10450.set     +++|          LDD    AB+4
15616  M00S10451.set     +++|          LPN    2
15617  M00S10452.set     +++|          ADD    EN
15618  M00S10453.set     +++|          ADD    LD
15619  M00S10454.set     +++|          LPC    777
15620  M00S10455.set     +++|          ZJN    EXMX        IF NO EXTENDED MEMORY DEFINED
15621  M00S10456.set     +++|          LDC    EDBP
15622  M00S10457.set     +++|          RJM    SPW
15623  M00S10458.set     +++|          LDN    EDBL        CLEAR DISPLAY BUFFER
15624  M00S10459.set     +++|          RJM    CLS
15625  M00S10460.set     +++|          LDD    EN
15626  M00S10461.set     +++|          ZJN    EXMX        IF NO EXTENDED MEMORY EQUIPMENT
15627  M00S10462.set     +++|          SFA    EST,,EN
15628  M00S10463.set     +++|          CRD    CN
15629  M00S10464.set     +++|          LDM    TAXM+3
15630  M00S10465.set     +++|          ZJN    EXM1        IF NO SPACE RESERVED FOR I/O BUFFERS
15631  M00S10466.set     +++|          LDM    .PPU
15632  M00S10467.set     +++|          SBN    2
15633  M00S10468.set     +++|          SHN    -1
15634  M00S10469.set     +++| EXM1     STD    T3
15635  M00S10470.set     +++|          SHN    -1
15636  M00S10471.set     +++|          RAD    T3
15637  M00S10472.set     +++|          LDD    CN+3        CHECK EXTENDED MEMORY ACCESS
15638  M00S10473.set     +++|          LPN    77
15639  M00S10474.set     +++|          LMN    1RP
15640  M00S10475.set     +++|          ZJN    EXM2        IF DDP
15641  M00S10476.set     +++|          AOD    T3
15642  M00S10477.set     +++| EXM2     LDC    3S12+EPBP
15643  M00S10478.set     +++|          RJM    SPW
15644  M00S10479.set     +++|          LDD    T3          SET BUFFER COUNT
15645  M00S10480.set     +++|          ZJN    EXM4        IF NO I/O BUFFERS DEFINED
15646  M00S10481.set     +++|          SHN    6
15647  M00S10482.set     +++|          RAD    CM+3
15648  M00S10483.set     +++|          LDD    T5          STORE EXTENDED MEMORY BUFFER POINTER
15649  M00S10484.set     +++|          CWD    CM
15650  M00S10485.set     +++| EXM3     LDC    ECBL        CLEAR BUFFER
15651  M00S10486.set     +++|          RJM    CLS
15652  M00S10487.set     +++|          SOD    T3
15653  M00S10488.set     +++|          NJN    EXM3        IF ALL BUFFERS NOT ALLOCATED
15654  M00S10489.set     +++| EXM4     LJM    EXMX        RETURN
15655  M00S10490.set     +++| EXP      SPACE  4,10
15656  M00S10491.set     +++|**        EXP - DEFINE C176 EXCHANGE PACKAGES.
15657  M00S10492.set     +++|*
15658  M00S10493.set     +++|*         CALLS  SXA.
15659  M00S10494.set     +++|
15660  M00S10495.set     +++|
15661  M00S10496.set     +++| EXP      SUBR               ENTRY/EXIT
15662  M00S10497.set     +++|          LDD    HO
15663  M00S10498.set     +++|          SHN    -11
15664  M00S10499.set     +++|          LMN    7
15665  M00S10500.set     +++|          NJN    EXPX        IF NOT C176
15666  M00S10501.set     +++|          RJM    SXA
15667  M00S10502.set     +++|          UJN    EXPX        RETURN
15668  M00S10503.set     +++| FNT      SPACE  4,10
15669  M00S10504.set     +++|**        FNT - DEFINE FILE NAME TABLE.
15670  M00S10505.set     +++|*
15671  M00S10506.set     +++|*         CALLS  CLS, LST, SPW.
15672  M00S10507.set     +++|*
15673  M00S10508.set     +++|*         MACROS CFI.
15674  M00S10509.set     +++|
15675  M00S10510.set     +++|
15676  M00S10511.set     +++| FNT      SUBR               ENTRY/EXIT
15677  M00S10512.set     +++|          LDN    FNTP
15678  M00S10513.set     +++|          RJM    SPW
15679  M00S10514.set     +++|          LDM    .FNT+MTBL   SET FNT ENTRY COUNT
15680  M00S10515.set     +++|          STD    CM+2
15681  M00S10516.set     +++|          CFI    FNT,,CM+2   CLEAR TABLE
15682  M00S10517.set     +++|          RJM    CLS
15683  M00S10518.set     +++|          LDN    FNTE        LINK FNT
15684  M00S10519.set     +++|          RJM    LST
15685  M00S10520.set     +++|          LDD    CM          STORE SYSTEM FILE FNT ENTRY
15686  M00S10521.set     +++|          SHN    14
15687  M00S10522.set     +++|          LMD    CM+1
15688  M00S10523.set     +++|          ERRNZ  SYFO        SYSTEM FILE ORDINAL .NE. 0
Line S10524 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15689  M01S10524.283l840 ---|          CWM    ICMA,ON
Line S00814 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15690  M01S00814.283l840 +++|          CWM    ICTA,ON
15691  M00S10525.set     +++|          UJN    FNTX        RETURN
15692  M00S10526.set     +++| FOT      SPACE  4,10
15693  M00S10527.set     +++|**        FOT - DEFINE FAMILY ORDINAL TABLE.
15694  M00S10528.set     +++|*
15695  M00S10529.set     +++|*         CALLS  CLS, LST, SPW.
15696  M00S10530.set     +++|
15697  M00S10531.set     +++|
15698  M00S10532.set     +++| FOT      SUBR               ENTRY/EXIT
15699  M00S10533.set     +++|          LDC    FOTP
15700  M00S10534.set     +++|          RJM    SPW
15701  M00S10535.set     +++|          LDM    .FOT+MTBL   SET FOT ENTRY COUNT
15702  M00S10536.set     +++|          STD    CM+2
15703  M00S10537.set     +++|          RJM    CLS
15704  M00S10538.set     +++|          LDN    1           LINK FOT
15705  M00S10539.set     +++|          RJM    LST
15706  M00S10540.set     +++|          LDD    CM          STORE SYSTEM FOT ENTRY
15707  M00S10541.set     +++|          SHN    14
15708  M00S10542.set     +++|          LMD    CM+1
Line S10543 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15709  M01S10543.283l840 ---|          CWM    ICMB,ON
Line S00815 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
15710  M01S00815.283l840 +++|          CWM    ICTB,ON
15711  M00S10544.set     +++|          UJN    FOTX        RETURN
15712  M00S10545.set     +++| INB      SPACE  4,10
15713  M00S10546.set     +++|**        INB - DEFINE INSTALLATION BLOCK.
15714  M00S10547.set     +++|*
15715  M00S10548.set     +++|*         CALLS  SPW.
15716  M00S10549.set     +++|
15717  M00S10550.set     +++|
15718  M00S10551.set     +++| INB      SUBR               ENTRY/EXIT
15719  M00S10552.set     +++|          LDC    2S12+INBP
15720  M00S10553.set     +++|          RJM    SPW
15721  M00S10554.set     +++|          LDM    INBS        SET TABLE LENGTH
15722  M00S10555.set     +++|          STD    CM+4
15723  M00S10556.set     +++|          RJM    CLS         CLEAR THE BLOCK
15724  M00S10557.set     +++|          LDD    T5          STORE POINTER WORD
15725  M00S10558.set     +++|          CWD    CM
15726  M00S10559.set     +++|          UJN    INBX        RETURN
15727  M00S10560.set     +++| JCA      SPACE  4,10
Line S10561 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15728  M01S10561.271l750 ---|**        JCA - DEFINE JOB CONTROL AREA.
Line S00110 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15729  M01S00110.271l750 +++|**        JCA - DEFINE JOB CONTROL BLOCK TABLE (*JCB*).
15730  M00S10562.set     +++|*
15731  M00S10563.set     +++|*         USES   T1.
15732  M00S10564.set     +++|*
15733  M00S10565.set     +++|*         CALLS  SPW.
15734  M00S10566.set     +++|
15735  M00S10567.set     +++|
15736  M00S10568.set     +++| JCA      SUBR               ENTRY/EXIT
Line S10569 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
15737  M01S10569.273l780 ---|          LDN    JBCP
Line S00001 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
15738  M01S00001.273l780 +++|          LDK    JBCP
15739  M00S10570.set     +++|          RJM    SPW
15740  M00S10571.set     +++|          LDN    0
15741  M00S10572.set     +++|          STD    T1
Line S10573 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15742  M01S10573.271l750 ---|          LDN    JCABL       SET WORD COUNT
Line S00111 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15743  M01S00111.271l750 +++|          LDN    JCBE        SET WORD COUNT
15744  M00S10574.set     +++|          STD    T2
Line S10575 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15745  M01S10575.271l750 ---|          LDD    CA          INITIALIZE SCT
Line S00112 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15746  M01S00112.271l750 +++|          LDD    CA          INITIALIZE SCT (JCB ORDINAL ZERO)
15747  M00S10576.set     +++|          SHN    14
15748  M00S10577.set     +++|          ADD    CA+1
15749  M00S10578.set     +++|          CWM    JCAC,T2
15750  M00S10579.set     +++|          UJN    JCA2        PROCESS NEXT BLOCK
15751  M00S10580.set     +++|
Line S10581 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15752  M01S10581.271l750 ---| JCA1     LDD    CA          STORE CONTROL AREA
Line S00113 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15753  M01S00113.271l750 +++| JCA1     LDD    CA          STORE JCB ENTRY FOR NEXT SERVICE CLASS
15754  M00S10582.set     +++|          SHN    14
15755  M00S10583.set     +++|          ADD    CA+1
15756  M00S10584.set     +++|          CWM    JCAB,T2
15757  M00S10585.set     +++| JCA2     STD    CA+1
15758  M00S10586.set     +++|          SHN    -14
15759  M00S10587.set     +++|          STD    CA
Line S10588 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15760  M01S10588.271l750 ---|          AOD    T1          COUNT AREA
Line S00114 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15761  M01S00114.271l750 +++|          AOD    T1          COUNT JCB ENTRY
15762  M00S10589.set     +++|          SBN    MXJC
Line S10590 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15763  M01S10590.271l750 ---|          MJN    JCA1        LOOP FOR ALL AREAS
Line S00115 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15764  M01S00115.271l750 +++|          MJN    JCA1        IF MORE SERVICE CLASSES TO PROCESS
15765  M00S10591.set     +++|          UJN    JCAX        RETURN
15766  M00S10592.set     +++|
Line S10593 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15767  M01S10593.271l750 ---| JCAB     BSS    0
Line S00116 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15768  M01S00116.271l750 +++|
15769  M01S00117.271l750 +++| JCAB     BSS    0           DEFAULT JCB (JCB ORDINAL .GT. 0)
15770  M00S10594.set     +++|          CON    0,100,7000,1,0         INPUT FILE CONTROL
15771  M00S10595.set     +++|          CON    700,100,7000,1,7000    EXECUTING JOB CONTROL
15772  M00S10596.set     +++|          CON    0,100,7000,1,0         OUTPUT FILE CONTROL
Line S10597 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
15773  M01S10597.271l716 ---|          CON    10,100,20,-0,341       SERVICE CONTROL
15774  M01S10598.271l716 ---|          CON    0,4004,3777,7,7777
15775  M01S10599.271l716 ---|          CON    0,0,3777,0,-0
Line S00207 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15776  M02S00207.271l750 ---|          CON    3037,4,20,-0,341       SERVICE CONTROL
Line S00118 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15777  M01S00118.271l750 +++|          CON    0,4,20,-0,341          SERVICE CONTROL
Line S00208 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
15778  M01S00208.271l716 +++|          CON    6760,4004,3777,7,7777
Line S00209 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15779  M02S00209.271l750 ---|          CON    20,1,3777,0,-0
Line S00119 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15780  M01S00119.271l750 +++|          CON    0,0,3777,0,-0
15781  M00S10600.set     +++|          CON    0,0,0,0,/SCD/DISC
Line S10601 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15782  M01S10601.271l750 ---|          BSS    1*5
Line S00120 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15783  M01S00120.271l750 +++|          CON    30,10,20,4,20
15784  M01S00121.271l750 +++|          BSS    4*5
15785  M00S10602.set     +++|
15786  M00S10603.set     +++| .L       SET    *-JCAB
15787  M00S10604.set     +++| JCABL    EQU    .L/5        LENGTH OF ENTRY
Line S00122 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15788  M01S00122.271l750 +++|          ERRNZ  JCABL-JCBE  ERROR IN LENGTH
15789  M00S10605.set     +++|
Line S10606 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15790  M01S10606.271l750 ---| JCAC     BSS    0           DEFAULT SCT
Line S00123 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15791  M01S00123.271l750 +++| JCAC     BSS    0           DEFAULT SCT (JCB ORDINAL 0)
15792  M00S10607.set     +++|          CON    0,0,0,/SCD/A2MK,/SCD/A1MK+/SCD/SSMK
15793  M00S10608.set     +++|          CON    0,0,0,0,/SCD/BCMK
15794  M00S10609.set     +++|          CON    0,0,0,0,/SCD/RBMK
15795  M00S10610.set     +++|          CON    0,0,0,0,/SCD/DIMK+/SCD/TSMK
15796  M00S10611.set     +++|          CON    0,0,0,0,0
15797  M00S10612.set     +++|          CON    0,0,0,0,0
15798  M00S10613.set     +++|          CON    0,0,0,0,0
15799  M00S10614.set     +++|          CON    0,0,0,0,0
Line S00124 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
15800  M01S00124.271l750 +++|          CON    0,0,0,0,0
15801  M01S00125.271l750 +++|          CON    0,0,0,0,0
15802  M01S00126.271l750 +++|          CON    0,0,0,0,0
15803  M01S00127.271l750 +++|          CON    0,0,0,0,0
15804  M01S00128.271l750 +++|
15805  M01S00129.271l750 +++| .L       SET    *-JCAC
15806  M01S00130.271l750 +++| JCACL    EQU    .L/5        LENGTH OF ENTRY
15807  M01S00131.271l750 +++|          ERRNZ  JCACL-JCBE  ERROR IN LENGTH
15808  M00S10615.set     +++| LDB      SPACE  4,10
15809  M00S10616.set     +++|**        LDB - DEFINE *L* DISPLAY BUFFER.
15810  M00S10617.set     +++|*
15811  M00S10618.set     +++|*         CALLS  CLS, SPW.
15812  M00S10619.set     +++|
15813  M00S10620.set     +++|
15814  M00S10621.set     +++| LDB      SUBR               ENTRY/EXIT
15815  M00S10622.set     +++|          LDC    2S12+LDSP
15816  M00S10623.set     +++|          RJM    SPW
15817  M00S10624.set     +++|          LDC    LDSY+LCOM+5 CLEAR BUFFER
15818  M00S10625.set     +++|          RJM    CLS
15819  M00S10626.set     +++|          UJN    LDBX        RETURN
15820  M00S10627.set     +++| LID      SPACE  4,10
15821  M00S10628.set     +++|**        LID - DEFINE LOGICAL ID TABLE.
15822  M00S10629.set     +++|*
15823  M00S10630.set     +++|*         USES   T7.
15824  M00S10631.set     +++|*
15825  M00S10632.set     +++|*         CALLS  CLS, SPW.
15826  M00S10633.set     +++|
15827  M00S10634.set     +++|
15828  M00S10635.set     +++| LID      SUBR               ENTRY/EXIT
15829  M00S10636.set     +++|          LDC    LIDP
15830  M00S10637.set     +++|          RJM    SPW
15831  M00S10638.set     +++|          LDM    .LID+MTBL   SET LID ENTRY COUNT
15832  M00S10639.set     +++|          STD    CM+2
15833  M00S10640.set     +++|          RJM    CLS
15834  M00S10641.set     +++|          LDD    T5          STORE POINTER WORD
15835  M00S10642.set     +++|          CWD    CM
15836  M00S10643.set     +++|          UJN    LIDX        RETURN
Line S00210 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
15837  M01S00210.271l716 +++| MCT      SPACE  4,10
15838  M01S00211.271l716 +++|**        MCT - DEFINE MEMORY CONTROL TABLE.
15839  M01S00212.271l716 +++|*
15840  M01S00213.271l716 +++|*         USES   CM+2, T3.
15841  M01S00214.271l716 +++|*
15842  M01S00215.271l716 +++|*         CALLS  CLS, SPW.
15843  M01S00216.271l716 +++|
15844  M01S00217.271l716 +++|
15845  M01S00218.271l716 +++| MCT      SUBR               ENTRY/EXIT
15846  M01S00219.271l716 +++|          LDC    MCTP
15847  M01S00220.271l716 +++|          RJM    SPW
15848  M01S00221.271l716 +++|          LDM    .NPCP       PSEUDO CONTROL POINT COUNT
15849  M01S00222.271l716 +++|          STD    T3
15850  M01S00223.271l716 +++|          ADD    NC          FORM MCT ENTRY COUNT
15851  M01S00224.271l716 +++|          ADN    1
15852  M01S00225.271l716 +++|          STD    CM+2
15853  M01S00226.271l716 +++|          SHN    1           CLEAR TABLE
15854  M01S00227.271l716 +++|          RJM    CLS
15855  M01S00228.271l716 +++|          LDD    T5          UPDATE POINTER WORD
15856  M01S00229.271l716 +++|          CWD    CM
15857  M01S00230.271l716 +++|          LDD    T3
15858  M01S00231.271l716 +++|          ZJN    MCTX        IF NO PCP-S
15859  M01S00232.271l716 +++|          LDC    3S12+PCPP
15860  M01S00233.271l716 +++|          RJM    SPW
15861  M01S00234.271l716 +++|          LDD    T3          CLEAR PCP AREA
15862  M01S00235.271l716 +++|          SHN    7
15863  M01S00236.271l716 +++|          RJM    CLS
15864  M01S00237.271l716 +++|          UJP    MCTX        RETURN
15865  M00S10644.set     +++| MSA      SPACE  4,10
15866  M00S10645.set     +++|**        MSA - DEFINE MASS STORAGE ALLOCATION TABLE.
15867  M00S10646.set     +++|*
15868  M00S10647.set     +++|*         USES   EQ, T2, T3, T5, CM - CM+4, CN - CN+4.
15869  M00S10648.set     +++|*
15870  M00S10649.set     +++|*         CALLS  CLS, EEB, SME, SPW, STA.
15871  M00S10650.set     +++|
15872  M00S10651.set     +++|
15873  M00S10652.set     +++| MSA5     LDD    CM          WRITE ALLOCATION WORD
15874  M00S10653.set     +++|          SHN    14
15875  M00S10654.set     +++|          LMD    CM+1
15876  M00S10655.set     +++|          ADD    T3
15877  M00S10656.set     +++|          CWD    CN
15878  M00S10657.set     +++|          LDM    MSAA        ADVANCE ALLOCATION MASK
15879  M00S10658.set     +++|          RAM    MSAA
15880  M00S10659.set     +++|          AOD    T3
15881  M00S10660.set     +++|          LMN    MXRS
15882  M00S10661.set     +++|          NJN    MSA2        IF NOT END OF ALLOCATION TYPES
15883  M00S10662.set     +++|
15884  M00S10663.set     +++| MSA      SUBR               ENTRY/EXIT
15885  M00S10664.set     +++|          LDC    MSAP
15886  M00S10665.set     +++|          RJM    SPW
15887  M00S10666.set     +++|          LDN    MXRS        CLEAR TABLE
15888  M00S10667.set     +++|          RJM    CLS
15889  M00S10668.set     +++|          LDN    0
15890  M00S10669.set     +++|          STD    T3
15891  M00S10670.set     +++|          STD    T5
15892  M00S10671.set     +++|          UJN    MSA2        ENTER LOOP
15893  M00S10672.set     +++|
15894  M00S10673.set     +++| MSA1     LDD    T5
15895  M00S10674.set     +++|          NJN    MSA5        IF NO DEFAULT TO SET
15896  M00S10675.set     +++|          LDM    DFMS
15897  M00S10676.set     +++|          RJM    STA
15898  M00S10677.set     +++|          AOM    TDDB+DVFA   UPDATE EQUIPMENT DEFINITION
15899  M00S10678.set     +++|          RJM    EEB
15900  M00S10679.set     +++|
15901  M00S10680.set     +++| MSA2     LDN    NOPE-1      INITIALIZE EQUIPMENT SEARCH LOOP
15902  M00S10681.set     +++|          STD    EQ
15903  M00S10682.set     +++|          LDN    ZERL
15904  M00S10683.set     +++|          CRD    CN
15905  M00S10684.set     +++| MSA3     RJM    SME
15906  M00S10685.set     +++|          ZJN    MSA1        IF END OF ALLOCATION TYPE
15907  M00S10686.set     +++|          LDD    EQ
15908  M00S10687.set     +++|          STD    T2
15909  M00S10688.set     +++|          RJM    STA         FETCH DEVICE DESCRIPTION
15910  M00S10689.set     +++|          LDM    TDDB+DVFA
15911  M00S10690.set     +++|          LPC    1
15912  M00S10691.set     +++| MSAA     EQU    *-1
15913  M00S10692.set     +++|          ZJN    MSA3        IF SELECTION NOT SET FOR THIS EQUIPMENT
15914  M00S10693.set     +++|          AOD    T5
15915  M00S10694.set     +++|          LDN    CN
15916  M00S10695.set     +++|          STD    T0
15917  M00S10696.set     +++| MSA4     AOD    T0          DIVIDE BY 12
15918  M00S10697.set     +++|          LCN    12D
15919  M00S10698.set     +++|          RAD    T2
15920  M00S10699.set     +++|          PJN    MSA4        IF NOT COMPLETE
15921  M00S10700.set     +++|          LMC    777777-SHNI
15922  M00S10701.set     +++|          SBN    1
15923  M00S10702.set     +++|          STM    MSAB
15924  M00S10703.set     +++|          LDN    1
15925  M00S10704.set     +++| MSAB     SHN    0
15926  M00S10705.set     +++|          RAI    T0
15927  M00S10706.set     +++|          LDC    2000
15928  M00S10707.set     +++|          STD    CN
15929  M00S10708.set     +++|          UJN    MSA3        CHECK NEXT EQUIPMENT
15930  M00S10709.set     +++| MST      SPACE  4,10
15931  M00S10710.set     +++|**        MST - DEFINE MASS STORAGE TABLES.
15932  M00S10711.set     +++|*
15933  M00S10712.set     +++|*         EXIT   (LE) = LAST MASS STORAGE EQUIPMENT + 1.
15934  M00S10713.set     +++|*
15935  M00S10714.set     +++|*         USES   EQ, T3, AB - AB+4, CM - CM+4.
15936  M00S10715.set     +++|*
15937  M00S10716.set     +++|*         CALLS  EEB, RMM, SME, SMT, STA.
15938  M00S10717.set     +++|*
15939  M00S10718.set     +++|*         MACROS SFA.
15940  M00S10719.set     +++|
15941  M00S10720.set     +++|
15942  M00S10721.set     +++| MST2     RJM    RMM         RECOVER MSTS FROM MS
15943  M00S10722.set     +++|
15944  M00S10723.set     +++|*         PROCESS NEXT EQUIPMENT.
15945  M00S10724.set     +++|
15946  M00S10725.set     +++|          LDD    EQ          SET LAST DEVICE
15947  M00S10726.set     +++|          STD    T3
15948  M00S10727.set     +++|          RJM    SME
15949  M00S10728.set     +++|          ZJN    MST3        IF END OF MS EST ENTRIES
15950  M00S10729.set     +++|          LDD    EQ
15951  M00S10730.set     +++|          RJM    STA
Line S10731 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
15952  M01S10731.284l847 ---|
15953  M01S10732.284l847 ---|*         SEARCH FOR DEVICE IN TABLE.
15954  M01S10733.284l847 ---|
15955  M01S10734.284l847 ---|          LDD    AB+3
15956  M01S10735.284l847 ---|          RJM    SMT
15957  M01S10736.284l847 ---|          NJN    MST2        IF ENTRY FOUND
Line S00626 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
15958  M01S00626.284l847 +++|          NJN    MST2        IF A MASS STORAGE DEVICE
15959  M00S10737.set     +++|          LDC    =C*INCORRECT DEVICE TYPE.*
15960  M00S10738.set     +++|          JMP    DSE
15961  M00S10739.set     +++|
15962  M00S10740.set     +++| MST3     SFA    EST,.PFNL+3 CHECK DEFAULT FAMILY EQUIPMENT
15963  M00S10741.set     +++|          CRD    AB
15964  M00S10742.set     +++|          LDD    AB
15965  M00S10743.set     +++|          SHN    21-13
15966  M00S10744.set     +++|          MJN    MST4        IF DEFINED
15967  M00S10745.set     +++|          LDM    DFMS        SET DEFAULT FAMILY
15968  M00S10746.set     +++|          STM    .PFNL+3
15969  M00S10747.set     +++| MST4     LDN    ESTP
15970  M00S10748.set     +++|          CRD    CM
15971  M00S10749.set     +++|          AOD    T3          SET LAST MASS STORAGE EQUIPMENT + 1
15972  M00S10750.set     +++|          STD    CM+3
15973  M00S10751.set     +++|          STD    LE
15974  M00S10752.set     +++|          LDN    ESTP
15975  M00S10753.set     +++|          CWD    CM
15976  M00S10754.set     +++|
15977  M00S10755.set     +++| MST      SUBR               ENTRY/EXIT
15978  M00S10756.set     +++|          LDD    ID          SET MACHINE ID IN DEFAULT FAMILY NAME
15979  M00S10757.set     +++|          STM    DEFM+2
15980  M00S10758.set     +++|          LDN    RDEQ
15981  M00S10759.set     +++|          STD    EQ
15982  M00S10760.set     +++|          SFA    EST,,EQ     FETCH EST ENTRY FOR *RD* DEVICE
15983  M00S10761.set     +++|          CRD    AB
15984  M00S10762.set     +++|          LJM    MST2        ENTER LOOP
15985  M00S10763.set     +++| ODB      SPACE  4,10
15986  M00S10764.set     +++|**        ODB - DEFINE OPERATOR DISPLAY BUFFER.
15987  M00S10765.set     +++|*
15988  M00S10766.set     +++|*         USES   CM - CM+4.
15989  M00S10767.set     +++|*
15990  M00S10768.set     +++|*         CALLS  CLS.
15991  M00S10769.set     +++|
15992  M00S10770.set     +++|
15993  M00S10771.set     +++| ODB      SUBR               ENTRY/EXIT
15994  M00S10772.set     +++|          LDN    ZERL
15995  M00S10773.set     +++|          CRD    CM
15996  M00S10774.set     +++|          AOD    CM          SET UP INTERLOCK WORD
15997  M00S10775.set     +++|          LDD    CA
15998  M00S10776.set     +++|          SHN    14
15999  M00S10777.set     +++|          LMD    CA+1        STORE INTERLOCK WORD
16000  M00S10778.set     +++|          CWD    CM
16001  M00S10779.set     +++|          AOD    CA+1        ADVANCE CENTRAL ADDRESS
16002  M00S10780.set     +++|          SHN    -14
16003  M00S10781.set     +++|          RAD    CA
16004  M00S10782.set     +++|          LDN    LODS-1      CLEAR BUFFER
16005  M00S10783.set     +++|          RJM    CLS
16006  M00S10784.set     +++|          UJN    ODBX        RETURN
Line S02221 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
16007  M01S02221.274l797 +++| ORT      SPACE  4,10
16008  M01S02222.274l797 +++|**        ORT - DEFINE OPTICAL DISK REQUEST TABLE.
16009  M01S02223.274l797 +++|*
16010  M01S02224.274l797 +++|*         CALLS  CLS, LST, SPW.
16011  M01S02225.274l797 +++|*
16012  M01S02226.274l797 +++|*         MACROS CFI.
16013  M01S02227.274l797 +++|
16014  M01S02228.274l797 +++|
16015  M01S02229.274l797 +++| ORT      SUBR               ENTRY/EXIT
16016  M01S02230.274l797 +++|          LDC    ORTP
16017  M01S02231.274l797 +++|          RJM    SPW
16018  M01S02232.274l797 +++|          LDM    .ORT+MTBL   SET ORT ENTRY COUNT
16019  M01S02233.274l797 +++|          STD    CM+2
16020  M01S02234.274l797 +++|          CFI    ORT,,CM+2   CLEAR TABLE
16021  M01S02235.274l797 +++|          RJM    CLS
16022  M01S02236.274l797 +++|          LDN    ORTE        LINK ORT
16023  M01S02237.274l797 +++|          RJM    LST
16024  M01S02238.274l797 +++|          UJN    ORTX        RETURN
16025  M01S02239.274l797 +++| OST      SPACE  4,10
16026  M01S02240.274l797 +++|**        OST - DEFINE OPTICAL DISK STATUS TABLES.
16027  M01S02241.274l797 +++|*
16028  M01S02242.274l797 +++|*         USES   EQ, T4, T5, AB - AB+4, CM - CM+4.
16029  M01S02243.274l797 +++|*
16030  M01S02244.274l797 +++|*         CALLS  CLS, SPW.
16031  M01S02245.274l797 +++|*
16032  M01S02246.274l797 +++|*         MACROS SFA.
16033  M01S02247.274l797 +++|
16034  M01S02248.274l797 +++|
16035  M01S02249.274l797 +++| OST2     LDC    OSTP        SET NUMBER OF ENTRIES IN OST POINTER WORD
16036  M01S02250.274l797 +++|          CRD    CM
16037  M01S02251.274l797 +++|          LDD    T4
16038  M01S02252.274l797 +++|          SHN    -2
16039  M01S02253.274l797 +++|          STD    CM+2
16040  M01S02254.274l797 +++|          LDC    OSTP
16041  M01S02255.274l797 +++|          CWD    CM
16042  M01S02256.274l797 +++|          LDD    T4          SET LENGTH OF TABLE
16043  M01S02257.274l797 +++|          RJM    CLS
16044  M01S02258.274l797 +++|
16045  M01S02259.274l797 +++| OST      SUBR               ENTRY/EXIT
16046  M01S02260.274l797 +++|          LDC    OSTP
16047  M01S02261.274l797 +++|          RJM    SPW
16048  M01S02262.274l797 +++|          LDN    0
16049  M01S02263.274l797 +++|          STD    EQ          SET INITIAL EST ORDINAL
16050  M01S02264.274l797 +++|          STD    T4          SET INITIAL TABLE INDEX
16051  M01S02265.274l797 +++|          LDN    ESTP
16052  M01S02266.274l797 +++|          CRD    CM
16053  M01S02267.274l797 +++|          LDD    CM+2        SET MAXIMUM EST ORDINAL
16054  M01S02268.274l797 +++|          STD    T5
16055  M01S02269.274l797 +++| OST1     AOD    EQ          ADVANCE EST ENTRY
16056  M01S02270.274l797 +++|          LMD    T5
16057  M01S02271.274l797 +++|          ZJN    OST2        IF END OF EST
16058  M01S02272.274l797 +++|          SFA    EST,EQ      READ EST ENTRY
16059  M01S02273.274l797 +++|          ADK    EQDE
16060  M01S02274.274l797 +++|          CRD    CM
16061  M01S02275.274l797 +++|          LDD    CM+3
16062  M01S02276.274l797 +++|          LMC    2ROD
16063  M01S02277.274l797 +++|          NJN    OST1        IF NOT OPTICAL DISK
16064  M01S02278.274l797 +++|          LDN    ZERL
16065  M01S02279.274l797 +++|          CRD    AB
16066  M01S02280.274l797 +++|          LDD    T4
16067  M01S02281.274l797 +++|          SHN    -2          SET OST ENTRY ORDINAL IN EST
16068  M01S02282.274l797 +++|          ERRNZ  OSTE-4      CODE DEPENDS ON VALUE
16069  M01S02283.274l797 +++|          STD    AB+2
16070  M01S02284.274l797 +++|          SFA    EST,EQ
16071  M01S02285.274l797 +++|          ADN    EQAE
16072  M01S02286.274l797 +++|          CWD    AB          UPDATE EST ENTRY
16073  M01S02287.274l797 +++|          LDN    OSTE        ADVANCE TABLE ADDRESS
16074  M01S02288.274l797 +++|          RAD    T4
16075  M01S02289.274l797 +++|          UJN    OST1        PROCESS NEXT EST ENTRY
Line S00003 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
16076  M01S00003.282l826 +++| PDB      SPACE  4,10
16077  M01S00004.282l826 +++|**        PDB - DEFINE PREVIEW DISPLAY BUFFER.
16078  M01S00005.282l826 +++|*
16079  M01S00006.282l826 +++|*         USES   CA, CA+1.
16080  M01S00007.282l826 +++|*
16081  M01S00008.282l826 +++|*         CALLS  CLS.
16082  M01S00009.282l826 +++|
16083  M01S00010.282l826 +++|
16084  M01S00011.282l826 +++| PDB      SUBR               ENTRY/EXIT
16085  M01S00012.282l826 +++|          LDD    CA          SET INTERLOCK WORD ADDRESS
16086  M01S00013.282l826 +++|          SHN    14
16087  M01S00014.282l826 +++|          ADD    CA+1
16088  M01S00015.282l826 +++|          CWM    PDBA,ON     INITIALIZE INTERLOCK WORD
16089  M01S00016.282l826 +++|          STD    CA+1        ADVANCE CENTRAL ADDRESS
16090  M01S00017.282l826 +++|          SHN    -14
16091  M01S00018.282l826 +++|          STD    CA
16092  M01S00019.282l826 +++|          LDC    LPDS-1
16093  M01S00020.282l826 +++|          RJM    CLS         CLEAR PREVIEW DISPLAY BUFFER
16094  M01S00021.282l826 +++|          UJN    PDBX        RETURN
16095  M01S00022.282l826 +++|
16096  M01S00023.282l826 +++|
16097  M01S00024.282l826 +++| PDBA     VFD    12/7777B,12/0,12/0,12/0,12/0
Line S00006 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
16098  M01S00006.253l688 +++| PSV      SPACE 4,10
16099  M01S00007.253l688 +++|**        PSV - DEFINE PP SAVE AREAS.
16100  M01S00008.253l688 +++|*
16101  M01S00009.253l688 +++|*         USES   CM - CM+4.
16102  M01S00010.253l688 +++|*
16103  M01S00011.253l688 +++|*         CALLS  CLS, SPW.
16104  M01S00012.253l688 +++|
16105  M01S00013.253l688 +++|
16106  M01S00014.253l688 +++| PSV      SUBR               ENTRY/EXIT
16107  M01S00015.253l688 +++|          LDD    LD
16108  M01S00016.253l688 +++|          SHN    0-13
16109  M01S00017.253l688 +++|          ZJN    PSVX        IF NO ISHARED DEVICES
16110  M01S00018.253l688 +++|          LDC    2S12+PPSP
16111  M01S00019.253l688 +++|          RJM    SPW
16112  M01S00020.253l688 +++|          LDM    .PPN        COMPUTE NUMBER OF SAVE AREAS
16113  M01S00021.253l688 +++|          SBN    2
16114  M01S00022.253l688 +++|          STD    CM+4
16115  M01S00023.253l688 +++|          SBD    NS
16116  M01S00024.253l688 +++|          MJN    PSV1        IF FEWER PP-S THAN ISHARED DEVICES
16117  M01S00025.253l688 +++|          LDD    NS
16118  M01S00026.253l688 +++|          STD    CM+4
16119  M01S00027.253l688 +++| PSV1     LDD    T5
16120  M01S00028.253l688 +++|          CWD    CM
16121  M01S00029.253l688 +++|
16122  M01S00030.253l688 +++|*         ALLOCATE SAVE AREAS.
16123  M01S00031.253l688 +++|
16124  M01S00032.253l688 +++| PSV2     SOD    CM+4
16125  M01S00033.253l688 +++|          MJN    PSVX        IF NO MORE TO ALLOCATE
16126  M01S00034.253l688 +++|          LDC    PPSA        CLEAR SAVE AREA
16127  M01S00035.253l688 +++|          RJM    CLS
16128  M01S00036.253l688 +++|          UJN    PSV2        ALLOCATE NEXT SAVE AREA
16129  M00S10785.set     +++| QFT      SPACE  4,10
16130  M00S10786.set     +++|**        QFT - DEFINE QUEUE FILE TABLE.
16131  M00S10787.set     +++|*
16132  M00S10788.set     +++|*         CALLS  CLS, LST, SPW.
16133  M00S10789.set     +++|*
16134  M00S10790.set     +++|*         MACROS CFI.
16135  M00S10791.set     +++|
16136  M00S10792.set     +++|
16137  M00S10793.set     +++| QFT      SUBR               ENTRY/EXIT
16138  M00S10794.set     +++|          LDN    QFTP
16139  M00S10795.set     +++|          RJM    SPW
16140  M00S10796.set     +++|          LDM    .QFT+MTBL   SET QFT ENTRY COUNT
16141  M00S10797.set     +++|          STD    CM+2
16142  M00S10798.set     +++|          CFI    QFT,,CM+2   CLEAR TABLE
16143  M00S10799.set     +++|          RJM    CLS
16144  M00S10800.set     +++|          LDN    QFTE        LINK QFT
16145  M00S10801.set     +++|          RJM    LST
16146  M00S10802.set     +++|          LDN    0
Line S10803 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16147  M01S10803.283l840 ---|          STM    ICMB+4
Line S00816 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16148  M01S00816.283l840 +++|          STM    ICTB+4
16149  M00S10804.set     +++|          LDD    CM          STORE SYSTEM QFT ENTRY
16150  M00S10805.set     +++|          SHN    14
16151  M00S10806.set     +++|          LMD    CM+1
Line S10807 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16152  M01S10807.283l840 ---|          CWM    ICMB,ON
Line S00817 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16153  M01S00817.283l840 +++|          CWM    ICTB,ON
16154  M00S10808.set     +++|          ADN    SCLQ-JSNQ-1
Line S10809 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16155  M01S10809.283l840 ---|          CWM    ICMC,ON
Line S00818 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16156  M01S00818.283l840 +++|          CWM    ICTC,ON
16157  M00S10810.set     +++|          UJN    QFTX        RETURN
16158  M00S10811.set     +++| RPT      SPACE  4,10
16159  M00S10812.set     +++|**        RPT - DEFINE RING PORT TABLE.
16160  M00S10813.set     +++|*
16161  M00S10814.set     +++|*         ENTRY  (CA - CA+1) = CURRENT CM ADDRESS.
16162  M00S10815.set     +++|*
16163  M00S10816.set     +++|*         USES   T4, EQ, AB - AB+4.
16164  M00S10817.set     +++|*
16165  M00S10818.set     +++|*         CALLS  CLS, DSE, SSE.
16166  M00S10819.set     +++|
16167  M00S10820.set     +++|
16168  M00S10821.set     +++| RPT2     LDD    CA          SET ADDRESS INTO EST ENTRY
16169  M00S10822.set     +++|          SHN    14
16170  M00S10823.set     +++|          LMD    CA+1
16171  M00S10824.set     +++|          ADN    1S"RPTSM"-1
16172  M00S10825.set     +++|          ADD    T4
16173  M00S10826.set     +++|          SHN    -RPTAS
16174  M00S10827.set     +++|          STD    AB+4
16175  M00S10828.set     +++|          SHN    -14
16176  M00S10829.set     +++|          NJN    RPT1        IF ADDRESS TOO LARGE
16177  M00S10830.set     +++|          SFA    EST,EQ
16178  M00S10831.set     +++|          ADK    EQDE
16179  M00S10832.set     +++|          CWD    AB
16180  M00S10833.set     +++|          LDN    RPTL        INCREMENT ADDRESS OFFSET
16181  M00S10834.set     +++|          RAD    T4
16182  M00S10835.set     +++| RPT3     RJM    SSE         SEARCH FOR *RP* EQUIPMENT
16183  M00S10836.set     +++|          ZJN    RPT2        IF FOUND
16184  M00S10837.set     +++|          LDD    T4
16185  M00S10838.set     +++|          ZJN    RPTX        IF NO TABLE SPACE RESERVED
16186  M00S10839.set     +++|          LDD    CA+1
16187  M00S10840.set     +++|          LPN    1S"RPTSM"-1
16188  M00S10841.set     +++|          ADD    T4
16189  M00S10842.set     +++|          RJM    CLS         CLEAR STORAGE
16190  M00S10843.set     +++|
16191  M00S10844.set     +++| RPT      SUBR               ENTRY/EXIT
16192  M00S10845.set     +++|          LDN    0
16193  M00S10846.set     +++|          STD    T4
16194  M00S10847.set     +++|          LDC    1S17+2RRP
16195  M00S10848.set     +++|          UJN    RPT3        SEARCH FOR EQUIPMENT
16196  M00S10849.set     +++|
16197  M00S10850.set     +++| RPT1     LDC    =C*RING PORT TABLE OVERFLOW.*
16198  M00S10851.set     +++|          JMP    DSE         DISPLAY ERROR
16199  M00S10852.set     +++| SAB      SPACE  4,10
16200  M00S10853.set     +++|**        SAB - DEFINE SYSTEM ATTRIBUTE BLOCK.
16201  M00S10854.set     +++|*
16202  M00S10855.set     +++|*         USES   CM - CM+4.
16203  M00S10856.set     +++|*
16204  M00S10857.set     +++|*         CALLS  CLS, SPW.
16205  M00S10858.set     +++|
16206  M00S10859.set     +++|
16207  M00S10860.set     +++| SAB      SUBR               ENTRY/EXIT
16208  M00S10861.set     +++|          LDC    SABL
16209  M00S10862.set     +++|          RJM    SPW         SETUP POINTER WORD
16210  M00S10863.set     +++|          LDN    ELDWL
16211  M00S10864.set     +++|          SBM    C8XX        SET BASE DESCRIPTOR BLOCK LENGTH
16212  M00S10865.set     +++|          STD    CM+2
16213  M00S10866.set     +++|          LDD    EN
16214  M00S10867.set     +++|          ADM    UEMZ
16215  M00S10868.set     +++|          ADM    UEMZ+1
16216  M00S10869.set     +++|          ZJN    SAB2        IF NO EXTENDED MEMORY DESCRIPTOR REQUIRED
16217  M00S10870.set     +++|          AOD    CM+2        ADVANCE DESCRIPTOR LENGTH
16218  M00S10871.set     +++| SAB2     LDM    .CPU        ADD SECOND CPU DESCRIPTOR
16219  M00S10872.set     +++|          LMN    2
16220  M00S10873.set     +++|          ERRNZ  CPDWL-4     CODE DEPENDS ON VALUE
16221  M00S10874.set     +++|          LPN    2
16222  M00S10875.set     +++|          SHN    1           LENGTH = 4 WORDS
16223  M00S10876.set     +++|          RAD    CM+2
16224  M00S10877.set     +++|          LDD    HO          APPEND FLPP DESCRIPTOR WORD
16225  M00S10878.set     +++|          SHN    0-11
16226  M00S10879.set     +++|          LPN    1
16227  M00S10880.set     +++|          RAD    CM+2        CLEAR ELEMENT DESCRIPTOR BLOCK
16228  M00S10881.set     +++|          RJM    CLS
16229  M00S10882.set     +++|          LDD    T5          STORE POINTER WORD
16230  M00S10883.set     +++|          CWD    CM
16231  M00S10884.set     +++|          UJP    SABX        RETURN
16232  M00S10885.set     +++| SCD      SPACE  4,10
16233  M00S10886.set     +++|**        SCD - DEFINE *SCD* PARAMETER TABLE.
16234  M00S10887.set     +++|*
Line S10888 Modification History
M01 (Removed by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
16235  M01S10888.ns2557  ---|*         CALLS  SPT, SPW.
16236  M01S10889.ns2557  ---|
16237  M01S10890.ns2557  ---|
16238  M01S10891.ns2557  ---| SCD      SUBR               ENTRY/EXIT
16239  M01S10892.ns2557  ---|          LDM    .DCS
16240  M01S10893.ns2557  ---|          ZJN    SCDX        IF DEADSTART FROM CC545
16241  M01S10894.ns2557  ---|          LDC    2S12+SCDP
16242  M01S10895.ns2557  ---|          RJM    SPW
16243  M01S10896.ns2557  ---|          RJM    SPT         SETUP PARAMETER TABLE
16244  M01S10897.ns2557  ---|          UJN    SCDX        RETURN
Line S00076 Modification History
M01 (Added by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
16245  M01S00076.ns2557  +++|*         CALLS  CLS, SPT, SPW.
16246  M01S00077.ns2557  +++|
16247  M01S00078.ns2557  +++|
16248  M01S00079.ns2557  +++| SCD2     LDD    CA          SET SAVE AREA FWA
16249  M01S00080.ns2557  +++|          STM    SPSA
16250  M01S00081.ns2557  +++|          LDD    CA+1
16251  M01S00082.ns2557  +++|          STM    SPSA+1
16252  M01S00083.ns2557  +++|          LDC    PSAL        CLEAR SAVE AREA
16253  M01S00084.ns2557  +++|          RJM    CLS
16254  M01S00085.ns2557  +++|
16255  M01S00086.ns2557  +++| SCD      SUBR               ENTRY/EXIT
16256  M01S00087.ns2557  +++|          LDM    C8XX
16257  M01S00088.ns2557  +++|          NJN    SCDX        IF NOT DUAL STATE MAINFRAME
16258  M01S00089.ns2557  +++|          LDM    BSPT
16259  M01S00090.ns2557  +++|          ZJN    SCD1        IF TABLE SHOULD BE CREATED
16260  M01S00091.ns2557  +++|          LDM    .DCS
16261  M01S00092.ns2557  +++|          ZJN    SCD2        IF DEADSTART FROM CC545
16262  M01S00093.ns2557  +++| SCD1     LDC    2S12+SCDP
16263  M01S00094.ns2557  +++|          RJM    SPW
16264  M01S00095.ns2557  +++|          RJM    SPT         SET UP PARAMETER TABLE
16265  M01S00096.ns2557  +++|          UJN    SCD2        RESERVE PP RESIDENT SAVE AREA
16266  M00S10898.set     +++| SCT      SPACE  4,10
16267  M00S10899.set     +++|**        SCT - DEFINE SUBSYSTEM CONTROL TABLE.
16268  M00S10900.set     +++|*
16269  M00S10901.set     +++|*         CALLS  CLS, SPW.
16270  M00S10902.set     +++|
16271  M00S10903.set     +++|
16272  M00S10904.set     +++| SCT      SUBR               ENTRY/EXIT
16273  M00S10905.set     +++|          LDC    2S12+SSCP
16274  M00S10906.set     +++|          RJM    SPW
16275  M00S10907.set     +++|          LDN    SSCTL*2     CLEAR TABLE
16276  M00S10908.set     +++|          RJM    CLS
16277  M00S10909.set     +++|          UJN    SCTX        RETURN
16278  M00S10910.set     +++| SDA      SPACE  4,10
16279  M00S10911.set     +++|**        SDA - DEFINE STATISTICAL DATA AREA.
16280  M00S10912.set     +++|*
16281  M00S10913.set     +++|*         CALLS  CLS, SPW.
16282  M00S10914.set     +++|
16283  M00S10915.set     +++|
16284  M00S10916.set     +++| SDA      SUBR               ENTRY/EXIT
16285  M00S10917.set     +++|          LDC    SDAP        SET STATISTICAL AREA POINTER
16286  M00S10918.set     +++|          RJM    SPW
16287  M00S10919.set     +++|          LDN    SDAL        CLEAR TABLE
16288  M00S10920.set     +++|          RJM    CLS
16289  M00S10921.set     +++|          UJN    SDAX        RETURN
16290  M00S10922.set     +++| SIE      SPACE  4,10
16291  M00S10923.set     +++|**        SIE - *SET* INTERNAL ERROR.
16292  M00S10924.set     +++|*
16293  M00S10925.set     +++|*         ENTRY  TABLE VERIFICATION PROCESSOR MISSING.
16294  M00S10926.set     +++|*
16295  M00S10927.set     +++|*         EXIT   TO *DSE*.
16296  M00S10928.set     +++|
16297  M00S10929.set     +++|
16298  M00S10930.set     +++| SIE      CON    0           ENTRY
16299  M00S10931.set     +++|          LDC    =C+*SET* INTERNAL ERROR IN *ICM*.+
16300  M00S10932.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
16301  M00S10933.set     +++| SIT      SPACE  4,10
16302  M00S10934.set     +++|**        SIT - DEFINE *SECDED* ID TABLE.
16303  M00S10935.set     +++|*
16304  M00S10936.set     +++|*         CALLS  CLS, SPW.
16305  M00S10937.set     +++|
16306  M00S10938.set     +++|
16307  M00S10939.set     +++| SIT      SUBR               ENTRY/EXIT
16308  M00S10940.set     +++|          LDM    C8XX
16309  M00S10941.set     +++|          ZJN    SITX        IF LOWER 800 SERIES MAINFRAME
16310  M00S10942.set     +++|          LDC    SCRL
16311  M00S10943.set     +++|          RJM    SPW
16312  M00S10944.set     +++|          LDC    4000        SET *1MB* (ERROR LOGGING) ACTIVE
16313  M00S10945.set     +++|          RAD    CM
16314  M00S10946.set     +++|          LDD    T5          STORE POINTER WORD
16315  M00S10947.set     +++|          CWD    CM
Line S10948 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
16316  M01S10948.272l774 ---|          LDK    2*UIDL      CLEAR TABLE
Line S00042 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
16317  M01S00042.272l774 +++|          LDK    2*/SCR/UIDL CLEAR TABLE
16318  M00S10949.set     +++|          RJM    CLS
16319  M00S10950.set     +++|          UJN    SITX        RETURN
16320  M00S10951.set     +++| TRT      SPACE  4,10
16321  M00S10952.set     +++|**        TRT - ALLOCATE TRT SPACE.
16322  M00S10953.set     +++|*
16323  M00S10954.set     +++|*         USES   EQ, CM - CM+4, CN - CN+4.
16324  M00S10955.set     +++|*
16325  M00S10956.set     +++|*         CALLS  CDL, CLS, SME.
16326  M00S10957.set     +++|
16327  M00S10958.set     +++|
16328  M00S10959.set     +++| TRT1     LDD    AB+4        FETCH TRT LENGTH
16329  M00S10960.set     +++|          SHN    3
16330  M00S10961.set     +++|          ADK    TDGL
16331  M00S10962.set     +++|          CRD    CM
16332  M00S10963.set     +++|          ADN    TRLL-TDGL   READ TRT ADDRESS WORD
16333  M00S10964.set     +++|          CRD    CN
16334  M00S10965.set     +++|          LDD    CA          SET TRT ADDRESS
16335  M00S10966.set     +++|          RAD    CN+3
16336  M00S10967.set     +++|          LDD    CA+1
16337  M00S10968.set     +++|          STD    CN+4
16338  M00S10969.set     +++|          LDD    AB+4        STORE TRT ADDRESS
16339  M00S10970.set     +++|          SHN    3
16340  M00S10971.set     +++|          ADN    TRLL
16341  M00S10972.set     +++|          CWD    CN
16342  M00S10973.set     +++|          RJM    CDL
16343  M00S10974.set     +++|          RJM    CLS         CLEAR TRT SPACE
16344  M00S10975.set     +++| TRT2     RJM    SME
16345  M00S10976.set     +++|          NJN    TRT1        IF NOT END OF MASS STORAGE EST
16346  M00S10977.set     +++|
16347  M00S10978.set     +++| TRT      SUBR               ENTRY/EXIT
16348  M00S10979.set     +++|          LDN    NOPE-1
16349  M00S10980.set     +++|          STD    EQ
16350  M00S10981.set     +++|          UJN    TRT2        BEGIN EST SEARCH
16351  M00S10982.set     +++|          TITLE  PRIMARY SUBROUTINES.
16352  M00S10983.set     +++| LST      SPACE  4,10
16353  M00S10984.set     +++|**        LST - LINK SYSTEM TABLE.
16354  M00S10985.set     +++|*
16355  M00S10986.set     +++|*         ENTRY  (A) = LENGTH OF TABLE ENTRY.
16356  M00S10987.set     +++|*                (T5) = POINTER WORD ADDRESS.
16357  M00S10988.set     +++|*                (CM - CM+4) = POINTER WORD.
16358  M00S10989.set     +++|*
16359  M00S10990.set     +++|*         EXIT   (A) .NE. 0 IF RECOVERY DEADSTART.
16360  M00S10991.set     +++|*
16361  M00S10992.set     +++|*         USES   T3, AB - AB+4, CN - CN+4.
16362  M00S10993.set     +++|
16363  M00S10994.set     +++|
16364  M00S10995.set     +++| LST2     LDD    T3          ADVANCE TABLE ADDRESS
16365  M00S10996.set     +++|          RAD    AB+1
16366  M00S10997.set     +++|          SHN    -14
16367  M00S10998.set     +++|          RAD    AB
16368  M00S10999.set     +++|          SHN    14          STORE TABLE LINKAGE
16369  M00S11000.set     +++|          LMD    AB+1
16370  M00S11001.set     +++|          CWD    CN
16371  M00S11002.set     +++| LST3     AOD    CN+4        ADVANCE LINKAGE
16372  M00S11003.set     +++|          LMD    CM+2
16373  M00S11004.set     +++|          NJN    LST2        IF NOT END OF TABLE
16374  M00S11005.set     +++|
16375  M00S11006.set     +++| LST      SUBR               ENTRY/EXIT
16376  M00S11007.set     +++|          STD    T3          SAVE LENGTH OF ENTRY
16377  M00S11008.set     +++|          LDD    RS
16378  M00S11009.set     +++|          NJN    LST1        IF RECOVERY DEADSTART
16379  M00S11010.set     +++|          CRD    CN
16380  M00S11011.set     +++|          AOD    CN+4        SET FIRST AVAILABLE ORDINAL
16381  M00S11012.set     +++|          STD    CM+4
16382  M00S11013.set     +++|          LDD    CM+2        NUMBER OF FREE ENTRIES
16383  M00S11014.set     +++|          SBN    1
16384  M00S11015.set     +++|          STD    CM+3
16385  M00S11016.set     +++| LST1     LDD    T5          UPDATE POINTER WORD
16386  M00S11017.set     +++|          CWD    CM
16387  M00S11018.set     +++|          CRD    AB
16388  M00S11019.set     +++| LSTA     UJN    LST3        LINK TABLE
16389  M00S11020.set     +++|*         UJN    LSTX        (RECOVERY DEADSTART)
Line S11021 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16390  M01S11021.283l840 ---| SPW      SPACE  4,10
16391  M01S11022.283l840 ---|**        SPW - SET UP POINTER WORD.
16392  M01S11023.283l840 ---|*
16393  M01S11024.283l840 ---|*         ENTRY  (A) BITS  0 - 11 = POINTER WORD ADDRESS.
16394  M01S11025.283l840 ---|*                    BITS 12 - 14 = BYTE INDEX.
16395  M01S11026.283l840 ---|*                (CA - CA+1) = CURRENT CM ADDRESS.
16396  M01S11027.283l840 ---|*
16397  M01S11028.283l840 ---|*         EXIT   (T5) = POINTER WORD ADDRESS.
16398  M01S11029.283l840 ---|*                (CM - CM+4) = POINTER WORD.
16399  M01S11030.283l840 ---|*
16400  M01S11031.283l840 ---|*         USES   T4.
16401  M01S11032.283l840 ---|
16402  M01S11033.283l840 ---|
16403  M01S11034.283l840 ---| SPW      SUBR               ENTRY/EXIT
16404  M01S11035.283l840 ---|          STD    T5          SAVE POINTER WORD ADDRESS
16405  M01S11036.283l840 ---|          SHN    -14
16406  M01S11037.283l840 ---|          ADN    CM          SET BYTE ADDRESS WITHIN POINTER WORD
16407  M01S11038.283l840 ---|          STD    T4
16408  M01S11039.283l840 ---|          LDD    T5          FETCH POINTER WORD
16409  M01S11040.283l840 ---|          CRD    CM
16410  M01S11041.283l840 ---|          LDD    CA          INSERT TABLE ADDRESS
16411  M01S11042.283l840 ---|          STI    T4
16412  M01S11043.283l840 ---|          LDD    CA+1
16413  M01S11044.283l840 ---|          STM    1,T4
16414  M01S11045.283l840 ---|          LDD    T5          STORE POINTER WORD
16415  M01S11046.283l840 ---|          CWD    CM
16416  M01S11047.283l840 ---|          UJN    SPWX        RETURN
Line S00819 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16417  M01S00819.283l840 +++|          TITLE  COMMON SUBROUTINES.
16418  M00S11048.set     +++|          SPACE  4,10
16419  M00S11049.set     +++|**        COMMON SUBROUTINES.
16420  M00S11050.set     +++|
16421  M00S11051.set     +++|
16422  M00S11052.set     +++|          COMMON
Line S00238 Modification History
M01 (Added by) 271l716
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16423  M02S00238.283l840 ---|          IPPSUB
16424  M02S00239.283l840 ---|          SCSSUB
Line S00820 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16425  M01S00820.283l840 +++|          SPWSUB
16426  M00S11053.set     +++|          TITLE  SUBROUTINES.
Line S11054 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16427  M01S11054.283l840 ---| PMS      SPACE  4,10
16428  M01S11055.283l840 ---|**        PMS - PROCESS MASS STORAGE CHANNELS TO LOAD CONTROLWARE
16429  M01S11056.283l840 ---|*         AND VALIDATE SYSTEM DEVICES.
16430  M01S11057.283l840 ---|*         PMS WILL ALSO ENSURE THAT AT LEAST ONE CHECKPOINT DEVICE
16431  M01S11058.283l840 ---|*         HAS BEEN DEFINED.  IF ONE HAS NOT *PMS* WILL ASSIGN THE
16432  M01S11059.283l840 ---|*         FIRST VALID AVAILABLE DEVICE AS A CHECKPOINT DEVICE.
16433  M01S11060.283l840 ---|*
16434  M01S11061.283l840 ---|*         EXIT   (TCHS) = DEFAULT FIRMWARE RECORD TYPES.
16435  M01S11062.283l840 ---|*
16436  M01S11063.283l840 ---|*         USES   T0 - T4, EQ, CM - CM+4.
16437  M01S11064.283l840 ---|*
16438  M01S11065.283l840 ---|*         CALLS  EEB, SMT, STA.
16439  M01S11066.283l840 ---|
16440  M01S11067.283l840 ---|
16441  M01S11068.283l840 ---| PMS5     LDD    T1
16442  M01S11069.283l840 ---|          NJN    PMS6        IF SYSTEM DEVICE DEFINED
16443  M01S11070.283l840 ---|          LDM    DFMS
16444  M01S11071.283l840 ---|          RJM    STA
16445  M01S11072.283l840 ---|          LDC    2000        SET SYSTEM DEVICE FLAG
16446  M01S11073.283l840 ---|          RAI    ES
16447  M01S11074.283l840 ---|          LDM    EBUT+4      CLEAR ALTERNATE SYSTEM STATUS
16448  M01S11075.283l840 ---|          SCN    10
16449  M01S11076.283l840 ---|          STM    EBUT+4
16450  M01S11077.283l840 ---|          RJM    EEB         RETURN EQUIPMENT ENTRIES
16451  M01S11078.283l840 ---| PMS6     LDD    T3
16452  M01S11079.283l840 ---|          NJN    PMSX        IF CHECKPOINT DEVICE DEFINED
16453  M01S11080.283l840 ---|          LDM    DFMS
16454  M01S11081.283l840 ---|          RJM    STA
16455  M01S11082.283l840 ---|          LDN    2           SET DEFAULT RMS AS CHECKPOINT DEVICE
16456  M01S11083.283l840 ---|          RAM    TDDB+DVPR
16457  M01S11084.283l840 ---|          RJM    EEB         UPDATE EQUIPMENT STATUS
16458  M01S11085.283l840 ---|
16459  M01S11086.283l840 ---| PMS      SUBR               ENTRY/EXIT
16460  M01S11087.283l840 ---|          LDN    0
16461  M01S11088.283l840 ---|          CRD    T0
16462  M01S11089.283l840 ---|          LDN    NOPE-1      INITIALIZE EST SCAN
16463  M01S11090.283l840 ---|          STD    EQ
16464  M01S11091.283l840 ---| PMS1     AOD    EQ
16465  M01S11092.283l840 ---|          LMD    LE
16466  M01S11093.283l840 ---|          ZJP    PMS5        IF ALL EQUIPMENTS PROCESSED
16467  M01S11094.283l840 ---|          LDD    EQ
16468  M01S11095.283l840 ---|          RJM    STA         SET TABLE ADDRESSES
16469  M01S11096.283l840 ---|          LDM    EBUT+3
16470  M01S11097.283l840 ---|          RJM    SMT         SET *TMSD* ADDRESS
16471  M01S11098.283l840 ---|          ZJN    PMS1        IF NOT FOUND
16472  M01S11099.283l840 ---|          LDN    2
16473  M01S11100.283l840 ---|          STD    T4          INITIALIZE CHANNEL INDEX
16474  M01S11101.283l840 ---| PMS2     LDM    EBUT,T4
16475  M01S11102.283l840 ---|          ZJN    PMS3        IF NULL CHANNEL
16476  M01S11103.283l840 ---|          LPN    77
16477  M01S11104.283l840 ---|          STD    T2
16478  M01S11105.283l840 ---|          LDM    MSAI,MS     DEFAULT CONTROLWARE FOR LOAD
16479  M01S11106.283l840 ---|          SHN    -6
16480  M01S11107.283l840 ---|          SBM    TCHS,T2
16481  M01S11108.283l840 ---|          MJN    PMS3        IF OTHER DEFAULT HAS PRIORITY
16482  M01S11109.283l840 ---|          RAM    TCHS,T2
16483  M01S11110.283l840 ---| PMS3     SOD    T4
16484  M01S11111.283l840 ---|          NJN    PMS2        IF NOT END OF CHANNELS
16485  M01S11112.283l840 ---|          LDI    ES
16486  M01S11113.283l840 ---|          SHN    -12
16487  M01S11114.283l840 ---|          LPN    1
16488  M01S11115.283l840 ---|          RAD    T1
16489  M01S11116.283l840 ---|          LDM    TDDB+DVPR
16490  M01S11117.283l840 ---|          LPN    2
16491  M01S11118.283l840 ---|          RAD    T3          UPDATE CHECKPOINT DEVICE FOUND FLAG
16492  M01S11119.283l840 ---|          LJM    PMS1        PROCESS NEXT EQUIPMENT
16493  M01S11120.283l840 ---| IPS      SPACE  4
16494  M01S11121.283l840 ---|**        IPS - INITIALIZE PPU STATUS.
16495  M01S11122.283l840 ---|*
16496  M01S11123.283l840 ---|*         ENTRY  (NC) = SYSTEM CONTROL POINT NUMBER.
16497  M01S11124.283l840 ---|*
16498  M01S11125.283l840 ---|*         EXIT   (CA - CA+1) = NEXT CM ADDRESS.
16499  M01S11126.283l840 ---|*
Line S11127 Modification History
M01 (Removed by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16500  M02S11127.283l840 ---|*         CALLS  APP, HPP.
Line S00002 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16501  M02S00002.283l840 ---|*         USES   CA, CA+1, T1, T2, T3, T6, T7, CM - CM+4, CN - CN+4.
16502  M02S00003.283l840 ---|*
16503  M02S00004.283l840 ---|*         CALLS  APP, CLS, HPP.
Line S11128 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16504  M01S11128.283l840 ---|
16505  M01S11129.283l840 ---|
16506  M01S11130.283l840 ---| IPS      SUBR               ENTRY/EXIT
Line S00005 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16507  M02S00005.283l840 ---|
16508  M02S00006.283l840 ---|*         ALLOCATE PP COMMUNICATION AREAS.
16509  M02S00007.283l840 ---|
Line S11131 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16510  M01S11131.283l840 ---|          LDN    PPCP        READ PPU COMMUNICATION AREA POINTER
16511  M01S11132.283l840 ---|          CRD    CN
16512  M01S11133.283l840 ---|          LDD    NC          SET FWA = SYSTEM CP AREA END
16513  M01S11134.283l840 ---|          ADN    1
16514  M01S11135.283l840 ---|          SHN    7
16515  M01S11136.283l840 ---|          STD    CN+4
16516  M01S11137.283l840 ---|          STD    CA+1
16517  M01S11138.283l840 ---|          STD    T7
16518  M01S11139.283l840 ---|          SHN    -14
16519  M01S11140.283l840 ---|          STD    CA
Line S11141 Modification History
M01 (Removed by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16520  M02S11141.283l840 ---|          LDN    PPCP        STORE PPU COMMUNICATION AREA POINTER
16521  M02S11142.283l840 ---|          CWD    CN
16522  M02S11143.283l840 ---|          LDD    NC          INSERT SYSTEM CP INTO DISABLED PP IR
16523  M02S11144.283l840 ---|          RAM    IPSA+1
Line S11145 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16524  M01S11145.283l840 ---|          LDM    .PPU        CLEAR PP COMMUNICATIONS AREA
16525  M01S11146.283l840 ---|          STD    T6
16526  M01S11147.283l840 ---|          ADM    .CCHN
16527  M01S11148.283l840 ---|          STD    T3
16528  M01S11149.283l840 ---|          ADN    1           ALLOW FOR PSEUDO PP
16529  M01S11150.283l840 ---|          SHN    3
Line S11151 Modification History
M01 (Removed by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16530  M02S11151.283l840 ---|          RJM    CLS
Line S00008 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16531  M02S00008.283l840 ---|          RJM    CLS         CLEAR PP COMMUNICATION AREA
16532  M02S00009.283l840 ---|          LDD    CA          SET EXTENDED PP COMMUNICATION AREA FWA
16533  M02S00010.283l840 ---|          STD    CN
16534  M02S00011.283l840 ---|          SHN    14
16535  M02S00012.283l840 ---|          ADD    CA+1
16536  M02S00013.283l840 ---|          STD    CN+1
16537  M02S00014.283l840 ---|          SBD    CN+4
16538  M02S00015.283l840 ---|          SHN    PPXES-PPCES LENGTH OF EXTENDED PP COMMUNICATION AREA
16539  M02S00016.283l840 ---|          RJM    CLS         CLEAR EXTENDED PP COMMUNICATION AREA
16540  M02S00017.283l840 ---|          LDN    PPCP        STORE PPU COMMUNICATION AREA POINTER
16541  M02S00018.283l840 ---|          CWD    CN
16542  M02S00019.283l840 ---|
16543  M02S00020.283l840 ---|*         CHECK FOR DISABLED PP-S.
16544  M02S00021.283l840 ---|
16545  M02S00022.283l840 ---|          LDD    NC          INSERT SYSTEM CP INTO DISABLED PP IR
16546  M02S00023.283l840 ---|          RAM    IPSA+1
Line S11152 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16547  M01S11152.283l840 ---|          LDD    T3          STORE PSEUDO PP INDICATOR
16548  M01S11153.283l840 ---|          SHN    3
16549  M01S11154.283l840 ---|          ADD    CN+4
16550  M01S11155.283l840 ---|          CWM    IPSA+2,ON
16551  M01S11156.283l840 ---|          LDN    0           CLEAR CHANNEL COUNT
16552  M01S11157.283l840 ---|          STD    T1
16553  M01S11158.283l840 ---|          STD    T2          CLEAR CHANNEL STATUS INDEX
16554  M01S11159.283l840 ---| IPS1     LDM    .PPS,T2     CHECK PP N ON/OFF STATUS
16555  M01S11160.283l840 ---|          LPC    1           (MASK FOR PP N)
16556  M01S11161.283l840 ---| IPSB     EQU    *-1
16557  M01S11162.283l840 ---|          STD    T3
16558  M01S11163.283l840 ---|          LDM    .PPL,T2     CHECK PP STATUS RETURNED BY *CTI*
16559  M01S11164.283l840 ---|          LPC    1           (MASK FOR PP N)
16560  M01S11165.283l840 ---| IPSC     EQU    *-1
16561  M01S11166.283l840 ---|          NJN    IPS3        IF PP DISABLED BY CTI
16562  M01S11167.283l840 ---|          LDD    T3
16563  M01S11168.283l840 ---|          ZJN    IPS4        IF PP NOT OFF VIA CMRDECK ENTRY
16564  M01S11169.283l840 ---|          RAM    .PPL,T2     UPDATE PP OFF DATA
16565  M01S11170.283l840 ---|          LDD    T2          CALCULATE CHANNEL NUMBER
16566  M01S11171.283l840 ---|          SHN    4
16567  M01S11172.283l840 ---|          LMD    T1
16568  M01S11173.283l840 ---|          RJM    HPP         HANG PP
16569  M01S11174.283l840 ---| IPS3     LDD    T7          STORE INPUT REGISTER
16570  M01S11175.283l840 ---|          CWM    IPSA,ON
16571  M01S11176.283l840 ---| IPS4     LDN    10          ADVANCE INPUT REGISTER ADDRESS
16572  M01S11177.283l840 ---|          RAD    T7
16573  M01S11178.283l840 ---|          LDM    IPSB        ADVANCE PP MASK
16574  M01S11179.283l840 ---|          RAM    IPSB
16575  M01S11180.283l840 ---|          STM    IPSC
16576  M01S11181.283l840 ---|          AOD    T1          COUNT CHANNEL
16577  M01S11182.283l840 ---|          LMN    10D
16578  M01S11183.283l840 ---|          NJN    IPS5        IF PPS BANK NOT PROCESSED
16579  M01S11184.283l840 ---|          STD    T1
16580  M01S11185.283l840 ---|          AOD    T2          ADVANCE STATUS INDEX
16581  M01S11186.283l840 ---|*         LDN    1           REINITIALIZE MASK
16582  M01S11187.283l840 ---|          STM    IPSB
16583  M01S11188.283l840 ---|          STM    IPSC
16584  M01S11189.283l840 ---|          LCN    10D         DECREMENT PPU COUNT
16585  M01S11190.283l840 ---|          RAD    T6
16586  M01S11191.283l840 ---|          ZJN    IPS6        IF ALL PP-S CHECKED
16587  M01S11192.283l840 ---| IPS5     LJM    IPS1        PROCESS NEXT PP
16588  M01S11193.283l840 ---|
16589  M01S11194.283l840 ---| IPS6     LDM    .CCHN       CHECK FOR CPP-S
16590  M01S11195.283l840 ---|          ZJN    IPS9        IF NO CPP-S
16591  M01S11196.283l840 ---|          STD    T3
16592  M01S11197.283l840 ---| IPS7     LDM    .CPPL
16593  M01S11198.283l840 ---|          SHN    21-0        REMOVE CPP STATUS
16594  M01S11199.283l840 ---|          STM    .CPPL
16595  M01S11200.283l840 ---|          PJN    IPS8        IF CPP ON
16596  M01S11201.283l840 ---|          LDD    T7
16597  M01S11202.283l840 ---|          CWM    IPSA,ON     STORE INPUT REGISTER
16598  M01S11203.283l840 ---| IPS8     LDN    10          ADVANCE INPUT REGISTER ADDRESS
16599  M01S11204.283l840 ---|          RAD    T7
16600  M01S11205.283l840 ---|          SOD    T3
16601  M01S11206.283l840 ---|          NJN    IPS7        IF MORE CPP-S OFF
Line S00024 Modification History
M01 (Added by) 273l780
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16602  M02S00024.283l840 ---|
16603  M02S00025.283l840 ---|*         ASSIGN *CTI* PP-S AND STORE PP CONFIGURATION.
16604  M02S00026.283l840 ---|
Line S11207 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16605  M01S11207.283l840 ---| IPS9     RJM    APP         ASSIGN PP-S
16606  M01S11208.283l840 ---|          LDN    PPUL
16607  M01S11209.283l840 ---|          CRD    CM
16608  M01S11210.283l840 ---|          LDM    .PPN        SET PP COUNT
16609  M01S11211.283l840 ---|          STD    CM+2
16610  M01S11212.283l840 ---|          LDN    PPUL        STORE PPU CONFIGURATION
16611  M01S11213.283l840 ---|          CWD    CM
16612  M01S11214.283l840 ---|          LJM    IPSX        RETURN
16613  M01S11215.283l840 ---|
16614  M01S11216.283l840 ---| IPSA     VFD    18/3R***,6/**,36/
16615  M01S11217.283l840 ---|          VFD    24/3RCIO
16616  M00S11218.set     +++| IDB      SPACE  4,15
16617  M00S11219.set     +++|**        IDB - INITIALIZE DAYFILE BUFFER.
16618  M00S11220.set     +++|*
16619  M00S11221.set     +++|*         ENTRY  (T3) = BUFFER NUMBER.
16620  M00S11222.set     +++|*                (T6 - T7) = FWA OF DAYFILE POINTERS.
16621  M00S11223.set     +++|*                (CA - CA+1) = ADDRESS OF NEXT BUFFER.
16622  M00S11224.set     +++|*
16623  M00S11225.set     +++|*         EXIT   (CA - CA+1) ADVANCED.
16624  M00S11226.set     +++|*
16625  M00S11227.set     +++|*         USES   AB - AB+4, CM - CM+4, CN - CN+4.
16626  M00S11228.set     +++|*
16627  M00S11229.set     +++|*         CALLS  CLS.
16628  M00S11230.set     +++|
16629  M00S11231.set     +++|
16630  M00S11232.set     +++| IDB      SUBR               ENTRY/EXIT
16631  M00S11233.set     +++|          LDN    ZERL
16632  M00S11234.set     +++|          CRD    CM
16633  M00S11235.set     +++|          CRD    AB
16634  M00S11236.set     +++|          CRD    CN
16635  M00S11237.set     +++|          LDD    CA          SET BUFFER ADDRESS
16636  M00S11238.set     +++|          STD    CM
16637  M00S11239.set     +++|          LDD    CA+1
16638  M00S11240.set     +++|          STD    CM+1
16639  M00S11241.set     +++|          LDM    .DFB,T3     SET BUFFER LENGTH
16640  M00S11242.set     +++|          STD    AB+3
16641  M00S11243.set     +++|          SCN    77
16642  M00S11244.set     +++|          NJN    IDB1        IF NOT ZERO LENGTH BUFFER
16643  M00S11245.set     +++|          STD    AB+3
16644  M00S11246.set     +++| IDB1     LDD    T3          SET BUFFER INDEX
16645  M00S11247.set     +++|          SHN    6
16646  M00S11248.set     +++|          ADC    103         APPEND NOT BUSY / NOT INTERLOCKED STATUS
16647  M00S11249.set     +++|          STD    CN+4
16648  M00S11250.set     +++|          LDD    T6          STORE DAYFILE BUFFER POINTERS
16649  M00S11251.set     +++|          SHN    14
16650  M00S11252.set     +++|          LMD    T7
16651  M00S11253.set     +++|          CWD    CM
16652  M00S11254.set     +++|          ADN    1
16653  M00S11255.set     +++|          CWD    AB
16654  M00S11256.set     +++|          ADN    1           STORE DAYFILE FST
16655  M00S11257.set     +++|          CWD    CN
16656  M00S11258.set     +++|          LDD    AB+3        CLEAR BUFFER
16657  M00S11259.set     +++|          RJM    CLS
16658  M00S11260.set     +++|          LJM    IDBX        RETURN
Line S11261 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16659  M01S11261.283l840 ---| PTR      SPACE  4
16660  M01S11262.283l840 ---|**        PTR - PROCESS POINTER AREA.
16661  M01S11263.283l840 ---|*
16662  M01S11264.283l840 ---|*         EXIT   (NC) = SYSTEM CONTROL POINT NUMBER.
16663  M01S11265.283l840 ---|
16664  M01S11266.283l840 ---|
16665  M01S11267.283l840 ---| PTR      SUBR               ENTRY/EXIT
16666  M01S11268.283l840 ---|          LDC    SHNI+73
16667  M01S11269.283l840 ---|          ADM    EMSC        ADJUST SHIFT
16668  M01S11270.283l840 ---|          STM    PTRA
16669  M01S11271.283l840 ---|          LDC    SHNI+77
16670  M01S11272.283l840 ---|          SBM    EMSC        ADJUST SHIFT
16671  M01S11273.283l840 ---|          STM    PTRC
16672  M01S11274.283l840 ---|          LDN    17
16673  M01S11275.283l840 ---| PTRA     SHN    -4
16674  M01S11276.283l840 ---|*         SHN    -4+EMSC
16675  M01S11277.283l840 ---|          RAM    PTRB
16676  M01S11278.283l840 ---|          RJM    SEC         INITIALIZE *ECRL*
16677  M01S11279.283l840 ---|          LDN    DSSL
16678  M01S11280.283l840 ---|          CRD    CM
16679  M01S11281.283l840 ---|          LDM    TTXC+LIBD   SET LIBDECK NUMBER
16680  M01S11282.283l840 ---|          SHN    6
16681  M01S11283.283l840 ---|          LMD    RM          APPEND RECOVERY MODE
16682  M01S11284.283l840 ---|          LMN    4
16683  M01S11285.283l840 ---|          STD    CM+4
16684  M01S11286.283l840 ---|          LDN    DSSL        STORE DEADSTART STATUS
16685  M01S11287.283l840 ---|          CWD    CM
16686  M01S11288.283l840 ---|          LDN    ZERL
16687  M01S11289.283l840 ---|          CRD    CM
16688  M01S11290.283l840 ---|          CRD    AB
16689  M01S11291.283l840 ---|          LDC    4000        SET INTERLOCK
16690  M01S11292.283l840 ---|          STD    CM
Line S11293 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16691  M02S11293.283l840 ---|          LDN    6
16692  M02S11294.283l840 ---|          STD    T1
Line S11295 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16693  M01S11295.283l840 ---|          LDN    2
16694  M01S11296.283l840 ---|          STD    T2
16695  M01S11297.283l840 ---|          LDN    JSNL        STORE INITIAL SEQUENCE NUMBER
16696  M01S11298.283l840 ---|          CWM    .JSN,ON
16697  M01S11299.283l840 ---|          LDM    C8XX        CHECK MAINFRAME TYPE
16698  M01S11300.283l840 ---|          ZJN    PTR1        IF CYBER 180
16699  M01S11301.283l840 ---|          LDN    TIML        STORE TIME/DATE
16700  M01S11302.283l840 ---|          CWM    .TIM,T2
16701  M01S11303.283l840 ---|          ERRNZ  TIML+1-DTEL CODE DEPENDS ON VALUE
Line S11304 Modification History
M01 (Removed by) ns2644
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16702  M02S11304.283l840 ---| PTR1     LDN    SYTL        STORE NAME
16703  M02S11305.283l840 ---|          CWM    .NME,T1
16704  M02S11306.283l840 ---|          AOD    CM+4        SET MAINTENANCE LOG MESSAGE LINK
Line S00246 Modification History
M01 (Added by) ns2644
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16705  M02S00246.283l840 ---| PTR1     AOD    CM+4        SET MAINTENANCE LOG MESSAGE LINK
Line S11307 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16706  M01S11307.283l840 ---|          LDN    BMLL        STORE MAINTENANCE LOG CONTROL WORD
16707  M01S11308.283l840 ---|          CWD    CM
16708  M01S11309.283l840 ---|          ADN    RTCL-BMLL   STORE REAL TIME CLOCK
16709  M01S11310.283l840 ---|          CWM    .RTC,ON
16710  M01S11311.283l840 ---|          SOD    CM+4
16711  M01S11312.283l840 ---|          LDN    TAXML/5
16712  M01S11313.283l840 ---|          STD    T1
16713  M01S11314.283l840 ---|          LDC    SCRL        SET *1MB* (ERROR LOGGING)
16714  M01S11315.283l840 ---|          CWD    CM
16715  M01S11316.283l840 ---|          ADN    DSDL-SCRL   STORE *DSD* BUFFER INTERLOCK
16716  M01S11317.283l840 ---|          CWD    CM
16717  M01S11318.283l840 ---|          ADN    1           STORE *TAXM* IN DSD/1DS BUFFER
16718  M01S11319.283l840 ---|          CWM    TAXM,T1
16719  M01S11320.283l840 ---|          LCN    0           INITIALIZE FLAG REGISTER STATUS
16720  M01S11321.283l840 ---|          STD    AB+3
16721  M01S11322.283l840 ---|          LDD    LD
16722  M01S11323.283l840 ---|          LPC    777
16723  M01S11324.283l840 ---|          ZJN    PTR2        IF NO LINK EQUIPMENT
16724  M01S11325.283l840 ---|          RJM    STA
16725  M01S11326.283l840 ---|          LDM    TDDB+DVED
16726  M01S11327.283l840 ---|          LPN    30
16727  M01S11328.283l840 ---|          NJN    PTR2        IF CPU PATH PRESENT (NOT UEM)
16728  M01S11329.283l840 ---|          LDC    2000
16729  M01S11330.283l840 ---|          RAD    LD
16730  M01S11331.283l840 ---| PTR2     LDN    ZERL
16731  M01S11332.283l840 ---|          CRD    CN
16732  M01S11333.283l840 ---|          ADN    MMFL-ZERL   STORE MMF STATUS
16733  M01S11334.283l840 ---|          CWD    ID
16734  M01S11335.283l840 ---|          ADN    EFRL-MMFL
16735  M01S11336.283l840 ---|          CWD    AB
16736  M01S11337.283l840 ---|
16737  M01S11338.283l840 ---|*         ENTER CONFIGURATION.
16738  M01S11339.283l840 ---|
16739  M01S11340.283l840 ---|          LDN    NCPL        SET NUMBER OF CONTROL POINTS
16740  M01S11341.283l840 ---|          CRD    CM
16741  M01S11342.283l840 ---|          LDM    .NCP
16742  M01S11343.283l840 ---|          STD    NC
16743  M01S11344.283l840 ---|          SBN    1
16744  M01S11345.283l840 ---|          STD    CM+1
16745  M01S11346.283l840 ---|          LDM    .CHN        SET CHANNEL COUNT
16746  M01S11347.283l840 ---|          STD    CM
16747  M01S11348.283l840 ---|          ERRNZ  NCPL-NCHL   CODE DEPENDS ON VALUE
16748  M01S11349.283l840 ---|          ERRNZ  NCPL-CPPL
16749  M01S11350.283l840 ---|          LDM    .CCHN       SET NUMBER OF PHYSICALLY PRESENT CPP-S
16750  M01S11351.283l840 ---|          RAD    CM+3
16751  M01S11352.283l840 ---|          LDN    NCPL
16752  M01S11353.283l840 ---|          CWD    CM
16753  M01S11354.283l840 ---|          ADN    MABL-NCPL
16754  M01S11355.283l840 ---|          CRD    CM
16755  M01S11356.283l840 ---|          LDM    UESC        SET USER XM SHIFT COUNT
16756  M01S11357.283l840 ---|          SHN    2
16757  M01S11358.283l840 ---|          LMM    EMAF        SET EXPANDED ADDRESSING FLAG
16758  M01S11359.283l840 ---|          SHN    2
16759  M01S11360.283l840 ---|          LMM    EMSC        SET XM SHIFT COUNT
16760  M01S11361.283l840 ---|          SHN    5
16761  M01S11362.283l840 ---|          STD    CN+2
16762  M01S11363.283l840 ---|          LDM    EMFL        SET XM FIELD LENGTH/*EMBS*
16763  M01S11364.283l840 ---|          STD    CN+3
16764  M01S11365.283l840 ---|          LDK    MEFL
16765  M01S11366.283l840 ---|          CWD    CN
16766  M01S11367.283l840 ---|          LDN    ZERL
16767  M01S11368.283l840 ---|          CRD    AB
16768  M01S11369.283l840 ---|          LDD    HO          SET HARDWARE OPTIONS
16769  M01S11370.283l840 ---|          STD    CM+1
16770  M01S11371.283l840 ---|          LDM    UEMZ
16771  M01S11372.283l840 ---|          SHN    14
16772  M01S11373.283l840 ---|          ADM    UEMZ+1
16773  M01S11374.283l840 ---|          ZJN    PTR3        IF UEM NOT PRESENT
16774  M01S11375.283l840 ---|          SHN    -3          UEM FL / 1000B
16775  M01S11376.283l840 ---| PTRB     ADN    0
16776  M01S11377.283l840 ---|*         ADN    (EMBS - 1000B) / 1000B
16777  M01S11378.283l840 ---| PTRC     SHN    0
16778  M01S11379.283l840 ---|*         SHN    -EMSC
16779  M01S11380.283l840 ---|          STD    AB+1
16780  M01S11381.283l840 ---|          LDD    FL
16781  M01S11382.283l840 ---|          SHN    14
16782  M01S11383.283l840 ---|          LMD    FL+1
16783  M01S11384.283l840 ---|          SHN    -3          SET UEM BASE ADDRESS/1000B
16784  M01S11385.283l840 ---|          STD    AB
16785  M01S11386.283l840 ---|          SHN    3           ADJUST EXECUTION MEMORY SIZE
16786  M01S11387.283l840 ---|          STD    FL+1
16787  M01S11388.283l840 ---|          SHN    -14
16788  M01S11389.283l840 ---|          STD    FL
16789  M01S11390.283l840 ---|          LDN    2
16790  M01S11391.283l840 ---|          STD    AB+4        SET UEM PRESENT FLAG
16791  M01S11392.283l840 ---|          LDM    EMTY
16792  M01S11393.283l840 ---|          LMN    4
16793  M01S11394.283l840 ---|          NJN    PTR3        IF NO UEM EQUIPMENT
16794  M01S11395.283l840 ---|          LDD    EN          SET USER EM EQUIPMENT
16795  M01S11396.283l840 ---|          STD    AB+2
16796  M01S11397.283l840 ---| PTR3     LDD    FL          SET EXECUTION MEMORY SIZE
16797  M01S11398.283l840 ---|          STD    CM+2
16798  M01S11399.283l840 ---|          LDD    FL+1
16799  M01S11400.283l840 ---|          STD    CM+3
16800  M01S11401.283l840 ---|          LDC    MABL
16801  M01S11402.283l840 ---|          CWD    CM
16802  M01S11403.283l840 ---|          LDN    EXML
16803  M01S11404.283l840 ---|          CRD    CM
16804  M01S11405.283l840 ---|          LDD    EN
16805  M01S11406.283l840 ---|          STD    CM+4
16806  M01S11407.283l840 ---|          LDN    EXML        STORE EXTENDED MEMORY CONFIGURATION
16807  M01S11408.283l840 ---|          CWD    CM
16808  M01S11409.283l840 ---|          LDM    TAXM+2
16809  M01S11410.283l840 ---|          ZJN    PTR4        IF NO USER EXTENDED MEMORY
16810  M01S11411.283l840 ---|          LDM    TAXM+1
16811  M01S11412.283l840 ---|          NJN    PTR4        IF USER EM IN UEM
16812  M01S11413.283l840 ---|          LDD    EN          SET USER EM EQUIPMENT
16813  M01S11414.283l840 ---|          STD    AB+2
16814  M01S11415.283l840 ---| PTR4     LDK    UEML        STORE MAINFRAME ATTRIBUTES
16815  M01S11416.283l840 ---|          CWD    AB
16816  M01S11417.283l840 ---|          RJM    SCS         SET CPU STATUS
16817  M01S11418.283l840 ---|          LJM    PTRX        RETURN
16818  M01S11419.283l840 ---|
16819  M01S11420.283l840 ---|
16820  M01S11421.283l840 ---| .JSN     VFD    12/0,12/0,12/PQFT,24/0LAAAA
16821  M01S11422.283l840 ---| .TIM     VFD    60/10H 00.00.00.
16822  M01S11423.283l840 ---|          VFD    60/10H"DATE"
16823  M01S11424.283l840 ---| .RTC     VFD    12/0037,12/7777,36/0
16824  M01S11425.283l840 ---| SEC      SPACE  4,10
16825  M01S11426.283l840 ---|**        SEC - SETUP POINTER WORD *ECRL*.
16826  M01S11427.283l840 ---|
16827  M01S11428.283l840 ---|
16828  M01S11429.283l840 ---| SEC      SUBR               ENTRY/EXIT
16829  M01S11430.283l840 ---|          LDM    EMSC        PRESET SHIFT INSTRUCTIONS
16830  M01S11431.283l840 ---|          SBM    UESC
16831  M01S11432.283l840 ---|          LPN    77
16832  M01S11433.283l840 ---|          RAM    SECA
Line S11434 Modification History
M01 (Removed by) ns2520
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16833  M02S11434.283l840 ---|          LDC    SHNI+77
16834  M02S11435.283l840 ---|          SBM    UESC
16835  M02S11436.283l840 ---|          STM    SECB
Line S11437 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16836  M01S11437.283l840 ---|          LDN    ZERL        INITIALIZE *ECRL*
16837  M01S11438.283l840 ---|          CRD    AB
16838  M01S11439.283l840 ---|          LDN    0
16839  M01S11440.283l840 ---|          STD    T1
16840  M01S11441.283l840 ---|          LDM    TAXM+2
16841  M01S11442.283l840 ---|          ZJN    SEC1        IF NO USER XM FOR THIS MACHINE
16842  M01S11443.283l840 ---| SECA     SHN    0
16843  M01S11444.283l840 ---|*         SHN    EMSC-UESC
16844  M01S11445.283l840 ---|          STD    AB+1
Line S11446 Modification History
M01 (Removed by) ns2520
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16845  M02S11446.283l840 ---|          LDN    ECSY/1000
Line S00001 Modification History
M01 (Added by) ns2520
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16846  M02S00001.283l840 ---|          LDN    ECSY
Line S00030 Modification History
M01 (Added by) ns2499
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16847  M02S00030.283l840 ---|          ADM    C9LM        APPEND LARGE MEMORY OPTION
Line S11447 Modification History
M01 (Removed by) ns2520
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16848  M02S11447.283l840 ---| SECB     SHN    0
16849  M02S11448.283l840 ---|*         SHN    -UESC
Line S11449 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16850  M01S11449.283l840 ---|          STD    AB+4
16851  M01S11450.283l840 ---|          LDM    TAXM+1
16852  M01S11451.283l840 ---|          ZJN    SEC2        IF NO USER EXTENDED MEMORY
16853  M01S11452.283l840 ---|          LDM    EMTY
16854  M01S11453.283l840 ---|          LMN    4
16855  M01S11454.283l840 ---|          ZJN    SEC2        IF UEM EQUIPMENT - HAVE *REC* ALLOCATE
16856  M01S11455.283l840 ---|          LDN    0
16857  M01S11456.283l840 ---|          STM    TAXM+2      CLEAR USER EM IN UEM FOR *REC*
16858  M01S11457.283l840 ---| SEC1     LDN    5
16859  M01S11458.283l840 ---|          RAD    T1
16860  M01S11459.283l840 ---|          SBN    TAXML
16861  M01S11460.283l840 ---|          PJN    SEC3        IF END OF TABLE
16862  M01S11461.283l840 ---|          LDM    TAXM+2,T1   CHECK FOR USER EXTENDED MEMORY
16863  M01S11462.283l840 ---|          ZJN    SEC1        IF NO USER EXTENDED MEMORY
16864  M01S11463.283l840 ---| SEC2     LDD    EN          SET EXTENDED MEMORY EQUIPMENT FOR *REC*
16865  M01S11464.283l840 ---|          STD    AB
16866  M01S11465.283l840 ---| SEC3     LDN    ECRL        STORE *ECRL*
16867  M01S11466.283l840 ---|          CWD    AB
16868  M01S11467.283l840 ---|          LJM    SECX        RETURN
Line S11468 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
16869  M01S11468.271l716 ---| RMM      SPACE  4
16870  M01S11469.271l716 ---|**        RMM - RECOVER MSTS FROM MS.
Line S00240 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
16871  M01S00240.271l716 +++| RMM      SPACE  4,10
16872  M01S00241.271l716 +++|**        RMM - RECOVER MST-S FROM MASS STORAGE.
16873  M00S11470.set     +++|
16874  M00S11471.set     +++|
16875  M00S11472.set     +++| RMM      SUBR               ENTRY/EXIT
16876  M00S11473.set     +++|          LDD    AB
16877  M00S11474.set     +++|          SCN    14
16878  M00S11475.set     +++|          STD    AB
16879  M00S11476.set     +++|          LDM    TDDB+DVPR
16880  M00S11477.set     +++|          LPN    2
16881  M00S11478.set     +++|          SHN    1
16882  M00S11479.set     +++|          RAD    AB
16883  M00S11480.set     +++|          RJM    RCA         SET MST POINTER
16884  M00S11481.set     +++|          STD    AB+4
16885  M00S11482.set     +++|          SHN    -14
16886  M00S11483.set     +++|          ZJN    RMM1        IF TABLE WITHIN LIMIT
16887  M00S11484.set     +++|          LDC    =C*MASS STORAGE TABLE OVERFLOW.*
16888  M00S11485.set     +++|          LJM    DSE
16889  M00S11486.set     +++|
Line S11487 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
16890  M01S11487.284l847 ---| RMM1     SFA    EST,EQ      STORE EST ENTRY
Line S00627 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
16891  M01S00627.284l847 +++| RMM1     STM    RMMC        CLEAR PARTITION LINK STORAGE
16892  M01S00628.284l847 +++|          SFA    EST,EQ      STORE EST ENTRY
16893  M00S11488.set     +++|          CWD    AB
16894  M00S11489.set     +++|          LDN    MSTXL       CLEAR MST SPACE (INCLUDING EXTENSION)
16895  M00S11490.set     +++|          RJM    CLS
16896  M00S11491.set     +++|          LDD    EQ
16897  M00S11492.set     +++|          ZJN    RMMX        IF EQUIPMENT ZERO
16898  M00S11493.set     +++|          LMN    LDEQ
Line S11494 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
16899  M01S11494.271l716 ---|          NJN    RMM1.1      IF NOT LINK DEVICE
16900  M01S11495.271l716 ---|          SBM    TAXM+3+5    SUBTRACT I/O BUFFERS FOR OTHER MACHINES
16901  M01S11496.271l716 ---|          SBM    TAXM+3+5*2
Line S00242 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
16902  M01S00242.271l716 +++|          NJN    RMM2        IF NOT LINK DEVICE
16903  M01S00243.271l716 +++|          SBM    TAXM+3+5*1
16904  M01S00244.271l716 +++|          SBM    TAXM+3+5*2  SUBTRACT I/O BUFFERS FOR OTHER MACHINES
16905  M00S11497.set     +++|          SBM    TAXM+3+5*3
16906  M00S11498.set     +++|          RAM    TDDB+DVNT
Line S11499 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
16907  M01S11499.271l716 ---| RMM1.1   LDD    EN
16908  M01S11500.271l716 ---|          LMD    EQ
16909  M01S11501.271l716 ---|          NJN    RMM1.2      IF NOT EM EQUIPMENT FOR I/O BUFFERS
16910  M01S11502.271l716 ---|          SBM    TAXM+3      SUBTRACT I/O BUFFERS FOR THIS MACHINE
16911  M01S11503.271l716 ---|          RAM    TDDB+DVNT
16912  M01S11504.271l716 ---|
16913  M01S11505.271l716 ---| RMM1.2   RJM    SHS         SET *HAT* AND *PUT* TABLE SIZES
Line S00245 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
16914  M01S00245.271l716 +++| RMM2     LDD    EN
16915  M01S00246.271l716 +++|          LMD    EQ
16916  M01S00247.271l716 +++|          NJN    RMM3        IF NOT XM EQUIPMENT WITH I/O BUFFERS
16917  M01S00248.271l716 +++|          SBM    TAXM+3
16918  M01S00249.271l716 +++|          RAM    TDDB+DVNT   SUBTRACT I/O BUFFERS FOR THIS MACHINE
16919  M01S00250.271l716 +++|
16920  M01S00251.271l716 +++| RMM3     RJM    SHS         SET *HAT* AND *PUT* TABLE SIZES
16921  M00S11506.set     +++|
16922  M00S11507.set     +++|*         PRESET MASS STORAGE TABLE WORDS.
16923  M00S11508.set     +++|
16924  M00S11509.set     +++|          LDM    TDDB+DVNT   SET NUMBER OF TRACKS
16925  M00S11510.set     +++|          STD    CM
16926  M00S11511.set     +++|          STD    CM+4
16927  M00S11512.set     +++|          ADN    3
16928  M00S11513.set     +++|          SHN    -2
16929  M00S11514.set     +++|          STD    CM+2
16930  M00S11515.set     +++|          LDN    0
16931  M00S11516.set     +++|          STD    CM+1
16932  M00S11517.set     +++|          STD    CM+3
16933  M00S11518.set     +++|          LDD    AB+4        STORE *TDGL*
16934  M00S11519.set     +++|          SHN    3
16935  M00S11520.set     +++|          ADK    TDGL
16936  M00S11521.set     +++|          CWD    CM
16937  M00S11522.set     +++|
16938  M00S11523.set     +++|*         SDGL - SHARED DEVICE STATUS WORD.
16939  M00S11524.set     +++|
16940  M00S11525.set     +++|          LDN    ZERL
16941  M00S11526.set     +++|          CRD    CM
16942  M00S11527.set     +++|          LDD    AB          SET ISD FLAG IN *SDGL*
16943  M00S11528.set     +++|          LPN    20
16944  M00S11529.set     +++|          SHN    13-4
16945  M00S11530.set     +++|          STD    CM
16946  M00S11531.set     +++|          LDD    AB+4
16947  M00S11532.set     +++|          SHN    3
16948  M00S11533.set     +++|          ADN    SDGL
16949  M00S11534.set     +++|          CWD    CM
16950  M00S11535.set     +++|
16951  M00S11536.set     +++|*         ACGL - DEVICE GLOBAL INFORMATION WORD.
16952  M00S11537.set     +++|
16953  M00S11538.set     +++|          LDD    AB          SET GLOBAL UNLOAD IF *OFF* OR *DOWN*
16954  M00S11539.set     +++|          LPN    2
16955  M00S11540.set     +++|          SHN    GUNL-GUNL/12D*12D-1
16956  M00S11541.set     +++|          STD    CM+4
16957  M00S11542.set     +++|          LDN    0
16958  M00S11543.set     +++|          STD    CM
16959  M00S11544.set     +++|          LDM    TDDB+DVPR
16960  M00S11545.set     +++|          LPN    1           APPEND PRESET STATUS FOR ISD
16961  M00S11546.set     +++|          SHN    GPRS-GPRS/12D*12D
16962  M00S11547.set     +++|          RAD    CM+4
16963  M00S11548.set     +++|          LDD    AB+4        STORE *ACGL*
16964  M00S11549.set     +++|          SHN    3
16965  M00S11550.set     +++|          ADN    ACGL
16966  M00S11551.set     +++|          CWD    CM
16967  M00S11552.set     +++|
16968  M00S11553.set     +++|*         DALL - DRIVER ACTIVITY WORD.
16969  M00S11554.set     +++|
16970  M00S11555.set     +++|          LDN    ZERL
16971  M00S11556.set     +++|          CRD    CM
16972  M00S11557.set     +++|          LDD    AB
16973  M00S11558.set     +++|          LPN    3
16974  M00S11559.set     +++|          SHN    11-1
16975  M00S11560.set     +++|          STD    CM
16976  M00S11561.set     +++|          LDD    AB+4
16977  M00S11562.set     +++|          SHN    3
16978  M00S11563.set     +++|          ADN    DALL
16979  M00S11564.set     +++|          CWD    CM
16980  M00S11565.set     +++|
16981  M00S11566.set     +++|*         DILL - DRIVER INTERLOCK WORD.
16982  M00S11567.set     +++|
16983  M00S11568.set     +++|          LDM    TDDB+DVFA   SET FILE ALLOCATION STATUS
16984  M00S11569.set     +++|          STD    CM
Line S00821 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16985  M01S00821.283l840 +++|          LDD    EQ          SET EST ORDINAL
16986  M01S00822.283l840 +++|          STD    CM+1
Line S00629 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
16987  M01S00629.284l847 +++|          LDC    **          SET PRIOR PARTITION EST ORDINAL
16988  M01S00630.284l847 +++| RMMC     EQU    *-1
16989  M01S00631.284l847 +++|          STD    CM+2
Line S00823 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16990  M01S00823.283l840 +++|          LDM    TDDB+DVED   SET EQUIPMENT PARAMETERS
16991  M01S00824.283l840 +++|          STD    CM+3
Line S11570 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
16992  M01S11570.284l847 ---|          LDM    MSAI,MS     SET ALGORITHM INDEX
Line S00632 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
16993  M01S00632.284l847 +++|          LDM    TDDB+DVAI   SET ALGORITHM INDEX
16994  M00S11571.set     +++|          LPN    77
16995  M00S11572.set     +++|          STD    CM+4        ALGORITHM INDEX TO BYTE 4
Line S11573 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
16996  M01S11573.283l840 ---|          LDM    TDDB+DVED   SET EQUIPMENT PARAMETERS
16997  M01S11574.283l840 ---|          STD    CM+3
Line S11575 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
16998  M01S11575.284l847 ---|          LDN    0           PRESET NON-BUFFERED DEVICE
16999  M01S11576.284l847 ---|          STD    CM+2
Line S11577 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
17000  M01S11577.283l840 ---|          STD    CM+1
17001  M00S11578.set     +++|          LDD    AB+4        WRITE *DILL*
17002  M00S11579.set     +++|          SHN    3
17003  M00S11580.set     +++|          ADN    DILL
17004  M00S11581.set     +++|          CWD    CM
17005  M00S11582.set     +++|
17006  M00S11583.set     +++|*         ALGL - DEVICE ALLOCATION INFORMATION WORD.
17007  M00S11584.set     +++|
17008  M00S11585.set     +++|          LDC    TDDB+DVNM
17009  M00S11586.set     +++|          STD    T3          SET POINTER TO PF DEVICE NAME
17010  M00S11587.set     +++|          STM    RMMA
17011  M00S11588.set     +++|          LDD    RS
Line S11589 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17012  M01S11589.271l716 ---|          NJN    RMM8        IF RECOVERY DEADSTART
Line S00252 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17013  M01S00252.271l716 +++|          NJN    RMM7        IF RECOVERY DEADSTART
17014  M00S11590.set     +++|          CRD    CM
17015  M00S11591.set     +++|          LDI    T3
Line S11592 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17016  M01S11592.271l716 ---|          NJN    RMM5        IF PF ENTRY PRESENT
Line S00253 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17017  M01S00253.271l716 +++|          NJN    RMM4        IF PF ENTRY PRESENT
17018  M00S11593.set     +++|          LDD    EQ
17019  M00S11594.set     +++|          LMM    DFMS
Line S11595 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17020  M01S11595.271l716 ---|          NJN    RMM6        IF NOT DEFAULT EQUIPMENT
17021  M01S11596.271l716 ---|          LDN    1
17022  M01S11597.271l716 ---|          UJN    RMM7        SET CATALOG TRACK COUNT TO 1
17023  M01S11598.271l716 ---|
17024  M01S11599.271l716 ---| RMM5     LDM    TDDB+DVPF
17025  M01S11600.271l716 ---|          SHN    -4
17026  M01S11601.271l716 ---|          NJN    RMM7        CATALOG TRACK COUNT SPECIFIED
17027  M01S11602.271l716 ---| RMM6     LDM    MSCT,MS     SET DEFAULT CATALOG TRACK COUNT
17028  M01S11603.271l716 ---| RMM7     STD    CM+3
17029  M01S11604.271l716 ---|          LDD    AB+4        STORE *ALGL*
17030  M01S11605.271l716 ---|          SHN    3
17031  M01S11606.271l716 ---|          ADN    ALGL
Line S00254 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17032  M01S00254.271l716 +++|          NJN    RMM5        IF NOT DEFAULT EQUIPMENT
17033  M01S00255.271l716 +++|          LDN    1
17034  M01S00256.271l716 +++|          UJN    RMM6        SET CATALOG TRACK COUNT TO 1
17035  M01S00257.271l716 +++|
17036  M01S00258.271l716 +++| RMM4     LDM    TDDB+DVPF
17037  M01S00259.271l716 +++|          SHN    -4
17038  M01S00260.271l716 +++|          NJN    RMM6        IF CATALOG TRACK COUNT SPECIFIED
Line S00261 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
17039  M02S00261.284l847 ---| RMM5     LDM    MSCT,MS
17040  M02S00262.284l847 ---| RMM6     STD    CM+3        SET DEFAULT CATALOG TRACK COUNT
Line S00633 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
17041  M01S00633.284l847 +++| RMM5     LDM    TDDB+DVCT   GET DEFAULT CATALOG TRACK COUNT
17042  M01S00634.284l847 +++|          LPC    3777
17043  M01S00635.284l847 +++| RMM6     STD    CM+3        SET CATALOG TRACK COUNT
Line S00263 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17044  M01S00263.271l716 +++|          LDD    AB+4
17045  M01S00264.271l716 +++|          SHN    3
17046  M01S00265.271l716 +++|          ADN    ALGL        STORE *ALGL*
17047  M00S11607.set     +++|          CWD    CM
17048  M00S11608.set     +++|
17049  M00S11609.set     +++|*         MDGL - MASS STORAGE DRIVER WORD.
17050  M00S11610.set     +++|
Line S11611 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17051  M01S11611.271l716 ---| RMM8     LDM    MSSL,MS     SET SINGLE UNIT SECTOR LIMIT
Line S00266 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
17052  M02S00266.284l847 ---| RMM7     LDM    MSSL,MS     SET SINGLE UNIT SECTOR LIMIT
Line S00636 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
17053  M01S00636.284l847 +++| RMM7     LDM    TDDB+DVSL   SET SINGLE UNIT SECTOR LIMIT
17054  M00S11612.set     +++|          STD    CM+1
17055  M00S11613.set     +++|          LPC    3777
17056  M00S11614.set     +++|          STD    CM+4
Line S11615 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
17057  M01S11615.284l847 ---|          LDM    MSDI,MS     SET DRIVER INDEX
Line S00637 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
17058  M01S00637.284l847 +++|          LDD    AB
17059  M01S00638.284l847 +++|          LPN    40
17060  M01S00639.284l847 +++|          ZJN    RMM7.1      IF NOT A BUFFERED DEVICE
17061  M01S00640.284l847 +++|          LDD    CM+1        REMOVE PARTITION NUMBER
17062  M01S00641.284l847 +++|          SCN    17
17063  M01S00642.284l847 +++|          STD    CM+1
17064  M01S00643.284l847 +++| RMM7.1   LDM    TDDB+DVDI   SET DRIVER INDEX
17065  M00S11616.set     +++|          SHN    14
17066  M00S11617.set     +++|          STD    CM+3
17067  M00S11618.set     +++|          SHN    -14
17068  M00S11619.set     +++|          LMC    1RD*100
17069  M00S11620.set     +++|          STD    CM+2
17070  M00S11621.set     +++|          LDD    AB+3        CHECK *EST* MNEMONIC
Line S11622 Modification History
M01 (Removed by) set55
Seq #  *Modification Id* Act 
----------------------------+
17071  M01S11622.set55   ---|          LPC    3777        IGNORE ON/OFF BIT
17072  M00S11623.set     +++|          LMC    2RDP
Line S11624 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17073  M01S11624.271l716 ---|          ZJN    RMM8.1      IF TYPE *DP*
Line S00267 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17074  M01S00267.271l716 +++|          ZJN    RMM8        IF TYPE *DP*
17075  M00S11625.set     +++|          LMK    2RDE&2RDP
17076  M00S11626.set     +++|          NJN    RMM9        IF NOT TYPE *DE*
17077  M00S11627.set     +++|          LDM    TDDB+DVED
Line S11628 Modification History
M01 (Removed by) set55
Seq #  *Modification Id* Act 
----------------------------+
17078  M01S11628.set55   ---|          LPC    700
17079  M01S11629.set55   ---|          LMC    400
Line S00001 Modification History
M01 (Added by) set55
Seq #  *Modification Id* Act 
----------------------------+
17080  M01S00001.set55   +++|          LPN    70
17081  M01S00002.set55   +++|          LMN    40
Line S11630 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17082  M01S11630.271l716 ---|          NJN    RMM8.1      IF NOT UEM
Line S00268 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17083  M01S00268.271l716 +++|          NJN    RMM8        IF NOT UEM
17084  M00S11631.set     +++|          LDC    2RDX        CHANGE DRIVER NAME TO *DX*
17085  M00S11632.set     +++|          STD    CM+2
17086  M00S11633.set     +++|          LDN    LA6DX       RESET DRIVER INDEX
17087  M00S11634.set     +++|          STD    CM+3
Line S11635 Modification History
M01 (Removed by) set55
Seq #  *Modification Id* Act 
----------------------------+
17088  M01S11635.set55   ---| RMM8.1   LDD    AB+2        UPDATE SECTOR LIMIT TO REFLECT XM SHIFT
Line S00003 Modification History
M01 (Added by) set55
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17089  M02S00003.271l716 ---| RMM8.1   LDM    EBUT+7      UPDATE SECTOR LIMIT TO REFLECT XM SHIFT
Line S00269 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17090  M01S00269.271l716 +++| RMM8     LDM    EBUT+7      UPDATE SECTOR LIMIT TO REFLECT XM SHIFT
17091  M00S11636.set     +++|          SHN    -6
17092  M00S11637.set     +++|          LPN    3
17093  M00S11638.set     +++|          ADD    TH
17094  M00S11639.set     +++|          ERRNZ  SHNI-1000
17095  M00S11640.set     +++|          STM    RMMB
17096  M00S11641.set     +++|          LDN    20          MINIMUM SECTOR LIMIT
17097  M00S11642.set     +++| RMMB     SHN    0
17098  M00S11643.set     +++|*         SHN    EMSC
17099  M00S11644.set     +++|          STD    CM+4
17100  M00S11645.set     +++|          ADC    4000        MAINTAIN FULL-TRACK FLAG
17101  M00S11646.set     +++|          STD    CM+1
17102  M00S11647.set     +++| RMM9     LDI    ES
17103  M00S11648.set     +++|          LPC    404
17104  M00S11649.set     +++|          SHN    12-2
17105  M00S11650.set     +++|          STD    CM          SET AUXILIARY STATUS
17106  M00S11651.set     +++|          SHN    13-20
17107  M00S11652.set     +++|          SCN    77
17108  M00S11653.set     +++|          RAD    CM          SET REMOVABLE STATUS
17109  M00S11654.set     +++|          LDD    AB+4        STORE DRIVER WORD
17110  M00S11655.set     +++|          SHN    3
17111  M00S11656.set     +++|          ADN    MDGL
17112  M00S11657.set     +++|          CWD    CM
17113  M00S11658.set     +++|
17114  M00S11659.set     +++|*         STLL - DEVICE STATUS WORD.
17115  M00S11660.set     +++|
17116  M00S11661.set     +++|          LDN    ZERL
17117  M00S11662.set     +++|          CRD    CM
17118  M00S11663.set     +++|          LDD    ID          ADD MACHINE ID
17119  M00S11664.set     +++|          STD    CM+2
Line S11665 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
17120  M01S11665.272l774 ---|          LDM    EBUT+4      SET NUMBER OF UNITS
17121  M01S11666.272l774 ---|          LPN    7
17122  M01S11667.272l774 ---|          STM    TDDB+DVED
Line S00270 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
17123  M02S00270.272l774 ---|          STD    T4          SAVE FOR *DDLL* PROCESSING
Line S11668 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
17124  M01S11668.272l774 ---|          SHN    3
Proceed to Part 10
cdc/nos2.source/opl.opl871/deck/set.009.txt ยท Last modified: by 127.0.0.1