User Tools

Site Tools


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

Deck SET Part 015

79 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
17699  M01S00007.ns2775  +++|          SBM    /EQP/TDDB+DVCO  BASE CYLINDER FOR PARTITION
17700  M01S00008.ns2775  +++|          MJN    FRD5        IF CYLINDER NOT IN THIS PARTITION
17701  M01S00009.ns2775  +++|          STD    CM          SAVE RELATIVE CYLINDER
Line S12093 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17702  M02S12093.271l716 ---|          LDC    1LT         CHECK FOR A VALID TRACK ADDRESS
Line S12094 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17703  M02S12094.271l716 ---|          LMM    TKCY,T3
17704  M01S00301.271l716 +++|          LDM    CVNF,T3
17705  M01S00302.271l716 +++|          ERRNZ  SHNI-1000   CODE DEPENDS ON VALUE
17706  M01S00303.271l716 +++|          LMD    TH
17707  M01S00304.271l716 +++|          STM    FRDA        SET PHYSICAL SECTOR CONVERSION
17708  M01S00305.271l716 +++|          LDC    1LT
17709  M01S00306.271l716 +++|          LMM    TKCY,T3     CHECK FOR VALID TRACK ADDRESS
17710  M01S12095.set     +++|          RJM    CTE
17711  M01S12096.set     +++|          STD    CM+1        SAVE TRACK
17712  M01S12097.set     +++|          LDM    PSPT,T3
17713  M01S12098.set     +++|          LMC    1LS         CHECK FOR A VALID SECTOR ADDRESS
17714  M01S12099.set     +++|          RJM    CTE
Line S12100 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17715  M02S12100.271l716 ---|          STD    T0          SAVE SECTOR
Line S12101 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17716  M02S12101.271l716 ---|
Line S12102 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17717  M02S12102.271l716 ---|
Line S12103 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17718  M02S12103.271l716 ---|*         MULTIPLY THE CYLINDER VALUE BY THE NUMBER OF LOGICAL TRACKS
Line S12104 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17719  M02S12104.271l716 ---|*         PER CYLINDER.
Line S12105 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17720  M02S12105.271l716 ---|
Line S12106 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17721  M02S12106.271l716 ---|          LDN    0           INITIALIZE LOGICAL TRACK
Line S12107 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17722  M02S12107.271l716 ---|          STD    AB+4
Line S12108 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17723  M02S12108.271l716 ---| FRD4     SOD    CM
Line S12109 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17724  M02S12109.271l716 ---|          MJN    FRD5        IF END OF CONVERSION
Line S12110 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17725  M02S12110.271l716 ---|          LDM    LTCY,T3
Line S12111 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17726  M02S12111.271l716 ---|          RAD    AB+4
Line S12112 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17727  M02S12112.271l716 ---|          UJN    FRD4        LOOP ON CONVERSION
Line S12113 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17728  M02S12113.271l716 ---|
Line S12114 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17729  M02S12114.271l716 ---|*         COMPUTE THE RELATIVE SECTOR OFFSET OF THE SPECIFIED SECTOR
Line S12115 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17730  M02S12115.271l716 ---|*         FROM THE BEGINNING OF THE CYLINDER.
Line S12116 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17731  M02S12116.271l716 ---|
Line S12117 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17732  M02S12117.271l716 ---| FRD5     SOD    CM+1
Line S12118 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17733  M02S12118.271l716 ---|          MJN    FRD6        IF END OF CONVERSION
Line S12119 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17734  M02S12119.271l716 ---|          LDM    PSPT,T3
Line S12120 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17735  M02S12120.271l716 ---|          RAD    T0
Line S12121 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17736  M02S12121.271l716 ---|          UJN    FRD5        LOOP ON CONVERSION
Line S12122 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17737  M02S12122.271l716 ---|
Line S12123 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17738  M02S12123.271l716 ---| FRD6     LDM    HTFT,T3
Line S12124 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17739  M02S12124.271l716 ---|          ZJN    FRD9        IF A FULL TRACK DEVICE
Line S12125 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17740  M02S12125.271l716 ---|
Line S12126 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17741  M02S12126.271l716 ---|*         FOR HALF TRACK DEVICES, DETERMINE WHICH LOGICAL TRACK IN THE
Line S12127 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17742  M02S12127.271l716 ---|*         CYLINDER CONTAINS THE SPECIFIED ADDRESS AND ADD THE LOGICAL
Line S12128 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17743  M02S12128.271l716 ---|*         TRACK OFFSET TO THE LOGICAL TRACK TOTAL VALUE.   FOR ALL HALF
Line S12129 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17744  M02S12129.271l716 ---|*         TRACK DEVICES EXCEPT *DI*, THE BOTTOM BIT OF THE RELATIVE
Line S12130 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17745  M02S12130.271l716 ---|*         SECTOR OFFSET IS THE LOGICAL TRACK OFFSET.
Line S12131 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17746  M02S12131.271l716 ---|
Line S12132 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17747  M02S12132.271l716 ---|          LDM    SPFA
Line S12133 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17748  M02S12133.271l716 ---|          LMC    2RDI
Line S12134 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17749  M02S12134.271l716 ---|          STD    T5
Line S12135 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17750  M02S12135.271l716 ---|          NJN    FRD7        IF NOT A *DI* DEVICE
Line S12136 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17751  M02S12136.271l716 ---|          LDD    T0          MULTIPLY BOTTOM BIT BY TWO
Line S12137 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17752  M02S12137.271l716 ---|          LPN    1
Line S12138 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17753  M02S12138.271l716 ---|          SHN    1
Line S12139 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17754  M02S12139.271l716 ---|          UJN    FRD8        ADD TO LOGICAL TRACK TOTAL
Line S12140 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17755  M02S12140.271l716 ---|
Line S12141 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17756  M02S12141.271l716 ---| FRD7     LDD    T0          THE BOTTOM BIT IS THE LOGICAL TRACK OFFSET
Line S12142 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17757  M02S12142.271l716 ---|          LPN    1
Line S12143 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17758  M02S12143.271l716 ---| FRD8     RAD    AB+4
Line S12144 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17759  M02S12144.271l716 ---|
Line S12145 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17760  M02S12145.271l716 ---|*         FOR FULL TRACK DEVICES, THE LOGICAL TRACK OFFSET IN THE
Line S12146 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17761  M02S12146.271l716 ---|*         CYLINDER IS DETERMINED BY DIVIDING BY THE NUMBER OF SECTORS
Line S12147 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17762  M02S12147.271l716 ---|*         PER LOGICAL TRACK, INCLUDING ANY GAP SECTORS.
Line S12148 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17763  M02S12148.271l716 ---|
Line S12149 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17764  M02S12149.271l716 ---| FRD9     LDN    0
Line S12150 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17765  M02S12150.271l716 ---|          SBM    PSLT,T3
Line S12151 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17766  M02S12151.271l716 ---|          RAD    T0
Line S12152 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17767  M02S12152.271l716 ---|          MJN    FRD11       IF IN PREVIOUS LOGICAL TRACK
Line S12153 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17768  M02S12153.271l716 ---|          LDD    T5
Line S12154 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17769  M02S12154.271l716 ---|          ZJN    FRD10       IF *DI* (TREAT LIKE A FULL TRACK DEVICE)
Line S12155 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17770  M02S12155.271l716 ---|          LDM    HTFT,T3
Line S12156 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17771  M02S12156.271l716 ---|          NJN    FRD9        IF A HALF TRACK DEVICE
Line S12157 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17772  M02S12157.271l716 ---| FRD10    AOD    AB+4
Line S12158 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17773  M02S12158.271l716 ---|          UJN    FRD9        CHECK NEXT LOGICAL TRACK
Line S12159 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17774  M02S12159.271l716 ---|
Line S12160 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17775  M02S12160.271l716 ---|*         DETERMINE WHETHER OR NOT THE USER GAVE THE PHYSICAL ADDRESS
Line S12161 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17776  M02S12161.271l716 ---|*         OF A GAP SECTOR.  IF SO, AVOID SETTING OR CLEARING THE FLAW.
Line S12162 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17777  M02S12162.271l716 ---|
Line S12163 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17778  M02S12163.271l716 ---| FRD11    ADM    GSLT,T3
Line S12164 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17779  M02S12164.271l716 ---|          PJN    FRD12       IF GAP SECTOR
17780  M01S00307.271l716 +++| FRDA     SHN    0           CONVERT PHYSICAL TO LOGICAL SECTOR
17781  M01S00308.271l716 +++|          STD    AB+1
17782  M01S00309.271l716 +++|          SHN    -14
17783  M01S00310.271l716 +++|          STD    AB
17784  M01S00311.271l716 +++|          LCN    0           INITIALIZE LOGICAL TRACK CALCULATION
17785  M01S00312.271l716 +++|          STD    AB+4
17786  M01S00313.271l716 +++|
17787  M01S00314.271l716 +++|*         MULTIPLY THE TRACK VALUE BY THE NUMBER OF LOGICAL
17788  M01S00315.271l716 +++|*         SECTORS PER PHYSICAL TRACK.
17789  M01S00316.271l716 +++|
17790  M01S00317.271l716 +++| FRD1     SOD    CM+1
17791  M01S00318.271l716 +++|          MJN    FRD3        IF END OF CONVERSION
17792  M01S00319.271l716 +++|          LDM    LSPT,T3
17793  M01S00320.271l716 +++|          RAD    AB+1        ADVANCE LOGICAL SECTOR COUNT
17794  M01S00321.271l716 +++|          SHN    -14
17795  M01S00322.271l716 +++|          RAD    AB
17796  M01S00323.271l716 +++|          UJN    FRD1        LOOP ON CONVERSION
17797  M01S00324.271l716 +++|
17798  M01S00325.271l716 +++|*         MULTIPLY THE CYLINDER VALUE BY THE NUMBER OF LOGICAL
17799  M01S00326.271l716 +++|*         SECTORS PER CYLINDER.
17800  M01S00327.271l716 +++|
Line S00328 Modification History
M01 (Added by) 271l716
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
17801  M02S00328.284l847 ---| FRD2     LDM    LSCY,T3     ADVANCE LOGICAL SECTOR COUNT
17802  M01S00737.284l847 +++| FRD2     LDM    LSCY+1,T3   ADVANCE LOGICAL SECTOR COUNT
17803  M01S00329.271l716 +++|          RAD    AB+1
17804  M01S00330.271l716 +++|          SHN    -14
17805  M01S00738.284l847 +++|          ADM    LSCY,T3
17806  M01S00331.271l716 +++|          RAD    AB
17807  M01S00332.271l716 +++| FRD3     SOD    CM
17808  M01S00333.271l716 +++|          PJN    FRD2        IF NOT END OF CONVERSION
17809  M01S00334.271l716 +++|
17810  M01S00335.271l716 +++|*         DIVIDE THE ACCUMULATED LOGICAL SECTOR COUNT BY THE
17811  M01S00336.271l716 +++|*         SUM OF (LOGICAL + GAP) SECTORS PER LOGICAL TRACK.
17812  M01S00337.271l716 +++|
17813  M01S00338.271l716 +++| FRD4     AOD    AB+4        ADVANCE LOGICAL TRACK NUMBER
17814  M01S00339.271l716 +++|          LDN    0
17815  M01S00340.271l716 +++|          SBM    LSLT,T3     DIVIDE BY ITERATIVE SUBTRACTION
17816  M01S00341.271l716 +++|          RAD    AB+1
17817  M01S00342.271l716 +++|          PJN    FRD4        IF NO UNDERFLOW
17818  M01S00343.271l716 +++|          AOD    AB+1
17819  M01S00344.271l716 +++|          SOD    AB
17820  M01S00345.271l716 +++|          PJN    FRD4        IF DIVISION INCOMPLETE
17821  M01S12165.set     +++|          RJM    PTF         PROCESS TRACK FLAW
17822  M01S12166.set     +++|          JMP    KBR         RETURN
Line S12167 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17823  M02S12167.271l716 ---|
Line S12168 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
17824  M02S12168.271l716 ---| FRD12    JMP    ILL         PROCESS INCORRECT ENTRY
17825  M01S12169.set     +++| CTE      SPACE  4,10
17826  M01S12170.set     +++|**        CTE - CHECK TRACK ENTRY.
17827  M01S12171.set     +++|*
17828  M01S12172.set     +++|*         ENTRY  (A) 12 - 17 = CHARACTER OF NEXT ENTRY.
17829  M01S12173.set     +++|*                (A)  0 - 11 = LIMIT FOR NUMBER.
17830  M01S12174.set     +++|*                (KA) = NEXT CHARACTER ADDRESS.
17831  M01S12175.set     +++|*
17832  M01S12176.set     +++|*         CALLS  AOD.
17833  M01S12177.set     +++|
17834  M01S12178.set     +++|
17835  M01S12179.set     +++| CTE2     AOD    KA          SKIP PREFIX CHARACTER
17836  M01S12180.set     +++|          RJM    AOD
17837  M01S12181.set     +++|          LDI    KA          CHECK SEPARATOR
17838  M01S12182.set     +++|          LMN    1R.
17839  M01S12183.set     +++|          ZJN    CTE3        IF END OF ENTRY
17840  M01S12184.set     +++|          AOD    KA
17841  M01S12185.set     +++| CTE3     LDC    *           CHECK ASSEMBLY
17842  M01S12186.set     +++| CTEA     EQU    *-1
17843  M01S12187.set     +++|          SBD    AB+4
17844  M01S12188.set     +++|          MJN    CTE1        IF OUT OF RANGE
17845  M01S12189.set     +++|          LDD    AB+4        RETURN WITH ASSEMBLY
17846  M01S12190.set     +++|
17847  M01S12191.set     +++| CTE      SUBR               ENTRY/EXIT
17848  M01S12192.set     +++|          SBN    1           SET LIMIT
17849  M01S12193.set     +++|          STM    CTEA
17850  M01S12194.set     +++|          SHN    -14         CHECK NEXT CHARACTER
17851  M01S12195.set     +++|          LMI    KA
17852  M01S12196.set     +++|          ZJN    CTE2        IF PROPER CHARACTER
17853  M01S12197.set     +++| CTE1     JMP    ILL         PROCESS INCORRECT ENTRY
17854  M01S12198.set     +++| AJT      SPACE  4,10
17855  M01S12199.set     +++|**        AJT - ADJUST TRT FOR UNUSED TRACKS.
17856  M01S12200.set     +++|*
17857  M01S12201.set     +++|*         ENTRY  (T7) = MST ADDRESS / 10B.
17858  M01S12202.set     +++|*                (T4) = 0 (SET FLAW REQUEST FOR *PTF*).
17859  M01S12203.set     +++|*
17860  M01S12204.set     +++|*         USES   AB+4, CN - CN+4.
17861  M01S12205.set     +++|*
17862  M01S12206.set     +++|*         CALLS  PTF.
17863  M01S12207.set     +++|
17864  M01S12208.set     +++|
17865  M01S12209.set     +++| AJT      SUBR               ENTRY/EXIT
17866  M01S12210.set     +++|          LDD    T7          READ *TDGL*
17867  M01S12211.set     +++|          SHN    3
17868  M01S12212.set     +++|          ADK    TDGL
17869  M01S12213.set     +++|          CRD    CN
17870  M01S12214.set     +++|          LDD    CN          SET LAST TRACK
17871  M01S12215.set     +++|          STD    AB+4
17872  M01S12216.set     +++| AJT1     LPN    3
17873  M01S12217.set     +++|          ZJN    AJTX        IF END OF TRT
17874  M01S12218.set     +++|          RJM    PTF         PROCESS TRACK FLAW
17875  M01S12219.set     +++|          AOD    CN+4        RESET TRACK COUNT
17876  M01S12220.set     +++|          LDD    T7          RESTORE *TDGL*
17877  M01S12221.set     +++|          SHN    3
17878  M01S12222.set     +++|          ADK    TDGL
17879  M01S12223.set     +++|          CWD    CN
17880  M01S12224.set     +++|          AOD    AB+4        ADVANCE TRACK
17881  M01S12225.set     +++|          UJN    AJT1        LOOP FOR NEXT TRACK
17882  M01S12226.set     +++| CET      SPACE  4,10
17883  M01S12227.set     +++|**        CET - CONVERT EXTENDED MEMORY ADDRESS TO TRACK NUMBER.
17884  M01S12228.set     +++|*
17885  M01S12229.set     +++|*         ENTRY  (AB+3 - AB+4) = EXTENDED MEMORY ADDRESS.
17886  M01S12230.set     +++|*
17887  M01S12231.set     +++|*         EXIT   (A) = (T3) = TRACK NUMBER.
17888  M01S12232.set     +++|*
17889  M01S12233.set     +++|*         USES   T1 - T3.
17890  M01S12234.set     +++|
17891  M01S12235.set     +++|
17892  M01S12236.set     +++| CET2     JMP    ILL         ADDRESS TOO LARGE
17893  M01S12237.set     +++|
17894  M01S12238.set     +++| CET      SUBR
17895  M01S12239.set     +++|          LDD    AB+4
17896  M01S12240.set     +++| CETA     SHN    -3
17897  M01S12241.set     +++|*         SHN    -3-EMSC     (EMSC = EXTENDED MEMORY SHIFT COUNT)
17898  M01S12242.set     +++|          STD    T2
17899  M01S12243.set     +++|          LDD    AB+3        CHECK ASSEMBLY
17900  M01S12244.set     +++| CETB     SHN    -11
17901  M01S12245.set     +++|*         SHN    -11-EMSC    (EMSC = EXTENDED MEMORY SHIFT COUNT)
17902  M01S12246.set     +++|          NJN    CET2        IF OUT OF RANGE
17903  M01S12247.set     +++|          LDD    AB+3
17904  M01S12248.set     +++| CETC     SHN    17
17905  M01S12249.set     +++|*         SHN    17-EMSC     (EMSC = EXTENDED MEMORY SHIFT COUNT)
17906  M01S12250.set     +++|          STD    T1
17907  M01S12251.set     +++|          SHN    -6
17908  M01S12252.set     +++|          RAD    T2
17909  M01S12253.set     +++|          LCN    0           CLEAR TRACK
17910  M01S12254.set     +++|          STD    T3
17911  M01S12255.set     +++| CET1     AOD    T3
17912  M01S12256.set     +++|          LDC    -202
17913  M01S12257.set     +++|          RAD    T2
17914  M01S12258.set     +++|          PJN    CET1        IF TRACK NOT FOUND
17915  M01S12259.set     +++|          AOD    T2
17916  M01S12260.set     +++|          SOD    T1
17917  M01S12261.set     +++|          PJN    CET1        IF TRACK NOT FOUND
17918  M01S12262.set     +++|          LDD    T3
17919  M01S12263.set     +++|          UJN    CETX        RETURN
17920  M01S12264.set     +++| PDF      SPACE  4,10
17921  M01S12265.set     +++|**        PDF - PROCESS DISK FLAWS.
17922  M01S12266.set     +++|*
17923  M01S12267.set     +++|*         USES   EQ, T5, T7, CM - CM+4, CN - CN+4.
17924  M01S12268.set     +++|*
17925  M01S12269.set     +++|*         CALLS  ATD, IBF, RTD, SME, /EQP/STA.
17926  M01S12270.set     +++|
17927  M01S12271.set     +++|
17928  M01S12272.set     +++| PDF9     LDC    0
17929  M01S12273.set     +++| PDFD     EQU    *-1
17930  M01S12274.set     +++|          ZJN    PDFX        IF NO MORE FLAW DECKS TO PROCESS
17931  M01S12275.set     +++|          STM    TTXC+APRD
17932  M01S12276.set     +++|          RJM    RTD         LOAD NEXT DECK
17933  M01S12277.set     +++|          LDN    0
17934  M01S12278.set     +++|          STM    PDFD
17935  M01S12279.set     +++|          UJN    PDF1        FIND EQUIPMENT ENTRY TO MATCH APRDECK
17936  M01S12280.set     +++|
17937  M01S12281.set     +++| PDF      SUBR               ENTRY/EXIT
17938  M01S12282.set     +++| PDF1     LDN    NOPE-1      INITIALIZE EQUIPMENT SEARCH
17939  M01S12283.set     +++|          STD    EQ
17940  M01S12284.set     +++| PDF2     RJM    SME
17941  M01S12285.set     +++|          ZJN    PDF9        IF EST SCAN COMPLETE
Line S12286 Modification History
M01 (Added by) set
M02 (Updated by) set73
Seq #  *Modification Id* Act 
----------------------------+
17942  M02S12286.set73   ---|          SHN    13-10
Line S12287 Modification History
M01 (Added by) set
M02 (Updated by) set73
Seq #  *Modification Id* Act 
----------------------------+
17943  M02S12287.set73   ---|          MJN    PDF2        IF REMOVABLE DEVICE
17944  M01S12288.set     +++|          LDD    AB+4
17945  M01S12289.set     +++|          STD    T7
17946  M01S12290.set     +++|          SHN    3
17947  M01S12291.set     +++|          ADN    STLL
17948  M01S12292.set     +++|          CRD    CM
17949  M01S12293.set     +++|          LDD    CM          CHECK FOR INITIALIZE SET
17950  M01S12294.set     +++|          LPC    MLIAL
17951  M01S12295.set     +++|          ZJN    PDF2        IF NOT INITIALIZED
17952  M01S12296.set     +++|
17953  M01S12297.set     +++|*         PROCESS EXTENDED MEMORY.
17954  M01S12298.set     +++|
17955  M01S12299.set     +++|          LDD    AB+3
17956  M01S12300.set     +++|          LMC    2RDE
17957  M01S12301.set     +++|          ZJN    PDF3        IF EXTENDED MEMORY
17958  M01S12302.set     +++|          LMK    2RDP&2RDE
17959  M01S12303.set     +++|          NJP    PDF5        IF NOT EXTENDED MEMORY
17960  M01S12304.set     +++| PDF3     LDD    AB+2
17961  M01S12305.set     +++|          SHN    -6
17962  M01S12306.set     +++|          LPN    3
17963  M01S12307.set     +++|          STD    T0
17964  M01S12308.set     +++|          LDC    SHNI+77-3
17965  M01S12309.set     +++|          SBD    T0
17966  M01S12310.set     +++|          STM    CETA        PRESET EXTENDED MEMORY SHIFTS
17967  M01S12311.set     +++|          SBN    6
17968  M01S12312.set     +++|          STM    CETB
17969  M01S12313.set     +++|          ADK    11+17-77
17970  M01S12314.set     +++|          STM    CETC
17971  M01S12315.set     +++|          LDD    T0
17972  M01S12316.set     +++|          NJN    PDF4        IF NOT DEFAULT TRACK SIZE
17973  M01S12317.set     +++|          LDC    CETK        SET *CETK* TRACK FLAW
17974  M01S12318.set     +++|          STD    AB+4
17975  M01S12319.set     +++|          LDN    0           PROCESS TRACK FLAW
17976  M01S12320.set     +++|          STD    T4
17977  M01S12321.set     +++|          RJM    PTF
17978  M01S12322.set     +++| PDF4     LDK    BIOL        CHECK IF BUFFERED I/O PRESENT
17979  M01S12323.set     +++|          CRD    CM
17980  M01S12324.set     +++|          LDD    CM+1
17981  M01S12325.set     +++|          ADD    CM+2
17982  M01S12326.set     +++|          ZJN    PDF5        IF NO BUFFERED I/O DEFINED
17983  M01S12327.set     +++|          LDD    T7
17984  M01S12328.set     +++|          SHN    3
17985  M01S12329.set     +++|          ADN    DILL
17986  M01S12330.set     +++|          CRD    CN
17987  M01S12331.set     +++|          LDD    CN+3        CHECK FOR LCME
17988  M01S12332.set     +++|          LPN    70
17989  M01S12333.set     +++|          LMN    20
17990  M01S12334.set     +++|          NJN    PDF5        IF NOT LCME
17991  M01S12335.set     +++|          LDC    LCTK        RESERVE 176/BUFFERED I/O TRACK
17992  M01S12336.set     +++|          STD    AB+4
17993  M01S12337.set     +++|          RJM    PTF         PROCESS TRACK FLAW
17994  M01S12338.set     +++| PDF5     LDD    EQ
17995  M01S12339.set     +++|          RJM    /EQP/STA    FETCH DEVICE PARAMETERS
17996  M01S12340.set     +++|          LDM    /EQP/TDDB+DVAP
17997  M01S12341.set     +++|          STD    CN+4        SAVE APRDECK NUMBER
17998  M01S12342.set     +++|          SBM    TTXC+APRD
17999  M01S12343.set     +++|          NJN    PDF6        IF NOT APRDECK MATCH
18000  M01S12344.set     +++|          LDD    EQ
18001  M01S12345.set     +++|          STD    T5
18002  M01S12346.set     +++|          LDN    RPSF        RESET SECOND BUFFER
18003  M01S12347.set     +++|          RJM    IBF
18004  M01S12348.set     +++|          LDD    AB+3        SAVE EQUIPMENT MNEMONIC
18005  M01S12349.set     +++|          STM    SPFA
18006  M01S12350.set     +++|          RJM    ATD         ASSEMBLE TEXT
18007  M01S12351.set     +++|          UJN    PDF8        CHECK NEXT ORDINAL
18008  M01S12352.set     +++|
18009  M01S12353.set     +++| PDF6     MJN    PDF8        IF SMALLER APRDECK NUMBER
18010  M01S12354.set     +++|          LDM    PDFD
18011  M01S12355.set     +++|          ZJN    PDF7        IF FIRST DECK ON THIS EST PASS
18012  M01S12356.set     +++|          LDD    CN+4        FIND NEXT LARGEST APRDECK
18013  M01S12357.set     +++|          SBM    PDFD
18014  M01S12358.set     +++|          PJN    PDF8        IF NOT A SMALLER APRDECK NUMBER
18015  M01S12359.set     +++| PDF7     LDD    CN+4        SET NEXT DECK NUMBER
18016  M01S12360.set     +++|          STM    PDFD
18017  M01S12361.set     +++| PDF8     LJM    PDF2        CHECK NEXT ORDINAL
18018  M01S12362.set     +++| PTF      SPACE  4,10
18019  M01S12363.set     +++|**        PTF - PROCESS TRACK FLAW.
18020  M01S12364.set     +++|*
18021  M01S12365.set     +++|*         ENTRY  (T4) = 0, IF SET FLAW REQUEST.
18022  M01S12366.set     +++|*                       1, IF CLEAR FLAW REQUEST.
18023  M01S12367.set     +++|*                (T7) = MST ADDRESS / 10B.
18024  M01S12368.set     +++|*                (AB+4) = TRACK NUMBER.
18025  M01S12369.set     +++|*
18026  M01S12370.set     +++|*         EXIT   (CA - CA+1) = TRT ADDRESS.
18027  M01S12371.set     +++|*
18028  M01S12372.set     +++|*         USES   T1 - T2, CM - CM+4, CN - CN+4.
18029  M01S12373.set     +++|
18030  M01S12374.set     +++|
18031  M01S12375.set     +++| PTF      SUBR               ENTRY/EXIT
18032  M01S12376.set     +++|          LDD    AB+4        UNPACK TRACK
18033  M01S12377.set     +++|          LPC    3777
18034  M01S12378.set     +++|          SHN    21-1        SET WORD INDEX
18035  M01S12379.set     +++|          STD    T1
18036  M01S12380.set     +++|          SHN    1-21        SET BYTE INDEX
18037  M01S12381.set     +++|          ADN    CM
18038  M01S12382.set     +++|          STD    T2
18039  M01S12383.set     +++|          LMC    SHNI+77-CM  FORM SHIFT INSTRUCTION
18040  M01S12384.set     +++|          STM    PTFA
18041  M01S12385.set     +++|          STM    PTFB
18042  M01S12386.set     +++|          LDD    T7          READ MST TRACK COUNT
18043  M01S12387.set     +++|          SHN    3
18044  M01S12388.set     +++|          ADK    TDGL
18045  M01S12389.set     +++|          CRD    CN
18046  M01S12390.set     +++|          ADN    TRLL-TDGL
18047  M01S12391.set     +++|          CRD    CM
18048  M01S12392.set     +++|          LDD    CM+3        SET TRT ADDRESS
18049  M01S12393.set     +++|          LPN    77
18050  M01S12394.set     +++|          STD    CA
18051  M01S12395.set     +++|          SHN    14          READ TRT WORD
18052  M01S12396.set     +++|          LMD    CM+4
18053  M01S12397.set     +++|          STD    CA+1
18054  M01S12398.set     +++|          ADD    T1
18055  M01S12399.set     +++|          CRD    CM
18056  M01S12400.set     +++|          LDD    CN+2        CHECK TRACK
18057  M01S12401.set     +++|          SHN    2
18058  M01S12402.set     +++|          SBD    T1
18059  M01S12403.set     +++|          SBN    1
18060  M01S12404.set     +++|          PJN    PTF1        IF TRACK WITHIN TRT
18061  M01S12405.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
18062  M01S12406.set     +++|
18063  M01S12407.set     +++| PTF1     LDD    T4
18064  M01S12408.set     +++|          ZJN    PTF4        IF SET FLAW OPTION
18065  M01S12409.set     +++|          LDI    T2
18066  M01S12410.set     +++|          ZJN    PTF3        IF TRACK NOT RESERVED
18067  M01S12411.set     +++|          AOD    CN+4        INCREMENT AVAILABLE TRACK COUNT
18068  M01S12412.set     +++|          LDN    10          RESERVE TRACK
18069  M01S12413.set     +++| PTFA     SHN    -**
18070  M01S12414.set     +++|          LMD    CM+4        CLEAR RESERVATION
18071  M01S12415.set     +++|          STD    CM+4
18072  M01S12416.set     +++|          LDN    0           CLEAR BYTE
18073  M01S12417.set     +++| PTF3     STI    T2
18074  M01S12418.set     +++|          LDD    T7          UPDATE TRACK COUNT IN MST
18075  M01S12419.set     +++|          SHN    3
18076  M01S12420.set     +++|          ADK    TDGL
18077  M01S12421.set     +++|          CWD    CN
18078  M01S12422.set     +++|          LDD    CA          STORE TRT WORD
18079  M01S12423.set     +++|          SHN    14
18080  M01S12424.set     +++|          LMD    CA+1
18081  M01S12425.set     +++|          ADD    T1
18082  M01S12426.set     +++|          CWD    CM
18083  M01S12427.set     +++|          LJM    PTFX        RETURN
18084  M01S12428.set     +++|
18085  M01S12429.set     +++| PTF4     LDN    10
18086  M01S12430.set     +++| PTFB     SHN    -**
18087  M01S12431.set     +++|          STD    T0
18088  M01S12432.set     +++|          LMC    7777
18089  M01S12433.set     +++|          STM    PTFC
18090  M01S12434.set     +++|          LDD    CM+4        SET TRACK RESERVATION
18091  M01S12435.set     +++|          LPC    0
18092  M01S12436.set     +++| PTFC     EQU    *-1
18093  M01S12437.set     +++|          LMD    T0
18094  M01S12438.set     +++|          STD    CM+4
18095  M01S12439.set     +++|          LDI    T2
18096  M01S12440.set     +++|          NJN    PTF5        IF TRACK ALREADY FLAWED
18097  M01S12441.set     +++|          SOD    CN+4        DECREMENT TRACK COUNT
18098  M01S12442.set     +++| PTF5     LDC    3777
18099  M01S12443.set     +++|          UJN    PTF3        SET TRACK BYTE
18100  M01S12444.set     +++| PTL      SPACE  4,10
18101  M01S12445.set     +++|**        PTL - PROCESS TRT LENGTH.
18102  M01S12446.set     +++|*
18103  M01S12447.set     +++|*         USES   EQ, T4, T7, CM - CM+4.
18104  M01S12448.set     +++|*
18105  M01S12449.set     +++|*         CALLS  AJT, SME.
18106  M01S12450.set     +++|
18107  M01S12451.set     +++|
18108  M01S12452.set     +++| PTL1     LDD    AB+4        SET MST POINTER
18109  M01S12453.set     +++|          STD    T7
18110  M01S12454.set     +++|          SHN    3
18111  M01S12455.set     +++|          ADN    STLL
18112  M01S12456.set     +++|          CRD    CM
18113  M01S12457.set     +++|          LDD    CM          CHECK FOR INITIALIZE SET
18114  M01S12458.set     +++|          LPC    MLIAL
18115  M01S12459.set     +++|          ZJN    PTL2        IF INITIALIZE NOT SET
18116  M01S12460.set     +++|          RJM    AJT
18117  M01S12461.set     +++| PTL2     RJM    SME
18118  M01S12462.set     +++|          NJN    PTL1        IF NOT END OF EST
18119  M01S12463.set     +++|
18120  M01S12464.set     +++| PTL      SUBR               ENTRY/EXIT
18121  M01S12465.set     +++|          LDN    0
18122  M01S12466.set     +++|          STD    T4          SELECT SET FLAW PROCESSING
18123  M01S12467.set     +++|          STD    EQ
18124  M01S12468.set     +++|          UJN    PTL2        CHECK TRT LENGTHS
18125  M01S12469.set     +++|          TITLE  SUBROUTINES.
18126  M01S02293.274l797 +++|          AODSUB
18127  M01S02294.274l797 +++|          ASDSUB
18128  M01S02295.274l797 +++|          CDRSUB
18129  M01S12470.set     +++| CMC      SPACE  4,10
18130  M01S12471.set     +++|**        CMC - CHECK MACHINE CONFIGURATION.
18131  M01S12472.set     +++|*
18132  M01S12473.set     +++|*         ENTRY  (EP) = EST ADDRESS.
18133  M01S12474.set     +++|*                (LD) = LINK DEVICE DEFINITION.
18134  M01S12475.set     +++|*
18135  M01S12476.set     +++|*         USES   AB - AB+4, CM - CM+4, T1 - T7.
18136  M01S12477.set     +++|
18137  M01S12478.set     +++|
18138  M01S12479.set     +++| CMC      SUBR               ENTRY/EXIT
18139  M01S12480.set     +++|          LDD    LD
18140  M01S12481.set     +++|          LPC    777
18141  M01S12482.set     +++|          ZJN    CMCX        IF NOT MMF ENVIRONMENT
18142  M01S12483.set     +++|          SFA    EST
18143  M01S12484.set     +++|          CRD    CM          READ EST ENTRY FOR LINK DEVICE
18144  M01S12485.set     +++|          LDN    ZERL
18145  M01S12486.set     +++|          CRD    T0
18146  M01S12487.set     +++|          CRD    AB
18147  M01S12488.set     +++|          LCN    0           INITIALIZE FLAG REGISTER STATUS
18148  M01S12489.set     +++|          STD    AB+3
18149  M01S12490.set     +++|          LDD    CM+4        GET MST STATUS WORD
18150  M01S12491.set     +++|          SHN    3
18151  M01S12492.set     +++|          ADN    STLL
18152  M01S12493.set     +++|          CRD    CM
18153  M01S12494.set     +++|          ADN    TRLL-STLL   FETCH TRT ADDRESS
18154  M01S12495.set     +++|          CRD    T7-4
18155  M01S12496.set     +++|          LDD    CM          EXTRACT INITIALIZE FLAG
18156  M01S12497.set     +++|          SHN    -6
18157  M01S12498.set     +++|          LPN    20
18158  M01S12499.set     +++|          RAD    AB+2
Line S12500 Modification History
M01 (Added by) set
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
18159  M02S12500.283l840 ---|          LDM    SETD        CHECK PRESET STATUS
18160  M01S00825.283l840 +++|          LDM    PRSF        CHECK PRESET STATUS
18161  M01S12501.set     +++|          ZJN    CMC7        IF PRESET NOT SPECIFIED
18162  M01S12502.set     +++|          LDN    40          SET *PRESET* SELECTED
18163  M01S12503.set     +++|          RAD    AB+2
18164  M01S12504.set     +++|          UJN    CMC7        FIND POTENTIAL LABEL TRACK
18165  M01S12505.set     +++|
18166  M01S12506.set     +++| CMC4     LDC    =C*LINK DEVICE LABEL TRACK ERROR.*
18167  M01S12507.set     +++|          LJM    DSE         GO DISPLAY ERROR
18168  M01S12508.set     +++|
18169  M01S12509.set     +++|*         LOCATE FIRST AVAILABLE TRACK AS POSSIBLE LABEL TRACK.
18170  M01S12510.set     +++|
18171  M01S12511.set     +++| CMC6     AOD    T1          ADVANCE TRT INDEX
18172  M01S12512.set     +++|          SHN    2
18173  M01S12513.set     +++|          SBN    LTKL-4000
18174  M01S12514.set     +++|          PJN    CMC4        IF AT LABEL TRACK LIMIT
18175  M01S12515.set     +++| CMC7     LDD    T6
18176  M01S12516.set     +++|          LPN    77
18177  M01S12517.set     +++|          SHN    14          READ TRT WORD
18178  M01S12518.set     +++|          LMD    T7
18179  M01S12519.set     +++|          ADD    T1
18180  M01S12520.set     +++|          CRD    CM
18181  M01S12521.set     +++|          LDD    CM+4        CHECK FOR UNASSIGNED TRACK
18182  M01S12522.set     +++|          LPN    17
18183  M01S12523.set     +++|          LMN    17
18184  M01S12524.set     +++|          ZJN    CMC6        IF THESE 4 TRACKS RESERVED
18185  M01S12525.set     +++|          LMN    17
18186  M01S12526.set     +++|          SHN    13-3
18187  M01S12527.set     +++|          STD    T2
18188  M01S12528.set     +++|          LDN    0           INITIALIZE BYTE INDEX
18189  M01S12529.set     +++|          STD    T0
18190  M01S12530.set     +++| CMC8     RAD    T0          ADVANCE BYTE INDEX
18191  M01S12531.set     +++|          LDD    T2          CHECK NEXT TRACK
18192  M01S12532.set     +++|          SHN    1
18193  M01S12533.set     +++|          STD    T2
18194  M01S12534.set     +++|          SHN    -14
18195  M01S12535.set     +++|          NJN    CMC8        IF TRACK RESERVED
18196  M01S12536.set     +++|          LDD    T1          FORM TRACK NUMBER
18197  M01S12537.set     +++|          LMD    TH
18198  M01S12538.set     +++|          SHN    2
18199  M01S12539.set     +++|          LMD    T0
18200  M01S12540.set     +++| CMC9     STD    AB+4
18201  M01S12541.set     +++|          LDC    EFRL        STORE STATUS FOR *CPUMTR*/*MTE*
18202  M01S12542.set     +++|          CWD    AB
18203  M01S12543.set     +++|          LJM    CMCX        RETURN
18204  M01S12544.set     +++| ECT      SPACE  4,10
18205  M01S12545.set     +++|**        ECT - DEFINE *EICB* TABLES.
18206  M01S12546.set     +++|*
18207  M01S12547.set     +++|*         USES   AB - AB+4, CA - CA+1, CM - CM+4, CN - CN+4.
18208  M01S12548.set     +++|*
18209  M01S12549.set     +++|*         CALLS  DFO, DML.
18210  M01S12550.set     +++|
18211  M01S12551.set     +++|
18212  M01S12552.set     +++| ECT      SUBR               ENTRY/EXIT
18213  M01S12553.set     +++|          LDM    C8XX
18214  M01S12554.set     +++|          NJN    ECTX        IF NOT LOWER 800 SERIES MAINFRAME
18215  M01S12555.set     +++|          CRD    CN
18216  M01S12556.set     +++|          CRD    AB
18217  M01S12557.set     +++|          LDK    EIBP        READ *EICB* POINTER WORD
18218  M01S12558.set     +++|          CRD    CM
18219  M01S12559.set     +++|          LDM    VEMZ        SET WORD *D7CM*
Line S12560 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
18220  M02S12560.ns2633  ---|          LPN    77
18221  M01S00057.ns2633  +++|          LPN    7
18222  M01S12561.set     +++|          SHN    14
18223  M01S12562.set     +++|          ADM    VEMZ+1
18224  M01S12563.set     +++|          SHN    -3          FORM BLOCK SIZE/1000B
18225  M01S12564.set     +++|          STD    CN+4
Line S12565 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
18226  M02S12565.ns2633  ---|          SHN    -14
18227  M01S00058.ns2633  +++|          LDM    VEMZ
18228  M01S00059.ns2633  +++|          SHN    -3
18229  M01S12566.set     +++|          STD    CN+3
18230  M01S12567.set     +++|          LDM    /EQP/MCMS   FORM MINCM/1000
18231  M01S12568.set     +++|          SHN    14
18232  M01S12569.set     +++|          LMM    /EQP/MCMS+1
18233  M01S12570.set     +++|          ADN    7
18234  M01S12571.set     +++|          SHN    -3
18235  M01S12572.set     +++|          STD    CN+2
18236  M01S12573.set     +++|          SHN    -14
18237  M01S12574.set     +++|          STD    CN+1
18238  M01S12575.set     +++|          LDD    MZ          SET WORD *D7CM+1*
18239  M01S00060.ns2633  +++|          LPN    7
18240  M01S12576.set     +++|          SHN    14
18241  M01S12577.set     +++|          LMD    MZ+1
18242  M01S12578.set     +++|          ADN    7
18243  M01S12579.set     +++|          SHN    -3
18244  M01S12580.set     +++|          STD    AB+2
18245  M01S12581.set     +++|          STD    AB+4
18246  M01S12582.set     +++|          SHN    -14
18247  M01S00061.ns2633  +++|          STD    CM
18248  M01S00062.ns2633  +++|          LDD    MZ
18249  M01S00063.ns2633  +++|          SHN    -3
18250  M01S00064.ns2633  +++|          ADD    CM
18251  M01S12583.set     +++|          STD    AB+1
18252  M01S12584.set     +++|          STD    AB+3
18253  M01S12585.set     +++|          LDD    CM+3        WRITE WORD *D7TY*
18254  M01S12586.set     +++|          SHN    14
18255  M01S12587.set     +++|          LMD    CM+4
18256  M01S12588.set     +++|          ADK    D7TY
18257  M01S12589.set     +++|          CWM    ECTA,ON
18258  M01S12590.set     +++|          ADN    D7CM-D7TY-1 WRITE WORD *D7CM
18259  M01S12591.set     +++|          CWD    CN
18260  M01S12592.set     +++|          ADN    1           WRITE WORD *D7CM+1*
18261  M01S12593.set     +++|          CWD    AB
18262  M01S12594.set     +++|          ADN    DSCBL-D7CM-1  SAVE DFT/OS BUFFER FWA
18263  M01S12595.set     +++|          STD    CA+1
18264  M01S12596.set     +++|          SHN    -14
18265  M01S12597.set     +++|          STD    CA
18266  M01S12598.set     +++|          RJM    DML         DEFINE *MLST* BUFFER
18267  M01S12599.set     +++|          RJM    DFO         DEFINE DFT/OS BUFFER
18268  M01S12600.set     +++|          LJM    ECTX        RETURN
18269  M01S12601.set     +++|
18270  M01S12602.set     +++| ECTA     BSS    0           WORD *D7TY*
18271  M01S12603.set     +++|          VFD    6/0         RESERVED
18272  M01S12604.set     +++|          VFD    18/DTEL     DATE WORD ADDRESS
18273  M01S12605.set     +++|
18274  M01S12606.set     +++|          VFD    18/TIML     TIME WORD ADDRESS
18275  M01S12607.set     +++|
18276  M01S12608.set     +++|          VFD    6/1         OS TYPE
Line S12609 Modification History
M01 (Added by) set
M02 (Updated by) ns2683
Seq #  *Modification Id* Act 
----------------------------+
18277  M02S12609.ns2683  ---|          VFD    6/4         INTERFACE VERSION
18278  M01S00001.ns2683  +++|          VFD    6/5         *EICB* INTERFACE VERSION
18279  M01S12610.set     +++|          VFD    6/1         INTERFACE LEVEL
18280  M01S12611.set     +++| DML      SPACE 4,10
18281  M01S12612.set     +++|**        DML - DEFINE *MLST* BUFFER.
18282  M01S12613.set     +++|*
18283  M01S12614.set     +++|*         ENTRY  (CA - CA+1) = FWA OF *MLST* BUFFER IF VE DEFINED.
18284  M01S12615.set     +++|*                (CM+3 - CM+4) = *EICB* POINTER.
18285  M01S12616.set     +++|*
18286  M01S12617.set     +++|*         EXIT   (CA - CA+1)  ADVANCED.
18287  M01S12618.set     +++|*
18288  M01S12619.set     +++|*         USES   CN - CN+4.
18289  M01S12620.set     +++|
18290  M01S12621.set     +++|
18291  M01S12622.set     +++| DML      SUBR               ENTRY/EXIT
18292  M01S12623.set     +++|          LDN    ZERL        CLEAR FOR *MLST* POINTER
18293  M01S12624.set     +++|          CRD    CN
18294  M01S12625.set     +++|          LDC    4000
18295  M01S12626.set     +++|          STD    CN
Line S12627 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
18296  M02S12627.ns2633  ---|          LDM    VEMZ
18297  M01S00065.ns2633  +++|          LDM    VEFL
18298  M01S12628.set     +++|          ZJN    DML1        IF NOS/VE NOT DEFINED
18299  M01S12629.set     +++|          LDD    CA
18300  M01S12630.set     +++|          SHN    14
18301  M01S12631.set     +++|          LMD    CA+1        *MLST* ADDRESS (BITS 35-17 OF *D7ST*)
18302  M01S12632.set     +++|          SHN    14
18303  M01S12633.set     +++|          STD    CN+2
18304  M01S12634.set     +++|          LDD    CA+1
18305  M01S12635.set     +++|          SHN    6
18306  M01S12636.set     +++|          LMM    .MLS+MTBL   *MLST* SIZE
18307  M01S12637.set     +++|          STD    CN+3
18308  M01S12638.set     +++|          LPN    77
18309  M01S12639.set     +++|          RAD    CA+1        ADVANCE PAST *MLST*
18310  M01S12640.set     +++|          SHN    -14
18311  M01S12641.set     +++|          RAD    CA
18312  M01S12642.set     +++| DML1     LDD    CM+3        WRITE STATUS AND *MLST* POINTER
18313  M01S12643.set     +++|          SHN    14
18314  M01S12644.set     +++|          LMD    CM+4
18315  M01S12645.set     +++|          ADN    D7ST
18316  M01S12646.set     +++|          CWD    CN
18317  M01S12647.set     +++|          UJP    DMLX        RETURN
18318  M01S12648.set     +++| DFO      SPACE  4,10
18319  M01S12649.set     +++|**        DFO - DEFINE *DFT/OS* BUFFER.
18320  M01S12650.set     +++|*
18321  M01S12651.set     +++|*         ENTRY  (CA - CA+1) = FWA OF *DFT/OS* BUFFER.
18322  M01S12652.set     +++|*                (CM+3 - CM+4) = *EICB* POINTER WORD.
18323  M01S12653.set     +++|*                (DFTA) = *DFT* ALLOCATION DATA.
18324  M01S12654.set     +++|*
18325  M01S12655.set     +++|*         EXIT   *DFT/OS* BUFFER INITIALIZED.
18326  M01S12656.set     +++|*
18327  M01S12657.set     +++|*         USES   AB - AB+4, CM - CM+1, CN - CN+4, T1 - T6.
18328  M01S12658.set     +++|
18329  M01S12659.set     +++|
18330  M01S00121.261l700 +++|*         BUILD *DFT/OS* INTERFACE HANDOFF FOR VERSION 4 AND ABOVE.
18331  M01S00122.261l700 +++|*
18332  M01S00123.261l700 +++|*         NOTE - THE *DFT/OS* BUFFER CANNOT START ON THE LAST WORD OF
18333  M01S00124.261l700 +++|*         A SECTOR.  THIS IS TO ENSURE A NON-ZERO VALUE FOR THE
18334  M01S00125.261l700 +++|*         *OFFSET* FIELD OF THE *DFT/OS* BUFFER POINTER WORD IN THE
18335  M01S00126.261l700 +++|*         *EICB*.  THIS POINTER POINTS TO THE *DFT* CONTROL WORD,
18336  M01S00127.261l700 +++|*         WHICH IS THE SECOND WORD OF THE BUFFER.
18337  M01S00128.261l700 +++|
Line S00129 Modification History
M01 (Added by) 261l700
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18338  M02S00129.271l716 ---| DFO10    LDM    DFSZ        SAVE TOTAL SIZE FROM DESCRIPTOR
18339  M01S00346.271l716 +++| DFO10    LDM    DFTV        DETERMINE LOWEST *DFT* LEVEL
18340  M01S00347.271l716 +++|          SBN    DIRL-3      CURRENT OS *DFT* LEVEL
18341  M01S00348.271l716 +++|          MJN    DFO10.1     IF OS IS NOT LOWEST LEVEL
18342  M01S00349.271l716 +++|          LDN    0
18343  M01S00350.271l716 +++| DFO10.1  ADN    DIRL        RESTORE LEVEL NUMBER
18344  M01S00351.271l716 +++|          SHN    4
18345  M01S00352.271l716 +++|          STD    CN+1        SET LEVEL FOR *DFT*
18346  M01S00353.271l716 +++|          LDM    DFSZ        SAVE TOTAL SIZE FROM DESCRIPTOR
18347  M01S00130.261l700 +++|          STD    AB+4
18348  M01S00131.261l700 +++|          STD    T3
18349  M01S00132.261l700 +++|          LDM    DFTA+1      SAVE DEDICATED MODE FLAG
18350  M01S00133.261l700 +++|          SHN    0-13
18351  M01S00134.261l700 +++|          LMN    1
18352  M01S00135.261l700 +++|          STD    T6
18353  M01S00136.261l700 +++|          ZJN    DFO11       IF DEDICATED *DFT*
18354  M01S00137.261l700 +++|          LDN    24          SET *C* AND *D* FLAGS IN CONTROL WORD
18355  M01S00138.261l700 +++| DFO11    LMN    10          SET *L* FLAG
18356  M01S00139.261l700 +++|          STD    CN+4
18357  M01S00140.261l700 +++|          AOD    CA+1        ENSURE *DFT/OS* BUFFER STARTS ON EVEN WORD
18358  M01S00141.261l700 +++|          SCN    1
18359  M01S00142.261l700 +++|          STD    CA+1
18360  M01S00143.261l700 +++|          SHN    -14
18361  M01S00144.261l700 +++|          RAD    CA
18362  M01S00145.261l700 +++|          LDD    CA          CONSTRUCT POINTER TO *DFT/OS* BUFFER
18363  M01S00146.261l700 +++|          STD    CM
18364  M01S00147.261l700 +++|          SHN    14
18365  M01S00148.261l700 +++|          LMD    CA+1
18366  M01S00149.261l700 +++|          STD    CM+1
18367  M01S00150.261l700 +++|          CWD    AB          WRITE TOTAL SIZE TO FIRST WORD
18368  M01S00151.261l700 +++|          ADN    1           ADVANCE POINTER TO CONTROL WORD
18369  M01S00152.261l700 +++|          CWD    CN          WRITE *DFT* CONTROL WORD
18370  M01S00153.261l700 +++|          STD    T1          SAVE OFFSET
18371  M01S00154.261l700 +++|          SHN    -6
18372  M01S00155.261l700 +++|          SHN    4
18373  M01S00156.261l700 +++|          STD    AB+3        R-LOWER
18374  M01S00157.261l700 +++|          SHN    -14
18375  M01S00158.261l700 +++|          STD    AB+2        R-UPPER
18376  M01S00159.261l700 +++|          LDD    T1
18377  M01S00160.261l700 +++|          LPN    77
18378  M01S00161.261l700 +++|          STD    AB          OFFSET
18379  M01S00162.261l700 +++|
18380  M01S00163.261l700 +++|*         WRITE THE *PPR* SAVE AREA POINTER AND THE NOS OS REQUEST
18381  M01S00164.261l700 +++|*         HEADER POINTER TO THE *DFT/OS* HANDOFF INTERFACE.  ALSO
18382  M01S00165.261l700 +++|*         WRITE THE NOS REQUEST HEADER WORD.
18383  M01S00166.261l700 +++|
18384  M01S00001.set67   +++|          LDN    0           CLEAR *DFT* LEVEL FIELD
18385  M01S00002.set67   +++|          STD    CN+1
18386  M01S00167.261l700 +++|          LDN    2           SET ADDRESS OF POINTER WORD TO WRITE
18387  M01S00168.261l700 +++|          RAD    CA+1
18388  M01S00169.261l700 +++|          SHN    -14
18389  M01S00170.261l700 +++|          RAD    CA
18390  M01S00171.261l700 +++|          LDD    T6
18391  M01S00172.261l700 +++|          ZJN    DFO12       IF DEDICATED *DFT*
18392  M01S00173.261l700 +++|          LDK    DFPSL       SIZE OF *PPR* SAVE AREA
18393  M01S00174.261l700 +++|          STD    T6
18394  M01S00175.261l700 +++|          STD    CN+4
18395  M01S00176.261l700 +++| DFO12    RJM    PWP         WRITE *PPR* SAVE AREA POINTER
18396  M01S00177.261l700 +++|          LDD    T6          SET OFFSET TO NOS REQUEST HEADER
18397  M01S00178.261l700 +++|          RAD    T3
18398  M01S00179.261l700 +++|          SHN    -14
18399  M01S00180.261l700 +++|          RAD    T2
18400  M01S00181.261l700 +++|          LDN    1           SET NUMBER OF NOS REQUEST BUFFERS
18401  M01S00182.261l700 +++|          STD    CN+4
18402  M01S00183.261l700 +++|          RJM    PWP         WRITE NOS REQUEST HEADER POINTER
18403  M01S00184.261l700 +++|          LDD    T3          SET ADDRESS OF NOS REQUEST HEADER
18404  M01S00185.261l700 +++|          ADD    CM+1
18405  M01S00186.261l700 +++|          STD    CA+1
18406  M01S00187.261l700 +++|          SHN    -14
18407  M01S00188.261l700 +++|          ADD    T2
18408  M01S00189.261l700 +++|          ADD    CM
18409  M01S00190.261l700 +++|          STD    CA
18410  M01S00191.261l700 +++|          AOD    T3          SET OFFSET TO NOS REQUEST AREA
18411  M01S00192.261l700 +++|          SHN    -14
18412  M01S00193.261l700 +++|          RAD    T2
18413  M01S00194.261l700 +++|          LDN    STIN        SET STATUS = *INACTIVE*
18414  M01S00195.261l700 +++|          STD    CN+4
18415  M01S00196.261l700 +++|          LDN    1           INSURE POINTER WRITTEN
18416  M01S00197.261l700 +++|          RJM    PWP         WRITE NOS REQUEST HEADER WORD
18417  M01S00198.261l700 +++|
18418  M01S00199.261l700 +++|*         CALCULATE TOTAL SIZE OF THE *DFT/OS* BUFFER.
18419  M01S00200.261l700 +++|
18420  M01S00201.261l700 +++|          LDM    DFSZ        GET SIZE FROM DESCRIPTOR
18421  M01S00202.261l700 +++|          ADK    RQBL+1      ADD NOS REQUEST AREA SIZE
18422  M01S00203.261l700 +++|          ADD    T6          ADD *PPR* SAVE AREA SIZE
18423  M01S00204.261l700 +++|          STD    AB+4
18424  M01S00205.261l700 +++|          SHN    -14
18425  M01S00206.261l700 +++|          RAD    AB+3
18426  M01S00207.261l700 +++|          LDD    CM+3        WRITE *DFT/OS* POINTER WITH TOTAL SIZE
18427  M01S00208.261l700 +++|          SHN    14
18428  M01S00209.261l700 +++|          LMD    CM+4
18429  M01S00210.261l700 +++|          ADK    DSCM+3
18430  M01S00211.261l700 +++|          CWD    AB
18431  M01S00212.261l700 +++|
18432  M01S00213.261l700 +++|*         COPY THE *PPR* SAVE AREA POINTER AND THE NOS REQUEST
18433  M01S00214.261l700 +++|*         HEADER POINTER TO THEIR PROPER POSITIONS.  THIS IS REQUIRED
18434  M01S00215.261l700 +++|*         FOR *MTR* PRESET AND *1MB*, WHICH NEED THEM PRIOR TO *DFT*
18435  M01S00216.261l700 +++|*         BUILDING THE COMPLETE *DFT/OS* BUFFER.
18436  M01S00217.261l700 +++|
18437  M01S00218.261l700 +++|          LDD    CM
18438  M01S00219.261l700 +++|          SHN    14
18439  M01S00220.261l700 +++|          LMD    CM+1
18440  M01S00221.261l700 +++|          ADN    2
18441  M01S00222.261l700 +++|          CRD    CN          READ *PPR* SAVE AREA POINTER
18442  M01S00223.261l700 +++|          ADN    1
18443  M01S00224.261l700 +++|          CRD    AB          READ NOS REQUEST HEADER POINTER
18444  M01S00225.261l700 +++|          ADN    3
18445  M01S00226.261l700 +++|          CWD    CN          WRITE *PPR* SAVE AREA POINTER
18446  M01S00227.261l700 +++|          ADN    1
18447  M01S00228.261l700 +++|          CWD    AB          WRITE NOS REQUEST HEADER POINTER
18448  M01S00229.261l700 +++|
18449  M01S12660.set     +++| DFO      SUBR               ENTRY/EXIT
18450  M01S12661.set     +++|          LDN    ZERL        CLEAR ASSEMBLY BUFFER
18451  M01S12662.set     +++|          CRD    CN
18452  M01S12663.set     +++|          CRD    AB
18453  M01S00230.261l700 +++|          CRD    T1
18454  M01S00231.261l700 +++|          LDM    DFTV
18455  M01S00232.261l700 +++|          NJP    DFO10       IF NOT *DFT* VERSION 3
18456  M01S00233.261l700 +++|
18457  M01S00234.261l700 +++|*         CONSTRUCT *DFT/OS* BUFFER FOR *DFT* VERSION 3.
18458  M01S00235.261l700 +++|
18459  M01S12664.set     +++|          LDD    CA
18460  M01S12665.set     +++|          SHN    14
18461  M01S12666.set     +++|          LMD    CA+1
18462  M01S12667.set     +++|          STD    T1          SAVE OFFSET
18463  M01S12668.set     +++|          SHN    -6
18464  M01S12669.set     +++|          SHN    4
18465  M01S12670.set     +++|          STD    AB+3        R-LOWER
18466  M01S12671.set     +++|          SHN    -14
18467  M01S12672.set     +++|          STD    AB+2        R-UPPER
18468  M01S12673.set     +++|          LDD    T1
18469  M01S12674.set     +++|          LPN    77
18470  M01S12675.set     +++|          STD    AB
18471  M01S12676.set     +++|          LDN    DFHL        SET NUMBER OF HEADER WORDS
18472  M01S12677.set     +++|          SHN    14-4
18473  M01S12678.set     +++|          STD    CN
Line S12679 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18474  M02S12679.271l716 ---|          LDN    DIRL*20     SET *DFT* INTERFACE REVISION LEVEL
18475  M01S00354.271l716 +++|          LDN    3*20        SET *DFT* REVISION LEVEL TO 3
18476  M01S12680.set     +++|          STD    CN+1
18477  M01S12681.set     +++|          LDM    DFTA        GET MAINTENANCE REGISTER BUFFER DATA
18478  M01S12682.set     +++|          STD    T1
18479  M01S12683.set     +++|          SHN    -6
18480  M01S12684.set     +++|          STD    T5          SAVE NUMBER OF BUFFERS
18481  M01S12685.set     +++|          SHN    4
18482  M01S12686.set     +++|          STD    CN+3        SET *NBUF* IN *DFT* CONTROL WORD
18483  M01S12687.set     +++|          LDD    T1
18484  M01S12688.set     +++|          LPN    77
18485  M01S12689.set     +++|          STD    CN+2        SET *LBUF* IN *DFT* CONTROL WORD
18486  M01S12690.set     +++|          STD    T4
18487  M01S12691.set     +++|          LDM    DFTA+1      CHECK DEDICATED FLAG
18488  M01S12692.set     +++|          STD    T1
18489  M01S12693.set     +++|          SHN    -13
18490  M01S12694.set     +++|          NJN    DFO1        IF DEDICATED DFT
18491  M01S12695.set     +++|          LDN    24          SET *C* AND *D* FLAGS IN CONTROL WORD
18492  M01S12696.set     +++|          STD    CN+4
18493  M01S12697.set     +++| DFO1     LDN    10          SET *L* FLAG
18494  M01S12698.set     +++|          RAD    CN+4
18495  M01S12699.set     +++|          LDD    CA          WRITE *DFT* CONTROL WORD
18496  M01S12700.set     +++|          STD    CM
18497  M01S12701.set     +++|          SHN    14
18498  M01S12702.set     +++|          LMD    CA+1
18499  M01S12703.set     +++|          STD    CM+1
18500  M01S12704.set     +++|          CWD    CN
18501  M01S12705.set     +++|          AOD    CA+1        ADVANCE ADDRESS
18502  M01S12706.set     +++|          SHN    -14
18503  M01S12707.set     +++|          RAD    CA
18504  M01S12708.set     +++|          LDN    ZERL        CLEAR ASSEMBLY BUFFER
18505  M01S12709.set     +++|          CRD    CN
18506  M01S12710.set     +++|          LDD    T1
18507  M01S12711.set     +++|          SHN    0-12
18508  M01S12712.set     +++|          LPN    1
18509  M01S12713.set     +++|          ZJN    DFO2        IF NOT 990
18510  M01S12714.set     +++|          LDM    .CPU+1      CHECK FOR DUAL CPU CYBER 990
18511  M01S12715.set     +++|          LPN    2
18512  M01S12716.set     +++|          ZJN    DFO1.1      IF CPU-1 *OFF* OR NOT PRESENT
18513  M01S12717.set     +++|          LDC    -M9DB       REDUCE BUFFER FOR SINGLE CPU CYBER 990
18514  M01S12718.set     +++| DFO1.1   ADC    M9DB*2      SET MODEL DEPENDENT BUFFER SIZE
18515  M01S12719.set     +++| DFO2     STD    T6
18516  M01S12720.set     +++|
18517  M01S12721.set     +++|*         WRITE POINTER WORDS.
18518  M01S12722.set     +++|
18519  M01S12723.set     +++|          LDN    SIDL        LENGTH OF SECDED ID TABLE
18520  M01S12724.set     +++|          STD    CN+4
18521  M01S12725.set     +++|          LDN    DFHL+MECB   HEADER + COUNTER BUFFER SIZE
18522  M01S12726.set     +++|          ADD    T5          M/R BUFFER COUNT +1
18523  M01S12727.set     +++|          STD    T3
18524  M01S12728.set     +++|          RJM    PWP         WRITE SECDED ID TABLE POINTER
18525  M01S12729.set     +++|          LDD    T1          LENGTH OF M/R BUFFERS
18526  M01S12730.set     +++|          LPC    1777
18527  M01S12731.set     +++|          STD    T1
18528  M01S12732.set     +++|          STD    CN+4
18529  M01S12733.set     +++|          LDN    SIDL        OFFSET OF M/R BUFFERS
18530  M01S12734.set     +++|          RAD    T3
18531  M01S12735.set     +++|          RJM    PWP         WRITE M/R BUFFER POINTER
18532  M01S12736.set     +++|          LDD    T1          OFFSET OF MODEL DEPENDENT BUFFER
18533  M01S12737.set     +++|          RAD    T3
18534  M01S12738.set     +++|          LDD    T6          MODEL DEPENDENT BUFFER SIZE
18535  M01S12739.set     +++|          ZJN    DFO3        IF NOT 990
18536  M01S12740.set     +++|          STD    CN+4
18537  M01S12741.set     +++|          LDD    T3
18538  M01S12742.set     +++| DFO3     RJM    PWP         WRITE MODEL DEPENDENT BUFFER POINTER
18539  M01S12743.set     +++|          LDN    0
18540  M01S12744.set     +++|          RJM    PWP         WRITE NOS/VE BUFFER POINTER
18541  M01S12745.set     +++|          LDC    DFPSL       LENGTH OF PP RESIDENT SAVE AREA
18542  M01S12746.set     +++|          STD    CN+4
Line S12747 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
18543  M02S12747.261l700 ---|          STD    T2          SAVE LENGTH OF PP RESIDENT SAVE AREA
18544  M01S00236.261l700 +++|          STD    T7          SAVE LENGTH OF PP RESIDENT SAVE AREA
18545  M01S12748.set     +++|          LDD    T6          OFFSET OF NEXT ELEMENT
18546  M01S12749.set     +++|          RAD    T3
18547  M01S12750.set     +++|          LDM    DFTA+1
18548  M01S12751.set     +++|          SHN    21-13
18549  M01S12752.set     +++|          MJN    DFO4        IF DEDICATED DFT
18550  M01S12753.set     +++|          LDD    T3
18551  M01S12754.set     +++|          UJN    DFO5        WRITE POINTER
18552  M01S12755.set     +++|
18553  M01S12756.set     +++| DFO4     LDN    0
Line S12757 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
18554  M02S12757.261l700 ---|          STD    T2          CLEAR LENGTH OF PP RESIDENT SAVE AREA
18555  M01S00237.261l700 +++|          STD    T7          CLEAR LENGTH OF PP RESIDENT SAVE AREA
18556  M01S12758.set     +++| DFO5     RJM    PWP         WRITE PP RESIDENT POINTER
Line S12759 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
18557  M02S12759.261l700 ---|          LDD    T2          OFFSET OF NOS REQUEST AREA POINTER
18558  M01S00238.261l700 +++|          LDD    T7          OFFSET OF NOS REQUEST AREA POINTER
18559  M01S12760.set     +++|          RAD    T3
18560  M01S12761.set     +++|          LDN    1           NUMBER OF NOS REQUEST BUFFERS
18561  M01S12762.set     +++|          STD    CN+4
18562  M01S12763.set     +++|          RJM    PWP         WRITE NOS REQUEST AREA POINTER
18563  M01S12764.set     +++|          AOD    T3
18564  M01S12765.set     +++|
18565  M01S12766.set     +++|*         CALCULATE TOTAL LENGTH OF DFT/OS BUFFER.
18566  M01S12767.set     +++|
18567  M01S12768.set     +++|          LDK    MECB+SIDL   MAINFRAME ELEMENT COUNTERS, SECDED
18568  M01S12769.set     +++|          ADD    T1          M/R BUFFER SIZE
18569  M01S12770.set     +++|          ADD    T6          MODEL DEPENDENT BUFFER SIZE
Line S12771 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
18570  M02S12771.261l700 ---|          ADD    T2          PP RESIDENT SAVE AREA
18571  M01S00239.261l700 +++|          ADD    T7          PP RESIDENT SAVE AREA
18572  M01S12772.set     +++|          STD    T0          SAVE POINTER OFFSET
18573  M01S12773.set     +++|          ADD    T5          M/R CONTROL WORDS
18574  M01S12774.set     +++|          ADN    DFHL+RQBL+1 CONTROL WORD, POINTERS, NOS REQUEST AREA
18575  M01S12775.set     +++|          STD    AB+4
18576  M01S12776.set     +++|          LDD    CM+3        WRITE DFT/OS POINTER = SIZE
18577  M01S12777.set     +++|          SHN    14
18578  M01S12778.set     +++|          LMD    CM+4
18579  M01S12779.set     +++|          ADN    DSCM+3
18580  M01S12780.set     +++|          CWD    AB
18581  M01S12781.set     +++|
18582  M01S12782.set     +++|*         ADD OFFSET FIELD TO BUFFER CONTROL WORDS.
18583  M01S12783.set     +++|
18584  M01S12784.set     +++|          LDN    ZERL
18585  M01S12785.set     +++|          CRD    CN
18586  M01S12786.set     +++| DFO6     SOD    T5
18587  M01S12787.set     +++|          ZJN    DFO7        IF NO MORE CONTROL WORDS TO PROCESS
18588  M01S12788.set     +++|          LDD    T4
18589  M01S12789.set     +++|          RAD    CN+4
18590  M01S12790.set     +++|          LDD    CA
18591  M01S12791.set     +++|          SHN    14
18592  M01S12792.set     +++|          LMD    CA+1
18593  M01S12793.set     +++|          ADN    1           ADVANCE ADDRESS
18594  M01S12794.set     +++|          CWD    CN
18595  M01S12795.set     +++|          STD    CA+1
18596  M01S12796.set     +++|          SHN    -14
18597  M01S12797.set     +++|          STD    CA
18598  M01S12798.set     +++|          UJN    DFO6        PROCESS NEXT ENTRY
18599  M01S12799.set     +++|
18600  M01S12800.set     +++|*         POST REQUEST TO *DFT* TO UPDATE ERROR THRESHOLDS.
18601  M01S12801.set     +++|
18602  M01S12802.set     +++| DFO7     AOD    T0          ADVANCE TO NOS REQUEST HEADER
18603  M01S12803.set     +++|          RAD    CA+1
18604  M01S12804.set     +++|          SHN    -14
18605  M01S12805.set     +++|          RAD    CA
18606  M01S12806.set     +++|          LDM    .CPU        CHECK CPU CONFIGURATION
18607  M01S12807.set     +++|          LPN    2
18608  M01S12808.set     +++|          ZJN    DFO8        IF CPU-1 PRESENT
18609  M01S12809.set     +++|          LDN    ZERL        CLEAR THRESHOLDS FOR CPU-1
18610  M01S12810.set     +++|          CRM    DFOB,ON
18611  M01S12811.set     +++| DFO8     LDN    STRY        SET STATUS = *READY*
18612  M01S12812.set     +++|          STD    CN+4
18613  M01S12813.set     +++|          RJM    PWP         WRITE NOS REQUEST HEADER
18614  M01S12814.set     +++|          LDN    DFOAL/5     SET WORD COUNT
18615  M01S12815.set     +++|          STD    CN
18616  M01S12816.set     +++|          LDD    CA          WRITE THRESHOLD REQUEST TO BUFFER
18617  M01S12817.set     +++|          SHN    14
18618  M01S12818.set     +++|          LMD    CA+1
18619  M01S12819.set     +++|          CWM    DFOA,CN
18620  M01S12820.set     +++|          LJM    DFOX        RETURN
18621  M01S12821.set     +++|
18622  M01S12822.set     +++|
18623  M01S12823.set     +++|*         *DFT* THRESHOLD REQUEST INFORMATION.
18624  M01S12824.set     +++|
18625  M01S12825.set     +++| DFOA     VFD    4/,8/RQTH,8/0,8/7,8/0,8/0,8/THCI,8/THUE  IOU
18626  M01S12826.set     +++|          VFD    4/,8/RQTH,8/0,8/7,8/1,8/0,8/THCM,8/THUE  MEMORY
18627  M01S12827.set     +++|          VFD    4/,8/RQTH,8/0,8/7,8/2,8/0,8/THCP,8/THUE  CPU-0
18628  M01S12828.set     +++| DFOB     VFD    4/,8/RQTH,8/0,8/7,8/2,8/1,8/THCP,8/THUE  CPU-1
18629  M01S12829.set     +++|          VFD    60/0        TERMINATOR
18630  M01S12830.set     +++| DFOAL    EQU    *-DFOA      LENGTH OF THRESHOLD DATA (PP WORDS)
18631  M01S12831.set     +++| PWP      SPACE  4,10
18632  M01S12832.set     +++|**        PWP - POSITION AND WRITE POINTER.
18633  M01S12833.set     +++|*
18634  M01S12834.set     +++|*         ENTRY  (A) = 0 IF A ZERO POINTER WORD IS TO BE WRITTEN.
Line S12835 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
18635  M02S12835.261l700 ---|*                (T3) = OFFSET FROM FWA OF DFT/OS BUFFER OF THE BUFFER
Line S12836 Modification History
M01 (Added by) set
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
18636  M02S12836.261l700 ---|*                       FOR WHICH THE POINTER IS TO BE WRITTEN.
18637  M01S00240.261l700 +++|*                (T2 - T3) = OFFSET FROM FWA OF THE DFT/OS BUFFER OF
18638  M01S00241.261l700 +++|*                            THE BUFFER FOR WHICH THE POINTER IS TO
18639  M01S00242.261l700 +++|*                            BE WRITTEN.
18640  M01S12837.set     +++|*                (CN+4) = LENGTH OF BUFFER FOR WHICH POINTER IS TO
18641  M01S12838.set     +++|*                         BE WRIITEN.
18642  M01S12839.set     +++|*                (CM - CM+1) = FWA OF DFT/OS BUFFER.
18643  M01S12840.set     +++|*                (CA - CA+1) = ADDRESS TO WRITE.
18644  M01S12841.set     +++|*
18645  M01S12842.set     +++|*         EXIT   (CA - CA+1) ADVANCED.
18646  M01S12843.set     +++|*
18647  M01S12844.set     +++|*         USES   CN - CN+4.
18648  M01S12845.set     +++|
18649  M01S12846.set     +++|
18650  M01S12847.set     +++| PWP1     LDN    ZERL        CLEAR POINTER
18651  M01S12848.set     +++|          CRD    CN
18652  M01S12849.set     +++| PWP2     LDD    CA          ADVANCE POINTER WORD
18653  M01S12850.set     +++|          SHN    14
18654  M01S12851.set     +++|          LMD    CA+1
18655  M01S12852.set     +++|          CWD    CN          WRITE POINTER WORD
18656  M01S12853.set     +++|          AOD    CA+1        ADVANCE ADDRESS
18657  M01S12854.set     +++|          SHN    -14
18658  M01S12855.set     +++|          RAD    CA
18659  M01S12856.set     +++|
18660  M01S12857.set     +++| PWP      SUBR               ENTRY/EXIT
18661  M01S12858.set     +++|          ZJN    PWP1        IF ZERO WORD TO BE WRITTEN
18662  M01S12859.set     +++|          LDD    CM
18663  M01S00243.261l700 +++|          ADD    T2
18664  M01S12860.set     +++|          SHN    14
18665  M01S12861.set     +++|          LMD    CM+1
18666  M01S12862.set     +++|          ADD    T3          ADDRESS OF POINTER WORD
18667  M01S12863.set     +++|          STD    CN          SAVE OFFSET
18668  M01S12864.set     +++|          SHN    -6
18669  M01S12865.set     +++|          SHN    4
18670  M01S12866.set     +++|          STD    CN+3        SAVE R-LOWER
18671  M01S12867.set     +++|          SHN    -14
18672  M01S12868.set     +++|          STD    CN+2
18673  M01S12869.set     +++|          LDD    CN          OFFSET
18674  M01S12870.set     +++|          LPN    77
18675  M01S12871.set     +++|          STD    CN
18676  M01S12872.set     +++|          UJN    PWP2        WRITE AND ADVANCE POINTER WORD
18677  M01S12873.set     +++|          TITLE  BUILD SAB TABLE.
18678  M01S12874.set     +++| BVS      SPACE  4,10
18679  M01S12875.set     +++|**        BVS - BUILD VARIABLE SIZE SYSTEM ATTRIBUTE BLOCK.
18680  M01S12876.set     +++|*
18681  M01S12877.set     +++|*         USES   KB, CM - CM+4, CN - CN+4, T1 - T7.
18682  M01S12878.set     +++|*
18683  M01S12879.set     +++|*         CALLS  APM, CDS, CMN, GPD, IAF, PRS, SDA.
18684  M01S12880.set     +++|*
18685  M01S12881.set     +++|*         MACROS CHKAPE.
18686  M01S12882.set     +++|
18687  M01S12883.set     +++|
18688  M01S12884.set     +++| BVS      SUBR               ENTRY/EXIT
18689  M01S12885.set     +++|          LDM    .APP        MODIFY *APP* CHANNEL INSTRUCTIONS
18690  M01S12886.set     +++|          RJM    PRS
18691  M01S12887.set     +++|          LDK    TSABL       LENGTH OF SAB BLOCK
18692  M01S12888.set     +++|          STD    T6
18693  M01S12889.set     +++| BVS1     LDN    0           CLEAR SAB BLOCK
18694  M01S12890.set     +++|          STM    TSAB-1,T6
18695  M01S12891.set     +++|          SOD    T6
18696  M01S12892.set     +++|          NJN    BVS1        IF NOT FINISHED
18697  M01S12893.set     +++|          LDK    TEABL
18698  M01S12894.set     +++|          STD    T7
18699  M01S12895.set     +++| BVS2     LDN    0           CLEAR EABL BLOCK
18700  M01S12896.set     +++|          STM    TEAB-1,T7
18701  M01S12897.set     +++|          SOD    T7
18702  M01S12898.set     +++|          NJN    BVS2        IF NOT FINISHED
18703  M01S12899.set     +++|          LDK    SABL
18704  M01S12900.set     +++|          CRD    CN
18705  M01S12901.set     +++|          LDD    CN+2        SET ELEMENT DESCRIPTOR BLOCK LENGTH
18706  M01S12902.set     +++|          STM    TEAB+5*MFEI+3
18707  M01S12903.set     +++|*         LDN    0           INITIALIZE INDICES
18708  M01S12904.set     +++|*         STD    T6          *TSAB* INDEX
18709  M01S12905.set     +++|*         STD    T7          *EABL* INDEX
18710  M01S12906.set     +++|
18711  M01S12907.set     +++|*         BUILD MAINFRAME DESCRIPTOR.
18712  M01S12908.set     +++|
18713  M01S12909.set     +++|          LDC    MEBF+2      FETCH EI SPECIFICATION
18714  M01S12910.set     +++|          CRM    DBUF+5,ON
18715  M01S12911.set     +++|          LDN    MFDS        REQUEST MAINFRAME DESCRIPTOR
18716  M01S12912.set     +++|          RJM    IAF
18717  M01S12913.set     +++|          STM    DBUF+4
18718  M01S12914.set     +++|          LDD    HO          SET HARDWARE OPTIONS
18719  M01S12915.set     +++|          STM    DBUF+OPTN
18720  M01S12916.set     +++|          LDN    MFEI*5      SET MAINFRAME DESCRIPTOR ADDRESS
18721  M01S12917.set     +++|          RJM    SDA
18722  M01S12918.set     +++|          LDN    MFDSL       COPY DESCRIPTOR TO SAB
18723  M01S12919.set     +++|          RJM    CDS
18724  M01S12920.set     +++|          LDM    TSAB+HDID
18725  M01S12921.set     +++|          LPN    77
18726  M01S12922.set     +++|          LMC    MFDWL*100B  APPEND DESCRIPTOR LENGTH TO HEADER
18727  M01S12923.set     +++|          STM    TSAB+HDID
18728  M01S12924.set     +++| BVS3     RJM    CMN         CALCULATE MODEL NUMBERS
18729  M01S12925.set     +++|
18730  M01S12926.set     +++|*         PROCESSOR DESCRIPTOR(S).
18731  M01S12927.set     +++|
18732  M01S12928.set     +++|          LDN    CPEI*5      SET CPU 0 DESCRIPTOR ADDRESS
18733  M01S12929.set     +++|          RJM    SDA
18734  M01S12930.set     +++|          LDN    0           GENERATE CPU 0 DESCRIPTOR
18735  M01S12931.set     +++|          STD    T5
18736  M01S12932.set     +++|          RJM    GPD
18737  M01S12933.set     +++|          LDM    .CPU        CHECK CPU STATUS
18738  M01S12934.set     +++|          LPN    2
18739  M01S12935.set     +++|          NJN    BVS4        IF CPU 1 NOT PRESENT
18740  M01S12936.set     +++|          LCN    5*CPEI+2    SET CPU 1 DESCRIPTOR ADDRESS
18741  M01S12937.set     +++|          RJM    SDA
18742  M01S12938.set     +++|          AOD    T5          GENERATE CPU 1 DESCRIPTOR
18743  M01S12939.set     +++|          RJM    GPD
18744  M01S12940.set     +++|
18745  M01S12941.set     +++|*         CENTRAL MEMORY DESCRIPTOR.
18746  M01S12942.set     +++|
18747  M01S12943.set     +++| BVS4     LDN    CMDS        REQUEST CM DESCRIPTOR
18748  M01S12944.set     +++|          RJM    IAF
18749  M01S12945.set     +++|          LDN    CMEI*5      SET CM DESCRIPTOR ADDRESS
18750  M01S12946.set     +++|          RJM    SDA
18751  M01S12947.set     +++|          LDM    DBUF+MCTC   SET CONNECT CODE
18752  M01S12948.set     +++|          STM    TEAB+5*CMEI+3
18753  M01S12949.set     +++|          LDM    DBUF+HDID
18754  M01S12950.set     +++|          LPN    77
18755  M01S12951.set     +++|          LMC    CMDWL*100B  APPEND DESCRIPTOR LENGTH TO HEADER
18756  M01S12952.set     +++|          STM    DBUF+HDID
18757  M01S12953.set     +++|          LDD    T6
18758  M01S12954.set     +++|          ADC    TSAB+2*5-2  LOCATION OF *CTI CM DIRECTORY* POINTER
18759  M01S12955.set     +++|          STD    KB
18760  M01S12956.set     +++|          LDM    C8XX
18761  M01S12957.set     +++|          ZJN    BVS5        IF C180 MAINFRAME
18762  M01S12958.set     +++|          LDD    CM+2
18763  M01S12959.set     +++|          SHN    4           SET MEMORY MODEL NUMBER
18764  M01S12960.set     +++|          STM    DBUF+HDMN
18765  M01S12961.set     +++| BVS5     LDN    CMDSL       COPY DESCRIPTOR TO SAB
18766  M01S12962.set     +++|          RJM    CDS
18767  M01S12963.set     +++|
18768  M01S12964.set     +++|*         IOU DESCRIPTOR.
18769  M01S12965.set     +++|
18770  M01S12966.set     +++|          LDN    IUDS        REQUEST IOU DESCRIPTOR
18771  M01S12967.set     +++|          RJM    IAF
18772  M01S12968.set     +++|          LDM    .PPL        GET CTI/SET PP00 - PP11 OFF DATA
18773  M01S12969.set     +++|          STM    DBUF+LPP0   UPDATE *SAB* TABLE
18774  M01S12970.set     +++|          LDM    .PPL+1      GET CTI/SET PP20 - PP31 OFF DATA
18775  M01S12971.set     +++|          STM    DBUF+LPP1   UPDATE *SAB* TABLE
18776  M01S12972.set     +++|          LDM    DBUF+HDID
18777  M01S12973.set     +++|          LPN    77
18778  M01S12974.set     +++|          ADC    IUDWL*100B  APPEND DESCRIPTOR LENGTH TO HEADER
18779  M01S12975.set     +++|          STM    DBUF+HDID
18780  M01S12976.set     +++|          LDM    DBUF+MCTC   SET CONNECT CODE
18781  M01S12977.set     +++|          STM    TEAB+5*IOEI+3
18782  M01S12978.set     +++|          LDN    IOEI*5      SET IOU DESCRIPTOR ADDRESS
18783  M01S12979.set     +++|          RJM    SDA
18784  M01S12980.set     +++|          LDM    C8XX
18785  M01S12981.set     +++|          ZJN    BVS6        IF C180 MAINFRAME
18786  M01S12982.set     +++|          LDD    CM+3
18787  M01S12983.set     +++|          SHN    4           SET I/O SUBSYSTEM MODEL NUMBER
18788  M01S12984.set     +++|          STM    DBUF+HDMN
18789  M01S12985.set     +++| BVS6     LDN    IUDSL       COPY DESCRIPTOR TO SAB
18790  M01S12986.set     +++|          RJM    CDS
18791  M01S12987.set     +++|          LDM    C8XX
18792  M01S12988.set     +++|          NJN    BVS7        IF NOT CYBER 800 TYPE MAINFRAME
18793  M01S12989.set     +++|
18794  M01S12990.set     +++|*         CONSOLE DESCRIPTOR.
18795  M01S12991.set     +++|
18796  M01S12992.set     +++|          LDN    CIDS        REQUEST CONSOLE DESCRIPTOR
18797  M01S12993.set     +++|          RJM    IAF
18798  M01S12994.set     +++|          LDM    DBUF+HDID
18799  M01S12995.set     +++|          LPN    77
18800  M01S12996.set     +++|          LMD    HN          APPEND DESCRIPTOR LENGTH TO HEADER
18801  M01S12997.set     +++|          STM    DBUF+HDID
18802  M01S12998.set     +++|          LCN    5*DCEI+2    SET DISPLAY CONSOLE DESCRIPTOR ADDRESS
18803  M01S12999.set     +++|          RJM    SDA
18804  M01S13000.set     +++|          LDN    CIDSL       COPY DESCRIPTOR TO SAB
18805  M01S13001.set     +++|          RJM    CDS
18806  M01S13002.set     +++| BVS7     LDD    HO
18807  M01S13003.set     +++|          SHN    21-11
18808  M01S13004.set     +++|          PJN    BVS8        IF NOT CYBER 176
18809  M01S13005.set     +++|
18810  M01S13006.set     +++|*         FLPP DESCRIPTOR.
18811  M01S13007.set     +++|
18812  M01S13008.set     +++|          LDN    FLPS        REQUEST FLPP DESCRIPTOR
18813  M01S13009.set     +++|          RJM    IAF
18814  M01S13010.set     +++|          LDM    DBUF+HDID
18815  M01S13011.set     +++|          LPN    77
18816  M01S13012.set     +++|          LMD    HN          APPEND DESCRIPTOR LENGTH TO HEADER
18817  M01S13013.set     +++|          STM    DBUF+HDID
18818  M01S13014.set     +++|          LDN    FLPSL       COPY DESCRIPTOR TO SAB
18819  M01S13015.set     +++|          RJM    CDS
18820  M01S13016.set     +++|
18821  M01S13017.set     +++|*         SET ISD SUBSYSTEM STATUS.
18822  M01S13018.set     +++|
18823  M01S13019.set     +++| BVS8     LDN    CFGL
18824  M01S13020.set     +++|          CRD    CM
18825  M01S13021.set     +++|          LDM    ISPF
18826  M01S13022.set     +++|          SHN    21-13
18827  M01S13023.set     +++|          MJN    BVS9        IF NOT CYBER 810/815/825/830
18828  M01S13024.set     +++|          ZJN    BVS9        IF ISD SUBSYSTEM NOT PRESENT
18829  M01S13025.set     +++|          LDD    TH          SET ISD SUBSYSTEM PRESENT
18830  M01S13026.set     +++|          RAD    CM+3
18831  M01S13027.set     +++| BVS9     LDN    CFGL
18832  M01S13028.set     +++|          CWD    CM
18833  M01S13029.set     +++|
18834  M01S13030.set     +++|*         EXTENDED MEMORY DESCRIPTOR.
18835  M01S13031.set     +++|
18836  M01S13032.set     +++|          LDD    EN
18837  M01S13033.set     +++|          NJN    BVS10       IF CPU ACCESS EQUIPMENT DEFINED
18838  M01S13034.set     +++|          LDM    UEMZ
18839  M01S13035.set     +++|          ADM    UEMZ+1
18840  M01S13036.set     +++|          ZJP    BVS13       IF NO USER EXTENDED MEMORY DEFINED
18841  M01S13037.set     +++|          LDC    440         SET FLAGS / MEMORY TYPE / PATH TYPE
18842  M01S13038.set     +++|          UJN    BVS12       COMPLETE DESCRIPTOR
18843  M01S13039.set     +++|
18844  M01S13040.set     +++| BVS10    SFA    EST
18845  M01S13041.set     +++|          ADK    EQDE
18846  M01S13042.set     +++|          CRD    CM
18847  M01S13043.set     +++|          LDD    CM+4        GET EM TYPE PARAMETERS
18848  M01S13044.set     +++|          SHN    3
18849  M01S13045.set     +++|          ADN    DILL
18850  M01S13046.set     +++|          CRD    CM
18851  M01S13047.set     +++|          LDD    CM+3        SET MAINTENANCE MODE FLAG
18852  M01S13048.set     +++|          SHN    0-11
18853  M01S13049.set     +++|          LPN    1
18854  M01S13050.set     +++|          LMN    1
18855  M01S13051.set     +++|          SHN    10-0
18856  M01S13052.set     +++|          RAM    BVSA
18857  M01S13053.set     +++|          LDD    CM+3        SET EXTENDED ADDRESSING FLAG
18858  M01S13054.set     +++|          LPN    70
18859  M01S13055.set     +++|          LMN    30
18860  M01S13056.set     +++|          NJN    BVS11       IF NOT EXTENDED ADDRESSING
18861  M01S13057.set     +++|          LDD    HN
18862  M01S13058.set     +++|          RAM    BVSA
18863  M01S13059.set     +++| BVS11    LDD    CM+3        SET PP PATH TYPE AND MEMORY TYPE
18864  M01S13060.set     +++|          LPN    77
18865  M01S13061.set     +++|          LMC    200
18866  M01S13062.set     +++| BVSA     EQU    *-1
18867  M01S13063.set     +++| BVS12    STM    DBUF+1
18868  M01S13064.set     +++|          LDN    ECRL
18869  M01S13065.set     +++|          CRD    CM
18870  M01S13066.set     +++|          LDM    UESC        PRESET SHIFT INSTRUCTIONS
18871  M01S13067.set     +++|          RAM    BVSB
18872  M01S13068.set     +++|          LDM    EMSC
18873  M01S13069.set     +++|          RAM    BVSC
18874  M01S13070.set     +++|          LDD    CM+1        SET USER XM / 1000
18875  M01S13071.set     +++| BVSB     SHN    14
18876  M01S13072.set     +++|*         SHN    14+UESC
18877  M01S13073.set     +++|          STM    DBUF+2
18878  M01S13074.set     +++|          SHN    -6
18879  M01S13075.set     +++|          SCN    7
18880  M01S13076.set     +++|          STM    DBUF+3
18881  M01S13077.set     +++|          LDM    EMFL        SET TOTAL XM / 1000
18882  M01S13078.set     +++| BVSC     SHN    0
18883  M01S13079.set     +++|*         SHN    EMSC
18884  M01S13080.set     +++|          STM    DBUF+4
18885  M01S13081.set     +++|          SHN    -14
18886  M01S13082.set     +++|          RAM    DBUF+3
18887  M01S13083.set     +++|          LDC    1S6+77      SET LENGTH AND ID
18888  M01S13084.set     +++|          STM    DBUF+HDID
18889  M01S13085.set     +++|          LCN    5*CMEI+2    SET EXTENDED MEMORY DESCRIPTOR ADDRESS
18890  M01S13086.set     +++|          RJM    SDA
18891  M01S13087.set     +++|          LDN    5           COPY DESCRIPTOR TO SAB
18892  M01S13088.set     +++|          RJM    CDS
18893  M01S13089.set     +++|
18894  M01S13090.set     +++|*         COPY *EABL* INTO PLACE.
18895  M01S13091.set     +++|
18896  M01S13092.set     +++| BVS13    LDK    EABLL       LENGTH OF TABLE
18897  M01S13093.set     +++|          STD    T3
18898  M01S13094.set     +++|          LDK    EABL        CM ADDRESS
18899  M01S13095.set     +++|          CWM    TEAB,T3
18900  M01S13096.set     +++|
18901  M01S13097.set     +++|*         COPY SAB INTO PLACE.
18902  M01S13098.set     +++|
18903  M01S13099.set     +++|          LDD    CN
18904  M01S13100.set     +++|          SHN    14
18905  M01S13101.set     +++|          LMD    CN+1
18906  M01S13102.set     +++|          CWM    TSAB,CN+2
18907  M01S13103.set     +++|
18908  M01S13104.set     +++|*         SUSPEND ALTERNATE PP.
18909  M01S13105.set     +++|
18910  M01S13106.set     +++|          LDK    RPCS*10000+DSCL  REMOVE PP FROM CHANNEL
18911  M01S13107.set     +++|          RJM    APM
18912  M01S13108.set     +++|          CHKAPE             CHECK ALTERNATE PP ERROR
18913  M01S13109.set     +++|
18914  M01S13110.set     +++|*         UPDATE *EI* COMMUNICATION BLOCK.
18915  M01S13111.set     +++|
18916  M01S13112.set     +++|          LDC    EIBP        FETCH *EI* BLOCK POINTER
18917  M01S13113.set     +++|          CRD    CN
18918  M01S13114.set     +++|          ADN    SCDP-EIBP   GET FWA OF *SCDPT*
18919  M01S13115.set     +++|          CRD    T4
18920  M01S13116.set     +++|          LDN    0
18921  M01S13117.set     +++|          STD    CM+4
18922  M01S13118.set     +++|          CRD    T1
18923  M01S13119.set     +++|          LDM    4,KB        GET OFFSET OF *CTI CM DIRECTORY*
18924  M01S13120.set     +++|          STD    CM
18925  M01S13121.set     +++|          LDM    3,KB        GET R-LOWER
18926  M01S13122.set     +++|          SHN    4
18927  M01S13123.set     +++|          STD    CM+3
18928  M01S13124.set     +++|          SHN    -14
18929  M01S13125.set     +++|          SHN    12
18930  M01S13126.set     +++|          ADM    2,KB        ADD R-UPPER
18931  M01S13127.set     +++|          SHN    10
18932  M01S13128.set     +++|          STD    CM+2
18933  M01S13129.set     +++|          SHN    -14
18934  M01S13130.set     +++|          STD    CM+1
18935  M01S13131.set     +++|          LDD    CN+3
18936  M01S13132.set     +++|          SHN    14
18937  M01S13133.set     +++|          LMD    CN+4
Line S13134 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
18938  M02S13134.ns2557  ---|          ZJN    BVS14       IF NOT DUAL STATE MAINFRAME
18939  M01S00097.ns2557  +++|          ZJP    BVSX        IF NOT DUAL STATE MAINFRAME
18940  M01S13135.set     +++|          ADN    D7RS+2
18941  M01S13136.set     +++|          CWD    T3
18942  M01S13137.set     +++|          ADN    DSCM+2-D7RS-2  WRITE *DSCM+2*
18943  M01S13138.set     +++|          CWD    CM
Line S13139 Modification History
M01 (Added by) set
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
18944  M02S13139.ns2557  ---| BVS14    LJM    BVSX        RETURN
18945  M01S00098.ns2557  +++|          LDN    0           SET UP WORD *D7RS*
18946  M01S00099.ns2557  +++|          CRD    CM
18947  M01S00100.ns2557  +++|          LDM    MDDP
18948  M01S00101.ns2557  +++|          LPN    10
18949  M01S00102.ns2557  +++|          SHN    13-3        SET *MDD* ACTIVE STATUS
18950  M01S00103.ns2557  +++|          STD    CM+1
18951  M01S00104.ns2557  +++| BVS14    LDM    .DCS
18952  M01S00105.ns2557  +++|          ZJN    BVS15       IF NOT 721 CONSOLE
18953  M01S00106.ns2557  +++|          LDC    1S10        SET NOS *SCD* ACTIVE
18954  M01S00107.ns2557  +++|          RAD    CM+1
18955  M01S00108.ns2557  +++| BVS15    LDC    PSAL        SET PP RESIDENT SAVE LENGTH
18956  M01S00109.ns2557  +++|          STD    CM+2
18957  M01S00110.ns2557  +++|          LDM    SPSA        SET SAVE AREA FWA
18958  M01S00111.ns2557  +++|          STD    CM+3
18959  M01S00112.ns2557  +++|          LDM    SPSA+1
18960  M01S00113.ns2557  +++|          STD    CM+4
18961  M01S00114.ns2557  +++|          LDD    CN+3        WRITE *D7RS*
18962  M01S00115.ns2557  +++|          SHN    14
18963  M01S00116.ns2557  +++|          LMD    CN+4
18964  M01S00117.ns2557  +++|          ADN    D7RS
18965  M01S00118.ns2557  +++|          CWD    CM
18966  M01S00119.ns2557  +++| BVS16    LJM    BVSX        RETURN
18967  M01S13140.set     +++| CDS      SPACE  4,10
18968  M01S13141.set     +++|**        CDS - COPY DATA TO SAB BLOCK.
18969  M01S13142.set     +++|*
18970  M01S13143.set     +++|*         ENTRY  (A) = LENGTH OF DATA.
18971  M01S13144.set     +++|*                (T6) = CURRENT DATA BYTE INDEX.
18972  M01S13145.set     +++|*                (T7) = CURRENT DATA WORD INDEX.
18973  M01S13146.set     +++|*
18974  M01S13147.set     +++|*         EXIT   (T6) = (T6) + (A) ON ENTRY, ROUNDED TO WORD BOUNDARY.
18975  M01S13148.set     +++|*                (T7) = (T6)/5.
18976  M01S13149.set     +++|*
18977  M01S13150.set     +++|*         USES   T3, T4.
18978  M01S13151.set     +++|
18979  M01S13152.set     +++|
18980  M01S13153.set     +++| CDS      SUBR               ENTRY/EXIT
18981  M01S13154.set     +++|          STD    T4          SAVE ENTRY
18982  M01S13155.set     +++|          LDN    0           INITIALIZE INDEX
18983  M01S13156.set     +++|          STD    T3
18984  M01S13157.set     +++| CDS1     LDM    DBUF,T3     MOVE DATA
18985  M01S13158.set     +++|          STM    TSAB,T6
18986  M01S13159.set     +++|          AOD    T6          INCREMENT POINTER
18987  M01S13160.set     +++|          AOD    T3          INCREMENT INDEX
18988  M01S13161.set     +++|          SOD    T4          DECREMENT COUNTER
18989  M01S13162.set     +++|          NJN    CDS1        IF MORE DATA TO MOVE
18990  M01S13163.set     +++| CDS2     AOD    T7          INCREMENT WORD INDEX
18991  M01S13164.set     +++|          LCN    5
18992  M01S13165.set     +++|          RAD    T3
18993  M01S13166.set     +++|          ZJN    CDSX        IF ALL DATA ACCOUNTED FOR
18994  M01S13167.set     +++|          PJN    CDS2        IF MORE DATA
18995  M01S13168.set     +++|          LMC    -0          ACCOUNT FOR A PARTIAL LAST WORD
18996  M01S13169.set     +++|          RAD    T6
18997  M01S13170.set     +++|          UJN    CDSX        RETURN
18998  M01S13171.set     +++| CMN      SPACE  4,10
18999  M01S13172.set     +++|**        CMN - CALCULATE MODEL NUMBERS (NON C180 MAINFRAMES).
19000  M01S13173.set     +++|*
19001  M01S13174.set     +++|*         ENTRY  (HO) = HARDWARE OPTIONS.
19002  M01S13175.set     +++|*
19003  M01S13176.set     +++|*         EXIT   (CM) = CPU 0 MODEL NUMBER.
19004  M01S13177.set     +++|*                (CM+1) = CPU 1 MODEL NUMBER.
19005  M01S13178.set     +++|*                (CM+2) = MEMORY MODEL NUMBER.
19006  M01S13179.set     +++|*                (CM+3) = I/O SUBSYSTEM MODEL NUMBER.
19007  M01S13180.set     +++|*
19008  M01S13181.set     +++|*         USES   T1, T2.
19009  M01S13182.set     +++|
19010  M01S13183.set     +++|
19011  M01S13184.set     +++| CMN13    STD    T1          SAVE MODEL INDICES
19012  M01S13185.set     +++|          SHN    -10
19013  M01S13186.set     +++|          STD    T2
19014  M01S13187.set     +++|          LDM    PMVT,T2     SET CPU 0 MODEL NUMBER
19015  M01S13188.set     +++|          STD    CM
19016  M01S13189.set     +++|          LDM    PMVT,CM+1   SET CPU 1 MODEL NUMBER
19017  M01S13190.set     +++|          STD    CM+1
19018  M01S13191.set     +++|          LDD    T1          EXTRACT MEMORY TYPE INDEX
19019  M01S13192.set     +++|          SHN    -4
19020  M01S13193.set     +++|          LPN    17
19021  M01S13194.set     +++|          STD    T2
19022  M01S13195.set     +++|          LDM    MMVT,T2     SET MEMORY MODEL NUMBER
19023  M01S13196.set     +++|          STD    CM+2
19024  M01S13197.set     +++|          LDD    T1          EXTRACT I/O SUBSYSTEM TYPE INDEX
19025  M01S13198.set     +++|          LPN    17
19026  M01S13199.set     +++|          STD    T2
19027  M01S13200.set     +++|          LDM    IMVT,T2     SET I/O SUBSYSTEM MODEL NUMBER
19028  M01S13201.set     +++|          STD    CM+3
19029  M01S13202.set     +++|
19030  M01S13203.set     +++| CMN      SUBR               ENTRY/EXIT
19031  M01S13204.set     +++|          LDM    C8XX
19032  M01S13205.set     +++|          ZJN    CMNX        IF C180 MAINFRAME
19033  M01S13206.set     +++|          CRD    CM
19034  M01S13207.set     +++|          LDD    HO          CHECK HARDWARE OPTIONS
19035  M01S13208.set     +++|          SHN    21-11
19036  M01S13209.set     +++|          PJN    CMN4        IF NOT C176
19037  M01S13210.set     +++|
19038  M01S13211.set     +++|*         PROCESS CYBER 176 SERIES MAINFRAME.
19039  M01S13212.set     +++|
19040  M01S13213.set     +++|          LDC    PMVF*400+MMVE*20+IMVD
19041  M01S13214.set     +++|          JMP    CMN13       SET MODEL INDICES
19042  M01S13215.set     +++|
19043  M01S13216.set     +++|*         PROCESS CYBER 170-865/875 SERIES MAINFRAME.
19044  M01S13217.set     +++|
19045  M01S13218.set     +++| CMN1     SHN    13-1
19046  M01S13219.set     +++|          MJN    CMN2        IF SECOND CPU NOT PRESENT
19047  M01S13220.set     +++|          LDN    PMVI
19048  M01S13221.set     +++|          STD    CM+1
19049  M01S13222.set     +++| CMN2     LDD    HO          EXTRACT 875 TYPE FLAG
19050  M01S13223.set     +++|          LPN    4
19051  M01S13224.set     +++|          SHN    4-2
19052  M01S13225.set     +++|          ERRNZ  MMVH+1-MMVI CODE DEPENDS ON VALUE
19053  M01S13226.set     +++|          ADC    PMVI*400+MMVH*20+IMVF
19054  M01S13227.set     +++|          JMP    CMN13       SET MODEL INDICES
19055  M01S13228.set     +++|
19056  M01S13229.set     +++|*         PROCESS CYBER 700 SERIES MAINFRAME.
19057  M01S13230.set     +++|
19058  M01S13231.set     +++| CMN4     SHN    11-10
19059  M01S13232.set     +++|          MJN    CMN7        IF NOT MODEL D PPS
19060  M01S13233.set     +++|          SHN    11+21-13
19061  M01S13234.set     +++|          PJN    CMN1        IF C170-865/875
19062  M01S13235.set     +++|          SHN    13-1
19063  M01S13236.set     +++|          MJN    CMN5        IF SECOND CPU NOT PRESENT
19064  M01S13237.set     +++|          LDN    PMVG
19065  M01S13238.set     +++|          STD    CM+1
19066  M01S13239.set     +++| CMN5     LDD    HO          CHECK HARDWARE OPTIONS
19067  M01S13240.set     +++|          LPN    20
19068  M01S13241.set     +++|          ZJN    CMN6        IF CPU 0 HAS STACK
19069  M01S13242.set     +++|          LDC    PMVG*400+MMVF*20-PMVH*400-MMVG*20
19070  M01S13243.set     +++| CMN6     ADC    PMVH*400+MMVG*20+IMVE
19071  M01S13244.set     +++|          JMP    CMN13       SET MODEL INDICES
19072  M01S13245.set     +++|
19073  M01S13246.set     +++| CMN7     SHN    10-6
19074  M01S13247.set     +++|          MJN    CMN9        IF S/C REGISTER NOT PRESENT
19075  M01S13248.set     +++|
19076  M01S13249.set     +++|*         PROCESS CYBER 170 SERIES MAINFRAME.
19077  M01S13250.set     +++|
19078  M01S13251.set     +++|          SHN    6-1
19079  M01S13252.set     +++|          MJN    CMN8        IF SECOND CPU NOT PRESENT
19080  M01S13253.set     +++|          LDN    PMVD
19081  M01S13254.set     +++|          STD    CM+1
19082  M01S13255.set     +++| CMN8     LDD    HO          EXTRACT STACK CPU STATUS
19083  M01S13256.set     +++|          LPN    20
19084  M01S13257.set     +++|          LMN    20
19085  M01S13258.set     +++|          SHN    10-4
19086  M01S13259.set     +++|          ERRNZ  PMVD+1-PMVE CODE DEPENDS ON VALUE
19087  M01S13260.set     +++|          ADC    PMVD*400+MMVE*20+IMVD
19088  M01S13261.set     +++|          JMP    CMN13       SET MODEL INDICES
19089  M01S13262.set     +++|
19090  M01S13263.set     +++| CMN9     SHN    7+21-7
19091  M01S13264.set     +++|          MJN    CMN11       IF I/L REGISTER NOT PRESENT
19092  M01S13265.set     +++|
19093  M01S13266.set     +++|*         PROCESS CYBER 70 SERIES MAINFRAME.
19094  M01S13267.set     +++|
19095  M01S13268.set     +++|          SHN    7-1
19096  M01S13269.set     +++|          MJN    CMN10       IF SECOND CPU NOT PRESENT
19097  M01S13270.set     +++|          LDN    PMVA
19098  M01S13271.set     +++|          STD    CM+1
19099  M01S13272.set     +++| CMN10    LDD    HO          EXTRACT STACK CPU STATUS
19100  M01S13273.set     +++|          LPN    20
19101  M01S13274.set     +++|          LMN    20
19102  M01S13275.set     +++|          SHN    10-4
19103  M01S13276.set     +++|          ERRNZ  PMVA+1-PMVB CODE DEPENDS ON VALUE
19104  M01S13277.set     +++|          ADC    PMVA*400+MMVC*20+IMVC
19105  M01S13278.set     +++|          JMP    CMN13       SET MODEL INDICES
19106  M01S13279.set     +++|
19107  M01S13280.set     +++|*         PROCESS 6000 SERIES MAINFRAME.
19108  M01S13281.set     +++|
19109  M01S13282.set     +++| CMN11    SHN    7-1
19110  M01S13283.set     +++|          MJN    CMN12       IF SECOND CPU NOT PRESENT
19111  M01S13284.set     +++|          LDN    PMVA
19112  M01S13285.set     +++|          STD    CM+1
19113  M01S13286.set     +++| CMN12    LDD    HO          EXTRACT STACK CPU STATUS
19114  M01S13287.set     +++|          LPN    20
19115  M01S13288.set     +++|          LMN    20
19116  M01S13289.set     +++|          SHN    10-4
19117  M01S13290.set     +++|          ERRNZ  PMVA+1-PMVB CODE DEPENDS ON VALUE
19118  M01S13291.set     +++|          ADC    PMVA*400+MMVA*20+IMVA
19119  M01S13292.set     +++|          JMP    CMN13       SET MODEL INDICES
19120  M01S13293.set     +++|
19121  M01S13294.set     +++|
19122  M01S13295.set     +++| PMVT     BSS    0           PROCESSOR MODEL TABLE
19123  M01S13296.set     +++|          LOC    0
19124  M01S13297.set     +++|          CON    0           UNDEFINED
19125  M01S13298.set     +++| PMVA     CON    2           6200, 6400, C71, C72, C73
19126  M01S13299.set     +++| PMVB     CON    3           6600, C74
19127  M01S13300.set     +++| PMVD     CON    22D         C171ABC, C172ABC, C173ABC, C174ABC
19128  M01S13301.set     +++| PMVE     CON    25D         C175ABC
19129  M01S13302.set     +++| PMVF     CON    42D         C176AB
19130  M01S13303.set     +++| PMVG     CON    52D         C720, C730
19131  M01S13304.set     +++| PMVH     CON    54D         C740, C750, C760
19132  M01S13305.set     +++| PMVI     CON    55D         C865, C875
19133  M01S13306.set     +++|          LOC    *O
19134  M01S13307.set     +++|
19135  M01S13308.set     +++|
19136  M01S13309.set     +++| MMVT     BSS    0           MEMORY MODEL TABLE
19137  M01S13310.set     +++|          LOC    0
19138  M01S13311.set     +++|          CON    0           UNDEFINED
19139  M01S13312.set     +++| MMVA     CON    102D        6200, 6400, 6600
19140  M01S13313.set     +++| MMVC     CON    113D        C71, C72, C73, C74
19141  M01S13314.set     +++| MMVE     CON    123D        C171ABC - C175ABC, C176AB
19142  M01S13315.set     +++| MMVF     CON    152D        C720, C730
19143  M01S13316.set     +++| MMVG     CON    154D        C740, C750, C760
19144  M01S13317.set     +++| MMVH     CON    155D        C865
19145  M01S13318.set     +++| MMVI     CON    156D        C875
19146  M01S13319.set     +++|          LOC    *O
19147  M01S13320.set     +++|
19148  M01S13321.set     +++|
19149  M01S13322.set     +++| IMVT     BSS    0           I/O SUBSYSTEM MODEL TABLE
19150  M01S13323.set     +++|          LOC    0
19151  M01S13324.set     +++|          CON    0           UNDEFINED
19152  M01S13325.set     +++| IMVA     CON    202D        6200, 6400, 6600
19153  M01S13326.set     +++| IMVC     CON    213D        C71, C72, C73, C74
19154  M01S13327.set     +++| IMVD     CON    223D        C171ABC - C175ABC, C176AB
19155  M01S13328.set     +++| IMVE     CON    252D        C720 - C760
19156  M01S13329.set     +++| IMVF     CON    255D        C865, C875
19157  M01S13330.set     +++|          LOC    *O
19158  M01S13331.set     +++| GPD      SPACE  4,10
19159  M01S13332.set     +++|**        GPD - GENERATE PROCESSOR DESCRIPTOR.
19160  M01S13333.set     +++|*
19161  M01S13334.set     +++|*         ENTRY  (A) = (T5) = PROCESSOR NUMBER.
19162  M01S13335.set     +++|*                (T6) = TSAB INDEX.
19163  M01S13336.set     +++|*                (T7) = SAB INDEX.
19164  M01S13337.set     +++|*
19165  M01S13338.set     +++|*         EXIT   (T6) = INDEX ADVANCED.
19166  M01S13339.set     +++|*                (T7) = INDEX ADVANCED.
19167  M01S13340.set     +++|*
19168  M01S13341.set     +++|*         CALLS  CDS, IAF.
19169  M01S13342.set     +++|
19170  M01S13343.set     +++|
19171  M01S13344.set     +++| GPD      SUBR               ENTRY/EXIT
19172  M01S13345.set     +++|          STM    MBUF
19173  M01S13346.set     +++|          LDN    CPDS        REQUEST CPU DESCRIPTOR
19174  M01S13347.set     +++|          RJM    IAF
19175  M01S13348.set     +++|          LDM    DBUF+5*1+4  MOVE MICROCODE LOADED FLAG
19176  M01S13349.set     +++|          STM    DBUF+5*3+4
19177  M01S13350.set     +++|          LDN    0           CLEAR UNUSED BYTES
19178  M01S13351.set     +++|          STM    DBUF+5*1+4
Line S13352 Modification History
M01 (Added by) set
M02 (Updated by) ns2499
Seq #  *Modification Id* Act 
----------------------------+
19179  M02S13352.ns2499  ---|          STM    DBUF+5*3+3
19180  M01S13353.set     +++|          STM    DBUF+5*2+4
19181  M01S13354.set     +++|          LDM    DBUF+MCTC   SET CONNECT CODE
19182  M01S13355.set     +++|          STM    TEAB+5*CPEI+3,T5
19183  M01S13356.set     +++|          LDM    DBUF+HDID
19184  M01S13357.set     +++|          LPN    77
19185  M01S13358.set     +++|          LMC    CPDWL*100B  APPEND DESCRIPTOR LENGTH TO HEADER
19186  M01S13359.set     +++|          STM    DBUF+HDID
19187  M01S13360.set     +++|          LDM    C8XX
19188  M01S13361.set     +++|          ZJN    GPD1        IF C180 MAINFRAME
19189  M01S13362.set     +++|          LDM    CM,T5
19190  M01S13363.set     +++|          SHN    4           SET CPU MODEL NUMBER
19191  M01S13364.set     +++|          STM    DBUF+HDMN
19192  M01S13365.set     +++| GPD1     LDN    4*5         COPY DESCRIPTOR TO SAB
19193  M01S13366.set     +++|          RJM    CDS
19194  M01S13367.set     +++|          UJP    GPDX        RETURN
19195  M01S13368.set     +++| IAF      SPACE  4,10
19196  M01S13369.set     +++|**        IAF - ISSUE FUNCTION TO ALTERNATE PP.
19197  M01S13370.set     +++|*
19198  M01S13371.set     +++|*         ENTRY  (A) = FUNCTION CODE.
19199  M01S13372.set     +++|*
19200  M01S13373.set     +++|*         EXIT   (A) = 0.
19201  M01S13374.set     +++|*
19202  M01S13375.set     +++|*         ERROR  TO *DSE* IF ALTERNATE PP ERROR.
19203  M01S13376.set     +++|*
19204  M01S13377.set     +++|*         CALLS  API.
19205  M01S13378.set     +++|
19206  M01S13379.set     +++|
19207  M01S13380.set     +++| IAF      SUBR               ENTRY/EXIT
19208  M01S13381.set     +++|          SHN    14
19209  M01S13382.set     +++|          LMC    MBUF        APPEND BUFFER ADDRESS TO REQUEST
19210  M01S13383.set     +++|          RJM    API
19211  M01S13384.set     +++|          ZJN    IAFX        IF NO ERROR
19212  M01S13385.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
19213  M01S13386.set     +++| SDA      SPACE  4,10
19214  M01S13387.set     +++|**        SDA - SET DESCRIPTOR ADDRESS.
19215  M01S13388.set     +++|*
19216  M01S13389.set     +++|*         ENTRY  (A) = INDEX INTO TEAB.
19217  M01S13390.set     +++|*                  IF (A) .GE. 0, ADDRESS ASSEMBLED INTO (A) + 1.
19218  M01S13391.set     +++|*                  IF (A) .LT. 0, ADDRESS ASSEMBLED INTO (A) - 1.
19219  M01S13392.set     +++|*                (T7) = CURRENT SAB INDEX.
19220  M01S13393.set     +++|*                (CN - CN+1) = FWA OF ELEMENT DESCRIPTOR BLOCK.
19221  M01S13394.set     +++|*
19222  M01S13395.set     +++|*         USES   T3.
19223  M01S13396.set     +++|
19224  M01S13397.set     +++|
19225  M01S13398.set     +++| SDA1     LMC    -0          COMPLEMENT INDEX
19226  M01S13399.set     +++|          STD    T3          SAVE ENTRY
19227  M01S13400.set     +++|          LDD    CN
19228  M01S13401.set     +++|          SHN    14
19229  M01S13402.set     +++|          LMD    CN+1
19230  M01S13403.set     +++|          ADD    T7          ADD CURRENT SAB INDEX
19231  M01S13404.set     +++|          STM    TEAB,T3     SET BITS 0-11
19232  M01S13405.set     +++|          SHN    -14
19233  M01S13406.set     +++|          RAM    TEAB-1,T3   SET BITS 12-17
19234  M01S13407.set     +++|
19235  M01S13408.set     +++| SDA      SUBR               ENTRY/EXIT
19236  M01S13409.set     +++|          MJN    SDA1        IF ENTRY .LT. 0
19237  M01S13410.set     +++|          STD    T3          SAVE ENTRY
19238  M01S13411.set     +++|          LDD    CN
19239  M01S13412.set     +++|          SHN    14
19240  M01S13413.set     +++|          LMD    CN+1
19241  M01S13414.set     +++|          ADD    T7          ADD CURRENT SAB INDEX
19242  M01S13415.set     +++|          SHN    14
19243  M01S13416.set     +++|          STM    TEAB,T3     SET BITS 6-17
19244  M01S13417.set     +++|          SHN    6-14
19245  M01S13418.set     +++|          SCN    77
19246  M01S13419.set     +++|          RAM    TEAB+1,T3   SET BITS 0-5
19247  M01S13420.set     +++|          UJN    SDAX        RETURN
19248  M01S13421.set     +++|          SPACE  4,10
19249  M01S13422.set     +++|**        COMMON DECKS.
19250  M01S13423.set     +++|
19251  M01S13424.set     +++|
19252  M01S13425.set     +++|*CALL     COMPCHM
19253  M01S13426.set     +++|          QUAL
19254  M01S13427.set     +++| PRS$     SET    0           SELECT COMMON DECK PRESET CODE
19255  M01S13428.set     +++|          QUAL   *
19256  M01S13429.set     +++|          LIST   X
19257  M01S13430.set     +++|*CALL     COMPAPI
19258  M01S13431.set     +++|          LIST   *
19259  M01S13432.set     +++|          SPACE  4,10
19260  M01S13433.set     +++|**        BUFFER DEFINITIONS.
19261  M01S13434.set     +++|
19262  M01S13435.set     +++|
19263  M01S13436.set     +++| TSAB     EQU    .OVL        SAB BLOCK
19264  M01S13437.set     +++| TSABL    EQU    SABML*5     BLOCK LENGTH
19265  M01S13438.set     +++|
19266  M01S13439.set     +++| TEAB     EQU    TSAB+TSABL  *EABL* BLOCK
19267  M01S13440.set     +++| TEABL    EQU    5*MFEI+5    BLOCK LENGTH
19268  M01S13441.set     +++|
19269  M01S13442.set     +++|          ERRPL  TEAB+TEABL-MBUF  BUFFER OVERLAP
19270  M01S13443.set     +++|          SPACE  4,10
19271  M01S13444.set     +++|          RSTC               RESTORE I/O INSTRUCTIONS
19272  M01S13445.set     +++|          TTL    SET/IPR - PROCESS INSTALLATION PARAMETERS.
19273  M01S13446.set     +++|          TITLE
19274  M01S13447.set     +++|          IDENT  IPR,OVL
19275  M01S13448.set     +++|          QUAL   IPR
19276  M01S13449.set     +++|          ORG    OVL
19277  M01S13450.set     +++|*COMMENT  SET - INSTALLATION PARAMETERS.
Line S13451 Modification History
M01 (Added by) set
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
19278  M02S13451.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
19279  M01S00009.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
19280  M01S13452.set     +++| MACROS   SPACE  4,10
19281  M01S13453.set     +++|**        MACRO DEFINITIONS.
19282  M01S13454.set     +++| TBLM     SPACE  4,10
19283  M01S13455.set     +++|**        TBLM = GENERATE TABLE OF MASS STORAGE DEVICE TYPES.
19284  M01S13456.set     +++|*
19285  M01S13457.set     +++|*         TBLM   EQ
19286  M01S13458.set     +++|*                EQ = MASS STORAGE EQUIPMENT MNEMONIC.
19287  M01S13459.set     +++|
19288  M01S13460.set     +++|
19289  M01S13461.set     +++| TBLM     MACRO  EQ
19290  M01S13462.set     +++|          CON    2R_EQ
19291  M01S13463.set     +++|          ENDM
19292  M01S13464.set     +++|          SPACE  4,10
19293  M01S13465.set     +++|**        ENTRY POINTS.
19294  M01S13466.set     +++|
19295  M01S13467.set     +++|
19296  M01S13468.set     +++|          CON    TSYN-1      ADDRESS OF SYNTAX TABLE
19297  M01S13469.set     +++|          CON    TSYNA       ADDRESS OF END OF SYNTAX TABLE
19298  M01S13470.set     +++|          SPACE  4,10
19299  M01S13471.set     +++|*         INITIALIZE SUBSYSTEM STATUS VALUES IN *SSSL* TO *DISABLED*.
19300  M01S13472.set     +++|
19301  M01S13473.set     +++| SSSL.0   SET    -0
19302  M01S13474.set     +++| SSSL.1   SET    -0
19303  M01S13475.set     +++| SSSL.2   SET    -0
19304  M01S13476.set     +++| SSSL.3   SET    -0
19305  M01S13477.set     +++| SSSL.4   SET    -0
19306  M01S13478.set     +++|          SPACE  4,10
19307  M01S13479.set     +++|*         COMMON DECKS.
19308  M01S13480.set     +++|
19309  M01S13481.set     +++|
19310  M01S13482.set     +++|*CALL     COMSMLS
19311  M01S13483.set     +++| SUB$     EQU    1           ASSEMBLE *SUBSYST* MACRO
19312  M01S13484.set     +++|*CALL     COMSSSD
19313  M01S13485.set     +++| IPR      SPACE  4
19314  M01S13486.set     +++|**        IPR - PROCESS INSTALLATION PARAMETERS.
19315  M01S13487.set     +++|
19316  M01S13488.set     +++|
19317  M01S13489.set     +++| IPR      SUBR               ENTRY/EXIT
19318  M01S13490.set     +++|          RJM    PMP         PROCESS MICROCODE/EI PARAMTERS
19319  M01S13491.set     +++|          RJM    ESS         COPY SUBSYSTEM TABLE TO CMR
19320  M01S13492.set     +++|          LDN    IPPL        STORE INSTALLATION PAGE PARAMETERS
19321  M01S13493.set     +++|          CWM    .IPPL,ON
19322  M01S13494.set     +++|          LDN    SSML        STORE SYSTEM SECURITY MODE
19323  M01S13495.set     +++|          CWM    .SSML,ON
19324  M01S13496.set     +++|          LDN    IPRL        STORE INSTALLATION PARAMETERS
19325  M01S13497.set     +++|          CWM    .IPRL,ON
Line S13498 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
19326  M02S13498.ns2633  ---|          LDM    VEMZ
Line S13499 Modification History
M01 (Added by) set
M02 (Updated by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
19327  M02S13499.ns2633  ---|          LPC    4000        ISOLATE *VE=* FLAG
19328  M01S00066.ns2633  +++|          LDM    VEFL        STORE *VE=* FLAG
19329  M01S13500.set     +++|          RAM    .SSTL+3
Line S13501 Modification History
M01 (Added by) set
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
19330  M02S13501.271l716 ---|          LDN    SSTL        STORE SYSTEM STATUS FLAGS
19331  M01S00355.271l716 +++|          LDM    .SSTL+2     ISOLATE *TRACE* STATUS
19332  M01S00356.271l716 +++|          LPN    40
19333  M01S00357.271l716 +++|          NJN    IPR1        IF TRACE DISABLED
19334  M01S00358.271l716 +++|          LDM    .SSTL+2     UPDATE *PROBE* STATUS
19335  M01S00359.271l716 +++|          LPC    7677
19336  M01S00360.271l716 +++|          STM    .SSTL+2
19337  M01S00361.271l716 +++| IPR1     LDN    SSTL        STORE SYSTEM STATUS FLAGS
19338  M01S13502.set     +++|          CWM    .SSTL,ON
19339  M01S13503.set     +++|          LDN    SSSL        STORE SUBSYSTEM STATUS FLAGS
19340  M01S13504.set     +++|          CWM    .SSSL,ON
19341  M01S13505.set     +++|          LDN    MSCL        STORE MONITOR SCAN VALUES
19342  M01S13506.set     +++|          CWM    .MSCL,ON
19343  M01S13507.set     +++|          LDN    JSCL        STORE JOB SCHEDULER CONTROL
19344  M01S13508.set     +++|          CWM    .JSCL,ON
19345  M01S13509.set     +++|          ADK    INWL-JSCL-1 STORE SCHEDULER INTERLOCK
19346  M01S13510.set     +++|          CWM    .INWL,ON
19347  M01S13511.set     +++|          ADK    PFNL-INWL-1 STORE PERMANENT FILE PARAMETERS
19348  M01S13512.set     +++|          CWM    .PFNL,ON
19349  M01S13513.set     +++|          UJP    IPRX        RETURN
19350  M01S13514.set     +++| TSYN     SPACE  4
19351  M01S13515.set     +++|**        TSYN - SYNTAX TABLE.
19352  M01S13516.set     +++|
19353  M01S13517.set     +++|
19354  M01S13518.set     +++| TSYN     BSS    0
19355  M01S13519.set     +++|          CON    DIS
19356  M01S13520.set     +++|          CON    ENA
19357  M01S13521.set     +++|
19358  M01S13522.set     +++|          CON    CLA
19359  M01S13523.set     +++|          CON    CML
19360  M01S13524.set     +++|          CON    CPM
19361  M01S13525.set     +++|          CON    CPTT
19362  M01S13526.set     +++|          CON    CSM
19363  M01S13527.set     +++|          CON    DEBUG
19364  M01S13528.set     +++|          CON    DELAY
19365  M01S13529.set     +++|          CON    DFPT
19366  M01S13530.set     +++|          CON    DSD
19367  M01S13531.set     +++|          CON    EIN
19368  M01S13532.set     +++|          CON    KEYPM
19369  M01S13533.set     +++|          CON    MICRO
19370  M01S13534.set     +++|          CON    UNL+1       LOCK
19371  M01S13535.set     +++|          CON    NIF
19372  M01S13536.set     +++|          CON    OQS
19373  M01S13537.set     +++|          CON    PCL
19374  M01S13538.set     +++|          CON    QUEUE
19375  M01S13539.set     +++|          CON    SCU
19376  M01S13540.set     +++|          CON    SSC
19377  M01S13541.set     +++|          CON    SERVICE
19378  M01S13542.set     +++|          CON    SPC
19379  M01S13543.set     +++|          CON    SPD
19380  M01S13544.set     +++|          CON    SPL
19381  M01S13545.set     +++|          CON    SPW
19382  M01S13546.set     +++|          CON    SSR
19383  M01S13547.set     +++|          CON    TCVM
19384  M01S13548.set     +++|          CON    TDEN
Line S13549 Modification History
M01 (Added by) set
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
19385  M02S13549.274l797 ---|          CON    TDTR
19386  M01S02296.274l797 +++|          CON    TDTY
19387  M01S13550.set     +++|          CON    UNL         UNLOCK
19388  M01S13551.set     +++|          CON    VEB
19389  M01S13552.set     +++|
19390  M01S13553.set     +++| TSYNA    CON    0
19391  M01S13554.set     +++|          CON    0           END OF TABLE
19392  M01S13555.set     +++| TCOM     SPACE  4,10
19393  M01S13556.set     +++|**        TCOM - TABLE OF ENABLE/DISABLE COMMANDS.
19394  M01S13557.set     +++|
19395  M01S13558.set     +++|
19396  M01S13559.set     +++| TCOM     BSS    0
19397  M01S13560.set     +++|          DUP    MXSI-LSSI,1
19398  M01S13561.set     +++|          CON    NOP
19399  M01S13562.set     +++|          ORG    TCOM
19400  M01S13563.set     +++| TCOM     INDEX
19401  M01S13564.set     +++|          LIST   D
19402  M01S13565.set     +++| .SUB     HERE
19403  M01S13566.set     +++|          LIST   *
19404  M01S13567.set     +++|          INDEX  MXSI-LSSI
19405  M01S13568.set     +++|
19406  M01S13569.set     +++|*         ENABLE/DISABLE NON-SUBSYSTEM ATTRIBUTES.
19407  M01S13570.set     +++|
19408  M01S02297.274l797 +++|          CON    APS
19409  M01S13571.set     +++|          CON    ARS
Line S00362 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
19410  M02S00362.273l780 ---|          CON    CMR
19411  M01S00037.253l688 +++|          CON    CPS
19412  M01S13572.set     +++|          CON    DDP
19413  M01S13573.set     +++|          CON    DKV
19414  M01S13574.set     +++|          CON    ENG
19415  M01S13575.set     +++|          CON    ESP
19416  M01S00363.271l716 +++|          CON    FMP
19417  M01S00059.272l774 +++|          CON    FOF
19418  M01S00001.ns2627  +++|          CON    HFI
Line S13576 Modification History
M01 (Added by) set
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
19419  M02S13576.253l688 ---|          CON    FLS
19420  M01S13577.set     +++|          CON    LOG
19421  M01S13578.set     +++|          CON    MCL
19422  M01S13579.set     +++|          CON    MMA
19423  M01S13580.set     +++|          CON    MMS
19424  M01S13581.set     +++|          CON    MSV
19425  M01S00244.261l700 +++|          CON    PAM
19426  M01S13582.set     +++|          CON    PFV
19427  M01S13583.set     +++|          CON    PRB
19428  M01S13584.set     +++|          CON    PRM
19429  M01S13585.set     +++|          CON    REM
19430  M01S13586.set     +++|          CON    RRM
19431  M01S13587.set     +++|          CON    SCP
19432  M01S13588.set     +++|          CON    SCRSIM
19433  M01S13589.set     +++|          CON    SPI
Proceed to Part 16
cdc/nos2.source/opl.opl871/deck/set.015.txt ยท Last modified: by 127.0.0.1