Deck SET Part 002

79 Modifications

Seq #  *Modification Id* Act 
----------------------------+
03543  M00S02976.set     +++|          OAM    EDHC,CH
03544  M00S02977.set     +++|          RJM    CDI         CHECK DISPLAY INDEX
03545  M00S02978.set     +++|          RJM    GIL         GENERATE LINE
03546  M00S02979.set     +++|          ZJN    GIDX        IF NO MORE MASS STORAGE
03547  M00S02980.set     +++|          STD    T2
03548  M00S02981.set     +++|          LCN    YINC        ADJUST Y-COORDINATE
03549  M00S02982.set     +++|          RAD    YY
03550  M00S02983.set     +++|          LDC    GIL         CHANGE PROCESSOR ADDRESS
03551  M00S02984.set     +++|          STD    PA
03552  M00S02985.set     +++|          LDD    T2
03553  M00S02986.set     +++|          UJN    GIDX        RETURN
03554  M00S02987.set     +++| GIL      SPACE  4,15
03555  M00S02988.set     +++|**        GIL - GENERATE MASS STORAGE INITIALIZATION LINE.
03556  M00S02989.set     +++|*
03557  M00S02990.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03558  M00S02991.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03559  M00S02992.set     +++|*
03560  M00S02993.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03561  M00S02994.set     +++|*                    = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03562  M00S02995.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03563  M00S02996.set     +++|*                (LBUF) = DISPLAY LINE.
03564  M00S02997.set     +++|*
03565  M00S02998.set     +++|*         USES   FP, T0, T2.
03566  M00S02999.set     +++|*
03567  M00S03000.set     +++|*         CALLS  C1D, C2D, IML, SBS.
03568  M00S03001.set     +++|
03569  M00S03002.set     +++|
03570  M00S03003.set     +++| GIL      SUBR               ENTRY/EXIT
03571  M00S03004.set     +++|          RJM    IML
03572  M00S03005.set     +++|          ZJN    GILX        IF NO MORE MASS STORAGE EQUIPMENT
03573  M00S03006.set     +++|          LDD    WB+4        SET INITIALIZATION OPTIONS
03574  M00S03007.set     +++|          LPC    7760
03575  M00S03008.set     +++|          ZJN    GIL2        IF INITIALIZATION NOT SPECIFIED
03576  M00S03009.set     +++|          STD    T0          FTPQSAEB
03577  M00S03010.set     +++|          LDC    GILA
03578  M00S03011.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03579  M00S03012.set     +++|          UJN    GIL3        CHECK *PF* ENTRY
03580  M00S03013.set     +++|
03581  M00S03014.set     +++| GIL2     LDN    4           ADVANCE POSITION
03582  M00S03015.set     +++|          RAD    T2
03583  M00S03016.set     +++| GIL3     LDM    MSTB+DVNM   DETERMINE IF *PF* ENTRY ENTERED
03584  M00S03017.set     +++|          NJN    GIL4        IF ENTERED
03585  M00S03018.set     +++|          LJM    GIL9        SET LENGTH OF DISPLAY LINE
03586  M00S03019.set     +++|
03587  M00S03020.set     +++| GIL4     AOD    T2
03588  M00S03021.set     +++|          LDD    WB          DETERMINE DEVICE TYPE
03589  M00S03022.set     +++|          LPN    4
03590  M00S03023.set     +++|          ZJN    GIL5        IF FAMILY DEVICE
03591  M00S03024.set     +++|          LDC    2RX &2RF
03592  M00S03025.set     +++| GIL5     LMC    2RF         SET *F* OR *X*
03593  M00S03026.set     +++|          STI    T2
03594  M00S03027.set     +++|          AOD    T2
03595  M00S03028.set     +++|          LDM    MSTB+DVPF+1 SET DEVICE MASK
03596  M00S03029.set     +++|          SHN    -6
03597  M00S03030.set     +++|          LPN    3
03598  M00S03031.set     +++|          RJM    C1D
03599  M00S03032.set     +++|          SOD    T2          BACKSPACE OVER SEPARATOR
03600  M00S03033.set     +++|          LDM    MSTB+DVPF+1
03601  M00S03034.set     +++|          RJM    C2D
03602  M00S03035.set     +++|          LDM    MSTB+DVPF   SET SECONDARY MASK
03603  M00S03036.set     +++|          SHN    -2
03604  M00S03037.set     +++|          LPN    3
03605  M00S03038.set     +++|          RJM    C1D
03606  M00S03039.set     +++|          SOD    T2          BACKSPACE OVER SEPARATOR
03607  M00S03040.set     +++|          LDM    MSTB+DVPF
03608  M00S03041.set     +++|          LPN    3
03609  M00S03042.set     +++|          SHN    14
03610  M00S03043.set     +++|          LMM    MSTB+DVPF+1
03611  M00S03044.set     +++|          SHN    -10
03612  M00S03045.set     +++|          RJM    C2D
03613  M00S03046.set     +++|          LDC    MSTB+DVNM   SET FAMILY OR PACKNAME
03614  M00S03047.set     +++|          STD    FP
03615  M00S03048.set     +++|          AOD    T2
03616  M00S03049.set     +++| GIL6     LDI    FP
03617  M00S03050.set     +++|          STI    T2
03618  M00S03051.set     +++|          AOD    T2
03619  M00S03052.set     +++|          AOD    FP
03620  M00S03053.set     +++|          LMC    MSTB+DVNM+3
03621  M00S03054.set     +++|          NJN    GIL6        IF MORE CHARACTERS TO CHECK
03622  M00S03055.set     +++|          LDM    MSTB+DVNM+3 SET SEVENTH CHARACTER
03623  M00S03056.set     +++|          SCN    77          CLEAR DEVICE NUMBER
03624  M00S03057.set     +++|          STI    T2
03625  M00S03058.set     +++|          AOD    T2
03626  M00S03059.set     +++|          LDD    WB          DETERMINE IF FAMILY OR AUXILARY DEVICE
03627  M00S03060.set     +++|          LPN    4
03628  M00S03061.set     +++|          ZJN    GIL7        IF FAMILY DEVICE
03629  M00S03062.set     +++|          LDN    2           ADVANCE POSITION
03630  M00S03063.set     +++|          RAD    T2
03631  M00S03064.set     +++|          UJN    GIL8        SET NUMBER OF CATALOG TRACKS
03632  M00S03065.set     +++|
03633  M00S03066.set     +++| GIL7     LDM    MSTB+DVDN   SET DEVICE NUMBER
03634  M00S03067.set     +++|          RJM    C2D
03635  M00S03068.set     +++| GIL8     LDM    MSTB+DVPF   SET NUMBER OF CATALOG TRACKS
03636  M00S03069.set     +++|          SHN    -12
03637  M00S03070.set     +++|          RJM    C1D
03638  M00S03071.set     +++|          SOD    T2          BACKSPACE OVER SEPARATOR
03639  M00S03072.set     +++|          LDM    MSTB+DVPF
03640  M00S03073.set     +++|          SHN    -4
03641  M00S03074.set     +++|          RJM    C2D
03642  M00S03075.set     +++| GIL9     LDD    T2          SET LENGTH OF DISPLAY LINE
03643  M00S03076.set     +++|          SBN    YY
03644  M00S03077.set     +++|          LJM    GILX        RETURN
03645  M00S03078.set     +++| GILA     SPACE  4,10
03646  M00S03079.set     +++|*         OPTION MASK.
03647  M00S03080.set     +++|
03648  M00S03081.set     +++| GILA     CON    2RFT&2R--
03649  M00S03082.set     +++|          CON    2RPQ&2R--
03650  M00S03083.set     +++|          CON    2RSA&2R--
03651  M00S03084.set     +++|          CON    2REB&2R--
03652  M00S03085.set     +++|          CON    0
03653  M00S03086.set     +++| GMD      SPACE  4,10
03654  M00S03087.set     +++|**        GMD - INITIATE MST DISPLAY.
03655  M00S03088.set     +++|*
03656  M00S03089.set     +++|*         EXIT   SEE *GML*.
03657  M00S03090.set     +++|*                (A) = 0 IF END OF MASS STORAGE EQUIPMENT.
03658  M00S03091.set     +++|*                (PA) = GML.
03659  M00S03092.set     +++|*                (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03660  M00S03093.set     +++|*
03661  M00S03094.set     +++|*         USES   T2.
03662  M00S03095.set     +++|*
03663  M00S03096.set     +++|*         CALLS  CDI, GML.
03664  M00S03097.set     +++|
03665  M00S03098.set     +++|
03666  M00S03099.set     +++| GMD      SUBR               ENTRY/EXIT
03667  M00S03100.set     +++|          LDN    EDHBA       OUTPUT DISPLAY HEADER
03668  M00S03101.set     +++|          OAM    EDHB,CH
03669  M00S03102.set     +++|          LDD    MA          GET DAYFILE AND DEFAULT FAMILY EQUIPMENTS
03670  M00S03103.set     +++|          SHN    6
03671  M00S03104.set     +++|          ADN    NEEQ*TDDCL
03672  M00S03105.set     +++|          CRD    CB
03673  M00S03106.set     +++|          RJM    CDI         CHECK DISPLAY INDEX
03674  M00S03107.set     +++|          RJM    GML
03675  M00S03108.set     +++|          ZJN    GMDX        IF NO MORE MASS STORAGE
03676  M00S03109.set     +++|          STD    T2
03677  M00S03110.set     +++|          LCN    YINC        ADJUST Y-COORDINATE
03678  M00S03111.set     +++|          RAD    YY
03679  M00S03112.set     +++|          LDC    GML         CHANGE PROCESSOR ADDRESS
03680  M00S03113.set     +++|          STD    PA
03681  M00S03114.set     +++|          LDD    T2
03682  M00S03115.set     +++|          UJN    GMDX        RETURN
03683  M00S03116.set     +++| GML      SPACE  4,15
03684  M00S03117.set     +++|**        GML - GENERATE MST DISPLAY LINE.
03685  M00S03118.set     +++|*
03686  M00S03119.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03687  M00S03120.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03688  M00S03121.set     +++|*
03689  M00S03122.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03690  M00S03123.set     +++|*                    = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03691  M00S03124.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03692  M00S03125.set     +++|*                (LBUF) = DISPLAY LINE.
03693  M00S03126.set     +++|*
03694  M00S03127.set     +++|*         USES   BA, T2.
03695  M00S03128.set     +++|*
03696  M00S03129.set     +++|*         CALLS  IML, SBS.
03697  M00S03130.set     +++|
03698  M00S03131.set     +++|
03699  M00S03132.set     +++| GML      SUBR               ENTRY/EXIT
03700  M00S03133.set     +++|          RJM    IML
03701  M00S03134.set     +++|          ZJN    GMLX        IF NO MORE MASS STORAGE EQUIPMENT
03702  M00S03135.set     +++|          LDD    WB
03703  M00S03136.set     +++|          LPC    3400        SET S, M, R
03704  M00S03137.set     +++|          SHN    1
03705  M00S03138.set     +++|          STD    T0          SMR.........
03706  M00S03139.set     +++|          LDD    WB
03707  M00S03140.set     +++|          LPN    20          SET N
03708  M00S03141.set     +++|          SHN    10-4
03709  M00S03142.set     +++|          RAD    T0          SMRN........
03710  M00S03143.set     +++|          LDD    WB+4
03711  M00S03144.set     +++|          LPN    10          SET A
03712  M00S03145.set     +++|          SHN    7-3
03713  M00S03146.set     +++|          RAD    T0          SMRNA.......
03714  M00S03147.set     +++|          LDD    WB+4
03715  M00S03148.set     +++|          SCN    17
03716  M00S03149.set     +++|          ZJN    GML2        IF NO INITIALIZE PENDING
03717  M00S03150.set     +++|          LDC    100         SET I
03718  M00S03151.set     +++|          RAD    T0          SMRNAI......
03719  M00S03152.set     +++| GML2     LDM    MSTB+DVPR   SET P
03720  M00S03153.set     +++|          LPN    1
03721  M00S03154.set     +++|          SHN    5
03722  M00S03155.set     +++|          RAD    T0          SMRNAIP.....
03723  M00S03156.set     +++|          LDN    4
03724  M00S03157.set     +++|          STD    BA
03725  M00S03158.set     +++| GML3     LDM    CB,BA       DETERMINE DAYFILE AND FAMILY RESIDENCE
03726  M00S03159.set     +++|          LPC    777
03727  M00S03160.set     +++|          LMD    T1
03728  M00S03161.set     +++|          NJN    GML4        IF NO RESIDENCE
03729  M00S03162.set     +++|          LDM    GMLC,BA     SET D, C, E, B, AND/OR F
03730  M00S03163.set     +++|          RAD    T0
03731  M00S03164.set     +++| GML4     SOD    BA
03732  M00S03165.set     +++|          PJN    GML3        IF MORE TO CHECK
03733  M00S03166.set     +++|          LDC    GMLA
03734  M00S03167.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03735  M00S03168.set     +++|          LDM    MSTB+DVPR   SET G
03736  M00S03169.set     +++|          LPN    2
03737  M00S03170.set     +++|          SHN    12
03738  M00S03171.set     +++|          STD    T0
03739  M00S03172.set     +++|          LDC    GMLB
03740  M00S03173.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03741  M00S03174.set     +++|          LDN    2
03742  M00S03175.set     +++|          RAD    T2
03743  M00S03176.set     +++|          LDM    MSTB+DVFA   SET FILE TYPE BITS
03744  M00S03177.set     +++|          SHN    3
03745  M00S03178.set     +++|          ADN    4           SET UNUSED BIT
03746  M00S03179.set     +++|          STD    T0
03747  M00S03180.set     +++|          LDC    GMLD
03748  M00S03181.set     +++|          RJM    SBS         DISPLAY BIT STATUS
03749  M00S03182.set     +++|          LDD    T2          SET LENGTH OF DISPLAY LINE
03750  M00S03183.set     +++|          SBN    YY
03751  M00S03184.set     +++|          LJM    GMLX        RETURN
03752  M00S03185.set     +++| GMLA     SPACE  4,10
03753  M00S03186.set     +++|*         STATUS MASKS.
03754  M00S03187.set     +++|
03755  M00S03188.set     +++| GMLA     CON    2RSM&2R--
03756  M00S03189.set     +++|          CON    2RRN&2R--
03757  M00S03190.set     +++|          CON    2RAI&2R--
03758  M00S03191.set     +++|          CON    2RPD&2R--
03759  M00S03192.set     +++|          CON    2RCE&2R--
03760  M00S03193.set     +++|          CON    2RBF&2R--
03761  M00S03194.set     +++|          CON    0
03762  M00S03195.set     +++|
03763  M00S03196.set     +++| GMLB     CON    2RG-&2R--
03764  M00S03197.set     +++|          CON    0
03765  M00S03198.set     +++|
03766  M00S03199.set     +++| GMLC     CON    20
03767  M00S03200.set     +++|          CON    10
03768  M00S03201.set     +++|          CON    4
03769  M00S03202.set     +++|          CON    2
03770  M00S03203.set     +++|          CON    1
03771  M00S03204.set     +++|
03772  M00S03205.set     +++|
03773  M00S03206.set     +++|*         FILES MASK.
03774  M00S03207.set     +++|
03775  M00S03208.set     +++| GMLD     CON    2RSB&2R--
03776  M00S03209.set     +++|          CON    2RLP&2R--
03777  M00S03210.set     +++|          CON    2RDR&2R--
03778  M00S03211.set     +++|          CON    2ROI&2R--
03779  M00S03212.set     +++|          CON    2RT &2R--
03780  M00S03213.set     +++|          CON    0
03781  M00S03214.set     +++| GTD      SPACE  4,10
03782  M00S03215.set     +++|**        GTD - INITIATE MASS STORAGE ERROR THRESHOLD DISPLAY.
03783  M00S03216.set     +++|*
03784  M00S03217.set     +++|*         EXIT   SEE *GTL*.
03785  M00S03218.set     +++|*                (A) = 0 IF END OF MASS STORAGE EQUIPMENT.
03786  M00S03219.set     +++|*                (PA) = GTL.
03787  M00S03220.set     +++|*                (YY) = COORDINATE FOR NEXT DISPLAY LINE.
03788  M00S03221.set     +++|*
03789  M00S03222.set     +++|*         USES   T2.
03790  M00S03223.set     +++|*
03791  M00S03224.set     +++|*         CALLS  CDI, GTL.
03792  M00S03225.set     +++|
03793  M00S03226.set     +++|
03794  M00S03227.set     +++| GTD      SUBR               ENTRY/EXIT
03795  M00S03228.set     +++|          LDN    EDHEA       OUTPUT DISPLAY HEADER
03796  M00S03229.set     +++|          OAM.   EDHE,CH
03797  M00S03230.set     +++|          RJM    CDI         CHECK DISPLAY INDEX
03798  M00S03231.set     +++|          RJM    GTL         GENERATE LINE
03799  M00S03232.set     +++|          ZJN    GTDX        IF NO MORE MASS STORAGE
03800  M00S03233.set     +++|          STD    T2
03801  M00S03234.set     +++|          LCN    YINC        ADJUST Y-COORDINATE
03802  M00S03235.set     +++|          RAD    YY
03803  M00S03236.set     +++|          LDC    GTL         CHANGE PROCESSOR ADDRESS
03804  M00S03237.set     +++|          STD    PA
03805  M00S03238.set     +++|          LDD    T2
03806  M00S03239.set     +++|          UJN    GTDX        RETURN
03807  M00S03240.set     +++| GTL      SPACE  4,15
03808  M00S03241.set     +++|**        GTL - GENERATE MASS STORAGE ERROR THRESHOLD LINE.
03809  M00S03242.set     +++|*
03810  M00S03243.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03811  M00S03244.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03812  M00S03245.set     +++|*
03813  M00S03246.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03814  M00S03247.set     +++|*                    = LENGTH OF DISPLAY LINE (INCLUDING COORDINATES).
03815  M00S03248.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03816  M00S03249.set     +++|*                (LBUF) = DISPLAY LINE.
03817  M00S03250.set     +++|*
03818  M00S03251.set     +++|*         USES   BA.
03819  M00S03252.set     +++|*
03820  M00S03253.set     +++|*         CALLS  D4S, IML.
03821  M00S03254.set     +++|
03822  M00S03255.set     +++|
03823  M00S03256.set     +++| GTL      SUBR               ENTRY/EXIT
03824  M00S03257.set     +++|          RJM    IML
03825  M00S03258.set     +++|          ZJN    GTLX        IF NO MORE MASS STORAGE EQUIPMENT
03826  M00S03259.set     +++|          LDM    MSTB+DVNT
03827  M00S03260.set     +++|          RJM    D4S         CONVERT TRACK COUNT
03828  M00S03261.set     +++|          LDN    0
03829  M00S03262.set     +++|          STD    BA
03830  M00S03263.set     +++| GTL1     LDM    MSTB+DVTH,BA  CONVERT THRESHOLD VALUE
03831  M00S03264.set     +++|          RJM    D4S
03832  M00S03265.set     +++|          AOD    BA          ADVANCE INDEX
03833  M00S03266.set     +++|          LMN    5
03834  M00S03267.set     +++|          NJN    GTL1        IF MORE ERROR LIMITS
03835  M00S03268.set     +++|          LDD    T2
03836  M00S03269.set     +++|          SBN    YY
03837  M00S03270.set     +++|          UJP    GTLX        RETURN
03838  M00S03271.set     +++| IEL      SPACE  4,10
03839  M00S03272.set     +++|**        IEL - INITIALIZE EQUIPMENT DISPLAY LINE.
03840  M00S03273.set     +++|*
03841  M00S03274.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03842  M00S03275.set     +++|*                (WB - WB+4) = EST DATA.
03843  M00S03276.set     +++|*
03844  M00S03277.set     +++|*         EXIT   (A) = 0 IF EQUIPMENT UNDEFINED.
03845  M00S03278.set     +++|*                (T2) = *LBUF* ADDRESS FOR CONTINUED ASSEMBLY.
03846  M00S03279.set     +++|*
03847  M00S03280.set     +++|*         CALLS  CLB, D4S.
03848  M00S03281.set     +++|
03849  M00S03282.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
03850  M01S00031.284l847 +++| IEL3     LDN    2           ADVANCE PAST PARTITION FIELD
03851  M01S00032.284l847 +++|          RAD    T2
03852  M01S00033.284l847 +++|
03853  M00S03283.set     +++| IEL      SUBR               ENTRY/EXIT
03854  M00S03284.set     +++|          RJM    CLB
03855  M00S03285.set     +++|          LDD    T1          CONVERT EST ORDINAL
03856  M00S03286.set     +++|          RJM    D4S
03857  M00S03287.set     +++|          LDD    WB+3        SET EQUIPMENT MNEMONIC
03858  M00S03288.set     +++|          ZJN    IELX        IF EQUIPMENT UNDEFINED
03859  M00S03289.set     +++|          STI    T2
03860  M00S03290.set     +++|          LDN    2           ADVANCE ASSEMBLY ADDRESS
03861  M00S03291.set     +++|          RAD    T2

Seq #  *Modification Id* Act 
----------------------------+
03862  M01S00034.284l847 +++|          LDD    WB
03863  M01S00035.284l847 +++|          SHN    21-13
03864  M01S00036.284l847 +++|          PJN    IEL3        IF NOT MASS STORAGE
03865  M01S00037.284l847 +++|          SHN    21-5-21+13
03866  M01S00038.284l847 +++|          PJN    IEL3        IF NOT BUFFERED DEVICE
03867  M01S00039.284l847 +++|          LDM    ESTB+3
03868  M01S00040.284l847 +++|          SHN    21-13
03869  M01S00041.284l847 +++|          PJN    IEL3        IF NO PARTITION NUMBER
03870  M01S00042.284l847 +++|          SHN    21-11-21+13
03871  M01S00043.284l847 +++|          MJN    IEL2        IF DOUBLE DIGIT PARTITION NUMBER
03872  M01S00044.284l847 +++|          SHN    0-16
03873  M01S00045.284l847 +++|          RJM    C1D         CONVERT 1 OCTAL DIGIT
03874  M01S00046.284l847 +++| IEL1     UJN    IELX        RETURN
03875  M01S00047.284l847 +++|
03876  M01S00048.284l847 +++| IEL2     SHN    4
03877  M01S00049.284l847 +++|          LPN    17
03878  M01S00050.284l847 +++|          RJM    C2D         DISPLAY 2 OCTAL DIGITS

Seq #  *Modification Id* Act 
----------------------------+
03879  M01S03292.284l847 ---|          UJN    IELX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03880  M01S00051.284l847 +++|          UJN    IEL1        RETURN
03881  M00S03293.set     +++| IML      SPACE  4,10
03882  M00S03294.set     +++|**        IML - INITIALIZE MASS STORAGE DISPLAY LINE.
03883  M00S03295.set     +++|*
03884  M00S03296.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03885  M00S03297.set     +++|*                (EW) = CURRENT EQUIPMENT COUNT.
03886  M00S03298.set     +++|*
03887  M00S03299.set     +++|*         EXIT   (A) = 0 IF NO MORE MASS STORAGE EQUIPMENT.
03888  M00S03300.set     +++|*                (T1) = MASS STORAGE EST ORDINAL.
03889  M00S03301.set     +++|*
03890  M00S03302.set     +++|*         CALLS  IEL, REP.
03891  M00S03303.set     +++|
03892  M00S03304.set     +++|
03893  M00S03305.set     +++| IML2     RJM    IEL         INITIALIZE DISPLAY LINE
03894  M00S03306.set     +++|
03895  M00S03307.set     +++| IML      SUBR               ENTRY/EXIT
03896  M00S03308.set     +++| IML1     RJM    REP
03897  M00S03309.set     +++|          NJN    IML2        IF MASS STORAGE EQUIPMENT FOUND
03898  M00S03310.set     +++|          AOD    T1
03899  M00S03311.set     +++|          LMD    EW
03900  M00S03312.set     +++|          NJN    IML1        IF MORE EQUIPMENT TO CHECK
03901  M00S03313.set     +++|*         LDN    0
03902  M00S03314.set     +++|          UJN    IMLX        RETURN
03903  M00S03315.set     +++| REP      SPACE  4,10
03904  M00S03316.set     +++|**        REP - READ EQUIPMENT PARAMETERS.
03905  M00S03317.set     +++|*
03906  M00S03318.set     +++|*         ENTRY  (T1) = EST ORDINAL.
03907  M00S03319.set     +++|*
03908  M00S03320.set     +++|*         EXIT   (A) = 0 IF NOT MASS STORAGE.
03909  M00S03321.set     +++|*                (WB - WB+4) = EST DATA.
03910  M00S03322.set     +++|*                (MSTB) = MST DATA IF MASS STORAGE.
03911  M00S03323.set     +++|
03912  M00S03324.set     +++|
03913  M00S03325.set     +++| REP      SUBR               ENTRY/EXIT
03914  M00S03326.set     +++|          LDD    EA
03915  M00S03327.set     +++|          SHN    5
03916  M00S03328.set     +++|          ADD    T1          FETCH EST DATA
03917  M00S03329.set     +++|          SHN    1

Seq #  *Modification Id* Act 
----------------------------+
03918  M01S00052.284l847 +++|          ADK    EQDE
03919  M00S03330.set     +++|          CRD    WB

Seq #  *Modification Id* Act 
----------------------------+
03920  M01S00053.284l847 +++|          ADK    EQAE-EQDE
03921  M01S00054.284l847 +++|          CRM    ESTB,ON
03922  M00S03331.set     +++|          LDD    WB
03923  M00S03332.set     +++|          SHN    0-13
03924  M00S03333.set     +++|          ZJN    REPX        IF NOT MASS STORAGE
03925  M00S03334.set     +++|          LDD    MA
03926  M00S03335.set     +++|          SHN    4
03927  M00S03336.set     +++|          ADD    T1
03928  M00S03337.set     +++|          SHN    2

Seq #  *Modification Id* Act 
----------------------------+
03929  M01S03338.284l847 ---|          ERRNZ  TDDCL-4     CODE DEPENDS ON VALUE OF TAG
03930  M01S03339.284l847 ---|          CRM    MSTB,FR

Seq #  *Modification Id* Act 
----------------------------+
03931  M01S00055.284l847 +++|          ADD    T1
03932  M01S00056.284l847 +++|          ERRNZ  TDDCL-5     CODE DEPENDS ON VALUE OF TAG
03933  M01S00057.284l847 +++|          CRM    MSTB,DV
03934  M00S03340.set     +++|          UJN    REPX        RETURN
03935  M00S03341.set     +++| RNB      SPACE  4,10
03936  M00S03342.set     +++|**        RNB - READ NEXT BLOCK.
03937  M00S03343.set     +++|*
03938  M00S03344.set     +++|*         ENTRY  (A) = 0 IF READ INITIATED.
03939  M00S03345.set     +++|*                (WC) = WORD COUNT OF PREVIOUS BLOCK.
03940  M00S03346.set     +++|*
03941  M00S03347.set     +++|*         EXIT   (A) = (WC) = BLOCK SIZE (CM WORD COUNT).
03942  M00S03348.set     +++|
03943  M00S03349.set     +++|
03944  M00S03350.set     +++| RNB2     LDN    0           INDICATE EOR
03945  M00S03351.set     +++|
03946  M00S03352.set     +++| RNB      SUBR               ENTRY/EXIT
03947  M00S03353.set     +++|          ZJN    RNB1        IF READ INITIATED
03948  M00S03354.set     +++|          LDD    WC
03949  M00S03355.set     +++|          LMC    TPLN/5
03950  M00S03356.set     +++|          NJN    RNB2        IF EOR
03951  M00S03357.set     +++|          ACN    TC
03952  M00S03358.set     +++|          LDN    RTBF        INITIATE READ
03953  M00S03359.set     +++|          OAN    TC
03954  M00S03360.set     +++|          AJM    *,TC        WAIT FUNCTION ACCEPT
03955  M00S03361.set     +++| RNB1     ACN    TC
03956  M00S03362.set     +++|          IAN    TC          INPUT WORD COUNT
03957  M00S03363.set     +++|          STD    WC
03958  M00S03364.set     +++|          UJN    RNBX        RETURN
03959  M00S03365.set     +++| RTL      SPACE  4,10
03960  M00S03366.set     +++|**        RTL - READ TEXT LINE.
03961  M00S03367.set     +++|*
03962  M00S03368.set     +++|*         ENTRY  (T1) = LINE NUMBER.
03963  M00S03369.set     +++|*                (DB) = DISPLAY BUFFER INDEX.
03964  M00S03370.set     +++|*                (YY) = Y-COORDINATE FOR LINE.
03965  M00S03371.set     +++|*
03966  M00S03372.set     +++|*         EXIT   (A) = LINE LENGTH (INCLUDING COORDINATES)
03967  M00S03373.set     +++|*                    .LT. 0 IF FORMAT EFFECTOR ENCOUNTERED.
03968  M00S03374.set     +++|*                (LBUF) = LINE IMAGE.
03969  M00S03375.set     +++|
03970  M00S03376.set     +++|
03971  M00S03377.set     +++| RTL1     LDN    1R -1R1     REMOVE FORMAT EFFECTOR
03972  M00S03378.set     +++|          SHN    6
03973  M00S03379.set     +++|          RAM    LBUF
03974  M00S03380.set     +++| RTL2     LDN    LBUFL+1+2   SET LINE LENGTH
03975  M00S03381.set     +++|
03976  M00S03382.set     +++| RTL      SUBR               ENTRY/EXIT
03977  M00S03383.set     +++|          LDM    TDBP+1,DB
03978  M00S03384.set     +++|          SHN    3
03979  M00S03385.set     +++|          ADD    T1          READ REQUEST LINE
03980  M00S03386.set     +++|          SHN    3
03981  M00S03387.set     +++|          CRM    LBUF,SX
03982  M00S03388.set     +++|          LDD    DB
03983  M00S03389.set     +++|          NJN    RTL2        IF NOT INSTRUCTION DISPLAY
03984  M00S03390.set     +++|          LDM    LBUF
03985  M00S03391.set     +++|          SHN    -6          CHECK LINE
03986  M00S03392.set     +++|          LMN    1R1
03987  M00S03393.set     +++|          NJN    RTL2        IF NO FORMAT EFFECTOR
03988  M00S03394.set     +++|          LDD    YY
03989  M00S03395.set     +++|          SBK    BL01
03990  M00S03396.set     +++|          ZJN    RTL1        IF TOP OF DISPLAY
03991  M00S03397.set     +++|*         LCN    0
03992  M00S03398.set     +++|          UJN    RTLX        RETURN
03993  M00S03399.set     +++| SBS      SPACE  4,10
03994  M00S03400.set     +++|**        SBS - SET BIT STATUS.
03995  M00S03401.set     +++|*
03996  M00S03402.set     +++|*         ENTRY  DISPLAY HARDWARE POSTIIONED AT DESIRED LOCATION.
03997  M00S03403.set     +++|*                (A) = ADDRESS OF LETTER TABLE.  TABLE MUST BE
03998  M00S03404.set     +++|*                      TERMINATED BY A ZERO WORD.
03999  M00S03405.set     +++|*                (T0) = BIT STATUS LEFT JUSTIFIED.
04000  M00S03406.set     +++|*                (T2) = ADDRESS TO STORE BIT STATUS.
04001  M00S03407.set     +++|*
04002  M00S03408.set     +++|*         USES   BA, FP, T0, T2.
04003  M00S03409.set     +++|
04004  M00S03410.set     +++|
04005  M00S03411.set     +++| SBS1     LPC    0
04006  M00S03412.set     +++| SBSA     EQU    *-1
04007  M00S03413.set     +++|          LMC    2R--        FORM LETTER IF BIT ON OR *-* IF BIT OFF
04008  M00S03414.set     +++|          STI    T2
04009  M00S03415.set     +++|          AOD    FP          ADVANCE BIT INDEX
04010  M00S03416.set     +++|          AOD    T2          ADVANCE ADDRESS
04011  M00S03417.set     +++| SBS2     LDD    T0          POSITION NEXT 2 BITS
04012  M00S03418.set     +++|          SHN    2
04013  M00S03419.set     +++|          STD    T0
04014  M00S03420.set     +++|          SHN    -14         GET NEXT 2 BITS
04015  M00S03421.set     +++|          STD    BA
04016  M00S03422.set     +++|          LDM    SBSB,BA     GET MASK
04017  M00S03423.set     +++|          STM    SBSA
04018  M00S03424.set     +++|          LDI    FP
04019  M00S03425.set     +++|          NJN    SBS1        IF NOT END OF TABLE
04020  M00S03426.set     +++|
04021  M00S03427.set     +++| SBS      SUBR               ENTRY/EXIT
04022  M00S03428.set     +++|          STD    FP          SAVE TABLE ADDRESS
04023  M00S03429.set     +++|          UJN    SBS2        POSITION BITS
04024  M00S03430.set     +++|
04025  M00S03431.set     +++|
04026  M00S03432.set     +++| SBSB     CON    0000        --
04027  M00S03433.set     +++|          CON    0077        -X
04028  M00S03434.set     +++|          CON    7700        X-
04029  M00S03435.set     +++|          CON    7777        XX
04030  M00S03436.set     +++| SCT      SPACE  4,10
04031  M00S03437.set     +++|**        SCT - SEARCH CONTROLWARE TABLE.
04032  M00S03438.set     +++|*
04033  M00S03439.set     +++|*         ENTRY  (A) = EQUIPMENT TYPE (DEVICE MNEMONIC).
04034  M00S03440.set     +++|*
04035  M00S03441.set     +++|*         EXIT   (A) = (T2) = CONTROLWARE TYPE ADDRESS IN *TDCW*.
04036  M00S03442.set     +++|*                    = 0 IF ENTRY NOT FOUND.
04037  M00S03443.set     +++|*
04038  M00S03444.set     +++|*         USES   T2.
04039  M00S03445.set     +++|
04040  M00S03446.set     +++|
04041  M00S03447.set     +++| SCT1     LDN    2           ADVANCE TABLE ADDRESS
04042  M00S03448.set     +++|          RAD    T2
04043  M00S03449.set     +++| SCT2     LDI    T2          CHECK ENTRY
04044  M00S03450.set     +++|          ZJN    SCTX        IF END OF TABLE
04045  M00S03451.set     +++|          LMD    T0          COMPARE DEVICE TYPE
04046  M00S03452.set     +++|          NJN    SCT1        IF NO MATCH
04047  M00S03453.set     +++|          AOD    T2
04048  M00S03454.set     +++|
04049  M00S03455.set     +++| SCT      SUBR               ENTRY/EXIT
04050  M00S03456.set     +++|          STD    T0
04051  M00S03457.set     +++|          LDC    TDCW        SET TABLE ADDRESS
04052  M00S03458.set     +++|          STD    T2
04053  M00S03459.set     +++|          UJN    SCT2        ENTER LOOP
04054  M00S03460.set     +++| UTD      SPACE  4,15
04055  M00S03461.set     +++|**        UTD - UNPACK TEXT DECK.
04056  M00S03462.set     +++|*
04057  M00S03463.set     +++|*         ENTRY  (A) = ADDRESS OF BUFFER POINTER.
04058  M00S03464.set     +++|*
04059  M00S03465.set     +++|*         EXIT   (A) = LINE COUNT FOR DECK.
04060  M00S03466.set     +++|*                (LL) = LINE LIMIT FOR BUFFER.
04061  M00S03467.set     +++|*                (LN) = 0.
04062  M00S03468.set     +++|*
04063  M00S03469.set     +++|*         USES   BA, T1, T2, WC, WB - WB+4.
04064  M00S03470.set     +++|*
04065  M00S03471.set     +++|*         CALLS  RNB.
04066  M00S03472.set     +++|
04067  M00S03473.set     +++|
04068  M00S03474.set     +++| UTD1     LDD    WB+4
04069  M00S03475.set     +++|          NJN    UTD5        IF NOT END OF LINE
04070  M00S03476.set     +++|          CRD    WB
04071  M00S03477.set     +++| UTD2     LDI    T1          CHECK LINE COUNT
04072  M00S03478.set     +++|          LMD    LL
04073  M00S03479.set     +++|          ZJN    UTD5        IF BUFFER FULL
04074  M00S03480.set     +++|          LDI    BA
04075  M00S03481.set     +++|          SHN    3
04076  M00S03482.set     +++|          ADI    T1          STORE WORD
04077  M00S03483.set     +++|          SHN    3
04078  M00S03484.set     +++|          ADD    T2
04079  M00S03485.set     +++|          CWD    WB
04080  M00S03486.set     +++|          AOD    T2          ADVANCE WORD COUNT
04081  M00S03487.set     +++|          LMN    6
04082  M00S03488.set     +++|          NJN    UTD1        IF NOT SIX WORDS
04083  M00S03489.set     +++|          STD    T2
04084  M00S03490.set     +++|          AOI    T1          ADVANCE LINE COUNT
04085  M00S03491.set     +++|          LDD    WB+4
04086  M00S03492.set     +++|          ZJN    UTD5        IF END OF LINE
04087  M00S03493.set     +++| UTD3     LDN    5           SKIP NEXT WORD
04088  M00S03494.set     +++|          IAM    WB,TC
04089  M00S03495.set     +++|          ZJN    UTD4        IF NOT END OF DATA
04090  M00S03496.set     +++|          RJM    RNB
04091  M00S03497.set     +++| UTD4     LDD    WB+4
04092  M00S03498.set     +++|          NJN    UTD3        IF NOT END OF LINE
04093  M00S03499.set     +++| UTD5     LDN    5           INPUT NEXT WORD
04094  M00S03500.set     +++|          IAM    WB,TC
04095  M00S03501.set     +++|          ZJN    UTD2        IF NOT END OF DATA
04096  M00S03502.set     +++| UTD6     RJM    RNB
04097  M00S03503.set     +++|          NJN    UTD5        IF NOT EMPTY PRU
04098  M00S03504.set     +++|          LDI    T1
04099  M00S03505.set     +++|          OAN    BC          OUTPUT LINE COUNT FOR DECK
04100  M00S03506.set     +++|          DCN    BC
04101  M00S03507.set     +++|
04102  M00S03508.set     +++| UTD      SUBR               ENTRY/EXIT
04103  M00S03509.set     +++|          STD    BA
04104  M00S03510.set     +++|          ADN    FW-FA       SET LINE COUNTER ADDRESS
04105  M00S03511.set     +++|          STD    T1
04106  M00S03512.set     +++|          LDD    BL          SET LINE LIMIT FOR BUFFER
04107  M00S03513.set     +++|          SBI    BA
04108  M00S03514.set     +++|          SHN    3
04109  M00S03515.set     +++|          STD    LL
04110  M00S03516.set     +++|          LDN    0           CLEAR LINE COUNT
04111  M00S03517.set     +++|          STD    T2
04112  M00S03518.set     +++|          STI    T1
04113  M00S03519.set     +++|          STD    WB+4
04114  M00S03520.set     +++|          STM    FI-FW,T1    CLEAR BUFFER INDEX
04115  M00S03521.set     +++|          STD    LN
04116  M00S03522.set     +++|          UJN    UTD6        ENTER LOOP
04117  M00S03523.set     +++|          SPACE  4,10
04118  M00S03524.set     +++|**        DISPLAY HEADERS.
04119  M00S03525.set     +++|
04120  M00S03526.set     +++|
04121  M00S03527.set     +++| DHDR     CON    HL03,CH01
04122  M00S03528.set     +++|          BSS    5
04123  M00S03529.set     +++| DHDRL    EQU    *-DHDR
04124  M00S03530.set     +++|
04125  M00S03531.set     +++| EDHA     CON    YCPH,CH02
04126  M00S03532.set     +++|          DATA   H*EQUIPMENT STATUS*
04127  M00S03533.set     +++|          CON    YCSH,CH02

Seq #  *Modification Id* Act 
----------------------------+
04128  M01S03534.284l847 ---|          DATA   H*EST TYPE  ST  EQ UN  CHANNELS-PORTS*

Seq #  *Modification Id* Act 
----------------------------+
04129  M01S00058.284l847 +++|          DATA   H*EST TYPE  PN  ST  EQ   UN  CHANNELS-PORTS*
04130  M00S03535.set     +++| EDHAA    EQU    *-EDHA
04131  M00S03536.set     +++|
04132  M00S03537.set     +++| EDHB     CON    YCPH,CH02
04133  M00S03538.set     +++|          DATA   H*MASS STORAGE STATUS*
04134  M00S03539.set     +++|          CON    YCSH,CH02

Seq #  *Modification Id* Act 
----------------------------+
04135  M01S03540.284l847 ---|          DATA   H*EST TYPE    STATUS         FILES*

Seq #  *Modification Id* Act 
----------------------------+
04136  M01S00059.284l847 +++|          DATA   H*EST TYPE  PN     STATUS          FILES*
04137  M00S03541.set     +++| EDHBA    EQU    *-EDHB
04138  M00S03542.set     +++|
04139  M00S03543.set     +++| EDHC     CON    YCPH,CH02
04140  M00S03544.set     +++|          DATA   H*MASS STORAGE INITIALIZATION STATUS*
04141  M00S03545.set     +++|          CON    YCSH,CH02

Seq #  *Modification Id* Act 
----------------------------+
04142  M01S03546.284l847 ---|          DATA   H*EST TYPE OPTIONS   T  IAM   DAM    FM/PN*
04143  M01S03547.284l847 ---|          DATA   H*   DN    NC*

Seq #  *Modification Id* Act 
----------------------------+
04144  M01S00060.284l847 +++|          DATA   H*EST TYPE  PN OPTIONS   T  IAM   DAM    FM/PK*
04145  M01S00061.284l847 +++|          DATA   H*   DN    NC*
04146  M00S03548.set     +++| EDHCA    EQU    *-EDHC
04147  M00S03549.set     +++|
04148  M00S03550.set     +++| EDHD     CON    YCPH,CH02
04149  M00S03551.set     +++|          DATA   H*CONTROLWARE STATUS*
04150  M00S03552.set     +++|          CON    YCSH,CH02
04151  M00S03553.set     +++|          DATA   H*CHANNEL   CONTROLWARE*
04152  M00S03554.set     +++| EDHDA    EQU    *-EDHD
04153  M00S03555.set     +++|
04154  M00S03556.set     +++| EDHE     CON    YCPH,CH02
04155  M00S03557.set     +++|          DATA   H*MASS STORAGE ERROR THRESHOLDS*
04156  M00S03558.set     +++|          CON    YCSH,CH02

Seq #  *Modification Id* Act 
----------------------------+
04157  M01S03559.284l847 ---|          DATA   H*EST TYPE  NT    VF    RA    LS    RE    UE*

Seq #  *Modification Id* Act 
----------------------------+
04158  M01S00062.284l847 +++|          DATA   H*EST TYPE  PN   NT    VF    RA    LS    RE    UE*
04159  M00S03560.set     +++| EDHEA    EQU    *-EDHE
04160  M00S03561.set     +++|          SPACE  4,10
04161  M00S03562.set     +++|*         DISPLAY BUFFERS.
04162  M00S03563.set     +++|
04163  M00S03564.set     +++| DIS      HERE

Seq #  *Modification Id* Act 
----------------------------+
04164  M01S03565.284l847 ---| MSTB     EQU    *           MASS STORAGE DESCRIPTOR TABLE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
04165  M01S00063.284l847 +++| ESTB     EQU    *           SECOND WORD OF EST ENTRY FOR DISPLAY
04166  M01S00064.284l847 +++| MSTB     EQU    ESTB+5      MASS STORAGE DESCRIPTOR TABLE BUFFER
04167  M00S03566.set     +++| TCCS     EQU    MSTB+TDDEL  CONTROLWARE TYPES TO LOAD
04168  M00S03567.set     +++|          SPACE  4,10
04169  M00S03568.set     +++| LBUFL    EQU    KBUFL/2     LINE BUFFER LENGTH
04170  M00S03569.set     +++|          ERRNZ  KBUFL-60D   CODE DEPENDS ON VALUE
04171  M00S03570.set     +++|          LOC    *O
04172  M00S03571.set     +++|          QUAL   *
04173  M00S03572.set     +++| IBUFL    EQU    *-IBUF
04174  M00S03573.set     +++|          SPACE  4,10
04175  M00S03574.set     +++|*         CHANNEL TABLES.
04176  M00S03575.set     +++|
04177  M00S03576.set     +++|
04178  M00S03577.set     +++|          CHTB   TC
04179  M00S03578.set     +++|          CHTB   BC
04180  M00S03579.set     +++|          CHTB   AC
04181  M00S03580.set     +++|          SPACE  4,10
04182  M00S03581.set     +++|*         INSTRUCTION MODIFICATION BLOCK.
04183  M00S03582.set     +++|
04184  M00S03583.set     +++|
04185  M00S03584.set     +++|          DIMB
04186  M00S03585.set     +++|          SPACE  4,10
04187  M00S03586.set     +++|          ERRNG  MBUF-*      *SET* OVERFLOWS INTO MOVE BUFFER
04188  M00S03587.set     +++|          SPACE  4,10
04189  M00S03588.set     +++|*         RESTORE I/O INSTRUCTIONS.
04190  M00S03589.set     +++|
04191  M00S03590.set     +++|
04192  M00S03591.set     +++|          RSTC
04193  M00S03592.set     +++|          SPACE  4,10
04194  M00S03593.set     +++| .DSE     SET    0
04195  M00S03594.set     +++| .ILL     SET    0
04196  M00S03595.set     +++| .KBR     SET    0
04197  M00S03596.set     +++|          TTL    SET/CMR - SET SYSTEM CONFIGURATION.
04198  M00S03597.set     +++|          TITLE
04199  M00S03598.set     +++|          IDENT  CMR,OVL
04200  M00S03599.set     +++|          QUAL   CMR
04201  M00S03600.set     +++|          ORG    OVL
04202  M00S03601.set     +++|*COMMENT  SET - SET SYSTEM CONFIGURATION.

Seq #  *Modification Id* Act 
----------------------------+
04203  M01S03602.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Seq #  *Modification Id* Act 
----------------------------+
04204  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04205  M00S03603.set     +++| MACROS   SPACE  4,10
04206  M00S03604.set     +++|**        MACRO DEFINITIONS.
04207  M00S03605.set     +++|
04208  M00S03606.set     +++|
04209  M00S03607.set     +++| MTLN     SPACE  4,10
04210  M00S03608.set     +++|**        MTLN - GENERATE TAGGED LIST OF MANAGED TABLE ENTRY COUNTS.
04211  M00S03609.set     +++|*
04212  M00S03610.set     +++|*N        MTLN   I,L
04213  M00S03611.set     +++|*                N = TABLE NAME.
04214  M00S03612.set     +++|*                I = MANAGED TABLE IDENTIFIER.
04215  M00S03613.set     +++|*                L = DEFAULT NUMBER OF ENTRIES.
04216  M00S03614.set     +++|
04217  M00S03615.set     +++|
04218  M00S03616.set     +++|          MACRO  MTLN,N,I,L
04219  M00S03617.set     +++| .A       IFC    NE,*N**
04220  M00S03618.set     +++| N        BSS    0
04221  M00S03619.set     +++| .2       SET    N
04222  M00S03620.set     +++| TT       MICRO  1,3, N
04223  M00S03621.set     +++| .A       ELSE
04224  M00S03622.set     +++| .B       IFC    NE,*I**
04225  M00S03623.set     +++| .I       EQU    *-.2
04226  M00S03624.set     +++|          CON    L
04227  M00S03625.set     +++|          ENDIF
04228  M00S03626.set     +++|          ENDM
04229  M00S03627.set     +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04230  M01S00148.274l797 +++|**        MAINTENANCE REGISTER REQUEST CODE SYMBOLS.
04231  M01S00149.274l797 +++|
04232  M01S00150.274l797 +++|          QUAL
04233  M01S00151.274l797 +++|
04234  M01S00152.274l797 +++| RMRF     EQU    /IOU/MRRD-/IOU/MRRD     READ
04235  M01S00153.274l797 +++| WMRF     EQU    /IOU/MRWT-/IOU/MRRD     WRITE
04236  M01S00154.274l797 +++|
04237  M01S00155.274l797 +++|          QUAL   *
04238  M01S00156.274l797 +++| NVECPU   SPACE  4,10
04239  M00S03628.set     +++|**        NVECPU - SUBROUTINES TO RESERVE CPU1 FOR NOS/VE.
04240  M00S03629.set     +++|*
04241  M00S03630.set     +++|*         THIS MACRO PROVIDES COMMON CODE FOR *CMR* AND *RCM*.
04242  M00S03631.set     +++|
04243  M00S03632.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
04244  M01S03633.274l797 ---|          QUAL
04245  M01S03634.274l797 ---|          SPACE  4,10
04246  M01S03635.274l797 ---|**        MAINTENANCE REGISTER REQUEST CODE SYMBOLS.

Seq #  *Modification Id* Act 
----------------------------+
04247  M01S00157.274l797 +++| NVECPU   MACRO
04248  M01S00158.274l797 +++|          LIST   G
04249  M00S03636.set     +++|
04250  M00S03637.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
04251  M01S03638.274l797 ---| RMRF     EQU    /IOU/MRRD-/IOU/MRRD     READ
04252  M01S03639.274l797 ---| WMRF     EQU    /IOU/MRWT-/IOU/MRRD     WRITE

Seq #  *Modification Id* Act 
----------------------------+
04253  M03S00006.274l797 ---| RWRSUB   SPACE  4,10
04254  M03S00007.274l797 ---| RWRSUB   MACRO
04255  M03S00008.274l797 ---| RWR      SPACE  4,10
04256  M03S00009.274l797 ---|**        READ / WRITE MAINTENANCE REGISTER.
04257  M03S00010.274l797 ---|*
04258  M03S00011.274l797 ---|*         ENTRY  (A) = *RMRF* TO READ REGISTER,
04259  M03S00012.274l797 ---|*                    = *WMRF* TO WRITE REGISTER.
04260  M03S00013.274l797 ---|*                (T4) = REGISTER NUMBER.
04261  M03S00014.274l797 ---|*
04262  M03S00015.274l797 ---|*         EXIT   (RBUF) = REGISTER CONTENTS.
04263  M03S00016.274l797 ---|
04264  M03S00017.274l797 ---|
04265  M03S00018.274l797 ---| RWR      SUBR               ENTRY/EXIT
04266  M03S00019.274l797 ---|          FAN.   MR          FUNCTION MAINTENANCE CHANNEL
04267  M03S00020.274l797 ---|          LPN    20
04268  M03S00021.274l797 ---|          ERRNZ  RMRF+20-WMRF CODE DEPENDS ON VALUE
04269  M03S00022.274l797 ---|          SHN    3
04270  M03S00023.274l797 ---|          LMC    IAMI+MR     FORM I/O INSTRUCTION
04271  M03S00024.274l797 ---|          STM    RWRA
04272  M03S00025.274l797 ---|          ACN.   MR
04273  M03S00026.274l797 ---|          LDN    0
04274  M03S00027.274l797 ---|          OAN.   MR          SEND REGISTER NUMBER
04275  M03S00028.274l797 ---|          LDD    T4
04276  M03S00029.274l797 ---|          OAN.   MR
04277  M03S00030.274l797 ---|          FJM.   *,MR        IF CHANNEL BUSY
04278  M03S00031.274l797 ---|          DCN.   MR
04279  M03S00032.274l797 ---|          ACN.   MR          READ / WRITE REGISTER
04280  M03S00033.274l797 ---|          LDN    10
04281  M03S00034.274l797 ---| RWRA     IAM.   RBUF,MR
04282  M03S00035.274l797 ---|          UJP    RWRX        RETURN
04283  M03S00036.274l797 ---|
04284  M03S00037.274l797 ---|
04285  M03S00038.274l797 ---| RBUF     EQU    MBUF+MBUFL-10
04286  M03S00039.274l797 ---| RWRSUB   ENDM

Seq #  *Modification Id* Act 
----------------------------+
04287  M01S03640.274l797 ---| NVECPU   SPACE  4,10
04288  M01S03641.274l797 ---| NVECPU   MACRO

Seq #  *Modification Id* Act 
----------------------------+
04289  M03S00040.274l797 ---|          RWRSUB

Seq #  *Modification Id* Act 
----------------------------+
04290  M01S03642.274l797 ---| RPN      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04291  M01S00159.274l797 +++|
04292  M01S00160.274l797 +++|
04293  M00S03643.set     +++|**        RESERVE PROCESSOR FOR NOS/VE.
04294  M00S03644.set     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04295  M01S03645.271l739 ---|*         USES   T5, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
04296  M02S00041.ns2709  ---|*         USES   T4, T5, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
04297  M01S00001.ns2709  +++|*         USES   T5, CM - CM+4.
04298  M00S03646.set     +++|*
04299  M00S03647.set     +++|*         CALLS  RWR.

Seq #  *Modification Id* Act 
----------------------------+
04300  M02S00042.ns2709  ---|*
04301  M02S00043.ns2709  ---|*         MACROS RWRSUB.
04302  M00S03648.set     +++|
04303  M00S03649.set     +++|
04304  M00S03650.set     +++| RPN4     CCF.   *+2,MR      CLEAR CHANNEL FLAG
04305  M00S03651.set     +++|
04306  M00S03652.set     +++| RPN      SUBR               ENTRY/EXIT
04307  M00S03653.set     +++|          LDM    .CPU
04308  M00S03654.set     +++| RPN1     LPN    2
04309  M00S03655.set     +++|          ADM    C8XX
04310  M00S03656.set     +++|          NJN    RPNX        IF NOT DUAL STATE DUAL CPU MAINFRAME

Seq #  *Modification Id* Act 
----------------------------+
04311  M01S03657.ns2779  ---|          SCF.   RPN1,MR

Seq #  *Modification Id* Act 
----------------------------+
04312  M01S00002.ns2779  +++|          SCF.   RPN1,MR     SET CHANNEL FLAG
04313  M00S03658.set     +++|          LDM    ISPF
04314  M00S03659.set     +++|          SHN    0-13
04315  M00S03660.set     +++|          STD    T5          FORM REGISTER INDEX
04316  M00S03661.set     +++|          SHN    1
04317  M00S03662.set     +++|          RAD    T5

Seq #  *Modification Id* Act 
----------------------------+
04318  M01S03663.271l750 ---|          NJN    RPN2        IF NOT CYBER 180 - 810/815/825/830
04319  M01S03664.271l750 ---|          LDD    HO

Seq #  *Modification Id* Act 
----------------------------+
04320  M01S00094.271l750 +++|          ZJN    RPN1.1      IF CYBER 180 - 810/815/825/830

Seq #  *Modification Id* Act 
----------------------------+
04321  M02S00095.ns2779  ---|          LDM    DCPC
04322  M02S00096.ns2779  ---|          ZJN    RPN2        IF NOT DUAL 170-STATE CPUS WITH CACHE

Seq #  *Modification Id* Act 
----------------------------+
04323  M01S00003.ns2779  +++|
04324  M01S00004.ns2779  +++|*         PROCESS LEVEL 3 DEADSTART.
04325  M01S00005.ns2779  +++|
04326  M01S00006.ns2779  +++| .RCM     IF     DEF,RCM
04327  M01S00007.ns2779  +++|          LDC    EIBP
04328  M01S00008.ns2779  +++|          CRD    CM
04329  M01S00009.ns2779  +++|          LDD    CM
04330  M01S00010.ns2779  +++|          SHN    21-12
04331  M01S00011.ns2779  +++|          PJN    RPN2        IF NOT DUAL 170-STATE CPUS WITH CACHE
04332  M01S00012.ns2779  +++|          LDD    CM
04333  M01S00013.ns2779  +++|          LPC    2177        CLEAR MONITOR, NVE AND CACHE PURGE FLAGS
04334  M01S00014.ns2779  +++|          STD    CM
04335  M01S00015.ns2779  +++|          LDC    EIBP
04336  M01S00016.ns2779  +++|          CWD    CM
04337  M01S00017.ns2779  +++|          UJN    RPN3        CLEAR CHANNEL FLAG AND RETURN
04338  M01S00018.ns2779  +++|

Seq #  *Modification Id* Act 
----------------------------+
04339  M01S00097.271l750 +++| RPN1.1   LDD    HO
04340  M00S03665.set     +++|          LPN    1

Seq #  *Modification Id* Act 
----------------------------+
04341  M01S03666.ns2779  ---|          NJN    RPN4        IF FIRST CPU OFF
04342  M01S03667.ns2779  ---| .A       IF     DEF,RCM

Seq #  *Modification Id* Act 
----------------------------+
04343  M01S00019.ns2779  +++|          NJN    RPN3        IF FIRST CPU OFF
04344  M00S03668.set     +++|          LDN    SSTL        PROCESS LEVEL 3 DEADSTART
04345  M00S03669.set     +++|          CRD    CM
04346  M00S03670.set     +++|          LDD    CM+3
04347  M00S03671.set     +++|          SHN    0-13

Seq #  *Modification Id* Act 
----------------------------+
04348  M01S03672.ns2779  ---|          NJN    RPN4        IF NOS/VE DISABLED
04349  M01S03673.ns2779  ---| .A       ELSE

Seq #  *Modification Id* Act 
----------------------------+
04350  M01S00020.ns2779  +++|          NJN    RPN3        IF NOS/VE DISABLED
04351  M01S00021.ns2779  +++|
04352  M01S00022.ns2779  +++|*         PROCESS LEVEL 0, 1 OR 2 DEADSTART.
04353  M01S00023.ns2779  +++|
04354  M01S00024.ns2779  +++| .RCM     ELSE
04355  M01S00025.ns2779  +++|          LDM    DCPC
04356  M01S00026.ns2779  +++|          ZJN    RPN2        IF NOT DUAL 170-STATE CPUS WITH CACHE
04357  M01S00027.ns2779  +++|          LDM    DCPN
04358  M01S00028.ns2779  +++|          NJN    RPN4        IF SECOND CPU DEDICATED TO NOS
04359  M01S00029.ns2779  +++| RPN1.1   LDD    HO
04360  M01S00030.ns2779  +++|          LPN    1
04361  M01S00031.ns2779  +++|          NJN    RPN4        IF FIRST CPU OFF

Seq #  *Modification Id* Act 
----------------------------+
04362  M01S03674.ns2633  ---|          LDM    VEMZ

Seq #  *Modification Id* Act 
----------------------------+
04363  M01S00002.ns2633  +++|          LDM    VEFL

Seq #  *Modification Id* Act 
----------------------------+
04364  M01S03675.ns2779  ---|          ZJN    RPN4        IF NOS/VE MEMORY SPACE UNDECLARED

Seq #  *Modification Id* Act 
----------------------------+
04365  M01S00032.ns2779  +++|          ZJN    RPN3        IF NOS/VE MEMORY SPACE UNDECLARED
04366  M00S03676.set     +++|          LDD    HO
04367  M00S03677.set     +++|          LPN    2

Seq #  *Modification Id* Act 
----------------------------+
04368  M01S03678.ns2779  ---|          NJN    RPN4        IF SECOND CPU OFF

Seq #  *Modification Id* Act 
----------------------------+
04369  M01S00033.ns2779  +++|          NJN    RPN3        IF SECOND CPU OFF
04370  M00S03679.set     +++|          LDM    P2CC
04371  M00S03680.set     +++|          LMK    /IOU/MRHP   HALT PROCESSOR
04372  M00S03681.set     +++|          FAN.   MR
04373  M00S03682.set     +++|          LDN    2
04374  M00S03683.set     +++|          RAD    HO

Seq #  *Modification Id* Act 
----------------------------+
04375  M01S03684.ns2779  ---| .A       ENDIF

Seq #  *Modification Id* Act 
----------------------------+
04376  M01S00034.ns2779  +++| .RCM     ENDIF
04377  M01S00035.ns2779  +++|
04378  M01S00036.ns2779  +++|*         DISABLE PORT TO SECOND CPU.
04379  M01S00037.ns2779  +++|

Seq #  *Modification Id* Act 
----------------------------+
04380  M01S03685.271l739 ---| RPN2     LDK    RMRF        READ ENVIRONMENTAL CONTROL REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04381  M02S00044.ns2709  ---| RPN2     LDK    /IOU/ECMR   SELECT ENVIRONMENT CONTROL REGISTER
04382  M02S00045.ns2709  ---|          STD    T4
04383  M02S00046.ns2709  ---|          LDK    RMRF        READ REGISTER
04384  M02S00047.ns2709  ---|          LMM    CMCC

Seq #  *Modification Id* Act 
----------------------------+
04385  M01S00002.ns2709  +++| RPN2     LDK    RMRF        READ ENVIRONMENTAL CONTROL REGISTER
04386  M00S03686.set     +++|          RJM    RWR
04387  M00S03687.set     +++|          DCN.   MR
04388  M00S03688.set     +++|          LDM    RBUF+1,T5   DISABLE PORT TO SECOND CPU
04389  M00S03689.set     +++|          SCN    40
04390  M00S03690.set     +++|          LMN    40
04391  M00S03691.set     +++|          STM    RBUF+1,T5
04392  M00S03692.set     +++|          LDK    WMRF        WRITE *EC* REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04393  M02S00048.ns2709  ---|          LMM    CMCC
04394  M00S03693.set     +++|          RJM    RWR
04395  M00S03694.set     +++|          FJM.   *,MR        WAIT CHANNEL EMPTY
04396  M00S03695.set     +++|          DCN.   MR

Seq #  *Modification Id* Act 
----------------------------+
04397  M01S03696.ns2779  ---|          LJM    RPN4        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04398  M01S00038.ns2779  +++| RPN3     LJM    RPN4        CLEAR CHANNEL FLAG AND RETURN

Seq #  *Modification Id* Act 
----------------------------+
04399  M02S00003.274l797 ---| RWR      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04400  M01S00161.274l797 +++|
04401  M01S00162.274l797 +++|
04402  M01S00163.274l797 +++|
04403  M01S00164.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
04404  M01S00004.ns2709  +++|**        READ / WRITE ENVIRONMENTAL CONTROL REGISTER.
04405  M01S00005.ns2709  +++|*
04406  M01S00006.ns2709  +++|*         ENTRY  (A) = *RMRF* TO READ REGISTER,
04407  M01S00007.ns2709  +++|*                    = *WMRF* TO WRITE REGISTER.
04408  M01S00008.ns2709  +++|*
04409  M01S00009.ns2709  +++|*         EXIT   (RBUF) = REGISTER CONTENTS.
04410  M01S00010.ns2709  +++|
04411  M01S00011.ns2709  +++|
04412  M01S00012.ns2709  +++| RWR      SUBR               ENTRY/EXIT
04413  M01S00013.ns2709  +++|          LMM    CMCC
04414  M01S00014.ns2709  +++|          FAN.   MR          FUNCTION MAINTENANCE CHANNEL
04415  M01S00015.ns2709  +++|          LPN    20
04416  M01S00016.ns2709  +++|          ERRNZ  RMRF+20-WMRF CODE DEPENDS ON VALUE
04417  M01S00017.ns2709  +++|          SHN    3
04418  M01S00018.ns2709  +++|          LMC    IAMI+MR     FORM I/O INSTRUCTION
04419  M01S00019.ns2709  +++|          STM    RWRA
04420  M01S00020.ns2709  +++|          ACN.   MR
04421  M01S00021.ns2709  +++|          LDN    0
04422  M01S00022.ns2709  +++|          OAN.   MR          SEND MEMORY *EC* REGISTER NUMBER
04423  M01S00023.ns2709  +++|          LDK    /IOU/ECMR
04424  M01S00024.ns2709  +++|          OAN.   MR
04425  M01S00025.ns2709  +++|          FJM.   *,MR        WAIT CHANNEL BUSY
04426  M01S00026.ns2709  +++|          DCN.   MR
04427  M01S00027.ns2709  +++|          ACN.   MR          READ / WRITE REGISTER
04428  M01S00028.ns2709  +++|          LDN    10
04429  M01S00029.ns2709  +++| RWRA     IAM.   RBUF,MR
04430  M01S00030.ns2709  +++|          UJP    RWRX        RETURN
04431  M01S00031.ns2709  +++|
04432  M01S00032.ns2709  +++|
04433  M01S00033.ns2709  +++| RBUF     EQU    MBUF+500-10

Seq #  *Modification Id* Act 
----------------------------+
04434  M01S00165.274l797 +++|
04435  M01S00166.274l797 +++|          LIST   *

Seq #  *Modification Id* Act 
----------------------------+
04436  M01S03697.271l739 ---| RWR      SPACE  4,10
04437  M01S03698.271l739 ---|**        READ / WRITE ENVIRONMENTAL CONTROL REGISTER.
04438  M01S03699.271l739 ---|*
04439  M01S03700.271l739 ---|*         ENTRY  (A) = *RMRF* TO READ REGISTER,
04440  M01S03701.271l739 ---|*                    = *WMRF* TO WRITE REGISTER.
04441  M01S03702.271l739 ---|*
04442  M01S03703.271l739 ---|*         EXIT   (RBUF) = REGISTER CONTENTS.
04443  M01S03704.271l739 ---|
04444  M01S03705.271l739 ---|
04445  M01S03706.271l739 ---| RWR      SUBR               ENTRY/EXIT
04446  M01S03707.271l739 ---|          LMM    CMCC
04447  M01S03708.271l739 ---|          FAN.   MR          FUNCTION MAINTENANCE CHANNEL
04448  M01S03709.271l739 ---|          LPN    20
04449  M01S03710.271l739 ---|          ERRNZ  RMRF+20-WMRF CODE DEPENDS ON VALUE
04450  M01S03711.271l739 ---|          SHN    3
04451  M01S03712.271l739 ---|          LMC    IAMI+MR     FORM I/O INSTRUCTION
04452  M01S03713.271l739 ---|          STM    RWRA
04453  M01S03714.271l739 ---|          ACN.   MR
04454  M01S03715.271l739 ---|          LDN    0
04455  M01S03716.271l739 ---|          OAN.   MR          SEND MEMORY *EC* REGISTER NUMBER
04456  M01S03717.271l739 ---|          LDK    /IOU/ECMR
04457  M01S03718.271l739 ---|          OAN.   MR
04458  M01S03719.271l739 ---|          FJM.   *,MR        WAIT CHANNEL BUSY
04459  M01S03720.271l739 ---|          DCN.   MR
04460  M01S03721.271l739 ---|          ACN.   MR          READ / WRITE REGISTER
04461  M01S03722.271l739 ---|          LDN    10
04462  M01S03723.271l739 ---| RWRA     IAM.   RBUF,MR
04463  M01S03724.271l739 ---|          UJP    RWRX        RETURN
04464  M01S03725.271l739 ---|
04465  M01S03726.271l739 ---|
04466  M01S03727.271l739 ---| RBUF     EQU    MBUF+500-10
04467  M00S03728.set     +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
04468  M01S03729.274l797 ---|          QUAL   *
04469  M00S03730.set     +++| ENTRY    SPACE  4,10
04470  M00S03731.set     +++|**        ENTRY POINTS.
04471  M00S03732.set     +++|
04472  M00S03733.set     +++|
04473  M00S03734.set     +++|          CON    TSYN-1      ADDRESS OF SYNTAX TABLE
04474  M00S03735.set     +++|          CON    TSYNA       ADDRESS OF END OF SYNTAX TABLE
04475  M00S03736.set     +++| CMR      SPACE  4,10
04476  M00S03737.set     +++|**        CMR - INITIALIZE CENTRAL MEMORY.
04477  M00S03738.set     +++|
04478  M00S03739.set     +++|
04479  M00S03740.set     +++| CMR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
04480  M01S03741.ns2644  ---|          LDC    RJMI
04481  M01S03742.ns2644  ---|          STM    AKLC
04482  M01S03743.ns2644  ---|          RJM    RPN         RESERVE PROCESSOR FOR *NVE*
04483  M01S03744.ns2644  ---|          LDN    2*/EQP/EQXL
04484  M01S03745.ns2644  ---|          STD    T5
04485  M01S03746.ns2644  ---|          LDC    /EQP/EQXL*100    SET NUMBER OF WORDS TO READ
04486  M01S03747.ns2644  ---|          STD    T7
04487  M01S03748.ns2644  ---| CMR1     RJM    ROV
04488  M01S03749.ns2644  ---|          LDD    EB
04489  M01S03750.ns2644  ---|          SBD    T5
04490  M01S03751.ns2644  ---|          SHN    6
04491  M01S03752.ns2644  ---|          CWM    /EQP/EQXO,T7
04492  M01S03753.ns2644  ---|          LDD    T5
04493  M01S03754.ns2644  ---|          SBN    /EQP/EQXL
04494  M01S03755.ns2644  ---|          STD    T5
04495  M01S03756.ns2644  ---|          NJN    CMR1        IF MORE OVERLAYS

Seq #  *Modification Id* Act 
----------------------------+
04496  M01S00001.ns2644  +++|          RJM    CCP         COMPLETE *CMR* PROCESSING
04497  M00S03757.set     +++|          UJN    CMRX        RETURN
04498  M00S03758.set     +++|
04499  M00S03759.set     +++|          QUAL
04500  M00S03760.set     +++|          SPACE  4,10
04501  M00S03761.set     +++|****      ASSEMBLED VALUES.
04502  M00S03762.set     +++|
04503  M00S03763.set     +++|
04504  M00S03764.set     +++|*         CM TABLE LENGTHS.
04505  M00S03765.set     +++|
04506  M00S03766.set     +++| MTBL     MTLN
04507  M00S03767.set     +++|          MTLN   FOT,10      FAMILY ORDINAL TABLE
04508  M00S03768.set     +++|          MTLN   FNT,23      FILE NAME TABLE
04509  M00S03769.set     +++|          MTLN   EJT,620     EXECUTING JOB TABLE
04510  M00S03770.set     +++|          MTLN   QFT,620     QUEUE FILE TABLE
04511  M00S03771.set     +++|          MTLN   CLT,0       COMMON LIBRARIES TABLE
04512  M00S03772.set     +++|          MTLN   LID,DFLDT   LOGICAL ID TABLE
04513  M00S03773.set     +++|          MTLN   MLS,MLTLD   NOS/VE MESSAGE LINK STATUS TABLE

Seq #  *Modification Id* Act 
----------------------------+
04514  M01S00167.274l797 +++|          MTLN   ORT,100B

Seq #  *Modification Id* Act 
----------------------------+
04515  M01S00001.ns2769  +++|          MTLN   EMB,EMBMN   ERROR MESSAGE BUFFER
04516  M00S03774.set     +++|          MTLN
04517  M00S03775.set     +++|
04518  M00S03776.set     +++|*         MISCELLANEOUS.
04519  M00S03777.set     +++|
04520  M00S03778.set     +++| INBS     CON    0           INSTALLATION BLOCK SIZE
04521  M00S03779.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
04522  M01S03780.ns2644  ---| .NME     DATA   C* CDC NETWORK OPERATING SYSTEM.*
04523  M01S03781.ns2644  ---|          BSSZ   .NME+24-*
04524  M01S03782.ns2644  ---| VER170   MICRO  2,18,$"VER170"$  REMOVE LEADING/TRAILING SPACES
04525  M01S03783.ns2644  ---| .VER     DATA   C*"VER170"*
04526  M01S03784.ns2644  ---|          BSSZ   .VER+12-*
04527  M01S03785.ns2644  ---|
04528  M00S03786.set     +++|****
04529  M00S03787.set     +++| TAXM     SPACE  4,10
04530  M00S03788.set     +++|**        TAXM - EXTENDED MEMORY ALLOCATION TABLE.
04531  M00S03789.set     +++|*         ENTRY = 5 BYTES.
04532  M00S03790.set     +++|*         FIRST ENTRY IS FOR THIS MACHINE.
04533  M00S03791.set     +++|*
04534  M00S03792.set     +++|*T, TAXM  12/ID, 12/FU, 12/UEC, 12/IOBT, 12/IOB

Figure TAXM

04535  M00S03793.set     +++|*
04536  M00S03794.set     +++|*         ID = MACHINE ID.
04537  M00S03795.set     +++|*         FU = 0 IF USER ECS TO RESIDE IN EXTENDED MEMORY EQUIPMENT.
04538  M00S03796.set     +++|*            .NE. 0 IF INTERNAL USER EXTENDED MEMORY IN UEM.
04539  M00S03797.set     +++|*         UEC = AMOUNT OF USER XM/*EMBS* TO ALLOCATE TO
04540  M00S03798.set     +++|*               MACHINE *ID*.
04541  M00S03799.set     +++|*         IOBT = TRACKS NEEDED FOR I/O BUFFERS.
04542  M00S03800.set     +++|*         IOB = AMOUNT OF SPACE/*EMBS* TO ALLOCATE TO DEMA/819/895
04543  M00S03801.set     +++|*               BUFFERS.
04544  M00S03802.set     +++|
04545  M00S03803.set     +++|
04546  M00S03804.set     +++| TAXM     BSSZ   4*5         ALLOW 4 MACHINES WITH CPU ACCESS TO EM
04547  M00S03805.set     +++| TAXML    EQU    *-TAXM
04548  M00S03806.set     +++| TAXXL    EQU    *-TAXM      EXTENDED *TAXM* LENGTH
04549  M00S03807.set     +++| CFT      SPACE  4,10
04550  M00S03808.set     +++|**        CFT - CONVERT EXTENDED MEMORY FL TO TRACK COUNT.
04551  M00S03809.set     +++|*
04552  M00S03810.set     +++|*         ENTRY  (A) = EXTENDED MEMORY FL/*EMBS*.
04553  M00S03811.set     +++|*
04554  M00S03812.set     +++|*         EXIT   (A) = DESIRED SPACE IN TRACKS.
04555  M00S03813.set     +++|*                (T0) = DESIRED SPACE IN TRACKS.
04556  M00S03814.set     +++|*
04557  M00S03815.set     +++|*         USES   T6, T7.
04558  M00S03816.set     +++|
04559  M00S03817.set     +++|
04560  M00S03818.set     +++| CFT      SUBR               ENTRY/EXIT
04561  M00S03819.set     +++|          SHN    5
04562  M00S03820.set     +++|          STD    T7          SET EXTENDED MEMORY FL
04563  M00S03821.set     +++|          SHN    -14
04564  M00S03822.set     +++|          STD    T6
04565  M00S03823.set     +++|          LCN    0           TRACK COUNT = (FL * 40) / 101
04566  M00S03824.set     +++|          STD    T0
04567  M00S03825.set     +++| CFT1     AOD    T0          ADVANCE TRACK COUNT
04568  M00S03826.set     +++|          LDC    -101
04569  M00S03827.set     +++|          RAD    T7
04570  M00S03828.set     +++|          PJN    CFT1        IF NOT UNDERFLOW
04571  M00S03829.set     +++|          AOD    T7
04572  M00S03830.set     +++|          SOD    T6
04573  M00S03831.set     +++|          PJN    CFT1        IF NOT END OF CONVERSION
04574  M00S03832.set     +++|          LDD    T0
04575  M00S03833.set     +++|          UJN    CFTX        RETURN
04576  M00S03834.set     +++| CMS      SPACE  4,20
04577  M00S03835.set     +++|**        CMS - CHECK MEMORY SIZES.
04578  M00S03836.set     +++|*
04579  M00S03837.set     +++|*         CHECKS THAT CM, USER XM AND I/O BUFFER BLOCKS WILL ALL FIT
04580  M00S03838.set     +++|*         INTO THE MEMORIES DEFINED TO HOLD THEM.
04581  M00S03839.set     +++|*
04582  M00S03840.set     +++|*         ENTRY  (A) = 0 IF CHECK TO INCLUDE *XM* ALLOCATION DATA.
04583  M00S03841.set     +++|*                (PD) = 5, IF EST ORDINAL 5 DEFINED AS EXTERNAL XM.
04584  M00S03842.set     +++|*                (EN) = CPU ACCESS EXTENDED MEMORY EST ORDINAL.
04585  M00S03843.set     +++|*                (FL - FL+1) = MINIMUM CM REQUIRED.
04586  M00S03844.set     +++|*                (MZ - MZ+1) = MEMORY SIZE (FROM CTI).
04587  M00S03845.set     +++|*                (UEMZ - UEMZ+1) = UEM REQUIRED/100B.
04588  M00S03846.set     +++|*                (VEMZ - VEMZ+1) = NVE BLOCK REQUIRED/100B.
04589  M00S03847.set     +++|*                TAXM = TABLE OF EXTENDED MEMORY ALLOCATIONS.
04590  M00S03848.set     +++|*
04591  M00S03849.set     +++|*         EXIT   (A) = 0 IF NO ERRORS.
04592  M00S03850.set     +++|*                (KM) = MESSAGE ADDRESS IF ERROR.
04593  M00S03851.set     +++|*
04594  M00S03852.set     +++|*         USES   CN - CN+4, T1 - T5.
04595  M00S03853.set     +++|*
04596  M00S03854.set     +++|*         CALLS  CFT, VDA.
04597  M00S03855.set     +++|
04598  M00S03856.set     +++|
04599  M00S03857.set     +++| CMS      SUBR               ENTRY/EXIT
04600  M00S03858.set     +++|          NJP    CMS10       IF NOT CHECKING *XM* ALLOCATION DATA
04601  M00S03859.set     +++|          CRD    T1
04602  M00S03860.set     +++|          CRD    CN
04603  M00S03861.set     +++|          LDD    PD
04604  M00S03862.set     +++|          ZJN    CMS3        IF NO POSSIBLE LINK DEVICE
04605  M00S03863.set     +++|          ADD    EN
04606  M00S03864.set     +++|          SBN    2*LDEQ+1
04607  M00S03865.set     +++|          MJN    CMS3        IF NOT BOTH A LINK DEVICE AND A CPU DEVICE
04608  M00S03866.set     +++|          AOD    CN
04609  M00S03867.set     +++|          UJN    CMS3        ENTER LOOP
04610  M00S03868.set     +++|
04611  M00S03869.set     +++|*         ACCUMULATE TOTALS FOR USER XM AND I/O BUFFERS.
04612  M00S03870.set     +++|*         IF BOTH A LINK DEVICE AND A CPU ACCESS EXTENDED MEMORY DEVICE
04613  M00S03871.set     +++|*         ARE DEFINED, THE TOTALS MUST BE KEPT SEPARATE.  ALL *XM*
04614  M00S03872.set     +++|*         ENTRIES FOR OTHER MACHINES ARE DEFINING SPACE IN THE LINK
04615  M00S03873.set     +++|*         DEVICE.
04616  M00S03874.set     +++|
04617  M00S03875.set     +++| CMS1     LDD    T2
04618  M00S03876.set     +++|          NJN    CMS2        IF NOT THIS MACHINE-S ENTRY
04619  M00S03877.set     +++|          LDD    CN
04620  M00S03878.set     +++|          ZJN    CMS2        IF NOT TWO EXTENDED MEMORY EQUIPMENTS
04621  M00S03879.set     +++|          LDD    T4          SAVE USER XM TRACK COUNT FOR THIS MACHINE
04622  M00S03880.set     +++|          STD    CN+1
04623  M00S03881.set     +++|          LDN    ZERL        CLEAR TOTALS FOR LINK DEVICE
04624  M00S03882.set     +++|          CRD    T1
04625  M00S03883.set     +++| CMS2     LDN    5           ADVANCE INDEX
04626  M00S03884.set     +++|          RAD    T2
04627  M00S03885.set     +++|          LMN    TAXML
04628  M00S03886.set     +++|          ZJN    CMS7        IF END OF ALLOCATION TABLE
04629  M00S03887.set     +++| CMS3     LDM    TAXM,T2
04630  M00S03888.set     +++| CMS4     ZJN    CMS2        IF EMPTY ENTRY
04631  M00S03889.set     +++|          LDM    TAXM+1,T2
04632  M00S03890.set     +++|          NJN    CMS5        IF USER XM IN UEM WITH NO EST ENTRY
04633  M00S03891.set     +++|          LDM    TAXM+2,T2
04634  M00S03892.set     +++|          RJM    CFT         CONVERT TO TRACK COUNT
04635  M00S03893.set     +++|          RAD    T4          ACCUMULATE USER XM TRACKS NEEDED
04636  M00S03894.set     +++|          SHN    -13
04637  M00S03895.set     +++|          NJN    CMS6        IF TOO MUCH DEFINED
04638  M00S03896.set     +++| CMS5     LDM    TAXM+3,T2   ACCUMULATE TOTAL I/O BUFFER TRACKS NEEDED
04639  M00S03897.set     +++|          RAD    T1
04640  M00S03898.set     +++|          LDM    TAXM+4,T2   ACCUMULATE TOTAL I/O BUFFER SPACE NEEDED
04641  M00S03899.set     +++|          RAD    T3
04642  M00S03900.set     +++|          SHN    -14
04643  M00S03901.set     +++|          ZJP    CMS1        IF NO OVERFLOW
04644  M00S03902.set     +++| CMS6     LDC    2RXM        *XM ALLOCATION ERROR.*
04645  M00S03903.set     +++|          LJM    CMS14       SET MESSAGE ADDRESS
04646  M00S03904.set     +++|
04647  M00S03905.set     +++|*         CHECK EXTENDED MEMORY FIT.
04648  M00S03906.set     +++|
04649  M00S03907.set     +++| CMS7     LDD    HO
04650  M00S03908.set     +++|          SHN    21-11
04651  M00S03909.set     +++|          PJN    CMS8        IF NOT CYBER 176
04652  M00S03910.set     +++|          AOD    T5          COUNT 176 TRACK
04653  M00S03911.set     +++| CMS8     LDD    PD
04654  M00S03912.set     +++|          NJN    CMS9        IF EQUIPMENT 5 EM DEVICE
04655  M00S03913.set     +++|          LDD    EN

Seq #  *Modification Id* Act 
----------------------------+
04656  M01S00001.set60   +++|          ZJN    CMS10       IF NO EST ENTRY
04657  M00S03914.set     +++| CMS9     RJM    VDA         VERIFY DEVICE ALLOCATION
04658  M00S03915.set     +++|          MJN    CMS6        IF INSUFFICIENT SPACE
04659  M00S03916.set     +++|          LDD    CN
04660  M00S03917.set     +++|          ZJN    CMS10       IF NOT TWO EXTENDED MEMORY EQUIPMENTS
04661  M00S03918.set     +++|          LDM    TAXM+3      TRACK COUNT FOR I/O BUFFER SPACE
04662  M00S03919.set     +++|          STD    T1
04663  M00S03920.set     +++|          LDD    CN+1        TRACK COUNT FOR USER XM
04664  M00S03921.set     +++|          STD    T4
04665  M00S03922.set     +++|          LDD    EN
04666  M00S03923.set     +++|          RJM    VDA         VERIFY DEVICE ALLOCATION
04667  M00S03924.set     +++|          MJN    CMS6        IF INSUFFICIENT SPACE
04668  M00S03925.set     +++|
04669  M00S03926.set     +++|*         CHECK MAIN MEMORY FIT.
04670  M00S03927.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
04671  M01S03928.ns2633  ---| CMS10    LDM    VEMZ
04672  M01S03929.ns2633  ---|          LPN    77
04673  M01S03930.ns2633  ---|          STD    T1
04674  M01S03931.ns2633  ---|          LDM    UEMZ+1

Seq #  *Modification Id* Act 
----------------------------+
04675  M01S00003.ns2633  +++| CMS10    LDM    UEMZ+1
04676  M00S03932.set     +++|          ADM    UEMZ
04677  M00S03933.set     +++|          ZJN    CMS11       IF NO UEM DEFINED
04678  M00S03934.set     +++|          LDD    MZ+1        ADJUST CM SIZE FOR 1000B WORD UEM BOUNDARY
04679  M00S03935.set     +++|          LPN    7

Seq #  *Modification Id* Act 
----------------------------+
04680  M01S03936.ns2633  ---| CMS11    STD    T2
04681  M01S03937.ns2633  ---|          LDM    VEMZ+1      ACCUMULATE TOTAL MAIN MEMORY REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
04682  M01S00004.ns2633  +++| CMS11    ADM    VEMZ+1      ACCUMULATE TOTAL MAIN MEMORY REQUIRED
04683  M00S03938.set     +++|          ADM    UEMZ+1
04684  M00S03939.set     +++|          ADD    FL+1

Seq #  *Modification Id* Act 
----------------------------+
04685  M01S03940.ns2633  ---|          RAD    T2

Seq #  *Modification Id* Act 
----------------------------+
04686  M01S00005.ns2633  +++|          STD    T2
04687  M00S03941.set     +++|          SHN    -14

Seq #  *Modification Id* Act 
----------------------------+
04688  M01S00006.ns2633  +++|          ADM    VEMZ
04689  M00S03942.set     +++|          ADM    UEMZ
04690  M00S03943.set     +++|          ADD    FL

Seq #  *Modification Id* Act 
----------------------------+
04691  M01S03944.ns2633  ---|          RAD    T1

Seq #  *Modification Id* Act 
----------------------------+
04692  M01S00007.ns2633  +++|          STD    T1
04693  M00S03945.set     +++|          LDD    MZ+1        CHECK AGAINST SIZE RETURNED BY *CTI*
04694  M00S03946.set     +++|          SBD    T2
04695  M00S03947.set     +++|          PJN    CMS12       IF NO BORROW
04696  M00S03948.set     +++|          AOD    T1          PROPAGATE BORROW
04697  M00S03949.set     +++| CMS12    LDD    MZ
04698  M00S03950.set     +++|          SBD    T1
04699  M00S03951.set     +++|          SHN    -21
04700  M00S03952.set     +++|          ZJN    CMS15       IF IT ALL FITS
04701  M00S03953.set     +++|          LDC    2RCM
04702  M00S03954.set     +++| CMS14    STM    CMSA
04703  M00S03955.set     +++|          LDC    CMSA
04704  M00S03956.set     +++|          STD    KM          SET MESSAGE ADDRESS
04705  M00S03957.set     +++| CMS15    LJM    CMSX        RETURN
04706  M00S03958.set     +++|
04707  M00S03959.set     +++| CMSA     DATA   C*CM ALLOCATION ERROR.*
04708  M00S03960.set     +++| VDA      SPACE  4,10
04709  M00S03961.set     +++|**        VDA - VALIDATE DEVICE ALLOCATION.
04710  M00S03962.set     +++|*
04711  M00S03963.set     +++|*         ENTRY  (A) = EST ORDINAL TO VALIDATE.
04712  M00S03964.set     +++|*                (T1) = TRACKS OF I/O BUFFERS DEFINED.
04713  M00S03965.set     +++|*                (T4) = TRACKS OF USER EXTENDED MEMORY DEFINED.
04714  M00S03966.set     +++|*                (T5) = 1, IF MACHINE IS 176.
04715  M00S03967.set     +++|*
04716  M00S03968.set     +++|*         EXIT   (A) .LT. 0 IF DEFINED TRACKS WILL NOT FIT.
04717  M00S03969.set     +++|*
04718  M00S03970.set     +++|*         CALLS  STA.
04719  M00S03971.set     +++|
04720  M00S03972.set     +++|
04721  M00S03973.set     +++| VDA      SUBR               ENTRY/EXIT
04722  M00S03974.set     +++|          RJM    /EQP/STA
04723  M00S03975.set     +++|          LDD    T4
04724  M00S03976.set     +++|          ZJN    VDA2        IF NO EXTERNAL USER XM DEFINED
04725  M00S03977.set     +++|          AOD    T4          COUNT USER XM SYSTEM SECTOR TRACK
04726  M00S03978.set     +++| VDA2     LDM    /EQP/TDDB+DVNT
04727  M00S03979.set     +++|          SBD    T1          TRACK COUNT FOR I/O BUFFER SPACE
04728  M00S03980.set     +++|          SBD    T4          TRACK COUNT FOR USER XM SPACE
04729  M00S03981.set     +++|          SBD    T5          176 SPACE
04730  M00S03982.set     +++|          SBN    2           LABEL AND CE TRACKS
04731  M00S03983.set     +++|          UJN    VDAX        RETURN
04732  M00S03984.set     +++|
04733  M00S03985.set     +++| EQPL     BSS    0           *EQP* LOAD ADDRESS
04734  M00S03986.set     +++|
04735  M00S03987.set     +++|          QUAL   *
04736  M00S03988.set     +++|          SPACE  4,10
04737  M00S03989.set     +++|**        TSYN - SYNTAX TABLE.
04738  M00S03990.set     +++|
04739  M00S03991.set     +++|
04740  M00S03992.set     +++| TSYN     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
04741  M01S00011.ns2557  +++|          CON    BSP
04742  M00S03993.set     +++|          CON    CLT
04743  M00S03994.set     +++|          CON    DFT

Seq #  *Modification Id* Act 
----------------------------+
04744  M01S00039.ns2779  +++|          CON    DUALCPU
04745  M00S03995.set     +++|          CON    EJE

Seq #  *Modification Id* Act 
----------------------------+
04746  M01S00002.ns2769  +++|          CON    EMB
04747  M00S03996.set     +++|          CON    EQP
04748  M00S03997.set     +++|          CON    FNE
04749  M00S03998.set     +++|          CON    FOE
04750  M00S03999.set     +++|          CON    INB
04751  M00S04000.set     +++|          CON    IPD
04752  M00S04001.set     +++|          CON    LIB
04753  M00S04002.set     +++|          CON    LIE
04754  M00S04003.set     +++|          CON    MID
04755  M00S04004.set     +++|          CON    MCM
04756  M00S04005.set     +++|          CON    MLS
04757  M00S04006.set     +++|          CON    NAME
04758  M00S04007.set     +++|          CON    NCP
04759  M00S04008.set     +++|          CON    OPS

Seq #  *Modification Id* Act 
----------------------------+
04760  M01S00168.274l797 +++|          CON    ORT

Seq #  *Modification Id* Act 
----------------------------+
04761  M01S00029.271l716 +++|          CON    PCP
04762  M00S04009.set     +++|          CON    PPU
04763  M00S04010.set     +++|          CON    QFE
04764  M00S04011.set     +++|          CON    VEE
04765  M00S04012.set     +++|          CON    VERSION
04766  M00S04013.set     +++|
04767  M00S04014.set     +++| TSYNA    CON    0
04768  M00S04015.set     +++|          CON    NEXT
04769  M00S04016.set     +++|          CON    IPR
04770  M00S04017.set     +++|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
04771  M01S00002.ns2644  +++| CCP      SPACE  4,10
04772  M01S00003.ns2644  +++|**        CCP - COMPLETE *CMR* PROCESSING.
04773  M01S00004.ns2644  +++|*
04774  M01S00005.ns2644  +++|*         SYSTEM NAME AND VERSION ARE SAVED IN CENTRAL MEMORY NOW,
04775  M01S00006.ns2644  +++|*         INSTEAD OF WAITING UNTIL *ICM*, TO MAKE ROOM IN *EQP*.
04776  M01S00007.ns2644  +++|*         THE *NOS/VE* PROCESSOR IS RESERVED IF REQUIRED, AND THE
04777  M01S00008.ns2644  +++|*         *EQP* OVERLAYS ARE READ IN AND WRITTEN TO CENTRAL MEMORY.
04778  M01S00009.ns2644  +++|
04779  M01S00010.ns2644  +++|
04780  M01S00011.ns2644  +++| CCP      SUBR               ENTRY/EXIT
04781  M01S00012.ns2644  +++|          LDN    6
04782  M01S00013.ns2644  +++|          STD    T1
04783  M01S00014.ns2644  +++|          LDN    SYTL        STORE SYSTEM NAME, VERSION
04784  M01S00015.ns2644  +++|          CWM    .NME,T1

Seq #  *Modification Id* Act 
----------------------------+
04785  M02S00016.274l797 ---|          LDC    RJMI

Seq #  *Modification Id* Act 
----------------------------+
04786  M01S00169.274l797 +++|          LDC    RJMI        FORCE OVERLAY LOADS FOR *EQPDECK* ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
04787  M01S00017.ns2644  +++|          STM    AKLC
04788  M01S00018.ns2644  +++|          RJM    RPN         RESERVE PROCESSOR FOR *NVE*

Seq #  *Modification Id* Act 
----------------------------+
04789  M02S00019.274l797 ---|          LDN    2*/EQP/EQXL

Seq #  *Modification Id* Act 
----------------------------+
04790  M01S00170.274l797 +++|          LDN    3*EQXL      LOAD *EQ1*, *EQ2* AND *EQ3*

Seq #  *Modification Id* Act 
----------------------------+
04791  M01S00020.ns2644  +++|          STD    T5

Seq #  *Modification Id* Act 
----------------------------+
04792  M02S00021.274l797 ---|          LDC    /EQP/EQXL*100    SET NUMBER OF WORDS TO READ

Seq #  *Modification Id* Act 
----------------------------+
04793  M01S00171.274l797 +++|          LDC    EQXL*100    SET NUMBER OF WORDS TO READ

Seq #  *Modification Id* Act 
----------------------------+
04794  M01S00022.ns2644  +++|          STD    T7
04795  M01S00023.ns2644  +++| CCP1     RJM    ROV
04796  M01S00024.ns2644  +++|          LDD    EB
04797  M01S00025.ns2644  +++|          SBD    T5
04798  M01S00026.ns2644  +++|          SHN    6

Seq #  *Modification Id* Act 
----------------------------+
04799  M02S00027.274l797 ---|          CWM    /EQP/EQXO,T7

Seq #  *Modification Id* Act 
----------------------------+
04800  M01S00172.274l797 +++|          CWM    EQXO,T7

Seq #  *Modification Id* Act 
----------------------------+
04801  M01S00028.ns2644  +++|          LDD    T5

Seq #  *Modification Id* Act 
----------------------------+
04802  M02S00029.274l797 ---|          SBN    /EQP/EQXL

Seq #  *Modification Id* Act 
----------------------------+
04803  M01S00173.274l797 +++|          SBN    EQXL

Seq #  *Modification Id* Act 
----------------------------+
04804  M01S00030.ns2644  +++|          STD    T5
04805  M01S00031.ns2644  +++|          NJN    CCP1        IF MORE OVERLAYS
04806  M01S00032.ns2644  +++|          UJN    CCPX        RETURN
04807  M01S00033.ns2644  +++|
04808  M01S00034.ns2644  +++|
04809  M01S00035.ns2644  +++|****      OPERATING SYSTEM NAME AND VERSION.
04810  M01S00036.ns2644  +++|
04811  M01S00037.ns2644  +++| .NME     DATA   C* CDC NETWORK OPERATING SYSTEM.*
04812  M01S00038.ns2644  +++|          BSSZ   .NME+24-*
04813  M01S00039.ns2644  +++| VER170   MICRO  2,18,$"VER170"$  REMOVE LEADING/TRAILING SPACES
04814  M01S00040.ns2644  +++| .VER     DATA   C*"VER170"*
04815  M01S00041.ns2644  +++|          BSSZ   .VER+12-*
04816  M01S00042.ns2644  +++|****
04817  M01S00043.ns2644  +++|

Seq #  *Modification Id* Act 
----------------------------+
04818  M02S00044.274l797 ---|          ERRNG  /EQP/EQXO-* MUST NOT OVERLAP *EQ1*/*EQ2* OVERLAYS

Seq #  *Modification Id* Act 
----------------------------+
04819  M01S00174.274l797 +++|          ERRNG  /EQP/EQXO-* OVERFLOW INTO *EQ1*/*EQ2*/*EQ3* OVERLAYS
04820  M00S04018.set     +++|          SPACE  4,10
04821  M00S04019.set     +++|**        COMMON SUBROUTINES.
04822  M00S04020.set     +++|
04823  M00S04021.set     +++|

Seq #  *Modification Id* Act 
----------------------------+
04824  M01S00175.274l797 +++|          AODSUB
04825  M01S00176.274l797 +++|          ASDSUB
04826  M01S00177.274l797 +++|          ASNSUB
04827  M01S00178.274l797 +++|          CDRSUB
04828  M00S04022.set     +++|          NVECPU
04829  M00S04023.set     +++|          TITLE  CM TABLE PROCESSORS.
04830  M00S04024.set     +++| EJE      SPACE  4,10
04831  M00S04025.set     +++|***       EJT=XXXX.
04832  M00S04026.set     +++|*         SET NUMBER OF EJT ENTRIES = XXXX.
04833  M00S04027.set     +++|*         DEFAULT = VALUE ASSEMBLED WITH TAG *.EJT*.
04834  M00S04028.set     +++|
04835  M00S04029.set     +++|
04836  M00S04030.set     +++| EJE      DATA   C*EJT=*
04837  M00S04031.set     +++|          LDN    .EJT
04838  M00S04032.set     +++|          UJN    QFE1        PROCESS EJT DEFINITION
04839  M00S04033.set     +++| FOE      SPACE  4,10
04840  M00S04034.set     +++|***       FOT=XXX.
04841  M00S04035.set     +++|*         SET NUMBER OF FOT ENTRIES = XXX.
04842  M00S04036.set     +++|*         DEFAULT = VALUE ASSEMBLED WITH TAG *.FOT*.
04843  M00S04037.set     +++|
04844  M00S04038.set     +++|
04845  M00S04039.set     +++| FOE      DATA   C*FOT=*
04846  M00S04040.set     +++|          LDN    .FOT
04847  M00S04041.set     +++|          UJN    QFE1        PROCESS FOT DEFINITION
04848  M00S04042.set     +++| FNE      SPACE  4,10
04849  M00S04043.set     +++|***       FNT=XXXX.
04850  M00S04044.set     +++|*         SET NUMBER OF FNT ENTRIES = XXXX.
04851  M00S04045.set     +++|*         DEFAULT = VALUE ASSEMBLED WITH TAG *.FNT*.
04852  M00S04046.set     +++|
04853  M00S04047.set     +++|
04854  M00S04048.set     +++| FNE      DATA   C*FNT=*
04855  M00S04049.set     +++|          LDN    .FNT
04856  M00S04050.set     +++|          UJN    QFE1        PROCESS FNT DEFINITION

Seq #  *Modification Id* Act 
----------------------------+
04857  M01S00179.274l797 +++| ORT      SPACE  4,16
04858  M01S00180.274l797 +++|***       ORT=XXX.
04859  M01S00181.274l797 +++|*         SET NUMBER OF ORT ENTRIES = XXX.
04860  M01S00182.274l797 +++|*         DEFAULT = VALUE ASSEMBLED WITH TAG *.ORT*.
04861  M01S00183.274l797 +++|
04862  M01S00184.274l797 +++|
04863  M01S00185.274l797 +++| ORT      DATA   C*ORT=*
04864  M01S00186.274l797 +++|          LDN    .ORT
04865  M01S00187.274l797 +++|          UJN    QFE1        PROCESS ORT DEFINITION
04866  M00S04051.set     +++| QFE      SPACE  4,10
04867  M00S04052.set     +++|***       QFT=XXXX.
04868  M00S04053.set     +++|*         SET NUMBER OF QFT ENTRIES = XXXX.
04869  M00S04054.set     +++|*         DEFAULT = VALUE ASSEMBLED WITH TAG *.QFT*.
04870  M00S04055.set     +++|
04871  M00S04056.set     +++|
04872  M00S04057.set     +++| QFE      DATA   C*QFT=*
04873  M00S04058.set     +++|          LDN    .QFT
04874  M00S04059.set     +++| QFE1     STD    T7          SAVE INDEX
04875  M00S04060.set     +++|          RJM    ASD         ASSEMBLE NUMBER OF TABLE ENTRIES
04876  M00S04061.set     +++|          SBN    3
04877  M00S04062.set     +++|          MJN    QFE2        IF INCORRECT VALUE
04878  M00S04063.set     +++|          SBN    101-3
04879  M00S04064.set     +++|          MJN    QFE3        IF CORRECT VALUE FOR ALL TABLES
04880  M00S04065.set     +++|          LDD    T7
04881  M00S04066.set     +++|          LMK    .FOT
04882  M00S04067.set     +++|          NJN    QFE3        IF NOT DEFINING FOT
04883  M00S04068.set     +++| QFE2     JMP    ILL         PROCESS INCORRECT ENTRY
04884  M00S04069.set     +++|
04885  M00S04070.set     +++| QFE3     LDD    AB+4        SET ENTRY COUNT
04886  M00S04071.set     +++|          STM    MTBL,T7
04887  M00S04072.set     +++|          JMP    KBR         RETURN
04888  M00S04073.set     +++| CLT      SPACE  4,10
04889  M00S04074.set     +++|***       CLT=XXX.
04890  M00S04075.set     +++|*         SET NUMBER OF CLT ENTRIES = XXX.
04891  M00S04076.set     +++|*         DEFAULT = VALUE ASEMBLED WITH TAG *.CLT*.
04892  M00S04077.set     +++|
04893  M00S04078.set     +++|
04894  M00S04079.set     +++| CLT      DATA   C*CLT=*
04895  M00S04080.set     +++|          LDN    .CLT

Seq #  *Modification Id* Act 
----------------------------+
04896  M01S04081.ns2733  ---|          STD    T7
04897  M01S04082.ns2733  ---|          RJM    ASD         ASSEMBLE NUMBER OF TABLE ENTRIES
04898  M01S04083.ns2733  ---|          ADC    -101
04899  M01S04084.ns2733  ---|          MJN    QFE3        IF CORRECT VALUE
04900  M01S04085.ns2733  ---|          JMP    ILL         PROCESS INCORRECT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04901  M01S00001.ns2733  +++|          UJN    QFE1        PROCESS CLT DEFINITION

Seq #  *Modification Id* Act 
----------------------------+
04902  M01S00012.ns2557  +++| BSP      SPACE  4,10
04903  M01S00013.ns2557  +++|***       BSP=X.
04904  M01S00014.ns2557  +++|*         SPECIFIES WHETHER OR NOT TO BUILD THE *SCI* PARAMETER
04905  M01S00015.ns2557  +++|*         TABLE.  FOR COMPATIBILITY REASONS, *BSP=N.* MUST BE
04906  M01S00016.ns2557  +++|*         SPECIFIED WHEN RUNNING A DUAL STATE ENVIRONMENT IN
04907  M01S00017.ns2557  +++|*         WHICH THE NOS/VE PSR LEVEL IS 688 OR EARLIER.
04908  M01S00018.ns2557  +++|*         DEFAULT = BUILD *SCI* PARAMETER TABLE.
04909  M01S00019.ns2557  +++|
04910  M01S00020.ns2557  +++|
04911  M01S00021.ns2557  +++| BSP      DATA   C*BSP=*
04912  M01S00022.ns2557  +++|          LDM    C8XX
04913  M01S00023.ns2557  +++|          NJN    BSP1        IF NOT DUAL STATE MAINFRAME
04914  M01S00024.ns2557  +++|          LDI    KA
04915  M01S00025.ns2557  +++|          SHN    6
04916  M01S00026.ns2557  +++|          LMM    1,KA
04917  M01S00027.ns2557  +++|          LMC    2RY.
04918  M01S00028.ns2557  +++|          ZJN    BSP3        IF BUILD TABLE SPECIFIED
04919  M01S00029.ns2557  +++|          LMC    2RN.&2RY.
04920  M01S00030.ns2557  +++|          ZJN    BSP2        IF DO NOT BUILD SPECIFIED
04921  M01S00031.ns2557  +++| BSP1     JMP    ILL         PROCESS INCORRECT ENTRY
04922  M01S00032.ns2557  +++|
04923  M01S00033.ns2557  +++| BSP2     LDN    1           SET FLAG TO NOT BUILD TABLE
04924  M01S00034.ns2557  +++| BSP3     STM    BSPT
04925  M01S00035.ns2557  +++|          JMP    KBR         RETURN
04926  M00S04086.set     +++| DFT      SPACE  4,10
04927  M00S04087.set     +++|***       DFT=X.
04928  M00S04088.set     +++|*         SET/CLEAR *DFT* DEDICATED MODE.
04929  M00S04089.set     +++|*
04930  M00S04090.set     +++|*         X = *N* TO CLEAR DEDICATED MODE,
04931  M00S04091.set     +++|*         X = *D* TO SET DEDICATED MODE.
04932  M00S04092.set     +++|*
04933  M00S04093.set     +++|*         DEFAULT IS NON-DEDICATED MODE, UNLESS THE *VE* ENTRY IS
04934  M00S04094.set     +++|*         SPECIFIED.
04935  M00S04095.set     +++|
04936  M00S04096.set     +++|
04937  M00S04097.set     +++| DFT      DATA   C*DFT=*
04938  M00S04098.set     +++|          LDI    KA          GET FIRST CHARACTER
04939  M00S04099.set     +++|          LMN    1RN
04940  M00S04100.set     +++|          ZJN    DFT1        IF NOT DEDICATED MODE
04941  M00S04101.set     +++|          LMN    1RN&1RD
04942  M00S04102.set     +++|          NJN    DFT2        IF INCORRECT ENTRY
04943  M00S04103.set     +++|          LDC    4000
04944  M00S04104.set     +++| DFT1     STD    T3
04945  M00S04105.set     +++|          AOD    KA          GET NEXT CHARACTER
04946  M00S04106.set     +++|          LDI    KA
04947  M00S04107.set     +++|          LMN    1R.
04948  M00S04108.set     +++|          NJN    DFT2        IF NOT TERMINATED BY A *.*
04949  M00S04109.set     +++|          LDM    DFTA+1
04950  M00S04110.set     +++|          LPC    3777
04951  M00S04111.set     +++|          LMD    T3          SAVE DEDICATED MODE
04952  M00S04112.set     +++|          STM    DFTA+1
04953  M00S04113.set     +++|          JMP    KBR         RETURN
04954  M00S04114.set     +++|
04955  M00S04115.set     +++| DFT2     JMP    ILL         PROCESS INCORRECT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04956  M01S00040.ns2779  +++| DUALCPU  SPACE  4,10
04957  M01S00041.ns2779  +++|***       DUALCPU=X.
04958  M01S00042.ns2779  +++|*         SET DUAL CPU OPERATING MODE FOR DUAL STATE.
04959  M01S00043.ns2779  +++|*
04960  M01S00044.ns2779  +++|*         X = *N* TO DEDICATE SECOND CPU TO *NOS*.
04961  M01S00045.ns2779  +++|*         X = *V* TO DEDICATE SECOND CPU TO *NOS/VE*.
04962  M01S00046.ns2779  +++|*
04963  M01S00047.ns2779  +++|*         DEFAULT IS TO DEDICATE SECOND CPU TO *NOS/VE*.  THE FIRST
04964  M01S00048.ns2779  +++|*         CPU IS ALWAYS SHARED.  ONLY ALLOWED ON CY960-32.
04965  M01S00049.ns2779  +++|
04966  M01S00050.ns2779  +++|
04967  M01S00051.ns2779  +++| DUALCPU  DATA   C*DUALCPU=*
04968  M01S00052.ns2779  +++|          LDM    CMDL        CHECK CPU MODEL NUMBER
04969  M01S00053.ns2779  +++|          LMC    0#3A
04970  M01S00054.ns2779  +++|          NJN    DUA2        IF NOT 960/970
04971  M01S00055.ns2779  +++|          LDD    HO
04972  M01S00056.ns2779  +++|          LPN    2
04973  M01S00057.ns2779  +++|          NJN    DUA2        IF CPU 1 OFF / NONEXISTANT
04974  M01S00058.ns2779  +++|          LDI    KA          GET FIRST CHARACTER
04975  M01S00059.ns2779  +++|          LMN    1RV
04976  M01S00060.ns2779  +++|          ZJN    DUA1        IF *DUALCPU=V*
04977  M01S00061.ns2779  +++|          LMN    1RN&1RV
04978  M01S00062.ns2779  +++|          NJN    DUA2        IF NOT *DUALCPU=N*
04979  M01S00063.ns2779  +++|          LDN    1
04980  M01S00064.ns2779  +++| DUA1     STD    T3          SAVE DUAL CPU FLAG
04981  M01S00065.ns2779  +++|          AOD    KA          GET NEXT CHARACTER
04982  M01S00066.ns2779  +++|          LDI    KA
04983  M01S00067.ns2779  +++|          LMN    1R.
04984  M01S00068.ns2779  +++|          NJN    DUA2        IF NOT TERMINATED BY A *.*
04985  M01S00069.ns2779  +++|          LDD    T3          SET DUAL CPU FLAG
04986  M01S00070.ns2779  +++|          STM    DCPN
04987  M01S00071.ns2779  +++|          JMP    KBR         RETURN
04988  M01S00072.ns2779  +++|
04989  M01S00073.ns2779  +++| DUA2     JMP    ILL         PROCESS INCORRECT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
04990  M01S00003.ns2769  +++| EMB      SPACE  4,16
04991  M01S00004.ns2769  +++|***       EMB=XXXX.
04992  M01S00005.ns2769  +++|*         SET NUMBER WORDS FOR EMB = XXXX.
04993  M01S00006.ns2769  +++|*         DEFAULT = VALUE ASSEMBLED WITH TAG *.EMB*.
04994  M01S00007.ns2769  +++|*         MINIMUM = VALUE DEFINED IN *PPCOM* AS *EMBMN*.
04995  M01S00008.ns2769  +++|*         MAXIMUM = VALUE DEFINED IN *PPCOM* AS *EMBMX* (7777B).
04996  M01S00009.ns2769  +++|
04997  M01S00010.ns2769  +++|
04998  M01S00011.ns2769  +++| EMB      DATA   C*EMB=*
04999  M01S00012.ns2769  +++|          RJM    ASD         ASSEMBLE DIGITS
05000  M01S00013.ns2769  +++|          ADC    -EMBMN
05001  M01S00014.ns2769  +++|          MJN    EMB1        IF TABLE LENGTH .LT. *PPCOM* MINIMUM
05002  M01S00015.ns2769  +++|          LDD    AB
05003  M01S00016.ns2769  +++|          ADD    AB+1
05004  M01S00017.ns2769  +++|          ADD    AB+2
05005  M01S00018.ns2769  +++|          ADD    AB+3
05006  M01S00019.ns2769  +++|          NJN    EMB1        IF TABLE LENGTH .GT. 7777B
05007  M01S00020.ns2769  +++|          LDD    AB+4
05008  M01S00021.ns2769  +++|          STM    .EMB+MTBL   SET TABLE LENGTH
05009  M01S00022.ns2769  +++|          JMP    KBR         RETURN
05010  M01S00023.ns2769  +++|
05011  M01S00024.ns2769  +++| EMB1     JMP    ILL         PROCESS INCORRECT ENTRY
05012  M00S04116.set     +++| EQP      SPACE  4,10
05013  M00S04117.set     +++|***       EQP=NN.
05014  M00S04118.set     +++|*
05015  M00S04119.set     +++|*         BUILD SYSTEM WITH SPECIFIED EQPDECK.
05016  M00S04120.set     +++|*                OMITTED. USE EQPDNN, WHERE NN IS THE SAME NUMBER
05017  M00S04121.set     +++|*                AS THE CMRDECK USED.
05018  M00S04122.set     +++|*                EQP=NN. USE RECORD NAMED EQPDNN.
05019  M00S04123.set     +++|
05020  M00S04124.set     +++|
05021  M00S04125.set     +++| EQP      DATA   C*EQP=*
05022  M00S04126.set     +++|          LDN    EQPD
05023  M00S04127.set     +++|          UJN    IPD1        SET DECK NUMBER
05024  M00S04128.set     +++| IPD      SPACE  4,10
05025  M00S04129.set     +++|***       IPD=NN.
05026  M00S04130.set     +++|*         ASSEMBLE INSTALLATION PARAMETER DECK NN.
05027  M00S04131.set     +++|*         DEFAULT = ASSEMBLE FIRST IPRDECK RECOGNIZED.
05028  M00S04132.set     +++|
05029  M00S04133.set     +++|
05030  M00S04134.set     +++| IPD      DATA   C*IPD=*
05031  M00S04135.set     +++|          LDN    IPRD
05032  M00S04136.set     +++| IPD1     STD    T7          SET TABLE INDEX
05033  M00S04137.set     +++|          RJM    ASD         ASSEMBLE DECK NUMBER
05034  M00S04138.set     +++|          SHN    -6
05035  M00S04139.set     +++|          ZJN    IPD2        IF VALID DECK NUMBER
05036  M00S04140.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
05037  M00S04141.set     +++|
05038  M00S04142.set     +++| IPD2     LDD    AB+4        SET DECK NUMBER
05039  M00S04143.set     +++|          STM    TTXC,T7
05040  M00S04144.set     +++| IPD3     JMP    KBR         RETURN
05041  M00S04145.set     +++| INB      SPACE  4,10
05042  M00S04146.set     +++|***       INB=NNNN.
05043  M00S04147.set     +++|*         SET THE LENGTH OF THE INSTALLATION BLOCK.
05044  M00S04148.set     +++|*         DEFAULT = 0.
05045  M00S04149.set     +++|*         MAXIMUM = 7777B.
05046  M00S04150.set     +++|
05047  M00S04151.set     +++|
05048  M00S04152.set     +++| INB      DATA   C*INB=*
05049  M00S04153.set     +++|          RJM    ASD         ASSEMBLE DIGITS
05050  M00S04154.set     +++|          STM    INBS
05051  M00S04155.set     +++|          JMP    KBR         RETURN
05052  M00S04156.set     +++| LIB      SPACE  4,10
05053  M00S04157.set     +++|***       LIB=NN.
05054  M00S04158.set     +++|*         BUILD SYSTEM WITH SPECIFIED LIBDECK.
05055  M00S04159.set     +++|*                OMITTED. USE RECORD NAMED *LIBD00*.
05056  M00S04160.set     +++|*                LIB=NN. USE RECORD NAMED *LIBDNN*.
05057  M00S04161.set     +++|
05058  M00S04162.set     +++|
05059  M00S04163.set     +++| LIB      DATA   C*LIB=*
05060  M00S04164.set     +++|          LDN    LIBD
05061  M00S04165.set     +++|          UJN    IPD1        SET DECK NUMBER
05062  M00S04166.set     +++| LIE      SPACE  4,10
05063  M00S04167.set     +++|***       LDT=NNNN.
05064  M00S04168.set     +++|*
05065  M00S04169.set     +++|*         SET THE LENGTH OF THE LID TABLE, NOT INCLUDING THE HEADER.
05066  M00S04170.set     +++|*         THE NUMBER OF WORDS MUST BE .LE. MXLDT, AND .GE. MNLDT.
05067  M00S04171.set     +++|
05068  M00S04172.set     +++|
05069  M00S04173.set     +++| LIE      DATA   C*LDT=*
05070  M00S04174.set     +++|          RJM    ASD         ASSEMBLE DIGITS
05071  M00S04175.set     +++|          SBK    MNLDT
05072  M00S04176.set     +++|          MJN    LIE1        IF TABLE LENGTH TOO SMALL
05073  M00S04177.set     +++|          SBK    MXLDT+1-MNLDT
05074  M00S04178.set     +++|          PJN    LIE1        IF TABLE LENGTH TOO LARGE
05075  M00S04179.set     +++|          AOD    AB+4        ADD A WORD FOR TABLE HEADER
05076  M00S04180.set     +++|          STM    .LID+MTBL   SET TABLE LENGTH
05077  M00S04181.set     +++|          JMP    KBR         RETURN
05078  M00S04182.set     +++|
05079  M00S04183.set     +++| LIE1     JMP    ILL         PROCESS INCORRECT ENTRY
05080  M00S04184.set     +++| MID      SPACE  4,10
05081  M00S04185.set     +++|***       MID=XX.
05082  M00S04186.set     +++|*
05083  M00S04187.set     +++|*         SET MACHINE IDENTIFICATION MNEMONIC = XX.
05084  M00S04188.set     +++|*         XX MUST BE 2 ALPHANUMERIC CHARACTERS.
05085  M00S04189.set     +++|*         DEFAULT VALUE = AA.
05086  M00S04190.set     +++|
05087  M00S04191.set     +++|
05088  M00S04192.set     +++| MID      DATA   C*MID=*
05089  M00S04193.set     +++|          SOD    KA
05090  M00S04194.set     +++|          LDN    3           ASSEMBLE ID
05091  M00S04195.set     +++|          RJM    ASN
05092  M00S04196.set     +++|          LDD    T0
05093  M00S04197.set     +++|          SBN    2
05094  M00S04198.set     +++|          NJN    MID1        IF .NE. 2 CHARACTERS
05095  M00S04199.set     +++|          LDI    KA          CHECK END OF ENTRY
05096  M00S04200.set     +++|          LMN    1R.
05097  M00S04201.set     +++|          ZJN    MID2        IF TERMINATOR FOUND
05098  M00S04202.set     +++| MID1     JMP    ILL         PROCESS INCORRECT ENTRY
05099  M00S04203.set     +++|
05100  M00S04204.set     +++| MID2     LDD    CM          SET MACHINE ID
05101  M00S04205.set     +++|          STD    ID
05102  M00S04206.set     +++|          JMP    KBR         RETURN
05103  M00S04207.set     +++| MCM      SPACE  4,10
05104  M00S04208.set     +++|***       MINCM=XXXX.
05105  M00S04209.set     +++|*         SET THE MINIMUM REQUIRED AMOUNT OF CM FL TO XXXX HUNDRED
05106  M00S04210.set     +++|*         WORDS.  THIS AMOUNT OF CM + UEM SIZE + NVE SIZE MUST BE
05107  M00S04211.set     +++|*         .LE. THE PHYSICAL MEMORY AVAILABLE (FROM *CTI*).  THE
05108  M00S04212.set     +++|*         ACTUAL AMOUNT OF MEMORY USED AS CM WILL BE PHYSICAL SIZE -
05109  M00S04213.set     +++|*         UEM SIZE - NVE SIZE.  FOR NON-CME MAINFRAMES, UEM SIZE
05110  M00S04214.set     +++|*         IS ZERO.
05111  M00S04215.set     +++|
05112  M00S04216.set     +++|
05113  M00S04217.set     +++| MCM      DATA   C*MINCM=*
05114  M00S04218.set     +++|          RJM    ASD         ASSEMBLE SIZE
05115  M00S04219.set     +++|          LDD    FL          SAVE PREVIOUS VALUE
05116  M00S04220.set     +++|          STD    AB
05117  M00S04221.set     +++|          LDD    FL+1
05118  M00S04222.set     +++|          STD    AB+1
05119  M00S04223.set     +++|          LDD    AB+3        SET MINCM SIZE
05120  M00S04224.set     +++|          STD    FL
05121  M00S04225.set     +++|          LDD    AB+4
05122  M00S04226.set     +++|          STD    FL+1
05123  M00S04227.set     +++|          LDN    1
05124  M00S04228.set     +++|          RJM    CMS         CHECK MEMORY SIZES
05125  M00S04229.set     +++|          ZJN    MCM2        IF VALID
05126  M00S04230.set     +++| MCM1     LDD    AB          RESTORE PREVIOUS VALUE
05127  M00S04231.set     +++|          STD    FL
05128  M00S04232.set     +++|          LDD    AB+1
05129  M00S04233.set     +++|          STD    FL+1
05130  M00S04234.set     +++|          JMP    ERR         DISPLAY ERROR
05131  M00S04235.set     +++|
05132  M00S04236.set     +++| MCM2     LDD    AB+3        CHECK FOR MINCM .LT. ABSOLUTE MINIMUM
05133  M00S04237.set     +++|          SHN    14
05134  M00S04238.set     +++|          LMD    AB+4
05135  M00S04239.set     +++|          ADC    -MEMS
05136  M00S04240.set     +++|          PJN    MCM3        IF CORRECT MEMORY SIZE
05137  M00S04241.set     +++|          LDC    CMSA        *CM ALLOCATION ERROR.*
05138  M00S04242.set     +++|          STD    KM          SET ERROR MESSAGE
05139  M00S04243.set     +++|          UJN    MCM1        ERROR EXIT
05140  M00S04244.set     +++|
05141  M00S04245.set     +++| MCM3     JMP    KBR         RETURN
05142  M00S04246.set     +++|          SPACE  4,10
05143  M00S04247.set     +++|***       MLST=NN.
05144  M00S04248.set     +++|*         SET SIZE OF MESSAGE LINK STATUS TABLE. THE *MLST* IS USED
05145  M00S04249.set     +++|*         TO COMMUNICATE MESSAGE LINK INTERFACE (*MLI*) STATUS FROM
05146  M00S04250.set     +++|*         *NOS/VE* TO *NVE*. SIZE MAY RANGE FROM 0 TO MLTLM.
05147  M00S04251.set     +++|
05148  M00S04252.set     +++|
05149  M00S04253.set     +++| MLS      DATA   C*MLST=*
05150  M00S04254.set     +++|          RJM    ASD         ASSEMBLE DIGITS
05151  M00S04255.set     +++|          SBK    MLTLM+1
05152  M00S04256.set     +++|          MJN    MLS1        IF TABLE LENGTH IN RANGE
05153  M00S04257.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
05154  M00S04258.set     +++|
05155  M00S04259.set     +++| MLS1     LDD    AB+4
05156  M00S04260.set     +++|          STM    .MLS+MTBL   SET TABLE LENGTH
05157  M00S04261.set     +++|          JMP    KBR         RETURN
05158  M00S04262.set     +++| NAME     SPACE  4,10
05159  M00S04263.set     +++|***       NAME=CCC-CCC
05160  M00S04264.set     +++|*         SET SYSTEM DATE LINE NAME = CCC-CCC.
05161  M00S04265.set     +++|*         (MAXIMUM OF 38 CHARACTERS ALLOWED.)
05162  M00S04266.set     +++|
05163  M00S04267.set     +++|
05164  M00S04268.set     +++| NAME     DATA   C*NAME=*
05165  M00S04269.set     +++|          LDC    2*19DS12+.NME
05166  M00S04270.set     +++| NME1     STD    T3          SET BUFFER ADDRESS
05167  M00S04271.set     +++|          SHN    -14
05168  M00S04272.set     +++|          STD    T1
05169  M00S04273.set     +++|          SHN    -1          SET BUFFER LIMIT
05170  M00S04274.set     +++|          ADD    T3
05171  M00S04275.set     +++|          STD    T2
05172  M00S04276.set     +++|          LDD    KI          SET KEYBOARD BUFFER LIMIT
05173  M00S04277.set     +++|          RAD    KB
05174  M00S04278.set     +++| NME2     SOD    KB          CHECK LAST CHARACTER
05175  M00S04279.set     +++|          LDI    KB
05176  M00S04280.set     +++|          ZJN    NME2        IF NULL
05177  M00S04281.set     +++|          LMN    1R
05178  M00S04282.set     +++|          ZJN    NME2        IF BLANK
05179  M00S04283.set     +++|          LMN    1R.&1R
05180  M00S04284.set     +++|          ZJN    NME3        IF *.*
05181  M00S04285.set     +++|          AOD    KB
05182  M00S04286.set     +++|          LDN    1R.
05183  M00S04287.set     +++|          STI    KB
05184  M00S04288.set     +++| NME3     AOD    KB          CHECK COMMAND LENGTH
05185  M00S04289.set     +++|          SBD    KA
05186  M00S04290.set     +++|          SBD    T1
05187  M00S04291.set     +++|          MJN    NME5        IF .LT. LIMIT
05188  M00S04292.set     +++|          ZJN    NME5        IF .EQ. LIMIT
05189  M00S04293.set     +++| NME4     JMP    ILL         PROCESS INCORRECT ENTRY
05190  M00S04294.set     +++|
05191  M00S04295.set     +++| NME5     LDI    KA          PACK CHARACTER DATA
05192  M00S04296.set     +++|          SHN    6
05193  M00S04297.set     +++|          LMM    1,KA        MOVE COMMAND TO BUFFER
05194  M00S04298.set     +++|          STI    T3
05195  M00S04299.set     +++|          LDN    2           ADVANCE KEYBOARD BUFFER ADDRESS
05196  M00S04300.set     +++|          RAD    KA
05197  M00S04301.set     +++|          AOD    T3          ADVANCE BUFFER ADDRESS
05198  M00S04302.set     +++|          LMD    T2
05199  M00S04303.set     +++|          NJN    NME5        IF NOT COMMAND LIMIT
05200  M00S04304.set     +++|          JMP    KBR         RETURN
05201  M00S04305.set     +++| NCP      SPACE  4,10
05202  M00S04306.set     +++|***       NCP=X.
05203  M00S04307.set     +++|*         SET NUMBER OF CONTROL POINTS = X. (X = 2 - NCPS-1)
05204  M00S04308.set     +++|*         DEFAULT = 12B.
05205  M00S04309.set     +++|
05206  M00S04310.set     +++|
05207  M00S04311.set     +++| NCP      DATA   C*NCP=*
05208  M00S04312.set     +++|          RJM    ASD         ASSEMBLE DIGITS
05209  M00S04313.set     +++|          SBN    MNCP
05210  M00S04314.set     +++|          MJN    NME4        IF .LT. 2 CONTROL POINTS
05211  M00S04315.set     +++|          SBN    NCPS-MNCP+1
05212  M00S04316.set     +++|          PJN    NME4        IF .GT. MAXIMUM ALLOWED
05213  M00S04317.set     +++|          ADN    NCPS+2      SET NUMBER OF CONTROL POINTS
05214  M00S04318.set     +++|          STM    .NCP
05215  M00S04319.set     +++| NCP1     JMP    KBR         RETURN
05216  M00S04320.set     +++| OPS      SPACE  4,10
05217  M00S04321.set     +++|***       OPSECM=N.
05218  M00S04322.set     +++|*         SELECTS SECURITY MODE OF SYSTEM.
05219  M00S04323.set     +++|*         N      SECURITY MODE (0-3).
05220  M00S04324.set     +++|*         DEFAULT = 0.
05221  M00S04325.set     +++|
05222  M00S04326.set     +++|
05223  M00S04327.set     +++| OPS      DATA   C*OPSECM=*
05224  M00S04328.set     +++|          RJM    ASD         ASSEMBLE DIGITS
05225  M00S04329.set     +++|          SBN    4
05226  M00S04330.set     +++|          PJN    OPS1        IF INCORRECT VALUE
05227  M00S04331.set     +++|          LDM    .SSML       SET NEW SECURITY MODE
05228  M00S04332.set     +++|          SCN    7
05229  M00S04333.set     +++|          LMD    AB+4
05230  M00S04334.set     +++|          STM    .SSML
05231  M00S04335.set     +++|          JMP    KBR         RETURN
05232  M00S04336.set     +++|
05233  M00S04337.set     +++| OPS1     JMP    ILL         PROCESS INCORRECT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
05234  M01S00030.271l716 +++| PCP      SPACE  4,10
05235  M01S00031.271l716 +++|***       PCP=XXX.
05236  M01S00032.271l716 +++|*         SET NUMBER OF PSEUDO CONTROL POINTS = XXX.
05237  M01S00033.271l716 +++|*         DEFAULT = 0.
05238  M01S00034.271l716 +++|
05239  M01S00035.271l716 +++|
05240  M01S00036.271l716 +++| PCP      DATA   C*PCP=*
05241  M01S00037.271l716 +++|          RJM    ASD         ASSEMBLE PCP COUNT
05242  M01S00038.271l716 +++|          SBK    NPPS+1
05243  M01S00039.271l716 +++|          MJN    PCP1        IF .LE. MAXIMUM ALLOWED
05244  M01S00040.271l716 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
05245  M01S00041.271l716 +++|
05246  M01S00042.271l716 +++| PCP1     LDD    AB+4        SET PCP COUNT
05247  M01S00043.271l716 +++|          STM    .NPCP
05248  M01S00044.271l716 +++|          JMP    KBR         RETURN
05249  M00S04338.set     +++| PPU      SPACE  4,10
05250  M00S04339.set     +++|***       PPU=*
05251  M00S04340.set     +++|*         TOGGLE STATUS OF UPPER 10 PPU.
05252  M00S04341.set     +++|*         DEFAULT = SET STATUS TO OFF.
05253  M00S04342.set     +++| PPU      SPACE  4,10
05254  M00S04343.set     +++|***       PPU=X,Y,...,Z.
05255  M00S04344.set     +++|*         TOGGLE STATUS OF PPU X,Y,...,Z.
05256  M00S04345.set     +++|*         PP-S 0, 1, 2, 10 AND *APP* PP ARE INVALID ENTRIES.
05257  M00S04346.set     +++|
05258  M00S04347.set     +++|
05259  M00S04348.set     +++| PPU      DATA   C*PPU=*
05260  M00S04349.set     +++|          LDM    .PPS        COPY PPU STATUS
05261  M00S04350.set     +++|          STD    T6
05262  M00S04351.set     +++|          LDM    .PPS+1
05263  M00S04352.set     +++|          STD    T6+1
05264  M00S04353.set     +++|          LDI    KA          CHECK NEXT CHARACTER
05265  M00S04354.set     +++|          LMN    1R*
05266  M00S04355.set     +++|          NJN    PPU3        IF NOT (*)
05267  M00S04356.set     +++|          LDM    .APP
05268  M00S04357.set     +++|          SBN    20
05269  M00S04358.set     +++|          PJN    PPU4        IF ALTERNATE PP IN UPPER BANK
05270  M00S04359.set     +++|          LCN    0           TOGGLE UPPER BANK
05271  M00S04360.set     +++|          LMM    .PPS+1
05272  M00S04361.set     +++|          STM    .PPS+1
05273  M00S04362.set     +++| PPU1     JMP    KBR         RETURN
05274  M00S04363.set     +++|
05275  M00S04364.set     +++| PPU3     RJM    AOD         ASSEMBLE PPU NUMBER
05276  M00S04365.set     +++|          SBN    3
05277  M00S04366.set     +++|          MJN    PPU4        IF PPU = 0, 1, 2
05278  M00S04367.set     +++|          SBN    10-3
05279  M00S04368.set     +++|          ZJN    PPU4        IF PPU = 10
05280  M00S04369.set     +++|          ADN    10
05281  M00S04370.set     +++|          LMM    .APP
05282  M00S04371.set     +++|          ZJN    PPU4        IF ALTERNATE PP
05283  M00S04372.set     +++|          LDD    AB+4        SET BANK
05284  M00S04373.set     +++|          SHN    -4
05285  M00S04374.set     +++|          STD    T1
05286  M00S04375.set     +++|          ZJN    PPU5        IF LOWER BANK
05287  M00S04376.set     +++|          SCN    1
05288  M00S04377.set     +++|          NJN    PPU4        IF ABOVE 20
05289  M00S04378.set     +++|          LDM    .PPU        CHECK PPU COUNT
05290  M00S04379.set     +++|          SBN    20D
05291  M00S04380.set     +++|          PJN    PPU5        IF .GT. 10 PPU-S SENSED
05292  M00S04381.set     +++| PPU4     JMP    ILL         PROCESS INCORRECT ENTRY
05293  M00S04382.set     +++|
05294  M00S04383.set     +++| PPU5     LDD    AB+4        SET PPU NUMBER
05295  M00S04384.set     +++|          LPN    17
05296  M00S04385.set     +++|          SBN    12
05297  M00S04386.set     +++|          PJN    PPU4        IF OUT OF RANGE
05298  M00S04387.set     +++|          ADN    12          FORM SHN INSTRUCTION
05299  M00S04388.set     +++|          LMC    SHNI
05300  M00S04389.set     +++|          STM    PPUA
05301  M00S04390.set     +++|          LDN    1           SHIFT PPU BIT
05302  M00S04391.set     +++| PPUA     SHN    **
05303  M00S04392.set     +++|          LMM    T6,T1       TOGGLE STATUS BIT
05304  M00S04393.set     +++|          STM    T6,T1
05305  M00S04394.set     +++|          LDI    KA          CHECK CHARACTER
05306  M00S04395.set     +++|          LMN    1R.
05307  M00S04396.set     +++|          ZJN    PPU6        IF *.*
05308  M00S04397.set     +++|          AOD    KA          SKIP SEPARATOR
05309  M00S04398.set     +++|          LJM    PPU3        LOOP
05310  M00S04399.set     +++|
05311  M00S04400.set     +++| PPU6     LDD    T6          SET NEW STATUS
05312  M00S04401.set     +++|          STM    .PPS
05313  M00S04402.set     +++|          LDD    T6+1
05314  M00S04403.set     +++|          STM    .PPS+1
05315  M00S04404.set     +++|          JMP    KBR         RETURN
05316  M00S04405.set     +++| VEE      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
05317  M01S04406.ns2633  ---|***       VE=XXXXX.
05318  M01S04407.ns2633  ---|*         BUILD THE *DSCB* AND SET THE MAXIMUM NVE BLOCK SIZE TO
05319  M01S04408.ns2633  ---|*         XXXXX THOUSAND WORDS.  XXXXX MUST BE AN EVEN NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
05320  M01S00008.ns2633  +++|***       VE=XXXXXXX.
05321  M01S00009.ns2633  +++|*         BUILD THE *EICB* AND SET THE MAXIMUM NOS/VE BLOCK SIZE TO
05322  M01S00010.ns2633  +++|*         XXXXXXX THOUSAND WORDS.  XXXXXXX MUST BE AN EVEN NUMBER.
05323  M00S04409.set     +++|*         THE SUM OF UEM SIZE + NVE SIZE + MINCM SIZE (65K USED IF
05324  M00S04410.set     +++|*         MINCM NOT SPECIFIED) MUST BE .LE. THE PHYSICAL MEMORY

Seq #  *Modification Id* Act 
----------------------------+
05325  M01S04411.ns2633  ---|*         AVAILABLE (FROM *CTI*).

Seq #  *Modification Id* Act 
----------------------------+
05326  M01S00011.ns2633  +++|*         AVAILABLE (FROM *CTI*).  IF *VE=0* IS SPECIFIED,
05327  M01S00012.ns2633  +++|*         NOS/VE WILL DYNAMICALLY REQUEST MEMORY FROM NOS AT

Proceed to Part 3