User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dsd.021

Deck DSD Part 021

169 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01072 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28322  M01S01072.251l664 +++|          COMMAND  (JOB CONTROL REQUESTS - CLASS.),CMR
28323  M00S17566.dsd     +++| CLA      SPACE  4,10
28324  M00S17567.dsd     +++|***       CLASS,OT,C1,C2,...,CN.
28325  M00S17568.dsd     +++|*
28326  M00S17569.dsd     +++|*         TOGGLE SERVICE CLASS MASK BIT FOR SPECIFIED ORIGIN TYPE.
28327  M00S17570.dsd     +++|*
28328  M00S17571.dsd     +++|*         OT     ORIGIN TYPE.  (BC, EI, IA, RB, TX)
28329  M00S17572.dsd     +++|*         CN     TWO CHARACTER SERVICE CLASS MNEMONIC.
28330  M00S17573.dsd     +++|*                *ALL* OR *NUL* ARE ALSO ACCEPTED.
28331  M00S17574.dsd     +++|
28332  M00S17575.dsd     +++|
28333  M00S17576.dsd     +++|          ENTRY  CLA
28334  M00S17577.dsd     +++|          LDM    2,CA
28335  M00S17578.dsd     +++|          LMN    1R,
28336  M00S17579.dsd     +++|          ZJN    CLA2        IF VALID SEPARATOR
28337  M00S17580.dsd     +++| CLA1     JMP    KIE         *INCORRECT ENTRY*
28338  M00S17581.dsd     +++|
28339  M00S17582.dsd     +++| CLA2     RJM    SOT         SEARCH FOR VALID ORIGIN TYPE
28340  M00S17583.dsd     +++|          LDK    JBCP        GET SCT ADDRESS
28341  M00S17584.dsd     +++|          CRD    CM
28342  M00S17585.dsd     +++|          LDD    CM          GET CURRENT SCT ENTRY
28343  M00S17586.dsd     +++|          SHN    14
28344  M00S17587.dsd     +++|          ADD    CM+1
28345  M00S17588.dsd     +++|          ADD    T2
28346  M00S17589.dsd     +++|          CRD    SR
28347  M00S17590.dsd     +++|          LDN    2           GET FIRST SERVICE CLASS
28348  M00S17591.dsd     +++|          RAD    CA
28349  M00S17592.dsd     +++|          LDM    3,CA        CHECK FOR *ALL* OR *NUL*
28350  M00S17593.dsd     +++|          SHN    6
28351  M00S17594.dsd     +++|          LMM    4,CA
28352  M00S17595.dsd     +++|          LMC    2RL.
28353  M00S17596.dsd     +++|          NJN    CLA3        IF NOT *ALL* OR *NUL*
28354  M00S17597.dsd     +++|          LDM    1,CA
28355  M00S17598.dsd     +++|          SHN    6
28356  M00S17599.dsd     +++|          LMM    2,CA
28357  M00S17600.dsd     +++|          LMC    2RNU
28358  M00S17601.dsd     +++|          ZJP    CLA6        IF *NUL* SELECTED
28359  M00S17602.dsd     +++|          LMC    2RAL&2RNU
28360  M00S17603.dsd     +++|          ZJP    CLA7        IF *ALL* SELECTED
28361  M00S17604.dsd     +++|
28362  M00S17605.dsd     +++|*         PROCESS SERVICE CLASS PARAMETERS.
28363  M00S17606.dsd     +++|
28364  M00S17607.dsd     +++| CLA3     AOD    CA          SKIP SEPARATOR
28365  M00S17608.dsd     +++|          LDC    TNSC
28366  M00S17609.dsd     +++|          RJM    SPT         SEARCH FOR VALID SERVICE CLASS
28367  M00S17610.dsd     +++|          STD    T3
28368  M00S17611.dsd     +++|          LDM    TSCM,T3     GET SERVICE CLASS VALIDATION BIT
28369  M00S17612.dsd     +++|          ZJP    CLA1        IF INCORRECT SERVICE CLASS
28370  M00S17613.dsd     +++|          STD    T5
28371  M00S17614.dsd     +++|          LDN    SR+5        DETERMINE BYTE TO TOGGLE BIT IN
28372  M00S17615.dsd     +++|          STD    T1
28373  M00S17616.dsd     +++| CLA4     SOD    T1
28374  M00S17617.dsd     +++|          LCN    12D
28375  M00S17618.dsd     +++|          RAD    T3
28376  M00S17619.dsd     +++|          PJN    CLA4        IF NOT CORRECT BYTE
28377  M00S17620.dsd     +++|          LDI    T1          TOGGLE VALIDATION BIT
28378  M00S17621.dsd     +++|          LMD    T5
28379  M00S17622.dsd     +++|          STI    T1
28380  M00S17623.dsd     +++|          LDN    2
28381  M00S17624.dsd     +++|          RAD    CA
28382  M00S17625.dsd     +++|          LDI    CA
28383  M00S17626.dsd     +++|          LMN    1R,
28384  M00S17627.dsd     +++|          ZJN    CLA3        IF NOT END OF ENTRY
28385  M00S17628.dsd     +++|          LMN    1R.&1R,
28386  M00S17629.dsd     +++|          NJP    CLA1        IF NOT VALID TERMINATOR
28387  M00S17630.dsd     +++| CLA5     LDD    CM          STORE SCT ENTRY
28388  M00S17631.dsd     +++|          SHN    14
28389  M00S17632.dsd     +++|          ADD    CM+1
28390  M00S17633.dsd     +++|          ADD    T2
28391  M00S17634.dsd     +++|          CWD    SR
28392  M00S17635.dsd     +++|          JMP    KBR         RETURN
28393  M00S17636.dsd     +++|
28394  M00S17637.dsd     +++| CLA6     STD    SR+3
28395  M00S17638.dsd     +++|          UJN    CLA8        CLEAR ALL MASK BITS
28396  M00S17639.dsd     +++|
28397  M00S17640.dsd     +++| CLA7     LDK    A2MK        SET ALL MASK BITS
28398  M00S17641.dsd     +++|          STD    SR+3
28399  M00S17642.dsd     +++|          LDK    A1MK
28400  M00S17643.dsd     +++| CLA8     STD    SR+4
28401  M00S17644.dsd     +++|          UJN    CLA5        STORE SCT ENTRY
Line S00017 Modification History
M01 (Added by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28402  M01S00017.dsd90   +++| SOT      SPACE  4,10
28403  M01S00018.dsd90   +++|**        SOT - SEARCH FOR VALID ORIGIN TYPE.
28404  M01S00019.dsd90   +++|*
28405  M01S00020.dsd90   +++|*         ENTRY  ((CA - CA+1)) = ORIGIN TYPE PARAMETER.
28406  M01S00021.dsd90   +++|*
28407  M01S00022.dsd90   +++|*         EXIT   (T2) = ORIGIN TYPE VALUE.
28408  M01S00023.dsd90   +++|*
28409  M01S00024.dsd90   +++|*         ERROR  TO *KBR* IF ORIGIN TYPE INCORRECT.
28410  M01S00025.dsd90   +++|*         ERROR  TO *KIE* IF ORIGIN TYPE INVALID.
28411  M01S00026.dsd90   +++|*
28412  M01S00027.dsd90   +++|*         USES   T1, T2, T3.
28413  M01S00028.dsd90   +++|
28414  M01S00029.dsd90   +++|
28415  M01S00030.dsd90   +++| SOT2     AOD    T1          RETURN ORIGIN TYPE VALUE
28416  M01S00031.dsd90   +++|          LDM    TCOT,T1
28417  M01S00032.dsd90   +++|          STD    T2
28418  M01S00033.dsd90   +++|
28419  M01S00034.dsd90   +++| SOT      SUBR               ENTRY/EXIT
28420  M01S00035.dsd90   +++|          LDN    0           INITIALIZE TABLE INDEX
28421  M01S00036.dsd90   +++|          STD    T1
28422  M01S00037.dsd90   +++|          LDI    CA          ASSEMBLE ORIGIN TYPE
28423  M01S00038.dsd90   +++|          SHN    6
28424  M01S00039.dsd90   +++|          LMM    1,CA
28425  M01S00040.dsd90   +++|          STD    T3
28426  M01S00041.dsd90   +++|          LDM    TCOT,T1     SEARCH TABLE FOR ORIGIN TYPE
28427  M01S00042.dsd90   +++| SOT1     LMD    T3
28428  M01S00043.dsd90   +++|          ZJN    SOT2        IF MATCH FOUND
28429  M01S00044.dsd90   +++|          LDN    2           INCREMENT TABLE INDEX
28430  M01S00045.dsd90   +++|          RAD    T1
28431  M01S00046.dsd90   +++|          LDM    TCOT,T1
28432  M01S00047.dsd90   +++|          NJN    SOT1        IF NOT END OF TABLE
28433  M01S00048.dsd90   +++|          JMP    KIE         PROCESS INVALID ENTRY
28434  M01S00049.dsd90   +++| SPT      SPACE  4,10
28435  M01S00050.dsd90   +++|**        SPT - SEARCH PARAMETER TABLE.
28436  M01S00051.dsd90   +++|*
28437  M01S00052.dsd90   +++|*         ENTRY  (A) = FWA OF PARAMETER TABLE.
28438  M01S00053.dsd90   +++|*                (CA) = CHARACTER ADDRESS.
28439  M01S00054.dsd90   +++|*
28440  M01S00055.dsd90   +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
28441  M01S00056.dsd90   +++|*
28442  M01S00057.dsd90   +++|*         USES   T1, T3, T5.
28443  M01S00058.dsd90   +++|
28444  M01S00059.dsd90   +++|
28445  M01S00060.dsd90   +++| SPT2     LDD    T5
28446  M01S00061.dsd90   +++|          SBD    T3
28447  M01S00062.dsd90   +++|
28448  M01S00063.dsd90   +++| SPT      SUBR               ENTRY/EXIT
28449  M01S00064.dsd90   +++|          STD    T3
28450  M01S00065.dsd90   +++|          STD    T5
28451  M01S00066.dsd90   +++|          LDI    CA          ASSEMBLE PARAMETER NAME
28452  M01S00067.dsd90   +++|          SHN    6
28453  M01S00068.dsd90   +++|          LMM    1,CA
28454  M01S00069.dsd90   +++|          STD    T1
28455  M01S00070.dsd90   +++|          LDI    T5
28456  M01S00071.dsd90   +++| SPT1     LMD    T1
28457  M01S00072.dsd90   +++|          ZJN    SPT2        IF MATCH FOUND
28458  M01S00073.dsd90   +++|          AOD    T5          INCREMENT TABLE INDEX
28459  M01S00074.dsd90   +++|          LDI    T5
28460  M01S00075.dsd90   +++|          NJN    SPT1        IF NOT END OF TABLE
28461  M01S00076.dsd90   +++|          JMP    KIE         *INCORRECT ENTRY*
28462  M00S17645.dsd     +++| TCOT     SPACE  4,10
28463  M00S17646.dsd     +++|**        TCOT - TABLE OF *CLASS* ORIGIN TYPES.
28464  M00S17647.dsd     +++|
28465  M00S17648.dsd     +++|
28466  M00S17649.dsd     +++| TCOT     BSS    0
28467  M00S17650.dsd     +++|          CON    2RBC,BCOT   LOCAL BATCH
28468  M00S17651.dsd     +++|          CON    2RRB,RBOT   REMOTE BATCH
28469  M00S17652.dsd     +++|          CON    2RIA,IAOT   INTERACTIVE
28470  M00S17653.dsd     +++|          CON    2REI,EIOT   REMOTE BATCH
28471  M00S17654.dsd     +++|          CON    2RTX,TXOT   INTERACTIVE
28472  M00S17655.dsd     +++|          CON    0
28473  M00S17656.dsd     +++| TSCM     SPACE  4,10
28474  M00S17657.dsd     +++|**        TSCM - TABLE OF SERVICE CLASS MASK BITS.
28475  M00S17658.dsd     +++|*
28476  M00S17659.dsd     +++|*         THIS TABLE IS INDEXED BY SERVICE CLASS VALUES.
28477  M00S17660.dsd     +++|*
28478  M00S17661.dsd     +++|*         ONLY SERVICE CLASSES DEFINED IN THIS TABLE ARE
28479  M00S17662.dsd     +++|*         ALLOWED ON THE *PCLASS* AND *CLASS* COMMANDS.
28480  M00S17663.dsd     +++|
28481  M00S17664.dsd     +++|
28482  M00S17665.dsd     +++| TSCM     INDEX
28483  M00S17666.dsd     +++|          LIST   D
28484  M00S17667.dsd     +++| .SCL     HERE
28485  M00S17668.dsd     +++|          LIST   *
28486  M00S17669.dsd     +++|          INDEX  MXSC
Line S00077 Modification History
M01 (Added by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28487  M01S00077.dsd90   +++| TNSC     SPACE  4,10
28488  M01S00078.dsd90   +++|**        TNSC - TABLE OF TWO-CHARACTER SERVICE CLASS TYPES.
28489  M01S00079.dsd90   +++|
28490  M01S00080.dsd90   +++|
28491  M01S00081.dsd90   +++|          LIST   D,G
28492  M01S00082.dsd90   +++| TNSC     DATA   H+"NMSC"+
28493  M01S00083.dsd90   +++|          LIST   *
28494  M01S00084.dsd90   +++|          CON    0           END OF TABLE
Line S00941 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28495  M01S00941.274l797 +++|          SPACE  4,10
28496  M01S00942.274l797 +++|          CMDEND
Line S00085 Modification History
M01 (Added by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28497  M01S00085.dsd90   +++|          COMMAND  (JOB CONTROL REQUESTS - PCLASS.),CMR
28498  M00S17670.dsd     +++| PCL      SPACE  4,10
28499  M00S17671.dsd     +++|**        PCLASS,P0,P1,...,P7.
28500  M00S17672.dsd     +++|*
28501  M00S17673.dsd     +++|*         SET PRIORITY ORDERED SERVICE CLASSES.
28502  M00S17674.dsd     +++|*
28503  M00S17675.dsd     +++|*         EACH PARAMETER SETS THE SERVICE CLASS FOR THE INDICATED
28504  M00S17676.dsd     +++|*         PRIORITY LEVEL.  THE DEFAULT FOR EACH NULL PARAMETER IS
28505  M00S17677.dsd     +++|*         ZERO.
28506  M00S17678.dsd     +++|
28507  M00S17679.dsd     +++|
28508  M00S17680.dsd     +++| PCL4     JMP    KIE         PROCESS INCORRECT ENTRY
28509  M00S17681.dsd     +++|
28510  M00S17682.dsd     +++|          ENTRY  PCL
28511  M00S17683.dsd     +++|          ERRNZ  SR+5-SH     SCRATCH STORAGE NOT CONTIGUOUS
28512  M00S17684.dsd     +++|          LDN    ZERL        INITIALIZE SERVICE CLASSES
28513  M00S17685.dsd     +++|          CRD    SR
28514  M00S17686.dsd     +++|          CRD    SH
28515  M00S17687.dsd     +++|          LDN    0           INITIALIZE PRIORITY INDEX
28516  M00S17688.dsd     +++|          STD    T2
28517  M00S17689.dsd     +++|          LDI    CA
28518  M00S17690.dsd     +++|          LMN    1R.
28519  M00S17691.dsd     +++|          ZJN    PCL3        IF TERMINATOR
28520  M00S17692.dsd     +++| PCL1     LDI    CA
28521  M00S17693.dsd     +++|          LMN    1R,
28522  M00S17694.dsd     +++|          ZJN    PCL2        IF NULL PARAMETER
28523  M00S17695.dsd     +++|          LDC    TNSC
28524  M00S17696.dsd     +++|          RJM    SPT         SEARCH FOR VALID SERVICE CLASS
28525  M00S17697.dsd     +++|          STD    T3
28526  M00S17698.dsd     +++|          LDM    TSCM,T3
28527  M00S17699.dsd     +++|          ZJN    PCL4        IF SERVICE CLASS NOT ALLOWED
28528  M00S17700.dsd     +++|          LDD    T1          SET SERVICE CLASS INTO SCT
28529  M00S17701.dsd     +++|          STM    SR,T2
28530  M00S17702.dsd     +++|          LDN    2
28531  M00S17703.dsd     +++|          RAD    CA
28532  M00S17704.dsd     +++|          LDI    CA
28533  M00S17705.dsd     +++|          LMN    1R.
28534  M00S17706.dsd     +++|          ZJN    PCL3        IF TERMINATOR
28535  M00S17707.dsd     +++| PCL2     AOD    CA
28536  M00S17708.dsd     +++|          LDI    CA
28537  M00S17709.dsd     +++|          LMN    1R.
28538  M00S17710.dsd     +++|          ZJN    PCL3        IF END OF ENTRY
28539  M00S17711.dsd     +++|          AOD    T2
28540  M00S17712.dsd     +++|          SBN    10
28541  M00S17713.dsd     +++|          NJN    PCL1        IF NOT MAXIMUM PRIORITIES
28542  M00S17714.dsd     +++|          LJM    PCL4        PROCESS INCORRECT ENTRY
28543  M00S17715.dsd     +++|
28544  M00S17716.dsd     +++| PCL3     LDK    JBCP        SET PRIORITY LEVEL SERVICE CLASSES
28545  M00S17717.dsd     +++|          CRD    CM
28546  M00S17718.dsd     +++|          LDD    CM
28547  M00S17719.dsd     +++|          SHN    14
28548  M00S17720.dsd     +++|          ADD    CM+1
28549  M00S17721.dsd     +++|          ADN    PLSC
28550  M00S17722.dsd     +++|          CWD    SR
28551  M00S17723.dsd     +++|          ADN    1
28552  M00S17724.dsd     +++|          CWD    SH
28553  M00S17725.dsd     +++|          JMP    KBR         RETURN
Line S17726 Modification History
M01 (Removed by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28554  M01S17726.dsd90   ---| SOT      SPACE  4,10
28555  M01S17727.dsd90   ---|**        SOT - SEARCH FOR VALID ORIGIN TYPE.
28556  M01S17728.dsd90   ---|*
28557  M01S17729.dsd90   ---|*         ENTRY  ((CA - CA+1)) = ORIGIN TYPE PARAMETER.
28558  M01S17730.dsd90   ---|*
28559  M01S17731.dsd90   ---|*         EXIT   (T2) = ORIGIN TYPE VALUE.
28560  M01S17732.dsd90   ---|*
28561  M01S17733.dsd90   ---|*         ERROR  TO *KBR* IF ORIGIN TYPE INCORRECT.
28562  M01S17734.dsd90   ---|*         ERROR  TO *KIE* IF ORIGIN TYPE INVALID.
28563  M01S17735.dsd90   ---|*
28564  M01S17736.dsd90   ---|*         USES   T1, T2, T3.
28565  M01S17737.dsd90   ---|
28566  M01S17738.dsd90   ---|
28567  M01S17739.dsd90   ---| SOT2     AOD    T1          RETURN ORIGIN TYPE VALUE
28568  M01S17740.dsd90   ---|          LDM    TCOT,T1
28569  M01S17741.dsd90   ---|          STD    T2
28570  M01S17742.dsd90   ---|
28571  M01S17743.dsd90   ---| SOT      SUBR               ENTRY/EXIT
28572  M01S17744.dsd90   ---|          LDN    0           INITIALIZE TABLE INDEX
28573  M01S17745.dsd90   ---|          STD    T1
28574  M01S17746.dsd90   ---|          LDI    CA          ASSEMBLE ORIGIN TYPE
28575  M01S17747.dsd90   ---|          SHN    6
28576  M01S17748.dsd90   ---|          LMM    1,CA
28577  M01S17749.dsd90   ---|          STD    T3
28578  M01S17750.dsd90   ---|          LDM    TCOT,T1     SEARCH TABLE FOR ORIGIN TYPE
28579  M01S17751.dsd90   ---| SOT1     LMD    T3
28580  M01S17752.dsd90   ---|          ZJN    SOT2        IF MATCH FOUND
28581  M01S17753.dsd90   ---|          LDN    2           INCREMENT TABLE INDEX
28582  M01S17754.dsd90   ---|          RAD    T1
28583  M01S17755.dsd90   ---|          LDM    TCOT,T1
28584  M01S17756.dsd90   ---|          NJN    SOT1        IF NOT END OF TABLE
28585  M01S17757.dsd90   ---|          JMP    KIE         PROCESS INVALID ENTRY
28586  M00S17758.dsd     +++| SPT      SPACE  4,10
28587  M00S17759.dsd     +++|**        SPT - SEARCH PARAMETER TABLE.
28588  M00S17760.dsd     +++|*
28589  M00S17761.dsd     +++|*         ENTRY  (A) = FWA OF PARAMETER TABLE.
28590  M00S17762.dsd     +++|*                (CA) = CHARACTER ADDRESS.
28591  M00S17763.dsd     +++|*
28592  M00S17764.dsd     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
28593  M00S17765.dsd     +++|*
28594  M00S17766.dsd     +++|*         USES   T1, T3, T5.
28595  M00S17767.dsd     +++|
28596  M00S17768.dsd     +++|
28597  M00S17769.dsd     +++| SPT2     LDD    T5
28598  M00S17770.dsd     +++|          SBD    T3
28599  M00S17771.dsd     +++|
28600  M00S17772.dsd     +++| SPT      SUBR               ENTRY/EXIT
28601  M00S17773.dsd     +++|          STD    T3
28602  M00S17774.dsd     +++|          STD    T5
28603  M00S17775.dsd     +++|          LDI    CA          ASSEMBLE PARAMETER NAME
28604  M00S17776.dsd     +++|          SHN    6
28605  M00S17777.dsd     +++|          LMM    1,CA
28606  M00S17778.dsd     +++|          STD    T1
28607  M00S17779.dsd     +++|          LDI    T5
28608  M00S17780.dsd     +++| SPT1     LMD    T1
28609  M00S17781.dsd     +++|          ZJN    SPT2        IF MATCH FOUND
28610  M00S17782.dsd     +++|          AOD    T5          INCREMENT TABLE INDEX
28611  M00S17783.dsd     +++|          LDI    T5
28612  M00S17784.dsd     +++|          NJN    SPT1        IF NOT END OF TABLE
28613  M00S17785.dsd     +++|          JMP    KIE         *INCORRECT ENTRY*
Line S00086 Modification History
M01 (Added by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28614  M01S00086.dsd90   +++| TSCM     SPACE  4,10
28615  M01S00087.dsd90   +++|**        TSCM - TABLE OF SERVICE CLASS MASK BITS.
28616  M01S00088.dsd90   +++|*
28617  M01S00089.dsd90   +++|*         THIS TABLE IS INDEXED BY SERVICE CLASS VALUES.
28618  M01S00090.dsd90   +++|*
28619  M01S00091.dsd90   +++|*         ONLY SERVICE CLASSES DEFINED IN THIS TABLE ARE
28620  M01S00092.dsd90   +++|*         ALLOWED ON THE *PCLASS* AND *CLASS* COMMANDS.
28621  M01S00093.dsd90   +++|
28622  M01S00094.dsd90   +++|
28623  M01S00095.dsd90   +++|*CALL     COMSSCD
28624  M01S00096.dsd90   +++|
28625  M01S00097.dsd90   +++| TSCM     INDEX
28626  M01S00098.dsd90   +++|          LIST   D
28627  M01S00099.dsd90   +++| .SCL     HERE
28628  M01S00100.dsd90   +++|          LIST   *
28629  M01S00101.dsd90   +++|          INDEX  MXSC
28630  M01S00102.dsd90   +++| TNSC     SPACE  4,10
28631  M01S00103.dsd90   +++|**        TNSC - TABLE OF TWO-CHARACTER SERVICE CLASS TYPES.
28632  M01S00104.dsd90   +++|
28633  M01S00105.dsd90   +++|
28634  M01S00106.dsd90   +++|          LIST   D,G
28635  M01S00107.dsd90   +++| TNSC     DATA   H+"NMSC"+
28636  M01S00108.dsd90   +++|          LIST   *
28637  M01S00109.dsd90   +++|          CON    0           END OF TABLE
Line S00943 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28638  M01S00943.274l797 +++|          SPACE  4,10
28639  M01S00944.274l797 +++|          CMDEND
Line S00878 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
28640  M01S00878.242l642 +++|          COMMAND (PROCESS THRESHOLDS.)
28641  M01S00879.242l642 +++| THR      SPACE  4,10
28642  M01S00880.242l642 +++|***       THRESHOLD,TH=XXXX,E1,E2,...,EN.
28643  M01S00881.242l642 +++|*
28644  M01S00882.242l642 +++|*         TH  =  VF  -  SET VALIDATION FAILURE THRESHOLD.
28645  M01S00883.242l642 +++|*                RA  -  SET RESTRICTED ACTIVITY THRESHOLD.
28646  M01S00884.242l642 +++|*                LS  -  SET LOW SPACE THRESHOLD.
28647  M01S00885.242l642 +++|*                RE  -  SET RECOVERED ERROR THRESHOLD.
28648  M01S00886.242l642 +++|*                UE  -  SET UNRECOVERED ERROR THRESHOLD.
28649  M01S00887.242l642 +++|*         XXXX = THRESHOLD VALUE.
28650  M01S00888.242l642 +++|*              = * TO SET DEFAULT VALUES.
28651  M01S00889.242l642 +++|*         EN  =  EST ORDINAL ON WHICH TO SET THRESHOLD.
28652  M01S00890.242l642 +++|
28653  M01S00891.242l642 +++|
28654  M01S00892.242l642 +++|          ENTRY  THR
28655  M01S00893.242l642 +++|          LDN    0           CHECK THRESHOLD TYPE
28656  M01S00894.242l642 +++|          STD    T6
28657  M01S00895.242l642 +++|          LDI    CA
28658  M01S00896.242l642 +++|          SHN    6
28659  M01S00897.242l642 +++|          ADM    1,CA
28660  M01S00898.242l642 +++|          STD    T1
28661  M01S00899.242l642 +++|          LDM    TTHR,T6
28662  M01S00900.242l642 +++| THR1     LMD    T1
28663  M01S00901.242l642 +++|          ZJN    THR3        IF MATCH FOUND
28664  M01S00902.242l642 +++|          AOD    T6
28665  M01S00903.242l642 +++|          LDM    TTHR,T6
28666  M01S00904.242l642 +++|          NJN    THR1        IF MORE ENTRIES TO COMPARE
28667  M01S00905.242l642 +++| THR2     JMP    KIE         *INCORRECT ENTRY*
28668  M01S00906.242l642 +++|
28669  M01S00907.242l642 +++| THR3     LDN    2           ADVANCE KEYBOARD INDEX
28670  M01S00908.242l642 +++|          RAD    CA
28671  M01S00909.242l642 +++|          LDI    CA
28672  M01S00910.242l642 +++|          LMN    1R=
28673  M01S00911.242l642 +++|          NJN    THR2        IF INCORRECT SEPARATOR
28674  M01S00912.242l642 +++|          AOD    CA
28675  M01S00913.242l642 +++|          LDI    CA
28676  M01S00914.242l642 +++|          LMN    1R*
28677  M01S00915.242l642 +++|          STD    T7
28678  M01S00916.242l642 +++|          NJN    THR4        IF NOT DEFAULT
28679  M01S00917.242l642 +++|          AOD    CA
28680  M01S00918.242l642 +++|          UJN    THR5        PROCESS EQUIPMENT LIST
28681  M01S00919.242l642 +++|
28682  M01S00920.242l642 +++| THR4     RJM    ASD         GET THRESHOLD VALUE
28683  M01S00921.242l642 +++|          LDD    AB+4
28684  M01S00922.242l642 +++|          LPC    3777
28685  M01S00923.242l642 +++|          STM    TDTV,T6
28686  M01S00924.242l642 +++| THR5     LDI    CA          CHECK SEPARATOR CHARACTER
28687  M01S00925.242l642 +++|          LMN    1R,
28688  M01S00926.242l642 +++|          ZJN    THR7        IF VALID SEPARATOR
28689  M01S00927.242l642 +++| THR6     JMP    KIE         *INCORRECT ENTRY*
28690  M01S00928.242l642 +++|
28691  M01S00929.242l642 +++| THR7     LDN    5
28692  M01S00930.242l642 +++|          SBD    T6
28693  M01S00931.242l642 +++|          SHN    2
28694  M01S00932.242l642 +++|          STD    T0          SET BIT NUMBER OF OPERATOR NOTIFIED FLAG
28695  M01S00933.242l642 +++|          SHN    1
28696  M01S00934.242l642 +++|          ADD    T0
28697  M01S00935.242l642 +++|          SBN    1
28698  M01S00936.242l642 +++|          SHN    6
28699  M01S00937.242l642 +++|          STM    THRA+1
28700  M01S00938.242l642 +++|          LDK    ESTP
28701  M01S00939.242l642 +++|          CRD    T1
28702  M01S00940.242l642 +++| THR8     AOD    CA          GET NEXT EQUIPMENT NUMBER
28703  M01S00941.242l642 +++|          RJM    ASD
28704  M01S00942.242l642 +++|          LDD    AB
28705  M01S00943.242l642 +++|          ADD    AB+1
28706  M01S00944.242l642 +++|          ADD    AB+2
28707  M01S00945.242l642 +++|          ADD    AB+3
28708  M01S00946.242l642 +++|          NJN    THR6        IF ORDINAL IS TOO LARGE
28709  M01S00947.242l642 +++|          LDD    AB+4
28710  M01S00948.242l642 +++|          SBD    T1+3
28711  M01S00949.242l642 +++| THR9     PJN    THR6        IF ORDINAL BEYOND MASS STORAGE LIMIT
28712  M01S00950.242l642 +++|          SFA    EST,AB+4
28713  M01S00951.242l642 +++|          ADK    EQDE
28714  M01S00952.242l642 +++|          CRD    CM
28715  M01S00953.242l642 +++|          LDD    CM
28716  M01S00954.242l642 +++|          SHN    21-13
28717  M01S00955.242l642 +++|          PJN    THR9        IF NOT MASS STORAGE DEVICE
28718  M01S00956.242l642 +++|          LDI    CA
28719  M01S00957.242l642 +++|          LMN    1R.
28720  M01S00958.242l642 +++|          ZJN    THR10       IF VALID TERMINATOR
28721  M01S00959.242l642 +++|          LMN    1R,&1R.
28722  M01S00960.242l642 +++|          NJN    THR9        IF NOT VALID SEPARATOR
28723  M01S00961.242l642 +++| THR10    LDD    CM+4
28724  M01S00962.242l642 +++|          SHN    3
28725  M01S00963.242l642 +++|          ADK    TDGL
28726  M01S00964.242l642 +++|          CRD    SH
28727  M01S00965.242l642 +++|          ADN    THLL-TDGL   READ MST THRESHOLD WORD
28728  M01S00966.242l642 +++|          CRD    SR
28729  M01S00967.242l642 +++|          LDD    T7
28730  M01S00968.242l642 +++|          NJN    THR11       IF NOT ENTERING DEFAULT VALUE
28731  M01S00969.242l642 +++|          LDD    SH
28732  M01S00970.242l642 +++|          SHN    -3
28733  M01S00971.242l642 +++|          STM    TDTV+1      SET DEFAULT VALUES FOR TRACK THRESHOLDS
28734  M01S00972.242l642 +++|          SHN    -1
28735  M01S00973.242l642 +++|          STM    TDTV+2
28736  M01S00974.242l642 +++| THR11    LDM    TDTV,T6     STORE NEW THRESHOLD
28737  M01S00975.242l642 +++|          STM    SR,T6
28738  M01S00976.242l642 +++|          LDD    CM+4        WRITE MST THRESHOLD WORD
28739  M01S00977.242l642 +++|          SHN    3
28740  M01S00978.242l642 +++|          ADN    THLL
28741  M01S00979.242l642 +++|          CWD    SR
28742  M01S00980.242l642 +++|          ADN    CTLL-THLL   CLEAR OPERATOR NOTIFIED FLAG
28743  M01S00981.242l642 +++|          STD    CM+4
28744  M01S00982.242l642 +++|          SHN    -14
28745  M01S00983.242l642 +++|          STD    CM+3
28746  M01S00984.242l642 +++|          LDN    1
28747  M01S00985.242l642 +++|          STD    CM+1
28748  M01S00986.242l642 +++|          LDD    MA
28749  M01S00987.242l642 +++|          CWM    THRA,CM+1
28750  M01S00988.242l642 +++|          MONITOR  UTEM
28751  M01S00989.242l642 +++|          LDI    CA          CHECK NEXT CHARACTER
28752  M01S00990.242l642 +++|          LMN    1R,
28753  M01S00991.242l642 +++|          ZJP    THR8        IF MORE EST ORDINALS
28754  M01S00992.242l642 +++|          JMP    KBR         RETURN
28755  M01S00993.242l642 +++|
28756  M01S00994.242l642 +++|
28757  M01S00995.242l642 +++| THRA     VFD    1/0,5/0,6/1,6/0,42/0
28758  M01S00996.242l642 +++| TTHR     SPACE  4,10
28759  M01S00997.242l642 +++|**        TTHR - TABLE OF THRESHOLDS.
28760  M01S00998.242l642 +++|
28761  M01S00999.242l642 +++|
28762  M01S01000.242l642 +++| TTHR     BSS    0
28763  M01S01001.242l642 +++|
28764  M01S01002.242l642 +++|          LOC    0
28765  M01S01003.242l642 +++|          CON    2RVF        VERIFICATION FAILURES
28766  M01S01004.242l642 +++|          CON    2RRA        RESTRICT ACTIVITY
28767  M01S01005.242l642 +++|          CON    2RLS        LOW SPACE
28768  M01S01006.242l642 +++|          CON    2RRE        RECOVERED ERRORS
28769  M01S01007.242l642 +++|          CON    2RUE        UNRECOVERED ERRORS
28770  M01S01008.242l642 +++|          LOC    *O
28771  M01S01009.242l642 +++|
28772  M01S01010.242l642 +++|          CON    0
28773  M01S01011.242l642 +++|
28774  M01S01012.242l642 +++| TDTV     CON    1           VERIFICATION FAILURES
28775  M01S01013.242l642 +++|          CON    0           RESTRICT ACTIVITY (=SIZE/8)
28776  M01S01014.242l642 +++|          CON    0           LOW SPACE (=SIZE/16)
28777  M01S01015.242l642 +++|          CON    50          RECOVERED ERRORS
28778  M01S01016.242l642 +++|          CON    1           UNRECOVERED ERRORS
Line S00945 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28779  M01S00945.274l797 +++|          SPACE  4,10
28780  M01S00946.274l797 +++|          CMDEND
Line S17786 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28781  M01S17786.251l664 ---|          COMMAND  (SECURITY FUNCTIONS.),CMR
Line S01073 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28782  M01S01073.251l664 +++|          COMMAND  (SECURITY FUNCTIONS - QUEUES.),CMR
28783  M00S17787.dsd     +++| OQSH     SPACE  4,10
28784  M00S17788.dsd     +++|***       OQSH=NNNNNNN.
28785  M00S17789.dsd     +++|*         SELECTS OUTPUT SPECIAL HANDLING LEVEL.
28786  M00S17790.dsd     +++|*         NNNNNNN  OUTPUT QUEUE SPECIAL HANDLING LEVEL.
28787  M00S17791.dsd     +++|
28788  M00S17792.dsd     +++|
28789  M00S17793.dsd     +++|          ENTRY  OQS
28790  M00S17794.dsd     +++|          RJM    ASN         ASSEMBLE PARAMETER
28791  M00S17795.dsd     +++|          LDN    AB          SET POINTER TO PARAMETER
28792  M00S17796.dsd     +++|          RJM    VAL         SEARCH TABLE FOR PARAMETER
28793  M00S17797.dsd     +++|          MJN    OQS1        IF PARAMETER NOT FOUND
28794  M00S17798.dsd     +++|          STD    T3
28795  M00S17799.dsd     +++|          LDN    SSML        CLEAR OQSH
28796  M00S17800.dsd     +++|          CRD    CM
28797  M00S17801.dsd     +++|          LDD    CM
28798  M00S17802.dsd     +++|          SHN    14
28799  M00S17803.dsd     +++|          SCN    77
28800  M00S17804.dsd     +++|          LMD    T3          SET NEW OQSH
28801  M00S17805.dsd     +++|          SHN    6
28802  M00S17806.dsd     +++|          STD    CM
28803  M00S17807.dsd     +++|          LDN    SSML
28804  M00S17808.dsd     +++|          CWD    CM
28805  M00S17809.dsd     +++|          JMP    KBR         RETURN
28806  M00S17810.dsd     +++|
28807  M00S17811.dsd     +++| OQS1     JMP    KIE         INCORRECT ENTRY
28808  M00S17812.dsd     +++| REL      SPACE  4,10
28809  M00S17813.dsd     +++|***       RELEASE,JSN.
28810  M00S17814.dsd     +++|*
28811  M00S17815.dsd     +++|*         SETS THE OPERATOR RELEASE BIT FOR THE QFT ENTRY.
28812  M00S17816.dsd     +++|
28813  M00S17817.dsd     +++|
28814  M00S17818.dsd     +++|          ENTRY  REL
28815  M00S17819.dsd     +++|          RJM    ASN         ASSEMBLE JSN
28816  M00S17820.dsd     +++|          LDD    AB+2
28817  M00S17821.dsd     +++|          NJN    REL3        IF JSN .GT. 4 CHARACTERS
28818  M00S17822.dsd     +++|          STD    T1          INITIALIZE QFT ORDINAL
28819  M00S17823.dsd     +++|          LDK    QFTP        GET MAXIMUM NUMBER OF QFT ENTRIES
28820  M00S17824.dsd     +++|          CRD    CM
28821  M00S17825.dsd     +++|          LDD    CM+2
28822  M00S17826.dsd     +++|          STD    T2
28823  M00S17827.dsd     +++| REL1     SFA    QFT,T1      GET QFT ENTRY
28824  M00S17828.dsd     +++|          CRD    CM
28825  M00S17829.dsd     +++|          LDD    CM          COMPARE JSN TO REQUESTED JSN
28826  M00S17830.dsd     +++|          LMD    AB
28827  M00S17831.dsd     +++|          NJN    REL2        IF NO MATCH
28828  M00S17832.dsd     +++|          LDD    CM+1
28829  M00S17833.dsd     +++|          LMD    AB+1
28830  M00S17834.dsd     +++|          ZJN    REL4        IF MATCH
28831  M00S17835.dsd     +++| REL2     AOD    T1          INCREMENT QFT ORDINAL
28832  M00S17836.dsd     +++|          SBD    T2
28833  M00S17837.dsd     +++|          NJN    REL1        IF MORE ENTRIES TO CHECK
28834  M00S17838.dsd     +++| REL3     JMP    KIE         *INCORRECT ENTRY*
28835  M00S17839.dsd     +++|
28836  M00S17840.dsd     +++| REL4     SFA    QFT,T1      SET UP *UTEM* PARAMETERS
28837  M00S17841.dsd     +++|          STD    CM+4
28838  M00S17842.dsd     +++|          SHN    -14
28839  M00S17843.dsd     +++|          STD    CM+3
28840  M00S17844.dsd     +++|          LDN    0
28841  M00S17845.dsd     +++|          STD    CM+2
28842  M00S17846.dsd     +++|          LDN    1           NUMBER OF REQUESTS TO BE PROCESSED
28843  M00S17847.dsd     +++|          STD    CM+1
28844  M00S17848.dsd     +++|          LDD    MA          WRITE *UTEM* REQUEST WORD
28845  M00S17849.dsd     +++|          CWM    RELA,ON
28846  M00S17850.dsd     +++|          MONITOR  UTEM
28847  M00S17851.dsd     +++|          LDD    CM+1
28848  M00S17852.dsd     +++|          NJN    REL3        IF FUNCTION FAILED
28849  M00S17853.dsd     +++|          LJM    KBR         RETURN
28850  M00S17854.dsd     +++|
28851  M00S17855.dsd     +++| RELA     VFD    1/0,5/INSQ,6/1,6/18D,42/1
28852  M00S17856.dsd     +++|          SPACE  4,10
28853  M00S17857.dsd     +++|*         COMMON DECKS.
28854  M00S17858.dsd     +++|
28855  M00S17859.dsd     +++|
28856  M00S17860.dsd     +++|          QUAL
28857  M00S17861.dsd     +++| SCH$     SET    1
28858  M00S17862.dsd     +++|          QUAL   *
28859  M00S17863.dsd     +++|*CALL     COMPVLC
Line S00947 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
28860  M01S00947.274l797 +++|          SPACE  4,10
28861  M01S00948.274l797 +++|          CMDEND
Line S17864 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28862  M01S17864.251l664 ---|          COMMAND  (SECURITY FUNCTIONS.),CMR
Line S01074 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28863  M01S01074.251l664 +++|          COMMAND  (SECURITY FUNCTIONS - SECUREQ.),CMR
28864  M01S01075.251l664 +++| SECUREQ  SPACE  4,10
28865  M00S17865.dsd     +++|***       SECUREQ,EQ,LA=XXXXXXX,UA=YYYYYYY.
28866  M00S17866.dsd     +++|*
28867  M00S17867.dsd     +++|*         SET EQUIPMENT ACCESS LIMITS.
28868  M00S17868.dsd     +++|*
28869  M00S17869.dsd     +++|*         EQ     EST ORDINAL OF EQUIPMENT.
28870  M00S17870.dsd     +++|*         XXXXXXX  LOWER BOUND.
28871  M00S17871.dsd     +++|*         YYYYYYY  UPPER BOUND.
28872  M00S17872.dsd     +++|
28873  M00S17873.dsd     +++|
28874  M00S17874.dsd     +++|          ENTRY  SCQ
28875  M00S17875.dsd     +++|          LDN    3           RESET BOUNDS FLAG
28876  M00S17876.dsd     +++|          STD    T8
28877  M00S17877.dsd     +++|          RJM    ASD         ASSEMBLE EST ORDINAL
28878  M00S17878.dsd     +++|          LDN    ESTP
28879  M00S17879.dsd     +++|          CRD    SH
28880  M00S17880.dsd     +++|          LDD    AB+4        CHECK EST ORDINAL
28881  M00S17881.dsd     +++|          STD    CM+1
28882  M00S17882.dsd     +++|          SBD    SH+2
28883  M00S17883.dsd     +++|          PJN    SCQ1        IF INCORRECT EST ORDINAL
28884  M00S17884.dsd     +++|          SFA    EST,AB+4    GET EST ENTRY
28885  M00S17885.dsd     +++|          ADK    EQDE
28886  M00S17886.dsd     +++|          CRD    SH
28887  M00S17887.dsd     +++|          LDC    TURE        FWA OF UNIT RECORD EQUIPMENT MNEMONICS
28888  M00S17888.dsd     +++|          STD    T3
28889  M00S17889.dsd     +++|          LDD    SH+3
Line S17890 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28890  M01S17890.252l678 ---|          LPC    3777
28891  M00S17891.dsd     +++|          ZJN    SCQ1        IF NULL ENTRY
28892  M00S17892.dsd     +++|          RJM    SST         CHECK IF UNIT RECORD EQUIPMENT
28893  M00S17893.dsd     +++|          LDI    CA
28894  M00S17894.dsd     +++|          LMN    1R,
28895  M00S17895.dsd     +++|          ZJN    SCQ2        IF SEPARATOR A COMMA
28896  M00S17896.dsd     +++| SCQ1     LJM    KIE         INCORRECT COMMAND
28897  M00S17897.dsd     +++|
28898  M00S17898.dsd     +++| SCQ2     AOD    CA          CHECK PREFIX
28899  M00S17899.dsd     +++|          LDC    TBDP
28900  M00S17900.dsd     +++|          STD    T3
28901  M00S17901.dsd     +++|          LDN    0
28902  M00S17902.dsd     +++|          RJM    SST
28903  M00S17903.dsd     +++|          STD    T5
28904  M00S17904.dsd     +++|          LDN    2
28905  M00S17905.dsd     +++|          RAD    CA
28906  M00S17906.dsd     +++|          LDI    CA          CHECK SEPARATOR
28907  M00S17907.dsd     +++|          LMN    1R=
28908  M00S17908.dsd     +++|          NJN    SCQ1        IF SEPARATOR NOT AN =
28909  M00S17909.dsd     +++|          AOD    CA
28910  M00S17910.dsd     +++|          RJM    ASN         ASSEMBLE PARAMETER
28911  M00S17911.dsd     +++|          LDN    AB          SET POINTER TO PARAMETER
28912  M00S17912.dsd     +++|          RJM    VAL         SEARCH TABLE FOR PARAMETER
28913  M00S17913.dsd     +++|          MJN    SCQ1        IF MATCH NOT FOUND
28914  M00S17914.dsd     +++|          STD    T3
28915  M00S17915.dsd     +++|          LDD    T5
28916  M00S17916.dsd     +++|          ZJN    SCQ3        IF PARAMETER NOT AN UPPER BOUND
28917  M00S17917.dsd     +++|          LDD    T3          SET UPPER BOUND
28918  M00S17918.dsd     +++|          STD    SP+1
28919  M00S17919.dsd     +++|          LDD    T8          UPDATE BOUNDS FLAG
28920  M00S17920.dsd     +++|          SCN    2
28921  M00S17921.dsd     +++|          STD    T8
28922  M00S17922.dsd     +++|          UJN    SCQ4        CHECK FOR ADDITIONAL PARAMETERS
28923  M00S17923.dsd     +++|
28924  M00S17924.dsd     +++| SCQ3     LDD    T3          SET LOWER BOUND
28925  M00S17925.dsd     +++|          STD    SP
28926  M00S17926.dsd     +++|          LDD    T8          UPDATE BOUNDS FLAG
28927  M00S17927.dsd     +++|          SCN    1
28928  M00S17928.dsd     +++|          STD    T8
28929  M00S17929.dsd     +++| SCQ4     LDI    CA
28930  M00S17930.dsd     +++|          LMN    1R.
28931  M00S17931.dsd     +++|          ZJN    SCQ5        IF END OF STATEMENT
28932  M00S17932.dsd     +++|          LJM    SCQ2        PROCESS NEXT PARAMETER
28933  M00S17933.dsd     +++|
28934  M00S17934.dsd     +++| SCQ5     LDD    T8
Line S17935 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28935  M01S17935.252l678 ---|          NJN    SCQ6        IF EITHER LOWER OR UPPER BOUND MISSING
28936  M01S17936.252l678 ---|          LDD    SP+1
Line S00483 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28937  M01S00483.252l678 +++|          ZJN    SCQ7        IF BOTH LOWER AND UPPER BOUNDS PRESENT
28938  M01S00484.252l678 +++| SCQ6     JMP    KIE         INCORRECT PARAMETER
28939  M01S00485.252l678 +++|
28940  M01S00486.252l678 +++| SCQ7     LDD    SP+1
28941  M00S17937.dsd     +++|          SBD    SP
28942  M00S17938.dsd     +++|          MJN    SCQ6        IF LOWER .GT. UPPER BOUND
28943  M00S17939.dsd     +++|          LDD    SP          INSERT LIMITS INTO *SEQM* CALL
28944  M00S17940.dsd     +++|          SHN    3
28945  M00S17941.dsd     +++|          LMD    SP+1
Line S17942 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28946  M01S17942.252l678 ---|          STD    CM+4
28947  M00S17943.dsd     +++|          LMC    4000        SET *MSEQ* ACCOUNT FILE MESSAGE FLAG
28948  M00S17944.dsd     +++|          STD    AB+3
Line S00487 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28949  M01S00487.252l678 +++|          LPN    77
28950  M01S00488.252l678 +++|          STM    SCQA+4
28951  M00S17945.dsd     +++|          LDD    CM+1        SET EST ORDINAL
28952  M00S17946.dsd     +++|          STD    AB+4
Line S17947 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28953  M01S17947.252l678 ---|          LDK    EALS        SET *SEQM* SUBFUNCTION CODE
28954  M01S17948.252l678 ---|          STD    CM+2
28955  M01S17949.252l678 ---|          MONITOR  SEQM      SET LIMITS
Line S00489 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28956  M01S00489.252l678 +++|          SFA    EST         STORE EST ENTRY ADDRESS
28957  M01S00490.252l678 +++|          STD    CM+4
28958  M01S00491.252l678 +++|          SHN    -14
28959  M01S00492.252l678 +++|          STD    CM+3
28960  M01S00493.252l678 +++|          LDN    1           STORE REQUEST COUNT
28961  M01S00494.252l678 +++|          STD    CM+1
28962  M01S00495.252l678 +++|          LDD    MA          PLACE REQUEST IN MESSAGE BUFFER
28963  M01S00496.252l678 +++|          CWM    SCQA,ON
28964  M01S00497.252l678 +++|          MONITOR  UTEM      SET LIMITS IN EST ENTRY
28965  M00S17950.dsd     +++|          LDK    /1DS/SAMF
28966  M00S17951.dsd     +++|          JMP    KAR         PROCESS *1DS* REQUEST
Line S17952 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28967  M01S17952.252l678 ---|
28968  M01S17953.252l678 ---| SCQ6     JMP    KIE         INCORRECT PARAMETER
Line S00498 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28969  M01S00498.252l678 +++|
28970  M01S00499.252l678 +++|
28971  M01S00500.252l678 +++| SCQA     VFD    1/0,5/EQAE,6/6,6/12D,42/0       *UTEM* REQUEST
28972  M00S17954.dsd     +++|          SPACE  4,10
28973  M00S17955.dsd     +++|**        SST - SEARCH STRING TABLE.
28974  M00S17956.dsd     +++|*
28975  M00S17957.dsd     +++|*         ENTRY  (A) = 2 CHARACTERS, RIGHT JUSTIFIED.
28976  M00S17958.dsd     +++|*                    = 0, IF CHARACTERS IN (CA).
28977  M00S17959.dsd     +++|*                (T3) = FWA PARAMETER TABLE.
28978  M00S17960.dsd     +++|*                (CA) = CHARACTER ADDRESS.
28979  M00S17961.dsd     +++|*
28980  M00S17962.dsd     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
28981  M00S17963.dsd     +++|*
28982  M00S17964.dsd     +++|*         USES   T1, T2.
28983  M00S17965.dsd     +++|
28984  M00S17966.dsd     +++|
28985  M00S17967.dsd     +++| SST3     LDD    T2          RETURN WITH INDEX
28986  M00S17968.dsd     +++|          SBD    T3
28987  M00S17969.dsd     +++|
28988  M00S17970.dsd     +++| SST      SUBR               ENTRY/EXIT
28989  M00S17971.dsd     +++|          NJN    SST1        IF CHARACTER IN ACCUMULATOR
28990  M00S17972.dsd     +++|          LDI    CA          ASSEMBLE PARAMETER NAME
28991  M00S17973.dsd     +++|          SHN    6
28992  M00S17974.dsd     +++|          LMM    1,CA
28993  M00S17975.dsd     +++| SST1     STD    T1
28994  M00S17976.dsd     +++|          LDD    T3          SET TABLE FWA
28995  M00S17977.dsd     +++|          STD    T2
28996  M00S17978.dsd     +++|          LDI    T2
28997  M00S17979.dsd     +++| SST2     LMD    T1
28998  M00S17980.dsd     +++|          ZJN    SST3        IF MATCH FOUND
28999  M00S17981.dsd     +++|          AOD    T2          ADVANCE TABLE
29000  M00S17982.dsd     +++|          LDI    T2
29001  M00S17983.dsd     +++|          NJN    SST2        IF NOT END OF TABLE
29002  M00S17984.dsd     +++|          JMP    KIE         *INCORRECT ENTRY*
29003  M00S17985.dsd     +++| TBDP     SPACE  4,10
29004  M00S17986.dsd     +++|**        TBDP - TABLE OF BOUNDS PARAMETERS.
29005  M00S17987.dsd     +++|
29006  M00S17988.dsd     +++|
29007  M00S17989.dsd     +++| TBDP     BSS    0
29008  M00S17990.dsd     +++|          CON    2RLA
29009  M00S17991.dsd     +++|          CON    2RUA
29010  M00S17992.dsd     +++|          CON    0
29011  M00S17993.dsd     +++|          SPACE  4,10
29012  M00S17994.dsd     +++|**        TURE - UNIT RECORD EQUIPMENT MNEMONICS.
29013  M00S17995.dsd     +++|
29014  M00S17996.dsd     +++|
29015  M00S17997.dsd     +++| TURE     BSS    0
29016  M00S17998.dsd     +++|          DATA   2RCP
29017  M00S17999.dsd     +++|          DATA   2RCR
Line S18000 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29018  M01S18000.274l797 ---|          DATA   2RLP
29019  M00S18001.dsd     +++|          DATA   2RLQ
29020  M00S18002.dsd     +++|          DATA   2RLR
29021  M00S18003.dsd     +++|          DATA   2RLS
29022  M00S18004.dsd     +++|          DATA   2RLT
Line S00949 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29023  M01S00949.274l797 +++|          DATA   2RLX
29024  M01S00950.274l797 +++|          DATA   2RLY
29025  M00S18005.dsd     +++|          CON    0
29026  M00S18006.dsd     +++|          SPACE  4,10
29027  M00S18007.dsd     +++|*         COMMON DECKS.
29028  M00S18008.dsd     +++|
29029  M00S18009.dsd     +++|
29030  M00S18010.dsd     +++|          QUAL
29031  M00S18011.dsd     +++| SCH$     SET    1
29032  M00S18012.dsd     +++|          QUAL   *
29033  M00S18013.dsd     +++|*CALL     COMPVLC
Line S00951 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29034  M01S00951.274l797 +++|          SPACE  4,10
29035  M01S00952.274l797 +++|          CMDEND
Line S18014 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29036  M01S18014.251l664 ---|          COMMAND  (SECURITY FUNCTIONS.),CMR
Line S01076 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29037  M01S01076.251l664 +++|          COMMAND  (SECURITY FUNCTIONS - SECURES.),CMR
29038  M00S18015.dsd     +++| SECURES  SPACE  4,10
29039  M00S18016.dsd     +++|***       SECURES,OT,LA=XXXXXXX,UA=YYYYYYY.
29040  M00S18017.dsd     +++|*         SET THE SYSTEM ACCESS LEVEL LIMITS (OT = SY).
29041  M00S18018.dsd     +++|*         SET ORIGIN TYPE ACCESS LEVEL LIMITS (OT = BC, RB, IA).
29042  M00S18019.dsd     +++|*         XXXXXXX  LOWER BOUND.
29043  M00S18020.dsd     +++|*         YYYYYYY  UPPER BOUND.
29044  M00S18021.dsd     +++|
29045  M00S18022.dsd     +++|
29046  M00S18023.dsd     +++|          ENTRY  SCU
29047  M00S18024.dsd     +++|          LDK    INWL        CHECK SYSTEM ACCESS LIMITS CHANGE STATUS
29048  M00S18025.dsd     +++|          CRD    CM
29049  M00S18026.dsd     +++|          LDD    CM+3
29050  M00S18027.dsd     +++|          SHN    21-2
29051  M00S18028.dsd     +++|          MJN    SCU1        IF CHANGE IN PROGRESS
29052  M00S18029.dsd     +++|          LDN    10          SET INITIAL VALUES
29053  M00S18030.dsd     +++|          STD    SP
29054  M00S18031.dsd     +++|          STD    SP+1
29055  M00S18032.dsd     +++|          LDC    TJOT        CHECK ORIGIN TYPE
29056  M00S18033.dsd     +++|          RJM    SPT
29057  M00S18034.dsd     +++|          SHN    -1
29058  M00S18035.dsd     +++|          STD    T5
29059  M00S18036.dsd     +++|          RAM    SCUA
29060  M00S18037.dsd     +++|          LDN    2
29061  M00S18038.dsd     +++|          RAD    CA
29062  M00S18039.dsd     +++|          LDI    CA
29063  M00S18040.dsd     +++|          LMN    1R,
29064  M00S18041.dsd     +++|          ZJN    SCU2        IF SEPARATOR A COMMA
29065  M00S18042.dsd     +++| SCU1     LJM    KIE         INCORRECT COMMAND
29066  M00S18043.dsd     +++|
29067  M00S18044.dsd     +++| SCU2     AOD    CA          CHECK PREFIX
29068  M00S18045.dsd     +++|          LDC    TBDP
29069  M00S18046.dsd     +++|          RJM    SPT
29070  M00S18047.dsd     +++|          STD    T9
29071  M00S18048.dsd     +++|          LDN    2
29072  M00S18049.dsd     +++|          RAD    CA
29073  M00S18050.dsd     +++|          LDI    CA
29074  M00S18051.dsd     +++|          LMN    1R=
29075  M00S18052.dsd     +++|          NJN    SCU1        IF SEPARATOR NOT AN *=*
29076  M00S18053.dsd     +++|          AOD    CA
29077  M00S18054.dsd     +++|          RJM    ASN
29078  M00S18055.dsd     +++|          LDN    AB          SET POINTER TO PARAMETER
29079  M00S18056.dsd     +++|          RJM    VAL         SEARCH TABLE FOR PARAMETER
29080  M00S18057.dsd     +++|          MJN    SCU1        IF PARAMETER NOT FOUND
29081  M00S18058.dsd     +++|          STM    SP,T9       SET BOUND
29082  M00S18059.dsd     +++|          LDI    CA
29083  M00S18060.dsd     +++|          LMN    1R.
29084  M00S18061.dsd     +++|          NJN    SCU2        IF NOT END OF COMMAND
29085  M00S18062.dsd     +++|          STD    T7          ASSUME ONE ORIGIN TYPE TO BE CHANGED
29086  M00S18063.dsd     +++|          LDD    SP+1
29087  M00S18064.dsd     +++|          SBD    SP
29088  M00S18065.dsd     +++|          MJN    SCU6        IF LOWER BOUND .GT. UPPER BOUND
29089  M00S18066.dsd     +++|          LDN    0           GET CURRENT SYSTEM ACCESS LIMITS
29090  M00S18067.dsd     +++|          RJM    RJC
29091  M00S18068.dsd     +++|          CRD    AB
29092  M00S18069.dsd     +++|          LDD    AB+1
29093  M00S18070.dsd     +++|          LPN    77
29094  M00S18071.dsd     +++|          SHN    -3+22
29095  M00S18072.dsd     +++|          STD    T3
29096  M00S18073.dsd     +++|          SHN    -22+3
29097  M00S18074.dsd     +++|          STD    T4
29098  M00S18075.dsd     +++|          LDD    T5
29099  M00S18076.dsd     +++|          LMK    SYOT
29100  M00S18077.dsd     +++|          ZJN    SCU7        IF SYSTEM ORIGIN TYPE
29101  M00S18078.dsd     +++|          LDD    T4
29102  M00S18079.dsd     +++|          SBD    SP+1
29103  M00S18080.dsd     +++|          MJN    SCU6        IF UPPER BOUND .GT. SYSTEM UPPER BOUND
29104  M00S18081.dsd     +++|          LDD    T3
29105  M00S18082.dsd     +++|          SBD    SP
29106  M00S18083.dsd     +++|          MJN    SCU9        IF LOWER BOUND .GE. SYSTEM LOWER BOUND
29107  M00S18084.dsd     +++|          ZJN    SCU9        IF LOWER BOUND .GE. SYSTEM LOWER BOUND
29108  M00S18085.dsd     +++| SCU6     JMP    KIE         INCORRECT PARAMETER
29109  M00S18086.dsd     +++|
29110  M00S18087.dsd     +++| SCU7     LDD    SP          CHECK BOTH *LA* AND *UA* ENTERED
29111  M00S18088.dsd     +++|          SCN    7
29112  M00S18089.dsd     +++|          ADD    SP+1
29113  M00S18090.dsd     +++|          SCN    7
29114  M00S18091.dsd     +++|          NJN    SCU6        IF BOTH PARAMETERS NOT ENTERED
29115  M00S18092.dsd     +++|          LDD    SF
29116  M00S18093.dsd     +++|          ZJN    SCU8        IF UNSECURE SYSTEM
29117  M00S18094.dsd     +++|          SBN    1
29118  M00S18095.dsd     +++|          ZJN    SCU8        IF VALID TO RAISE OR LOWER LIMITS
29119  M00S18096.dsd     +++|          SBN    3-1
29120  M00S18097.dsd     +++|          ZJN    SCU6        IF INCORRECT TO RAISE OR LOWER LIMITS
29121  M00S18098.dsd     +++|          LDD    SP+1
29122  M00S18099.dsd     +++|          SBD    T4
29123  M00S18100.dsd     +++|          MJN    SCU6        IF LOWERING LIMITS
29124  M00S18101.dsd     +++|          LDD    SP
29125  M00S18102.dsd     +++|          SBD    T3
29126  M00S18103.dsd     +++|          MJN    SCU6        IF LOWERING LIMITS
29127  M00S18104.dsd     +++| SCU8     LDN    IAOT        SET TO FIX ALL ORIGIN TYPE BOUNDS
29128  M00S18105.dsd     +++|          STD    T7
29129  M00S18106.dsd     +++| SCU9     LDD    SP
29130  M00S18107.dsd     +++|          SHN    3
29131  M00S18108.dsd     +++|          RAD    SP+1
29132  M00S18109.dsd     +++| SCU10    LDN    0           GET SERVICE CONTROL TABLE ADDRESS
29133  M00S18110.dsd     +++|          RJM    RJC
29134  M00S18111.dsd     +++|          ADD    T5          GET SERVICE CONTROL WORD
29135  M00S18112.dsd     +++|          CRD    AB
29136  M00S18113.dsd     +++|          LDD    AB+1        SET BOUND IN WORD
29137  M00S18114.dsd     +++|          SCN    77
29138  M00S18115.dsd     +++|          LMD    SP+1
29139  M00S18116.dsd     +++|          STD    AB+1
29140  M00S18117.dsd     +++|          LDN    0           GET SERVICE CONTROL TABLE ADDRESS
29141  M00S18118.dsd     +++|          RJM    RJC
29142  M00S18119.dsd     +++|          ADD    T5          WRITE SERVICE CONTROL WORD
29143  M00S18120.dsd     +++|          CWD    AB
29144  M00S18121.dsd     +++|          AOD    T5
29145  M00S18122.dsd     +++|          SOD    T7
29146  M00S18123.dsd     +++|          PJN    SCU10       IF MORE BOUNDS TO SET (OT = *SY* ONLY)
29147  M00S18124.dsd     +++|          LDD    SF
29148  M00S18125.dsd     +++|          ZJN    SCU11       IF UNSECURED SYSTEM
29149  M00S18126.dsd     +++|          LDN    1
29150  M00S18127.dsd     +++|          STD    CM+1        SET OPTION COUNT
29151  M00S18128.dsd     +++|          STD    CM+2        DO NOT DROP PP
29152  M00S18129.dsd     +++|          LDD    MA
29153  M00S18130.dsd     +++|          CWM    SCUB,ON
29154  M00S18131.dsd     +++|          MONITOR  UADM      SET ACCESS LIMITS CHANGED FLAG
29155  M00S18132.dsd     +++| SCU11    LDD    SP+1        NEW ACCESS LEVEL LIMITS
29156  M00S18133.dsd     +++|          STD    AB+3
29157  M00S18134.dsd     +++|          LDN    0           ORIGIN TYPE
29158  M00S18135.dsd     +++| SCUA     EQU    *-1
29159  M00S18136.dsd     +++|          STD    AB+4
29160  M00S18137.dsd     +++|          LDK    /1DS/SAMF
29161  M00S18138.dsd     +++|          JMP    KAR         PROCESS *1DS* REQUEST
29162  M00S18139.dsd     +++|
29163  M00S18140.dsd     +++|
29164  M00S18141.dsd     +++| SCUB     CON    LIOS        INCREMENT BY ONE
29165  M00S18142.dsd     +++|          CON    INWL
29166  M00S18143.dsd     +++|          CON    14D*100+1   BIT ADDRESS AND FIELD WIDTH
29167  M00S18144.dsd     +++|          SPACE  4,10
29168  M00S18145.dsd     +++|**        SPT - SEARCH PARAMETER TABLE.
29169  M00S18146.dsd     +++|*
29170  M00S18147.dsd     +++|*         ENTRY  (A) = FWA PARAMETER TABLE.
29171  M00S18148.dsd     +++|*                (CA) = CHARACTER ADDRESS.
29172  M00S18149.dsd     +++|*
29173  M00S18150.dsd     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
29174  M00S18151.dsd     +++|*
29175  M00S18152.dsd     +++|*         USES   T1, T2, T3.
29176  M00S18153.dsd     +++|
29177  M00S18154.dsd     +++|
29178  M00S18155.dsd     +++| SPT2     LDD    T2          RETURN WITH INDEX
29179  M00S18156.dsd     +++|          SBD    T3
29180  M00S18157.dsd     +++|
29181  M00S18158.dsd     +++| SPT      SUBR               ENTRY/EXIT
29182  M00S18159.dsd     +++|          STD    T2          SET TABLE FWA
29183  M00S18160.dsd     +++|          STD    T3
29184  M00S18161.dsd     +++|          LDI    CA          ASSEMBLE PARAMETER NAME
29185  M00S18162.dsd     +++|          SHN    6
29186  M00S18163.dsd     +++|          LMM    1,CA
29187  M00S18164.dsd     +++|          STD    T1
29188  M00S18165.dsd     +++|          LDI    T2
29189  M00S18166.dsd     +++| SPT1     LMD    T1
29190  M00S18167.dsd     +++|          ZJN    SPT2        IF MATCH FOUND
29191  M00S18168.dsd     +++|          AOD    T2
29192  M00S18169.dsd     +++|          LDI    T2
29193  M00S18170.dsd     +++|          NJN    SPT1        IF NOT END OF TABLE
29194  M00S18171.dsd     +++|          JMP    KIE         *INCORRECT ENTRY*
29195  M00S18172.dsd     +++| TBDP     SPACE  4,10
29196  M00S18173.dsd     +++|**        TBDP - TABLE OF BOUNDS PARAMETERS.
29197  M00S18174.dsd     +++|
29198  M00S18175.dsd     +++|
29199  M00S18176.dsd     +++| TBDP     BSS    0
29200  M00S18177.dsd     +++|          CON    2RLA
29201  M00S18178.dsd     +++|          CON    2RUA
29202  M00S18179.dsd     +++|          CON    0
29203  M00S18180.dsd     +++| TJOT     SPACE  4,10
29204  M00S18181.dsd     +++|**        TJOT - TABLE OF JOB ORIGIN TYPES.
29205  M00S18182.dsd     +++|
29206  M00S18183.dsd     +++| TJOT     BSS    0
29207  M00S18184.dsd     +++|          CON    2RSY,6060
29208  M00S18185.dsd     +++|          CON    2RBC,6060
29209  M00S18186.dsd     +++|          CON    2REI,2RRB
29210  M00S18187.dsd     +++|          CON    2RTX,2RIA
29211  M00S18188.dsd     +++|          CON    0
29212  M00S18189.dsd     +++|          SPACE  4,10
29213  M00S18190.dsd     +++|*         COMMON DECKS.
29214  M00S18191.dsd     +++|
29215  M00S18192.dsd     +++|
29216  M00S18193.dsd     +++|          QUAL
29217  M00S18194.dsd     +++| SCH$     SET    1
29218  M00S18195.dsd     +++|          QUAL   *
29219  M00S18196.dsd     +++|*CALL     COMPVLC
Line S00953 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29220  M01S00953.274l797 +++|          SPACE  4,10
29221  M01S00954.274l797 +++|          CMDEND
Line S00893 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
29222  M01S00893.271l716 +++|          COMMAND (TRAP/TRACE COMMANDS - PART 1.),CMR
29223  M01S00894.271l716 +++|          SPACE  4,10
29224  M01S00895.271l716 +++|***       THIS COMMAND OVERLAY WORKS IN CONJUNCTION WITH THE *TRACE*
29225  M01S00896.271l716 +++|*         BLOCK IN *CPUMTR*.  THE TRAP AND TRACE COMMANDS ARE AVAILABLE
29226  M01S00897.271l716 +++|*         WHEN THE *TRACE* BLOCK IS ENABLED AT DEADSTART AND WHEN
29227  M01S00898.271l716 +++|*         SYSTEM DEBUG IS ENABLED.
29228  M01S00899.271l716 +++| TPF      SPACE  4,10
29229  M01S00900.271l716 +++|***       TRAP,NFL.
29230  M01S00901.271l716 +++|*         TRAP,MCT.
29231  M01S00902.271l716 +++|*         TRAP,EJT.
29232  M01S00903.271l716 +++|*         TRAP,DJB.
29233  M01S00904.271l716 +++|*
29234  M01S00905.271l716 +++|*         CHECK FOR IRREGULARITIES IN NFL, THE MEMORY CONTROL TABLE
29235  M01S00906.271l716 +++|*         (MCT), IN THE EJT AND PCPA ENTRIES, OR FOR DEAD JOBS,
29236  M01S00907.271l716 +++|*         RESPECTIVELY.  THE CHECK IS MADE IN *CPUMTR* WHEN EXITING
29237  M01S00908.271l716 +++|*         MONITOR MODE.
29238  M01S00909.271l716 +++|
29239  M01S00910.271l716 +++|***       TRAP,MEM,W,V,H,L.
29240  M01S00911.271l716 +++|*         TRAP,CPA,W,V,H,L.
29241  M01S00912.271l716 +++|*
29242  M01S00913.271l716 +++|*         SET A TRAP ON THE CM WORD WITH ABSOLUTE ADDRESS (*TRAP,MEM*)
29243  M01S00914.271l716 +++|*         OR CPA ADDRESS (*TRAP,CPA*) W FOR VALUE V.  H AND L
29244  M01S00915.271l716 +++|*         (OPTIONAL - DEFAULTS ARE 59 AND 0) ARE THE HIGH AND LOW BIT
29245  M01S00916.271l716 +++|*         POSITIONS, IN DECIMAL, OF THE FIELD IN THE WORD TO CHECK.
29246  M01S00917.271l716 +++|*         IF V IS *N*, THE TRAP IS FOR ANY NON-ZERO VALUE IN THE FIELD.
29247  M01S00918.271l716 +++|*         THE TRAP CHECK IS MADE IN *CPUMTR* WHEN EXITING MONITOR MODE.
29248  M01S00919.271l716 +++|*         FOR *TRAP,CPA*, ALL OF THE CPA-S AND PCPA-S ARE CHECKED FOR
29249  M01S00920.271l716 +++|*         WORD W HAVING VALUE V.
29250  M01S00921.271l716 +++|
29251  M01S00922.271l716 +++|***       TRAP.
29252  M01S00923.271l716 +++|*
29253  M01S00924.271l716 +++|*         CLEAR TRAP.
29254  M01S00925.271l716 +++|
29255  M01S00926.271l716 +++|***       TRACE,SET,ABS,ADD1,ADD2.
29256  M01S00927.271l716 +++|*         TRACE,SET,CPA,ADD1,ADD2.
29257  M01S00928.271l716 +++|*
29258  M01S00929.271l716 +++|*         SET THE ADDRESSES OF THE ABSOLUTE OR CPA WORDS TO CAPTURE
29259  M01S00930.271l716 +++|*         WHEN TRACE IS ENABLED.  ADD1 AND ADD2 MUST BE ENTERED AS
29260  M01S00931.271l716 +++|*         OCTAL DIGITS.  *TRACE,MTR* OR *TRACE,PPU* ARE USED TO SELECT
29261  M01S00932.271l716 +++|*         THE FUNCTIONS TO TRACE.  TRACE DATA IS COLLECTED BY *CPUMTR*
29262  M01S00933.271l716 +++|*         IMMEDIATELY BEFORE THE SELECTED FUNCTION IS PROCESSED.
29263  M01S00934.271l716 +++|
29264  M01S00935.271l716 +++|
29265  M01S00936.271l716 +++|          ENTRY  TCA         *TRACE,SET,ABS*
29266  M01S00937.271l716 +++|          LDN    2           ASSEMBLE ABSOLUTE ADDRESS
29267  M01S00938.271l716 +++|          UJN    TCC1        CONTINUE
29268  M01S00939.271l716 +++|
29269  M01S00940.271l716 +++|          ENTRY  TCC         *TRACE,SET,CPA*
29270  M01S00941.271l716 +++|          LDN    1
29271  M01S00942.271l716 +++| TCC1     STD    T8
29272  M01S00943.271l716 +++|          LDC    KBUF+16
29273  M01S00944.271l716 +++|          STD    CA
29274  M01S00945.271l716 +++|          RJM    AVA         ASSEMBLE FIRST ADDRESS
29275  M01S00946.271l716 +++|          LDD    MA          SAVE ADDRESS
29276  M01S00947.271l716 +++|          CWD    AB
29277  M01S00948.271l716 +++|          CRD    CM
29278  M01S00949.271l716 +++|          AOD    CA
29279  M01S00950.271l716 +++|          RJM    AVA         ASSEMBLE SECOND ADDRESS
29280  M01S00951.271l716 +++|          LDD    MA
29281  M01S00952.271l716 +++|          CWD    AB
29282  M01S00953.271l716 +++|          CRD    CM-2
29283  M01S00954.271l716 +++|          CWD    CM
29284  M01S00955.271l716 +++|          LDD    T8
29285  M01S00956.271l716 +++|          SHN    1
29286  M01S00957.271l716 +++|          UJN    TPF2        SEND MONITOR FUNCTION
29287  M01S00958.271l716 +++|
29288  M01S00959.271l716 +++|          ENTRY  TPN
29289  M01S00960.271l716 +++|          LDN    10
29290  M01S00961.271l716 +++|          UJN    TPF1        SET NFL CHECK
29291  M01S00962.271l716 +++|
29292  M01S00963.271l716 +++|          ENTRY  TPM
29293  M01S00964.271l716 +++|          LDN    4
29294  M01S00965.271l716 +++|          UJN    TPF1        SET MCT CHECK
29295  M01S00966.271l716 +++|
29296  M01S00967.271l716 +++|          ENTRY  TPD
29297  M01S00968.271l716 +++|          LDN    2
29298  M01S00969.271l716 +++|          UJN    TPF1        SET DEAD JOB CHECK
29299  M01S00970.271l716 +++|
29300  M01S00971.271l716 +++|          ENTRY  TPJ
29301  M01S00972.271l716 +++|          LDN    1
29302  M01S00973.271l716 +++|          UJN    TPF1        SET EJT/PCPA CHECK
29303  M01S00974.271l716 +++|
29304  M01S00975.271l716 +++|          ENTRY  TPA
29305  M01S00976.271l716 +++|          LDN    0           CLEAR TRAP
29306  M01S00977.271l716 +++| TPF1     SHN    6
29307  M01S00978.271l716 +++| TPF2     STD    CM+1        SET/CLEAR TRAP/TRACE FLAGS
29308  M01S00979.271l716 +++|          LJM    TPF8        SEND MONITOR FUNCTION
29309  M01S00980.271l716 +++|
29310  M01S00981.271l716 +++|          ENTRY  TPC
29311  M01S00982.271l716 +++|          LDN    1
29312  M01S00983.271l716 +++|          UJN    TPF3        SET CPA TRAP
29313  M01S00984.271l716 +++|
29314  M01S00985.271l716 +++|          ENTRY  TPF
29315  M01S00986.271l716 +++|          LDN    2           SET CM TRAP
29316  M01S00987.271l716 +++| TPF3     STD    T8
29317  M01S00988.271l716 +++|          LDC    KBUF+11
29318  M01S00989.271l716 +++|          STD    CA
29319  M01S00990.271l716 +++|          RJM    AVA         ASSEMBLE AND VALIDATE ADDRESS
29320  M01S00991.271l716 +++|          LDD    MA          SAVE ADDRESS FOR MONITOR FUNCTION
29321  M01S00992.271l716 +++|          CWD    AB
29322  M01S00993.271l716 +++|          CRD    CM
29323  M01S00994.271l716 +++|          AOD    CA          ASSEMBLE VALUE
29324  M01S00995.271l716 +++|          RJM    ASD
29325  M01S00996.271l716 +++|*         LDI    CA
29326  M01S00997.271l716 +++|          LMN    1RN
29327  M01S00998.271l716 +++|          NJN    TPF4        IF NOT *N*
29328  M01S00999.271l716 +++|          AOD    CA          ADVANCE PAST *N*
29329  M01S01000.271l716 +++|          LDN    40          SET TRAP-ON-ANY-NON-ZERO-VALUE FLAG
29330  M01S01001.271l716 +++|          STD    CM+1
29331  M01S01002.271l716 +++|          LDK    ZERL        ENSURE MB+1 CLEAR
29332  M01S01003.271l716 +++|          CRD    AB
29333  M01S01004.271l716 +++| TPF4     LDD    MA          SAVE VALUE IN MB+1
29334  M01S01005.271l716 +++|          ADN    1
29335  M01S01006.271l716 +++|          CWD    AB
29336  M01S01007.271l716 +++|          LDK    ZERL        PRESET FIELD DELIMITER WORD
29337  M01S01008.271l716 +++|          CRD    AB
29338  M01S01009.271l716 +++|          LDN    59D
29339  M01S01010.271l716 +++|          STD    AB+2
29340  M01S01011.271l716 +++|          LDI    CA
29341  M01S01012.271l716 +++|          LMN    1R.
29342  M01S01013.271l716 +++|          ZJN    TPF7        IF TRAP ON WHOLE WORD
29343  M01S01014.271l716 +++|          RJM    ADD         ASSEMBLE HIGH BIT
29344  M01S01015.271l716 +++|          STD    T7          SAVE HIGH BIT
29345  M01S01016.271l716 +++|          SBN    60D
29346  M01S01017.271l716 +++|          MJN    TPF6        IF HIGH BIT .LT. 60D
29347  M01S01018.271l716 +++| TPF5     JMP    KIE         *INCORRECT ENTRY.*
29348  M01S01019.271l716 +++|
29349  M01S01020.271l716 +++| TPF6     RJM    ADD         ASSEMBLE LOW BIT
29350  M01S01021.271l716 +++|          STD    AB+4        SAVE LOW BIT
29351  M01S01022.271l716 +++|          LDD    T7
29352  M01S01023.271l716 +++|          SBD    T1
29353  M01S01024.271l716 +++|          MJN    TPF5        IF LOW .GT. HIGH
29354  M01S01025.271l716 +++|          STD    AB+2        SAVE DIFFERENCE
29355  M01S01026.271l716 +++| TPF7     LDD    MA          SAVE FIELD DELIMITERS IN MB+0
29356  M01S01027.271l716 +++|          CWD    AB
29357  M01S01028.271l716 +++|          LDD    T8          SET TRAP TYPE
29358  M01S01029.271l716 +++|          SHN    12
29359  M01S01030.271l716 +++|          RAD    CM+1
29360  M01S01031.271l716 +++| TPF8     MONITOR TRCM       SEND MONITOR FUNCTION
29361  M01S01032.271l716 +++|          JMP    KBR         RETURN
29362  M01S01033.271l716 +++| ADD      SPACE  4,10
29363  M01S01034.271l716 +++|**        ADD - ASSEMBLE TWO DECIMAL DIGITS.
29364  M01S01035.271l716 +++|*
29365  M01S01036.271l716 +++|*         EXIT   (A) = (T1) = ASSEMBLED DIGIT(S).
29366  M01S01037.271l716 +++|*                TO *KIE* IF ASSEMBLY ERROR.
29367  M01S01038.271l716 +++|*
29368  M01S01039.271l716 +++|*         USES   T1 - T3.
29369  M01S01040.271l716 +++|
29370  M01S01041.271l716 +++|
29371  M01S01042.271l716 +++| ADD2     JMP    KIE         *INCORRECT ENTRY.*
29372  M01S01043.271l716 +++|
29373  M01S01044.271l716 +++| ADD3     LDD    T1          RETURN ASSEMBLED DIGIT(S)
29374  M01S01045.271l716 +++|
29375  M01S01046.271l716 +++| ADD      SUBR               ENTRY/EXIT
29376  M01S01047.271l716 +++|          LDN    0
29377  M01S01048.271l716 +++|          STD    T1          ASSEMBLED DIGITS
29378  M01S01049.271l716 +++|          STD    T2          DIGIT COUNTER
29379  M01S01050.271l716 +++| ADD1     AOD    CA          ADVANCE CHARACTER
29380  M01S01051.271l716 +++|          LDI    CA
29381  M01S01052.271l716 +++|          ZJN    ADD3        IF END OF STRING
29382  M01S01053.271l716 +++|          SBN    1R9+1
29383  M01S01054.271l716 +++|          PJN    ADD3        IF SEPARATOR
29384  M01S01055.271l716 +++|          ADN    1R9+1-1R0
29385  M01S01056.271l716 +++|          MJN    ADD2        IF LETTER
29386  M01S01057.271l716 +++|          STD    T3          SAVE DIGIT
29387  M01S01058.271l716 +++|          AOD    T2
29388  M01S01059.271l716 +++|          SBN    3
29389  M01S01060.271l716 +++|          PJN    ADD2        IF MORE THAN TWO DIGITS
29390  M01S01061.271l716 +++|          LDD    T1          MULTIPLY TOP DIGIT BY 10D
29391  M01S01062.271l716 +++|          SHN    2
29392  M01S01063.271l716 +++|          RAD    T1
29393  M01S01064.271l716 +++|          SHN    1
29394  M01S01065.271l716 +++|          ADD    T3          ADD SECOND DIGIT
29395  M01S01066.271l716 +++|          STD    T1
29396  M01S01067.271l716 +++|          UJN    ADD1        CHECK NEXT DIGIT
29397  M01S01068.271l716 +++| AVA      SPACE  4,10
29398  M01S01069.271l716 +++|**        AVA - ASSEMBLE AND VALIDATE ADDRESS.
29399  M01S01070.271l716 +++|*
29400  M01S01071.271l716 +++|*         ENTRY  (T8) = 2 IF VALIDATE ABSOLUTE ADDRESS.
29401  M01S01072.271l716 +++|*                     = 1 IF VALIDATE CPA ADDRESS.
29402  M01S01073.271l716 +++|*                (CA) POSITIONED TO FIRST DIGIT.
29403  M01S01074.271l716 +++|*
29404  M01S01075.271l716 +++|*         EXIT   (AB+3 - AB+4) = ASSEMBLED ADDRESS.
29405  M01S01076.271l716 +++|*                (CA) ADVANCED TO SEPARATOR.
29406  M01S01077.271l716 +++|*                TO *KIE* IF ADDRESS OUT OF RANGE.
29407  M01S01078.271l716 +++|*
29408  M01S01079.271l716 +++|*         USES   T1 - T1+4.
29409  M01S01080.271l716 +++|
29410  M01S01081.271l716 +++|
29411  M01S01082.271l716 +++| AVA1     JMP    KIE         *INCORRECT ENTRY.*
29412  M01S01083.271l716 +++|
29413  M01S01084.271l716 +++| AVA2     LDD    AB+3
29414  M01S01085.271l716 +++|          NJN    AVA1        IF ADDRESS TOO BIG
29415  M01S01086.271l716 +++|          LDD    AB+4
29416  M01S01087.271l716 +++|          SBK    CPAS
29417  M01S01088.271l716 +++| AVA3     PJN    AVA1        IF ADDRESS OUT OF RANGE
29418  M01S01089.271l716 +++|
29419  M01S01090.271l716 +++| AVA      SUBR               ENTRY/EXIT
29420  M01S01091.271l716 +++|          RJM    ASD
29421  M01S01092.271l716 +++|          LDD    AB
29422  M01S01093.271l716 +++|          ADD    AB+1
29423  M01S01094.271l716 +++|          ADD    AB+2
29424  M01S01095.271l716 +++|          NJN    AVA1        IF OVER EIGHT DIGITS
29425  M01S01096.271l716 +++|          LDD    T8
29426  M01S01097.271l716 +++|          LMN    2
29427  M01S01098.271l716 +++|          NJN    AVA2        IF NOT VALIDATING ABSOLUTE ADDRESS
29428  M01S01099.271l716 +++|          LDK    MABL        CHECK ADDRESS AGAINST CM FL
29429  M01S01100.271l716 +++|          CRD    T1
29430  M01S01101.271l716 +++|          LDD    AB+4
29431  M01S01102.271l716 +++|          SHN    -6
29432  M01S01103.271l716 +++|          SHN    14
29433  M01S01104.271l716 +++|          LMD    AB+3
29434  M01S01105.271l716 +++|          SHN    6
29435  M01S01106.271l716 +++|          SBD    T1+3
29436  M01S01107.271l716 +++|          SHN    6
29437  M01S01108.271l716 +++|          SBD    T1+2
29438  M01S01109.271l716 +++|          SHN    14
29439  M01S01110.271l716 +++|          UJN    AVA3        CHECK IF ADDRESS TOO BIG
Line S00955 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29440  M01S00955.274l797 +++|          SPACE  4,10
29441  M01S00956.274l797 +++|          CMDEND
Line S01111 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
29442  M01S01111.271l716 +++|          COMMAND (TRAP/TRACE COMMANDS - PART 2.),CMR
29443  M01S01112.271l716 +++|          SPACE  4,10
29444  M01S01113.271l716 +++|***       THIS COMMAND OVERLAY WORKS IN CONJUNCTION WITH THE *TRACE*
29445  M01S01114.271l716 +++|*         BLOCK IN *CPUMTR*.  THE TRAP AND TRACE COMMANDS ARE AVAILABLE
29446  M01S01115.271l716 +++|*         WHEN THE *TRACE* BLOCK IS ENABLED AT DEADSTART AND WHEN
29447  M01S01116.271l716 +++|*         SYSTEM DEBUG IS ENABLED.
29448  M01S01117.271l716 +++| TRA      SPACE  4,10
29449  M01S01118.271l716 +++|***       TRACE,PPU,FCN1,FCN2,FCN3,FCN4,FCN5.
29450  M01S01119.271l716 +++|*
29451  M01S01120.271l716 +++|*         TRACE THE SPECIFIED MONITOR FUNCTIONS.  UP TO FIVE FUNCTIONS
29452  M01S01121.271l716 +++|*         MAY BE SELECTED.  *MTR* MONITOR FUNCTIONS MAY NOT BE
29453  M01S01122.271l716 +++|*         SELECTED.  TRACE DATA IS COLLECTED BY *CPUMTR* IMMEDIATELY
29454  M01S01123.271l716 +++|*         BEFORE THE SELECTED FUNCTION IS PROCESSED.  EACH TRACE BUFFER
29455  M01S01124.271l716 +++|*         ENTRY CONSISTS OF THE FOLLOWING WORDS:
29456  M01S01125.271l716 +++|*
29457  M01S01126.271l716 +++|*                TIME STAMP
29458  M01S01127.271l716 +++|*                IR
29459  M01S01128.271l716 +++|*                OR
29460  M01S01129.271l716 +++|*                MB
29461  M01S01130.271l716 +++|*                ABS1        (DEFAULT = SMRL)
29462  M01S01131.271l716 +++|*                ABS2        (DEFAULT = CMCL)
29463  M01S01132.271l716 +++|*
29464  M01S01133.271l716 +++|*         THE FORMAT OF THE TIME STAMP WORD IS:  +***DHMSLLL+ WHERE
29465  M01S01134.271l716 +++|*         DHMS IS BITS 23-0 OF PDTL AND LLL IS BITS 17-0 OF RTCL.
29466  M01S01135.271l716 +++|*
29467  M01S01136.271l716 +++|*         WORDS ABS1 AND ABS2 CAN BE CHANGED BY THE *TRACE,SET,ABS*
29468  M01S01137.271l716 +++|*         COMMAND.
29469  M01S01138.271l716 +++|
29470  M01S01139.271l716 +++|***       TRACE,MTR,FCN1,FCN2,FCN3,FCN4,FCN5.
29471  M01S01140.271l716 +++|*
29472  M01S01141.271l716 +++|*         TRACE THE SPECIFIED MTR REQUESTS TO CPUMTR.  UP TO FIVE
29473  M01S01142.271l716 +++|*         REQUESTS MAYBE SELECTED.  TRACE DATA IS COLLECTED BY *CPUMTR*
29474  M01S01143.271l716 +++|*         IMMEDIATELY BEFORE THE SELECTED FUNCTION IS PROCESSED.  EACH
29475  M01S01144.271l716 +++|*         TRACE BUFFER ENTRY CONSISTS OF THE FOLLOWING WORDS:
29476  M01S01145.271l716 +++|*
29477  M01S01146.271l716 +++|*                TIME STAMP
29478  M01S01147.271l716 +++|*                REQUEST
29479  M01S01148.271l716 +++|*                ABS1        (DEFAULT = SMRL)
29480  M01S01149.271l716 +++|*                ABS2        (DEFAULT = CMCL)
29481  M01S01150.271l716 +++|*                *MCT*
29482  M01S01151.271l716 +++|*
29483  M01S01152.271l716 +++|*         *MCT* EXPANDS TO THE FOLLOWING:
29484  M01S01153.271l716 +++|*                MCT WORD 1
29485  M01S01154.271l716 +++|*                MCT WORD 2
29486  M01S01155.271l716 +++|*                CPA1        (DEFAULT = STSW)
29487  M01S01156.271l716 +++|*                CPA2        (DEFAULT = FLSW)
29488  M01S01157.271l716 +++|*                TFSW
29489  M01S01158.271l716 +++|*                JSNE
29490  M01S01159.271l716 +++|*         ONE FOR EACH ENTRY IN THE MEMORY CONTROL TABLE (MCT).
29491  M01S01160.271l716 +++|*
29492  M01S01161.271l716 +++|*         WORDS CPA1 AND CPA2 CAN BE CHANGED BY THE *TRACE,SET,CPA*
29493  M01S01162.271l716 +++|*         COMMAND.
29494  M01S01163.271l716 +++|
29495  M01S01164.271l716 +++|***       TRACE,PPU,*.
29496  M01S01165.271l716 +++|*         TRACE,MTR,*.
29497  M01S01166.271l716 +++|*
29498  M01S01167.271l716 +++|*         TRACE ALL PPU OR MTR FUNCTIONS.
29499  M01S01168.271l716 +++|
29500  M01S01169.271l716 +++|***       TRACE,PPU.
29501  M01S01170.271l716 +++|*         TRACE,MTR.
29502  M01S01171.271l716 +++|*
29503  M01S01172.271l716 +++|*         CLEAR PPU OR MTR TRACE.
29504  M01S01173.271l716 +++|
29505  M01S01174.271l716 +++|
29506  M01S01175.271l716 +++|          ENTRY  TCM
29507  M01S01176.271l716 +++|          LDN    20          SET TRACE ON PPU FUNCTIONS
29508  M01S01177.271l716 +++|          STD    CM+1
29509  M01S01178.271l716 +++|          LDN    MXPF        SET MAXIMUM REQUEST ORDINAL
29510  M01S01179.271l716 +++|          STD    T5
29511  M01S01180.271l716 +++|          LDC    TFTN+MXFM-CPUM-1
29512  M01S01181.271l716 +++|          STM    TRAA
29513  M01S01182.271l716 +++|          LDN    0           SET NO BIAS
29514  M01S01183.271l716 +++|          UJN    TRA1        ENTER LOOP
29515  M01S01184.271l716 +++|
29516  M01S01185.271l716 +++|          ENTRY  TCP
29517  M01S01186.271l716 +++|          LDN    10          SET TRACE ON MTR FUNCTIONS
29518  M01S01187.271l716 +++|          STD    CM+1
Line S01188 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
29519  M02S01188.271l750 ---|          LDN    MXFM-CPUM+1 SET MAXIMUM REQUEST ORDINAL
Line S00130 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
29520  M01S00130.271l750 +++|          LDK    MXFM-CPUM+1 SET MAXIMUM REQUEST ORDINAL
Line S01189 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
29521  M01S01189.271l716 +++|          STD    T5
29522  M01S01190.271l716 +++|          LDN    CPUM-1      PPU REQUEST BIAS
29523  M01S01191.271l716 +++| TRA1     STD    T4
29524  M01S01192.271l716 +++|          LDK    ZERL        CLEAR FUNCTION LIST
29525  M01S01193.271l716 +++|          CRD    SR
29526  M01S01194.271l716 +++|          LDC    KBUF+11
29527  M01S01195.271l716 +++|          STD    CA
29528  M01S01196.271l716 +++|          LDN    5           INITIALIZE BYTE POINTER
29529  M01S01197.271l716 +++|          STD    T3
29530  M01S01198.271l716 +++| TRA2     LDI    CA
29531  M01S01199.271l716 +++|          LMN    1R.
29532  M01S01200.271l716 +++|          NJN    TRA4        IF NOT END OF COMMAND
29533  M01S01201.271l716 +++| TRA3     LDD    MA          WRITE PARAMETER WORD TO MESSAGE BUFFER
29534  M01S01202.271l716 +++|          CWD    SR
29535  M01S01203.271l716 +++|          MONITOR TRCM
29536  M01S01204.271l716 +++|          JMP    KBR         RETURN
29537  M01S01205.271l716 +++|
29538  M01S01206.271l716 +++| TRA4     SOD    T3
29539  M01S01207.271l716 +++|          PJN    TRA6        IF .LE. 5 FUNCTIONS REQUESTED
29540  M01S01208.271l716 +++| TRA5     JMP    KIE         *INCORRECT ENTRY.*
29541  M01S01209.271l716 +++|
29542  M01S01210.271l716 +++| TRA6     AOD    CA          SKIP SEPERATOR
29543  M01S01211.271l716 +++|          RJM    ASN         ASSEMBLE FUNCTION NAME
29544  M01S01212.271l716 +++|          LDI    CA
29545  M01S01213.271l716 +++|          LMN    1R*
29546  M01S01214.271l716 +++|          NJN    TRA7        IF NOT TRACING ALL FUNCTIONS
29547  M01S01215.271l716 +++|          LDC    1S11        SET TRACE ON ALL FUNCTIONS
29548  M01S01216.271l716 +++|          STD    SR
29549  M01S01217.271l716 +++|          UJN    TRA3        WRITE PARAMETER WORD
29550  M01S01218.271l716 +++|
29551  M01S01219.271l716 +++| TRA7     LDD    AB+2
29552  M01S01220.271l716 +++|          NJN    TRA5        IF OVER 4 CHARACTERS
29553  M01S01221.271l716 +++|          STD    T2          INITIALIZE ORDINAL
29554  M01S01222.271l716 +++|          LDD    AB+1        HASH FUNCTION
29555  M01S01223.271l716 +++|          SHN    -11
29556  M01S01224.271l716 +++|          STD    T1
29557  M01S01225.271l716 +++|          LDD    AB
29558  M01S01226.271l716 +++|          LPN    37
29559  M01S01227.271l716 +++|          SHN    2
29560  M01S01228.271l716 +++|          RAD    T1
29561  M01S01229.271l716 +++|          LDD    AB
29562  M01S01230.271l716 +++|          SHN    -6
29563  M01S01231.271l716 +++|          SHN    7
29564  M01S01232.271l716 +++|          RAD    T1
29565  M01S01233.271l716 +++| TRA8     AOD    T2
29566  M01S01234.271l716 +++|          SBD    T5
29567  M01S01235.271l716 +++|          ZJN    TRA5        IF END OF TABLE AND NO MATCH
29568  M01S01236.271l716 +++|          LDM    TFTN-1,T2
29569  M01S01237.271l716 +++|*         LDM    TFTN+MXFM-CPUM-1,T2  (TRACE,MTR)
29570  M01S01238.271l716 +++| TRAA     EQU    *-1
29571  M01S01239.271l716 +++|          LMD    T1
29572  M01S01240.271l716 +++|          NJN    TRA8        IF NO MATCH
29573  M01S01241.271l716 +++|          LDD    T2
29574  M01S01242.271l716 +++|          ADD    T4          ADD BIAS
29575  M01S01243.271l716 +++|          STM    SR,T3       SAVE FUNCTION NUMBER
29576  M01S01244.271l716 +++|          JMP    TRA2        CHECK NEXT FUNCTION
29577  M01S01245.271l716 +++|
29578  M01S01246.271l716 +++|
29579  M01S01247.271l716 +++| MNF$     EQU    1           SET NON-STANDARD *MNF* FOR *COMDTFN*
29580  M01S01248.271l716 +++| MTF$     EQU    1           ASSEMBLE MTR FUNCTIONS
29581  M01S01249.271l716 +++| MNF      SPACE  4,10
29582  M01S01250.271l716 +++|**        MNF - PP REQUEST HASHING MACRO.
29583  M01S01251.271l716 +++|
29584  M01S01252.271l716 +++|          PURGMAC MNF
29585  M01S01253.271l716 +++|
29586  M01S01254.271l716 +++| MNF      MACRO  MF
29587  M01S01255.271l716 +++|          NOREF  .1,.A,.B,.C,.D
29588  M01S01256.271l716 +++| .1       IFGE   MF,CPUM
29589  M01S01257.271l716 +++| .A       MICRO  1,1,/MF/
29590  M01S01258.271l716 +++| .B       MICRO  2,1,/MF/
29591  M01S01259.271l716 +++| .C       MICRO  3,1,/MF/
29592  M01S01260.271l716 +++| .A       SET    1R".A"
29593  M01S01261.271l716 +++| .B       SET    1R".B"
29594  M01S01262.271l716 +++| .C       SET    1R".C"
29595  M01S01263.271l716 +++| .C       SET    .C/10B
29596  M01S01264.271l716 +++|          ORG    TFTN+MF-CPUM
29597  M01S01265.271l716 +++|          LOC    MF
29598  M01S01266.271l716 +++|          VFD    5/.A,5/.B,2/.C
29599  M01S01267.271l716 +++| .D       SET    .A*200B+.B*4+.C
29600  M01S01268.271l716 +++| .D       OCTMIC .D
29601  M01S01269.271l716 +++| X".D"    EQU    0
29602  M01S01270.271l716 +++| .1       ENDIF
29603  M01S01271.271l716 +++|          ENDM
29604  M01S01272.271l716 +++| MTF      SPACE  4,10
29605  M01S01273.271l716 +++|**        MTF - MONITOR REQUEST HASHING MACRO.
29606  M01S01274.271l716 +++|
29607  M01S01275.271l716 +++|          PURGMAC MTF
29608  M01S01276.271l716 +++|
29609  M01S01277.271l716 +++| MTF      MACRO  MF
29610  M01S01278.271l716 +++|          NOREF  .A,.B,.C,.D
29611  M01S01279.271l716 +++| .A       MICRO  1,1,/MF/
29612  M01S01280.271l716 +++| .B       MICRO  2,1,/MF/
29613  M01S01281.271l716 +++| .C       MICRO  3,1,/MF/
29614  M01S01282.271l716 +++| .A       SET    1R".A"
29615  M01S01283.271l716 +++| .B       SET    1R".B"
29616  M01S01284.271l716 +++| .C       SET    1R".C"
29617  M01S01285.271l716 +++| .C       SET    .C/10B
29618  M01S01286.271l716 +++|          ORG    TFTN+MXFM-CPUM+MF-1
29619  M01S01287.271l716 +++|          LOC    MF
29620  M01S01288.271l716 +++|          VFD    5/.A,5/.B,2/.C
29621  M01S01289.271l716 +++| .D       SET    .A*200B+.B*4+.C
29622  M01S01290.271l716 +++| .D       OCTMIC .D
29623  M01S01291.271l716 +++| X".D"    EQU    0
29624  M01S01292.271l716 +++|          ENDM
29625  M01S01293.271l716 +++|          LIST   X,D
29626  M01S01294.271l716 +++|*CALL     COMDTFN
29627  M01S01295.271l716 +++|          LIST   *
29628  M01S01296.271l716 +++|
29629  M01S01297.271l716 +++|          ORG    TFTN+MXFM-CPUM+MXPF
Line S00957 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29630  M01S00957.274l797 +++|          SPACE  4,10
29631  M01S00958.274l797 +++|          CMDEND
Line S00982 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
29632  M01S00982.253l688 +++|          COMMAND (CPUMTR BREAKPOINT.),CMR
29633  M01S00983.253l688 +++|          SPACE  4,10
29634  M01S00984.253l688 +++|***       THIS COMMAND OVERLAY WORKS IN CONJUNCTION WITH THE *CPB*
29635  M01S00985.253l688 +++|*         BLOCK IN *CPUMTR*.  WHEN A *CPB,DSP....* COMMAND IS ENTERED,
29636  M01S00986.253l688 +++|*         IT SETS UP THE *C* DISPLAY ADDRESSES AND THEN CHANGES THE
29637  M01S00987.253l688 +++|*         LEFT SCREEN TO THE *C* DISPLAY.  DATA COMMUNICATION BETWEEN
29638  M01S00988.253l688 +++|*         THE ROUTINES IS THROUGH DATA BLOCKS WHOSE POINTERS ARE IN
29639  M01S00989.253l688 +++|*         *CMBL* IN CMR.
29640  M01S00990.253l688 +++| CPB      SPACE  4,10
29641  M01S00991.253l688 +++|***       CPB,BKP,N.         SET A *CPUMTR* BREAKPOINT ADDRESS AT *N*.
29642  M01S00992.253l688 +++|*         CPB,DSP,N.         SET UP *C* DISPLAY FOR *N*.
29643  M01S00993.253l688 +++|*                            *N* IS AN ABSOLUTE ADDRESS.
29644  M01S00994.253l688 +++|
29645  M01S00995.253l688 +++|
29646  M01S00996.253l688 +++|          ENTRY  CPB
29647  M01S00997.253l688 +++|          LDC    KBUF+8D-1   SET START OF KEYBOARD BUFFER
29648  M01S00998.253l688 +++|          STD    CA
29649  M01S00999.253l688 +++|          LDN    ZERL
29650  M01S01000.253l688 +++|          CRD    CM
29651  M01S01001.253l688 +++|          ADN    CMBL-ZERL   FETCH BREAKPOINT ADDRESSES
29652  M01S01002.253l688 +++|          CRD    T2
29653  M01S01003.253l688 +++|          LJM    CPT6        USE *CPT* PROCESSOR
29654  M01S01004.253l688 +++| CPD      SPACE  4,10
29655  M01S01005.253l688 +++|***       CPB,DSP.           BRING UP *C* DISPLAY AT CURRENT BKP.
29656  M01S01006.253l688 +++|*         CPB,P+             INCREMENT THE BREAKPOINT ADDRESS BY 1.
29657  M01S01007.253l688 +++|*         CPB,P-             DECREMENT THE BREAKPOINT ADDRESS BY 1.
29658  M01S01008.253l688 +++|
29659  M01S01009.253l688 +++|
29660  M01S01010.253l688 +++|          ENTRY  CPD
29661  M01S01011.253l688 +++|          LDK    CMBL        GET ADDRESSES
29662  M01S01012.253l688 +++|          CRD    T2
29663  M01S01013.253l688 +++|          RJM    AAD         FETCH *P* REGISTER
29664  M01S01014.253l688 +++|          CRD    CM
29665  M01S01015.253l688 +++|          LDD    CM          MOVE *P* REGISTER TO *AB*
29666  M01S01016.253l688 +++|          STD    AB+3
29667  M01S01017.253l688 +++|          LDD    CM+1
29668  M01S01018.253l688 +++|          STD    AB+4
29669  M01S01019.253l688 +++|          LDN    1RS         CHECK COMMAND
29670  M01S01020.253l688 +++|          SBM    KBUF+5
29671  M01S01021.253l688 +++|          ZJN    CPD1        IF *CPB,DSP.* COMMAND
29672  M01S01022.253l688 +++|          ADN    1R+-1RS
29673  M01S01023.253l688 +++|          LMN    1           SET +/- 1 (TWOS COMPLEMENT)
29674  M01S01024.253l688 +++|          STD    CM+4
29675  M01S01025.253l688 +++|          SHN    -6
29676  M01S01026.253l688 +++|          STD    CM+3
29677  M01S01027.253l688 +++|          LJM    CPT7        INCREMENT OR DECREMENT THE ADDRESS
29678  M01S01028.253l688 +++|
29679  M01S01029.253l688 +++| CPD1     LDC    TDSC        *C* DISPLAY ADDRESS
29680  M01S01030.253l688 +++|          STD    T2
29681  M01S01031.253l688 +++|          RJM    AAD         SET *C0* ADDRESS
29682  M01S01032.253l688 +++|          RJM    SDA
29683  M01S01033.253l688 +++|          RJM    AAD         SET *C1* ADDRESS
29684  M01S01034.253l688 +++|          ADN    10
29685  M01S01035.253l688 +++|          RJM    SDA
29686  M01S01036.253l688 +++|          LDD    AB+3        SET *C2* ADDRESS
29687  M01S01037.253l688 +++|          SHN    14
29688  M01S01038.253l688 +++|          ADD    AB+4
29689  M01S01039.253l688 +++|          RJM    SDA
29690  M01S01040.253l688 +++|          LDD    AB+3        SET *C3* ADDRESS
29691  M01S01041.253l688 +++|          SHN    14
29692  M01S01042.253l688 +++|          ADD    AB+4
29693  M01S01043.253l688 +++|          ADN    10
29694  M01S01044.253l688 +++|          RJM    SDA
29695  M01S01045.253l688 +++|          LDN    7           LEAVE *CPB,DSP*
29696  M01S01046.253l688 +++|          STM    /KEYBOARD/KBCA
Line S00003 Modification History
M01 (Added by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
29697  M01S00003.ns2547  +++|          LDC    KBUF+7      SET END OF COMMAND FOR *CJS*
29698  M01S00004.ns2547  +++|          STD    CA
Line S01047 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
29699  M01S01047.253l688 +++|          LDN    1RC
29700  M01S01048.253l688 +++|          LJM    /RES/DJS1   COMPLETE *C* DISPLAY SELECT
29701  M01S01049.253l688 +++| CPG      SPACE  4,10
29702  M01S01050.253l688 +++|***       CPB,GO.
29703  M01S01051.253l688 +++|*
29704  M01S01052.253l688 +++|*         GIVE A GO TO A *CPUMTR* BREAKPOINT HALT.
29705  M01S01053.253l688 +++|*
29706  M01S01054.253l688 +++|*         THE *CPFG* WORD IN THE BREAKPOINT TABLE IS SET TO ZERO.
29707  M01S01055.253l688 +++|
29708  M01S01056.253l688 +++|
29709  M01S01057.253l688 +++|          ENTRY  CPG
29710  M01S01058.253l688 +++|          LDN    ZERL
29711  M01S01059.253l688 +++|          CRD    AB
29712  M01S01060.253l688 +++|          ADN    CMBL-ZERL   *CPUMTR* BREAKPOINT POINTER
29713  M01S01061.253l688 +++|          CRD    T2
29714  M01S01062.253l688 +++|          LJM    CPT10       CLEAR EXISTING BREAKPOINT
29715  M01S01063.253l688 +++| CPT      SPACE  4,20
29716  M01S01064.253l688 +++|***       CPB,BKP,/NAME/N.   SET *CPUMTR* BREAKPOINT.
29717  M01S01065.253l688 +++|*         CPB,DSP,/NAME/N.   DISPLAY *CPUMTR* ADDRESS.
29718  M01S01066.253l688 +++|*
29719  M01S01067.253l688 +++|*         *N* IS AN ADDRESS RELATIVE TO BLOCK *NAME*.  IF NAME IS
29720  M01S01068.253l688 +++|*         NULL, THEN THE BASE ADDRESS FOR *CPUMTR* IS USED.
29721  M01S01069.253l688 +++|*
29722  M01S01070.253l688 +++|*         ANY EXISTING BREAKPOINT IS CLEARED BEFORE THE NEW ONE
29723  M01S01071.253l688 +++|*         IS SET.
29724  M01S01072.253l688 +++|*
29725  M01S01073.253l688 +++|*         IF THERE IS AN EXISTING BREAKPOINT ADDRESS, THE BREAKPOINT
29726  M01S01074.253l688 +++|*         WORD IN THE BREAKPOINT TABLE IS REWRITTEN TO THAT ADDRESS.
29727  M01S01075.253l688 +++|*         *DSD* MOVES THE WORD FROM *CPUMTR* AT THE ADDRESS DETERMINED
29728  M01S01076.253l688 +++|*         BY THE COMMAND, AND SAVES IT IN THE BREAKPOINT TABLE.  THEN
29729  M01S01077.253l688 +++|*         THE *RJ BKP* IS STORED IN ITS PLACE IN *CPUMTR*.  THE NEW
29730  M01S01078.253l688 +++|*         BREAKPOINT ADDRESS IS SAVED IN THE BREAKPOINT TABLE.  EXIT IS
29731  M01S01079.253l688 +++|*         THRU *CPG1* TO LET *CPUMTR* GO IF CURRENTLY BREAKPOINTED.
29732  M01S01080.253l688 +++|
29733  M01S01081.253l688 +++|
29734  M01S01082.253l688 +++|          ENTRY  CPT
29735  M01S01083.253l688 +++|          LDC    KBUF+8D+1   SET STRING POINTER TO BEGINNING OF NAME
29736  M01S01084.253l688 +++|          STD    CA
29737  M01S01085.253l688 +++|          RJM    ASN         ASSEMBLE NAME
29738  M01S01086.253l688 +++|          LDK    CMBL
29739  M01S01087.253l688 +++|          CRD    T2          FETCH BREAKPOINT ADDRESSES
29740  M01S01088.253l688 +++|
29741  M01S01089.253l688 +++|*         SEARCH BLOCK ORIGIN TABLE FOR BLOCK NAME.
29742  M01S01090.253l688 +++|
29743  M01S01091.253l688 +++|          LDD    T2          GET ENTRY FROM BLOCKS LOADED TABLE
29744  M01S01092.253l688 +++| CPT1     SHN    14
29745  M01S01093.253l688 +++|          LMD    T3
29746  M01S01094.253l688 +++|          CRD    CM
29747  M01S01095.253l688 +++|          LDD    CM+3        CHECK ENTRY
29748  M01S01096.253l688 +++|          ADD    CM+4
29749  M01S01097.253l688 +++|          ZJN    CPT4        IF END OF TABLE
29750  M01S01098.253l688 +++|
29751  M01S01099.253l688 +++|*         COMPARE NAMES.
29752  M01S01100.253l688 +++|
29753  M01S01101.253l688 +++|          LDD    CM
29754  M01S01102.253l688 +++|          LMD    AB
29755  M01S01103.253l688 +++|          NJN    CPT3        IF NO MATCH ON 1ST TWO CHARACTERS
29756  M01S01104.253l688 +++|          LDD    CM+1
29757  M01S01105.253l688 +++|          LMD    AB+1
29758  M01S01106.253l688 +++|          NJN    CPT3        IF NO MATCH ON 2ND TWO CHARACTERS
29759  M01S01107.253l688 +++|          LDD    CM+2
29760  M01S01108.253l688 +++|          LMD    AB+2
29761  M01S01109.253l688 +++|          NJN    CPT3        IF NO MATCH ON 3RD TWO CHARACTERS
29762  M01S01110.253l688 +++|          LDD    CM+3
29763  M01S01111.253l688 +++|          LMD    AB+3        CHECK LAST CHARACTER
29764  M01S01112.253l688 +++|          SCN    77
29765  M01S01113.253l688 +++|          ZJN    CPT5        IF MATCHING BLOCK NAME
29766  M01S01114.253l688 +++| CPT3     AOD    T3
29767  M01S01115.253l688 +++|          SHN    -14         INCREMENT TO NEXT WORD
29768  M01S01116.253l688 +++|          RAD    T2
29769  M01S01117.253l688 +++|          UJN    CPT1        CHECK NEXT ENTRY
29770  M01S01118.253l688 +++|
29771  M01S01119.253l688 +++| CPT4     JMP    KIE         INCORRECT ENTRY
29772  M01S01120.253l688 +++|
29773  M01S01121.253l688 +++|*         A MATCH WAS FOUND (BASE ADDRESS IS IN CM+3 - CM+4).
29774  M01S01122.253l688 +++|
29775  M01S01123.253l688 +++| CPT5     LDD    CM+3
29776  M01S01124.253l688 +++|          LPN    77
29777  M01S01125.253l688 +++|          STD    CM+3
29778  M01S01126.253l688 +++|
29779  M01S01127.253l688 +++|*         ASSEMBLE NUMERIC DELTA AND ADD TO BASE ADDRESS.
29780  M01S01128.253l688 +++|
29781  M01S01129.253l688 +++| CPT6     AOD    CA
29782  M01S01130.253l688 +++|          RJM    ASD
29783  M01S01131.253l688 +++| CPT7     LDD    CM+4        ADD BASE ADDRESS
29784  M01S01132.253l688 +++|          RAD    AB+4
29785  M01S01133.253l688 +++|          SHN    -14
29786  M01S01134.253l688 +++|          ADD    CM+3
29787  M01S01135.253l688 +++|          RAD    AB+3
29788  M01S01136.253l688 +++|          LDM    KBUF+4      CHECK COMMAND
29789  M01S01137.253l688 +++|          LMN    1RD
29790  M01S01138.253l688 +++|          NJN    CPT8        IF *CPB,BKP,...* OR *CPB,P+/-* COMMAND
29791  M01S01139.253l688 +++|          LJM    CPD1        PROCESS *CPB,DSP,...* COMMAND
29792  M01S01140.253l688 +++|
29793  M01S01141.253l688 +++|*         CHECK THAT ADDRESS IS WITHIN *CPUMTR*.
29794  M01S01142.253l688 +++|
29795  M01S01143.253l688 +++| CPT8     LDC    BIOL        FETCH FWA OF *CPUMTR*
29796  M01S01144.253l688 +++|          CRD    SR
29797  M01S01145.253l688 +++|          SBN    BIOL-RPLP   GET RPL POINTER
29798  M01S01146.253l688 +++|          CRD    CM
29799  M01S01147.253l688 +++|          LDD    AB+3        VERIFY ADDRESS
29800  M01S01148.253l688 +++|          SBD    SR+3
29801  M01S01149.253l688 +++|          SHN    14
29802  M01S01150.253l688 +++|          ADD    AB+4
29803  M01S01151.253l688 +++|          SBD    SR+4
29804  M01S01152.253l688 +++| CPT9     MJN    CPT4        IF ADDRESS BELOW *CPUMTR*
29805  M01S01153.253l688 +++|          LDD    CM
29806  M01S01154.253l688 +++|          SBD    AB+3
29807  M01S01155.253l688 +++|          SHN    14
29808  M01S01156.253l688 +++|          ADD    CM+1
29809  M01S01157.253l688 +++|          SBD    AB+4
29810  M01S01158.253l688 +++|          SBN    PPIL+1
29811  M01S01159.253l688 +++|          MJN    CPT9        IF ADDRESS ABOVE *CPUMTR*
29812  M01S01160.253l688 +++|
29813  M01S01161.253l688 +++|*         CLEAR EXISTING BREAKPOINT AND SET NEW BREAKPOINT ADDRESS.
29814  M01S01162.253l688 +++|
29815  M01S01163.253l688 +++| CPT10    RJM    AAD         READ ADDRESS OF PENDING BREAKPOINT
29816  M01S01164.253l688 +++|          ADN    /CPB/CPBA
29817  M01S01165.253l688 +++|          CRD    CM
29818  M01S01166.253l688 +++|          CWD    AB          SET NEW BREAKPOINT ADDRESS
29819  M01S01167.253l688 +++|          ADN    /CPB/CPBW-/CPB/CPBA
29820  M01S01168.253l688 +++|          CRD    AB          OLD BREAKPOINT WORD
29821  M01S01169.253l688 +++|          LDD    CM+3
29822  M01S01170.253l688 +++|          SHN    14          ASSEMBLE BREAKPOINT ADDRESS
29823  M01S01171.253l688 +++|          LMD    CM+4
29824  M01S01172.253l688 +++|          ZJN    CPT11       IF NO BREAKPOINT PENDING
29825  M01S01173.253l688 +++|          CWD    AB          REPLACE BREAKPOINT WORD
29826  M01S01174.253l688 +++|
29827  M01S01175.253l688 +++|*         SAVE WORD AT NEW BREAKPOINT AND REPLACE IT WITH A *RJ BKP*.
29828  M01S01176.253l688 +++|
29829  M01S01177.253l688 +++| CPT11    RJM    AAD
29830  M01S01178.253l688 +++|          ADN    /CPB/CPBA
29831  M01S01179.253l688 +++|          CRD    AB          READ BREAKPOINT ADDRESS
29832  M01S01180.253l688 +++|          ADN    /CPB/CPBP-/CPB/CPBA
29833  M01S01181.253l688 +++|          CRD    CM          READ UP BREAKPOINT PROTOTYPE
29834  M01S01182.253l688 +++|          LDD    AB+3
29835  M01S01183.253l688 +++|          SHN    14          ASSEMBLE CM ADDRESS
29836  M01S01184.253l688 +++|          LMD    AB+4
29837  M01S01185.253l688 +++|          ZJN    CPT12       IF NO BREAKPOINT
29838  M01S01186.253l688 +++|          CRD    AB          READ WORD AT BREAKPOINT ADDRESS
29839  M01S01187.253l688 +++|          CWD    CM          STORE BREAKPOINT PROTOTYPE IN ITS PLACE
29840  M01S01188.253l688 +++|          RJM    AAD
29841  M01S01189.253l688 +++|          ADN    /CPB/CPBW
29842  M01S01190.253l688 +++|          CWD    AB          SAVE BREAKPOINT WORD IN TABLE
29843  M01S01191.253l688 +++| CPT12    LDN    ZERL
29844  M01S01192.253l688 +++|          CRD    CM
29845  M01S01193.253l688 +++|          RJM    AAD         LET *CPUMTR* GO IF STOPPED
29846  M01S01194.253l688 +++|          ADN    /CPB/CPFG
29847  M01S01195.253l688 +++|          CWD    CM
29848  M01S01196.253l688 +++|          LDN    4           LEAVE *CPB,*
29849  M01S01197.253l688 +++|          STM    /KEYBOARD/KBCA
29850  M01S01198.253l688 +++|          JMP    KBR         RETURN
29851  M01S01199.253l688 +++| AAD      SPACE  4,10
29852  M01S01200.253l688 +++|**        AAD - ASSEMBLE ADDRESS OF *CPUMTR* BREAKPOINT PARAMETERS.
29853  M01S01201.253l688 +++|*
29854  M01S01202.253l688 +++|*         ENTRY  (T2 - T6) = *CMBL* WORD.
29855  M01S01203.253l688 +++|*
29856  M01S01204.253l688 +++|*         EXIT   (A) = ABSOLUTE CM ADDRESS.
29857  M01S01205.253l688 +++|
29858  M01S01206.253l688 +++|
29859  M01S01207.253l688 +++| AAD      SUBR               ENTRY/EXIT
29860  M01S01208.253l688 +++|          LDD    T5
29861  M01S01209.253l688 +++|          SHN    14
29862  M01S01210.253l688 +++|          LMD    T6
29863  M01S01211.253l688 +++|          NJN    AADX        IF BREAKPOINT ENABLED
29864  M01S01212.253l688 +++|          JMP    KIE         INCORRECT ENTRY
29865  M01S01213.253l688 +++| SAD      SPACE  4,10
29866  M01S01214.253l688 +++|**        SDA - SET *C* DISPLAY ADDRESS.
29867  M01S01215.253l688 +++|*
29868  M01S01216.253l688 +++|*         ENTRY  (A) = ADDRESS.
29869  M01S01217.253l688 +++|*                (T2) = DESTINATION OF ADDRESS.
29870  M01S01218.253l688 +++|*
29871  M01S01219.253l688 +++|*         EXIT   (T2) = (T2) + 2.
29872  M01S01220.253l688 +++|
29873  M01S01221.253l688 +++|
29874  M01S01222.253l688 +++| SDA      SUBR               ENTRY/EXIT
29875  M01S01223.253l688 +++|          STM    1,T2
29876  M01S01224.253l688 +++|          SHN    -14
29877  M01S01225.253l688 +++|          STI    T2
29878  M01S01226.253l688 +++|          LDN    2
29879  M01S01227.253l688 +++|          RAD    T2
29880  M01S01228.253l688 +++|          UJN    SDAX        RETURN
Line S00959 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29881  M01S00959.274l797 +++|          SPACE  4,10
29882  M01S00960.274l797 +++|          CMDEND
Line S01229 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
29883  M01S01229.253l688 +++|          COMMAND (PP BREAKPOINT COMMANDS.),CMR
29884  M01S01230.253l688 +++|          SPACE  4,10
29885  M01S01231.253l688 +++|**        PP BREAKPOINT COMMANDS.
29886  M01S01232.253l688 +++|
29887  M01S01233.253l688 +++|
29888  M01S01234.253l688 +++|          ENTRY  PPC
29889  M01S01235.253l688 +++|
Line S01236 Modification History
M01 (Added by) 253l688
M02 (Removed by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29890  M02S01236.dsd84   ---| PBJ      ENTER  (PP?.SX.),LOCK        STEP (DON-T FOLLOW RJM-S)
29891  M02S01237.dsd84   ---|
29892  M02S01238.dsd84   ---| PBS      ENTER  (PP?.S.),LOCK         STEP
29893  M02S01239.dsd84   ---|
29894  M02S01240.dsd84   ---| PP1      ENTER  (PP?.G.),LOCK         GO
29895  M02S01241.dsd84   ---|
29896  M02S01242.dsd84   ---| PP2      ENTER  (PP?.G,?.),LOCK       SET BREAKPOINT AND GO
29897  M02S01243.dsd84   ---|
29898  M02S01244.dsd84   ---| PP3      ENTER  (PP?.<CD,?.),LOCK     DISPLAY PP MEMORY
29899  M02S01245.dsd84   ---|
29900  M02S01246.dsd84   ---| PP4      ENTER  (PP?.<CD,?,?.),LOCK   CHANGE PP MEMORY
29901  M02S01247.dsd84   ---|
29902  M02S01248.dsd84   ---| PP5      ENTER  (PP?.A,?.),LOCK       SET *A* REGISTER
29903  M02S01249.dsd84   ---|
29904  M02S01250.dsd84   ---| PP6      ENTER  (PP?.P,?.),LOCK       SET *P* REGISTER
29905  M02S01251.dsd84   ---|
29906  M02S01252.dsd84   ---| PP7      ENTER  (PP?.EXR.),LOCK       BREAKPOINT OVERLAY LOAD
29907  M02S01253.dsd84   ---|
29908  M02S01254.dsd84   ---| PP8      ENTER  (PP?.FTN.),LOCK       BREAKPOINT NEXT FUNCTION
Line S00016 Modification History
M01 (Added by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29909  M01S00016.dsd84   +++| PBJ      ENTER  (PP?.SX.),SLOCK       STEP (DON-T FOLLOW RJM-S)
29910  M01S00017.dsd84   +++| PBS      ENTER  (PP?.S.),SLOCK        STEP
29911  M01S00018.dsd84   +++| PP1      ENTER  (PP?.G.),SLOCK        GO
29912  M01S00019.dsd84   +++| PP2      ENTER  (PP?.G,?.),SLOCK      SET BREAKPOINT AND GO
29913  M01S00020.dsd84   +++| PP3      ENTER  (PP?.<CD,?.),SLOCK    DISPLAY PP MEMORY
29914  M01S00021.dsd84   +++| PP4      ENTER  (PP?.<CD,?,?.),SLOCK  CHANGE PP MEMORY
29915  M01S00022.dsd84   +++| PP5      ENTER  (PP?.A,?.),SLOCK      SET *A* REGISTER
29916  M01S00023.dsd84   +++| PP6      ENTER  (PP?.P,?.),SLOCK      SET *P* REGISTER
29917  M01S00024.dsd84   +++| PP7      ENTER  (PP?.EXR.),SLOCK      BREAKPOINT OVERLAY LOAD
29918  M01S00025.dsd84   +++| PP8      ENTER  (PP?.FTN.),SLOCK      BREAKPOINT NEXT FUNCTION
Line S01255 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
29919  M01S01255.253l688 +++|
29920  M01S01256.253l688 +++|          CON    0           END OF TABLE
29921  M01S01257.253l688 +++| BKP      SPACE  4,10
29922  M01S01258.253l688 +++|***       BKP.
29923  M01S01259.253l688 +++|*
29924  M01S01260.253l688 +++|*         CLEAR PP BREAKPOINT REQUEST.
29925  M01S01261.253l688 +++|
29926  M01S01262.253l688 +++|
29927  M01S01263.253l688 +++|          ENTRY  BKA
29928  M01S01264.253l688 +++|          LDC    PPFW        RESET DISPLAY AT C ADDRESS
29929  M01S01265.253l688 +++|          STM    TDSV+2
29930  M01S01266.253l688 +++|          LDN    0           RESET DISPLAY AT D ADDRESS
29931  M01S01267.253l688 +++|          STM    TDSV+3
29932  M01S01268.253l688 +++|          LDN    CBKS
29933  M01S01269.253l688 +++|          UJN    BKB3        CLEAR BREAKPOINT
29934  M01S01270.253l688 +++| BKP      SPACE  4,10
29935  M01S01271.253l688 +++|***       BKP,XXX.
29936  M01S01272.253l688 +++|*
29937  M01S01273.253l688 +++|*         INITIATE BREAKPOINT FOR PP ROUTINE *XXX*.
29938  M01S01274.253l688 +++|
29939  M01S01275.253l688 +++|***       BKP,XXX,NN.
29940  M01S01276.253l688 +++|*
29941  M01S01277.253l688 +++|*         INITIATE BREAKPOINT FOR PP ROUTINE *XXX* AT CP *NN*.
29942  M01S01278.253l688 +++|
29943  M01S01279.253l688 +++|
29944  M01S01280.253l688 +++|          ENTRY  BKB
29945  M01S01281.253l688 +++|          RJM    ASN         ASSEMBLE NAME
29946  M01S01282.253l688 +++|          LDD    AB+1
29947  M01S01283.253l688 +++|          STD    CM+3
29948  M01S01284.253l688 +++|          LDD    AB
29949  M01S01285.253l688 +++|          STD    CM+2
29950  M01S01286.253l688 +++|          SHN    -6
29951  M01S01287.253l688 +++|          LMN    1R7
29952  M01S01288.253l688 +++|          NJN    BKB2        IF NOT MASS STORAGE OVERLAY
29953  M01S01289.253l688 +++| BKB1     JMP    KIE         INCORRECT ENTRY
29954  M01S01290.253l688 +++|
29955  M01S01291.253l688 +++| BKB2     AOD    CA          ASSEMBLE POSSIBLE CP NUMBER
29956  M01S01292.253l688 +++|          RJM    ASD
29957  M01S01293.253l688 +++|          LDD    AB+4        SET CP NUMBER
29958  M01S01294.253l688 +++|          STD    CM+4
29959  M01S01295.253l688 +++|          SBD    NC
29960  M01S01296.253l688 +++|          PJN    BKB1        IF ILLEGAL CP
29961  M01S01297.253l688 +++|          LDN    SBKS
29962  M01S01298.253l688 +++| BKB3     STD    CM+1
29963  M01S01299.253l688 +++|          MONITOR  SJCM      SET PP BREAKPOINT
29964  M01S01300.253l688 +++|          LDD    CM+1
29965  M01S01301.253l688 +++|          NJN    BKB1        IF REJECT
29966  M01S01302.253l688 +++|          JMP    KBR         RETURN
Line S00961 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29967  M01S00961.274l797 +++|          SPACE  4,10
29968  M01S00962.274l797 +++|          CMDEND
Line S01303 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
29969  M01S01303.253l688 +++|          COMMAND (PP BREAKPOINT PROCESSORS.),CMR
29970  M01S01304.253l688 +++| PP7      SPACE  4,10
29971  M01S01305.253l688 +++|***       PPN.EXR.
29972  M01S01306.253l688 +++|*
29973  M01S01307.253l688 +++|*         TRAP OVERLAY LOAD.
29974  M01S01308.253l688 +++|
29975  M01S01309.253l688 +++|
29976  M01S01310.253l688 +++|          ENTRY  PP7
29977  M01S01311.253l688 +++|          LDC    PBKE
29978  M01S01312.253l688 +++|          UJN    PP81        SET *EXR* TRAP ADDRESS
29979  M01S01313.253l688 +++| PP8      SPACE  4,10
29980  M01S01314.253l688 +++|***       PPN.FTN.
29981  M01S01315.253l688 +++|*
29982  M01S01316.253l688 +++|*         TRAP NEXT MONITOR FUNCTION.
29983  M01S01317.253l688 +++|
29984  M01S01318.253l688 +++|
29985  M01S01319.253l688 +++|          ENTRY  PP8
29986  M01S01320.253l688 +++|          LDC    PBKF        *FTN* TRAP ADDRESS
29987  M01S01321.253l688 +++| PP81     STD    CM+4
29988  M01S01322.253l688 +++|          UJN    PP20        CONTINUE
29989  M01S01323.253l688 +++| PP1      SPACE  4,10
29990  M01S01324.253l688 +++|***       PPN,G.
29991  M01S01325.253l688 +++|*
29992  M01S01326.253l688 +++|*         RESUME PP EXECUTION WITH NO BREAKPOINT.
29993  M01S01327.253l688 +++|
29994  M01S01328.253l688 +++|
29995  M01S01329.253l688 +++|          ENTRY  PP1
29996  M01S01330.253l688 +++|          LDN    PBRF
29997  M01S01331.253l688 +++|          UJN    PBC         ENTER BREAKPOINT COMMAND
29998  M01S01332.253l688 +++| PP2      SPACE  4,10
29999  M01S01333.253l688 +++|***       PPN,G,XXXX.
30000  M01S01334.253l688 +++|*
30001  M01S01335.253l688 +++|*         SET BREAKPOINT AT XXXX AND RESUME EXECUTION.
30002  M01S01336.253l688 +++|
30003  M01S01337.253l688 +++|
30004  M01S01338.253l688 +++|          ENTRY  PP2
30005  M01S01339.253l688 +++| PP20     LDN    PBGF
30006  M01S01340.253l688 +++|          UJN    PBC         ENTER BREAKPOINT COMMAND
30007  M01S01341.253l688 +++| PP3      SPACE  4,10
30008  M01S01342.253l688 +++|***       PPN,C,XXXX.
30009  M01S01343.253l688 +++|*
30010  M01S01344.253l688 +++|*         DISPLAY PP MEMORY AT XXXX.
30011  M01S01345.253l688 +++|
30012  M01S01346.253l688 +++|
30013  M01S01347.253l688 +++|          ENTRY  PP3
30014  M01S01348.253l688 +++|          LDN    PBCF
30015  M01S01349.253l688 +++|          UJN    PBC         ENTER BREAKPOINT COMMAND
30016  M01S01350.253l688 +++| PP4      SPACE  4,10
30017  M01S01351.253l688 +++|***       PPN,C,XXXX,YYYY.
30018  M01S01352.253l688 +++|*
30019  M01S01353.253l688 +++|*         ENTRY DATA WORD YYYY IN PP AT ADDRESS XXXX.
30020  M01S01354.253l688 +++|
30021  M01S01355.253l688 +++|
30022  M01S01356.253l688 +++|          ENTRY  PP4
30023  M01S01357.253l688 +++|          LDN    PBSF
30024  M01S01358.253l688 +++|          UJN    PBC         ENTER BREAKPOINT COMMAND
30025  M01S01359.253l688 +++| PP5      SPACE  4,10
30026  M01S01360.253l688 +++|***       PPN,A,XXXXXX.
30027  M01S01361.253l688 +++|*
30028  M01S01362.253l688 +++|*         SET PP *A* REGISTER TO XXXXXX.
30029  M01S01363.253l688 +++|
30030  M01S01364.253l688 +++|
30031  M01S01365.253l688 +++|          ENTRY  PP5
30032  M01S01366.253l688 +++|          LDN    PBAF
30033  M01S01367.253l688 +++|          UJN    PBC         ENTER BREAKPOINT COMMAND
30034  M01S01368.253l688 +++| PP6      SPACE  4,10
30035  M01S01369.253l688 +++|***       PPN,P,XXXX.
30036  M01S01370.253l688 +++|*
30037  M01S01371.253l688 +++|*         RESET PP *P* REGISTER TO XXXX.
30038  M01S01372.253l688 +++|
30039  M01S01373.253l688 +++|
30040  M01S01374.253l688 +++|          ENTRY  PP6
30041  M01S01375.253l688 +++|          LDN    PBPF
30042  M01S01376.253l688 +++|          UJN    PBC         ENTER BREAKPOINT COMMAND
30043  M01S01377.253l688 +++| VPP      SPACE  4,10
30044  M01S01378.253l688 +++|***       V,N.
30045  M01S01379.253l688 +++|*
30046  M01S01380.253l688 +++|*         SET *V* DISPLAY TO PP NN.
30047  M01S01381.253l688 +++|
30048  M01S01382.253l688 +++|
30049  M01S01383.253l688 +++|          ENTRY  VPP
30050  M01S01384.253l688 +++|          LDN    PBFM
30051  M01S01385.253l688 +++|          UJN    PBC         ENTER BREAKPOINT COMMAND
30052  M01S01386.253l688 +++| PBC      SPACE  4,10
30053  M01S01387.253l688 +++|**        PBC - PROCESS PP BREAKPOINT COMMANDS.
30054  M01S01388.253l688 +++|*
30055  M01S01389.253l688 +++|*         ENTRY  (A) = COMMAND ORDINAL.
30056  M01S01390.253l688 +++|*
30057  M01S01391.253l688 +++|*         EXIT   COMMAND WRITTEN TO PP MB+5.
30058  M01S01392.253l688 +++|
30059  M01S01393.253l688 +++|
30060  M01S01394.253l688 +++| PBCX     JMP    KIE         INCORRECT ENTRY
30061  M01S01395.253l688 +++|
30062  M01S01396.253l688 +++| PBC      BSS    0           ENTRY
30063  M01S01397.253l688 +++|          STD    CM+3
30064  M01S01398.253l688 +++|          LDC    KBUF+2      START OF PP NUMBER
30065  M01S01399.253l688 +++|          STD    CA
30066  M01S01400.253l688 +++|          RJM    ASD         DECODE PP NUMBER
30067  M01S01401.253l688 +++|          LDN    PPCP
30068  M01S01402.253l688 +++|          CRD    T1          READ PP COMMUNICATIONS ADDRESS
30069  M01S01403.253l688 +++|          SBN    PPCP-PPUL
30070  M01S01404.253l688 +++|          CRD    T0          FETCH CONCURRENT PP STATUS
30071  M01S01405.253l688 +++|          LDD    AB+4
30072  M01S01406.253l688 +++|          SBN    12
30073  M01S01407.253l688 +++|          MJN    PBC2        IF NPP 0 - 11
30074  M01S01408.253l688 +++|          SBN    20-12
30075  M01S01409.253l688 +++|          MJN    PBCX        IF INVALID PP NUMBER
30076  M01S01410.253l688 +++|          SBN    32-20
30077  M01S01411.253l688 +++|          MJN    PBC1        IF NPP 20 - 31
30078  M01S01412.253l688 +++|          SBN    40-32
30079  M01S01413.253l688 +++|          MJN    PBCX        IF INVALID PP NUMBER
30080  M01S01414.253l688 +++|          LDD    T0+3
30081  M01S01415.253l688 +++|          LPN    77
30082  M01S01416.253l688 +++|          ZJN    PBCX        IF NO CONCURRENT PP-S
30083  M01S01417.253l688 +++|          ADN    40-1
30084  M01S01418.253l688 +++|          SBD    AB+4
30085  M01S01419.253l688 +++|          MJN    PBCX        IF INVALID CPP NUMBER
30086  M01S01420.253l688 +++|          LDD    AB+4
30087  M01S01421.253l688 +++|          SBN    40          SET CPP CALCULATION
30088  M01S01422.253l688 +++| PBC1     ADN    12
30089  M01S01423.253l688 +++| PBC2     ADN    12          CALCULATE SEQUENTIAL PP NUMBER
30090  M01S01424.253l688 +++|          SHN    3
30091  M01S01425.253l688 +++|          ADD    T1+4        CALCULATE ADDRESS OF PP MB+5
30092  M01S01426.253l688 +++|          ADN    7
30093  M01S01427.253l688 +++|          STD    T7          SAVE PP MB+5 ADDRESS
30094  M01S01428.253l688 +++|          STM    TDSV+1
30095  M01S01429.253l688 +++|          LDD    AB+4        SAVE PP NUMBER OF DISPLAY
30096  M01S01430.253l688 +++|          ADD    HN          FORCE DISPLAY UPDATE
30097  M01S01431.253l688 +++|          STM    TDSV
30098  M01S01432.253l688 +++|          LDD    CM+3        CHECK FOR SCREEN CHANGE
30099  M01S01433.253l688 +++|          LMN    PBFM
30100  M01S01434.253l688 +++|          NJN    PBC3        IF NOT *V,NN.*
30101  M01S01435.253l688 +++|          LDN    1RV
30102  M01S01436.253l688 +++|          LJM    SLS         LOAD *V* DISPLAY
30103  M01S01437.253l688 +++|
30104  M01S01438.253l688 +++| PBC3     LDD    CA          SAVE POINTER TO END OF COMMAND
30105  M01S01439.253l688 +++|          ADC    1-KBUF
30106  M01S01440.253l688 +++|          STM    /KEYBOARD/KBCA  RESET KEYBOARD POINTER
30107  M01S01441.253l688 +++|          LDM    1,CA
30108  M01S01442.253l688 +++|          STD    T4          SAVE COMMAND CHARACTER
30109  M01S01443.253l688 +++|          LDM    2,CA
30110  M01S01444.253l688 +++|          LMN    1R,
30111  M01S01445.253l688 +++|          NJN    PBC6        IF END OF COMMAND
30112  M01S01446.253l688 +++|          LDN    3
30113  M01S01447.253l688 +++|          RAD    CA
30114  M01S01448.253l688 +++|          RJM    ASD         ASSEMBLE FIRST PARAMETER
30115  M01S01449.253l688 +++|          LDD    AB+4
30116  M01S01450.253l688 +++|          STD    CM+4        STORE IN COMMAND
30117  M01S01451.253l688 +++|          LDD    AB+3
30118  M01S01452.253l688 +++|          STD    CM+2        (18 BITS IF *A* REGISTER RESET)
30119  M01S01453.253l688 +++|          LDI    CA
30120  M01S01454.253l688 +++|          LMN    1R.
30121  M01S01455.253l688 +++|          ZJN    PBC6        IF END OF COMMAND
30122  M01S01456.253l688 +++|          LMN    1R,&1R.
30123  M01S01457.253l688 +++|          ZJN    PBC5        IF ANOTHER PARAMETER
30124  M01S01458.253l688 +++| PBC4     JMP    KIE         INCORRECT ENTRY
30125  M01S01459.253l688 +++|
30126  M01S01460.253l688 +++| PBC5     AOD    CA          ASSEMBLE DATA WORD
30127  M01S01461.253l688 +++|          RJM    ASD
30128  M01S01462.253l688 +++|          LDD    AB+4        SAVE DATA WORD FOR PP
30129  M01S01463.253l688 +++|          STD    CM+2
30130  M01S01464.253l688 +++| PBC6     LDD    T7          CHECK PP ACTIVITY
30131  M01S01465.253l688 +++|          CRD    AB
30132  M01S01466.253l688 +++|          LDD    AB
30133  M01S01467.253l688 +++|          ADD    AB+1        TEST FOR 7777 7777 STATUS FROM *7BK*
30134  M01S01468.253l688 +++|          LMC    2*7777
30135  M01S01469.253l688 +++|          NJN    PBC9        IF NOT READY FOR COMMAND
30136  M01S01470.253l688 +++| PBC7     LDD    T7
30137  M01S01471.253l688 +++|          CWD    CM
30138  M01S01472.253l688 +++|          LDD    CM+3        CHECK FOR *C*
30139  M01S01473.253l688 +++|          SBN    PBCF
30140  M01S01474.253l688 +++|          NJN    PBC8        IF NOT *C*
30141  M01S01475.253l688 +++|          LDD    CM+4        SET NEW C ADDRESS
30142  M01S01476.253l688 +++|          STM    TDSV+2-1RC,T4
30143  M01S01477.253l688 +++| PBC8     JMP    KBR         RETURN
30144  M01S01478.253l688 +++|
30145  M01S01479.253l688 +++| PBC9     LDN    0           CLEAR KEYBOARD READY
30146  M01S01480.253l688 +++|          STM    /KEYBOARD/KBRA
30147  M01S01481.253l688 +++|          LDC    PBCA        * NOT AT BREAK*
30148  M01S01482.253l688 +++|          LJM    /KEYBOARD/KMS  RETURN
30149  M01S01483.253l688 +++|
30150  M01S01484.253l688 +++|
30151  M01S01485.253l688 +++| PBCA     DATA   C* NOT AT BREAK*
30152  M01S01486.253l688 +++| VHP      SPACE  4,10
30153  M01S01487.253l688 +++|***       V,HNG.
30154  M01S01488.253l688 +++|*
30155  M01S01489.253l688 +++|*         SET *V* DISPLAY TO HUNG PP.
30156  M01S01490.253l688 +++|
30157  M01S01491.253l688 +++|
30158  M01S01492.253l688 +++|          ENTRY  VHP
30159  M01S01493.253l688 +++|          RJM    SCA         SET PP COMMUNICATION AREA ADDRESSES
30160  M01S01494.253l688 +++|          STD    T6
30161  M01S01495.253l688 +++|          LDM    TDSV+1
30162  M01S01496.253l688 +++|          ZJN    VHP2        IF NO PP ON *V* DISPLAY
30163  M01S01497.253l688 +++|          STD    T5
30164  M01S01498.253l688 +++| VHP1     LDN    10          ADVANCE COMMUNICATION AREA ADDRESS
30165  M01S01499.253l688 +++|          RAD    T5
30166  M01S01500.253l688 +++|          SBN    7           CONVERT TO INPUT REGISTER ADDRESS
30167  M01S01501.253l688 +++|          LMD    T6
30168  M01S01502.253l688 +++|          NJN    VHP3        IF NOT END OF COMMUNICATION AREA
30169  M01S01503.253l688 +++| VHP2     LDD    AB+4
30170  M01S01504.253l688 +++|          ADN    7           SET FIRST PP (MTR) ADDRESS
30171  M01S01505.253l688 +++|          STD    T5
30172  M01S01506.253l688 +++| VHP3     SOD    T7
30173  M01S01507.253l688 +++|          ZJN    VHP7        IF ALL PP-S CHECKED
30174  M01S01508.253l688 +++|          LDD    T5
30175  M01S01509.253l688 +++|          CRD    CM          READ LAST WORD OF PP MESSAGE BUFFER
30176  M01S01510.253l688 +++|          LDD    CM
30177  M01S01511.253l688 +++|          LMC    2RHN
30178  M01S01512.253l688 +++|          NJN    VHP1        IF PP NOT HUNG
30179  M01S01513.253l688 +++|          LDD    CM+1
30180  M01S01514.253l688 +++|          LMC    2RG/
30181  M01S01515.253l688 +++|          NJN    VHP1        IF PP NOT HUNG
30182  M01S01516.253l688 +++|          LDD    T5
30183  M01S01517.253l688 +++| VHP4     STM    TDSV+1      SAVE PP MESSAGE BUFFER ADDRESS
30184  M01S01518.253l688 +++|          SBD    AB+4
30185  M01S01519.253l688 +++|          SHN    -3          CALCULATE PP NUMBER
30186  M01S01520.253l688 +++|          SBN    12
30187  M01S01521.253l688 +++|          MJN    VHP6        IF PP IN LOWER BANK
30188  M01S01522.253l688 +++|          SBN    24-12
30189  M01S01523.253l688 +++|          MJN    VHP5        IF NOT CONCURRENT PP
30190  M01S01524.253l688 +++|          ADN    40-32
30191  M01S01525.253l688 +++| VHP5     ADN    20-12+12    PP IN UPPER BANK
30192  M01S01526.253l688 +++| VHP6     ADN    12
30193  M01S01527.253l688 +++|          STM    TDSV        SAVE PP NUMBER
30194  M01S01528.253l688 +++| VHP7     LDN    1RV
30195  M01S01529.253l688 +++|          LJM    SLS         LOAD *V* DISPLAY
30196  M01S01530.253l688 +++| VPS      SPACE  4,10
30197  M01S01531.253l688 +++|***       V,PS.
30198  M01S01532.253l688 +++|*
30199  M01S01533.253l688 +++|*         SET *V* DISPLAY TO PSEUDO PP.
30200  M01S01534.253l688 +++|
30201  M01S01535.253l688 +++|
30202  M01S01536.253l688 +++|          ENTRY  VPS
30203  M01S01537.253l688 +++|          RJM    SCA         SET PP COMMUNICATION AREA ADDRESSES
30204  M01S01538.253l688 +++|          SBN    1
30205  M01S01539.253l688 +++|          JMP    VHP4        SAVE PSEUDO PP MESSAGE BUFFER ADDRESS
30206  M01S01540.253l688 +++| SCA      SPACE  4,10
30207  M01S01541.253l688 +++|**        SCA - SET PP COMMUNICATION AREA ADDRESSES.
30208  M01S01542.253l688 +++|*
30209  M01S01543.253l688 +++|*         EXIT   (A) = LWA+1 OF PP COMMUNICATION AREA.
30210  M01S01544.253l688 +++|*                (T7) = PP COUNT (INCLUDING PSEUDO AND CPP-S).
30211  M01S01545.253l688 +++|*                (AB - AB+4) = *PPCP* POINTER WORD.
30212  M01S01546.253l688 +++|*
30213  M01S01547.253l688 +++|*         USES   T5, CM - CM+1.
30214  M01S01548.253l688 +++|
30215  M01S01549.253l688 +++|
30216  M01S01550.253l688 +++| SCA      SUBR               ENTRY/EXIT
30217  M01S01551.253l688 +++|          LDN    PPUL
30218  M01S01552.253l688 +++|          CRD    T5          FETCH PP COUNTS
30219  M01S01553.253l688 +++|          LDN    PPCP
30220  M01S01554.253l688 +++|          CRD    AB          GET PP COMMUNICATIONS AREA ADDRESS
30221  M01S01555.253l688 +++|          AOD    CM
30222  M01S01556.253l688 +++|          LPN    77          PSEUDO PP + CPP COUNT
30223  M01S01557.253l688 +++|          RAD    T7
30224  M01S01558.253l688 +++|          SHN    3           CALCULATE LWA+1 OF COMMUNICATION AREA
30225  M01S01559.253l688 +++|          ADD    AB+4
30226  M01S01560.253l688 +++|          UJN    SCAX        RETURN
Line S00963 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
30227  M01S00963.274l797 +++|          SPACE  4,10
30228  M01S00964.274l797 +++|          CMDEND
Line S01561 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
30229  M01S01561.253l688 +++|          COMMAND (PP BREAKPOINT PROCESSORS - STEP.),CMR
30230  M01S01562.253l688 +++| PBJ      SPACE  4,10
30231  M01S01563.253l688 +++|***       PPN.SX.
30232  M01S01564.253l688 +++|*
30233  M01S01565.253l688 +++|*         STEP, BUT DONT FOLLOW RJM-S.
30234  M01S01566.253l688 +++|
30235  M01S01567.253l688 +++|
30236  M01S01568.253l688 +++|          ENTRY  PBJ
30237  M01S01569.253l688 +++|          LDC    PBS9        SET TRANSFER
30238  M01S01570.253l688 +++|          STM    PBSA
30239  M01S01571.253l688 +++|          UJN    PBS1        CONTINUE
30240  M01S01572.253l688 +++| PBS      SPACE  4,20
30241  M01S01573.253l688 +++|***       PPN.S.
30242  M01S01574.253l688 +++|*
30243  M01S01575.253l688 +++|*         PROCESS PP STEP COMMAND.
30244  M01S01576.253l688 +++|
30245  M01S01577.253l688 +++|
30246  M01S01578.253l688 +++| PBSX     JMP    KIE         INCORRECT ENTRY
30247  M01S01579.253l688 +++|
30248  M01S01580.253l688 +++|          ENTRY  PBS
30249  M01S01581.253l688 +++| PBS1     LDC    KBUF+2      START OF PP NUMBER
30250  M01S01582.253l688 +++|          STD    CA
30251  M01S01583.253l688 +++|          RJM    ASD         DECODE PP NUMBER
30252  M01S01584.253l688 +++|          LDN    PPCP
30253  M01S01585.253l688 +++|          CRD    T1          READ PP COMMUNICATIONS ADDRESS
30254  M01S01586.253l688 +++|          SBN    PPCP-PPUL
30255  M01S01587.253l688 +++|          CRD    T0          FETCH CONCURRENT PP STATUS
30256  M01S01588.253l688 +++|          LDD    AB+4
30257  M01S01589.253l688 +++|          SBN    12
30258  M01S01590.253l688 +++|          MJN    PBS3        IF NPP 0 - 11
30259  M01S01591.253l688 +++|          SBN    20-12
30260  M01S01592.253l688 +++|          MJN    PBSX        IF INVALID PP NUMBER
30261  M01S01593.253l688 +++|          SBN    32-20
30262  M01S01594.253l688 +++|          MJN    PBS2        IF NPP 20 - 31
30263  M01S01595.253l688 +++|          SBN    40-32
30264  M01S01596.253l688 +++|          MJN    PBSX        IF INVALID PP NUMBER
30265  M01S01597.253l688 +++|          LDD    T0+3
30266  M01S01598.253l688 +++|          LPN    77
30267  M01S01599.253l688 +++|          ZJN    PBSX        IF NO CONCURRENT PP-S
30268  M01S01600.253l688 +++|          ADN    40-2
30269  M01S01601.253l688 +++|          SBD    AB+4
30270  M01S01602.253l688 +++|          PJN    PBSX        IF INVALID CPP NUMBER
30271  M01S01603.253l688 +++|          LDD    AB+4
30272  M01S01604.253l688 +++|          SBN    40          SET CPP CALCULATION
30273  M01S01605.253l688 +++| PBS2     ADN    12
30274  M01S01606.253l688 +++| PBS3     ADN    12          CALCULATE SEQUENTIAL PP NUMBER
30275  M01S01607.253l688 +++|          SHN    3
30276  M01S01608.253l688 +++|          ADD    T1+4        CALCULATE ADDRESS OF PP MB+5
30277  M01S01609.253l688 +++|          ADN    7
30278  M01S01610.253l688 +++|          STD    T7          SAVE PP MB+5 ADDRESS
30279  M01S01611.253l688 +++|          STM    TDSV+1
30280  M01S01612.253l688 +++|          LDD    AB+4        SAVE PP NUMBER OF DISPLAY
30281  M01S01613.253l688 +++|          ADD    HN          FORCE DISPLAY UPDATE
30282  M01S01614.253l688 +++|          STM    TDSV
30283  M01S01615.253l688 +++|          LDD    CA          SAVE POINTER TO END OF COMMAND
30284  M01S01616.253l688 +++|          ADC    1-KBUF
30285  M01S01617.253l688 +++|          STM    /KEYBOARD/KBCA RESET KEYBOARD POINTER
30286  M01S01618.253l688 +++|
30287  M01S01619.253l688 +++|*         ENSURE PP AT BREAKPOINT.
30288  M01S01620.253l688 +++|
30289  M01S01621.253l688 +++|          RJM    CKB         CHECK PP ACTIVITY
30290  M01S01622.253l688 +++|
30291  M01S01623.253l688 +++|*         READ CURRENT INSTRUCTION.
30292  M01S01624.253l688 +++|
30293  M01S01625.253l688 +++|          LDN    PBCF        READ PP MEMORY
30294  M01S01626.253l688 +++|          STD    T5
30295  M01S01627.253l688 +++|          LDD    T7          STORE PP REQUEST
30296  M01S01628.253l688 +++|          CWD    T2
30297  M01S01629.253l688 +++|          RJM    CKB         READ 5 BYTES BEGINNING AT (P)
30298  M01S01630.253l688 +++|          LDD    T6
30299  M01S01631.253l688 +++|          STD    CM+4        SET VALUE OF P REGISTER
30300  M01S01632.253l688 +++|          LDD    AB
30301  M01S01633.253l688 +++|          SHN    -6
30302  M01S01634.253l688 +++|          STD    T1          SAVE INSTRUCTION FOR JUMP TEST
30303  M01S01635.253l688 +++|          SHN    -3
30304  M01S01636.253l688 +++|          NJN    PBS7        IF NOT JUMP INSTRUCTION
30305  M01S01637.253l688 +++|          LDD    T1
30306  M01S01638.253l688 +++|          RAD    T1
30307  M01S01639.253l688 +++|          LDD    T4          USE PP-S (A) FOR JUMP TESTS
30308  M01S01640.253l688 +++|          SHN    14
30309  M01S01641.253l688 +++|          LMD    T5
30310  M01S01642.253l688 +++|          LJM    PBS4,T1     EXECUTE JUMP TEST
30311  M01S01643.253l688 +++|
30312  M01S01644.253l688 +++| PBS4     LJM    PBS10       PSN
30313  M01S01645.253l688 +++|
30314  M01S01646.253l688 +++|          LJM    PBS19       LJM
30315  M01S01647.253l688 +++|
30316  M01S01648.253l688 +++|          LJM    PBS18       RJM
30317  M01S01649.253l688 +++|*         LJM    PBS9        (NOT FOLLOWING RJM-S)
30318  M01S01650.253l688 +++| PBSA     EQU    *-1
30319  M01S01651.253l688 +++|
30320  M01S01652.253l688 +++| PBS5     LJM    PBS12       UJN
30321  M01S01653.253l688 +++|
30322  M01S01654.253l688 +++|          ZJN    PBS12       ZJN
30323  M01S01655.253l688 +++|          UJN    PBS10
30324  M01S01656.253l688 +++|
30325  M01S01657.253l688 +++|          NJN    PBS12       NJN
30326  M01S01658.253l688 +++|          UJN    PBS10
30327  M01S01659.253l688 +++|
30328  M01S01660.253l688 +++|          PJN    PBS12       PJN
30329  M01S01661.253l688 +++|          UJN    PBS10
30330  M01S01662.253l688 +++|
30331  M01S01663.253l688 +++|          MJN    PBS12       MJN
30332  M01S01664.253l688 +++|          UJN    PBS10
30333  M01S01665.253l688 +++|
30334  M01S01666.253l688 +++|*         NON JUMP INSTRUCTIONS.
30335  M01S01667.253l688 +++|
30336  M01S01668.253l688 +++| PBS7     LMN    5
30337  M01S01669.253l688 +++|          ZJN    PBS9        IF 5XXX INSTRUCTION
30338  M01S01670.253l688 +++|          LDD    T1
30339  M01S01671.253l688 +++|          SCN    3           TEST FOR 64XX - 67XX INSTRUCTION
30340  M01S01672.253l688 +++|          LMN    64
30341  M01S01673.253l688 +++|          ZJN    PBS13       IF CHANNEL INSTRUCTION
30342  M01S01674.253l688 +++|
30343  M01S01675.253l688 +++|*         SEARCH TABLE OF TWO BYTE INSTRUCTIONS.
30344  M01S01676.253l688 +++|
30345  M01S01677.253l688 +++| PBS8     AOD    T3          ADVANCE INDEX
30346  M01S01678.253l688 +++|          LDM    PBSC,T3
30347  M01S01679.253l688 +++|          ZJN    PBS10       IF INSTRUCTION NOT IN TABLE
30348  M01S01680.253l688 +++|          LMD    AB
30349  M01S01681.253l688 +++|          SCN    77
30350  M01S01682.253l688 +++|          NJN    PBS8        IF NOT TWO BYTE INSTRUCTION
Proceed to Part 22
cdc/nos2.source/opl.opl871/deck/dsd.021.txt ยท Last modified: by 127.0.0.1