User Tools

Site Tools


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

Deck DSD Part 027

169 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S17742 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28570  M02S17742.dsd90   ---|
Line S17743 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28571  M02S17743.dsd90   ---| SOT      SUBR               ENTRY/EXIT
Line S17744 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28572  M02S17744.dsd90   ---|          LDN    0           INITIALIZE TABLE INDEX
Line S17745 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28573  M02S17745.dsd90   ---|          STD    T1
Line S17746 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28574  M02S17746.dsd90   ---|          LDI    CA          ASSEMBLE ORIGIN TYPE
Line S17747 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28575  M02S17747.dsd90   ---|          SHN    6
Line S17748 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28576  M02S17748.dsd90   ---|          LMM    1,CA
Line S17749 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28577  M02S17749.dsd90   ---|          STD    T3
Line S17750 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28578  M02S17750.dsd90   ---|          LDM    TCOT,T1     SEARCH TABLE FOR ORIGIN TYPE
Line S17751 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28579  M02S17751.dsd90   ---| SOT1     LMD    T3
Line S17752 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28580  M02S17752.dsd90   ---|          ZJN    SOT2        IF MATCH FOUND
Line S17753 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28581  M02S17753.dsd90   ---|          LDN    2           INCREMENT TABLE INDEX
Line S17754 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28582  M02S17754.dsd90   ---|          RAD    T1
Line S17755 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28583  M02S17755.dsd90   ---|          LDM    TCOT,T1
Line S17756 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28584  M02S17756.dsd90   ---|          NJN    SOT1        IF NOT END OF TABLE
Line S17757 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd90
Seq #  *Modification Id* Act 
----------------------------+
28585  M02S17757.dsd90   ---|          JMP    KIE         PROCESS INVALID ENTRY
28586  M01S17758.dsd     +++| SPT      SPACE  4,10
28587  M01S17759.dsd     +++|**        SPT - SEARCH PARAMETER TABLE.
28588  M01S17760.dsd     +++|*
28589  M01S17761.dsd     +++|*         ENTRY  (A) = FWA OF PARAMETER TABLE.
28590  M01S17762.dsd     +++|*                (CA) = CHARACTER ADDRESS.
28591  M01S17763.dsd     +++|*
28592  M01S17764.dsd     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
28593  M01S17765.dsd     +++|*
28594  M01S17766.dsd     +++|*         USES   T1, T3, T5.
28595  M01S17767.dsd     +++|
28596  M01S17768.dsd     +++|
28597  M01S17769.dsd     +++| SPT2     LDD    T5
28598  M01S17770.dsd     +++|          SBD    T3
28599  M01S17771.dsd     +++|
28600  M01S17772.dsd     +++| SPT      SUBR               ENTRY/EXIT
28601  M01S17773.dsd     +++|          STD    T3
28602  M01S17774.dsd     +++|          STD    T5
28603  M01S17775.dsd     +++|          LDI    CA          ASSEMBLE PARAMETER NAME
28604  M01S17776.dsd     +++|          SHN    6
28605  M01S17777.dsd     +++|          LMM    1,CA
28606  M01S17778.dsd     +++|          STD    T1
28607  M01S17779.dsd     +++|          LDI    T5
28608  M01S17780.dsd     +++| SPT1     LMD    T1
28609  M01S17781.dsd     +++|          ZJN    SPT2        IF MATCH FOUND
28610  M01S17782.dsd     +++|          AOD    T5          INCREMENT TABLE INDEX
28611  M01S17783.dsd     +++|          LDI    T5
28612  M01S17784.dsd     +++|          NJN    SPT1        IF NOT END OF TABLE
28613  M01S17785.dsd     +++|          JMP    KIE         *INCORRECT ENTRY*
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
28638  M01S00943.274l797 +++|          SPACE  4,10
28639  M01S00944.274l797 +++|          CMDEND
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
28779  M01S00945.274l797 +++|          SPACE  4,10
28780  M01S00946.274l797 +++|          CMDEND
Line S17786 Modification History
M01 (Added by) dsd
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28781  M02S17786.251l664 ---|          COMMAND  (SECURITY FUNCTIONS.),CMR
28782  M01S01073.251l664 +++|          COMMAND  (SECURITY FUNCTIONS - QUEUES.),CMR
28783  M01S17787.dsd     +++| OQSH     SPACE  4,10
28784  M01S17788.dsd     +++|***       OQSH=NNNNNNN.
28785  M01S17789.dsd     +++|*         SELECTS OUTPUT SPECIAL HANDLING LEVEL.
28786  M01S17790.dsd     +++|*         NNNNNNN  OUTPUT QUEUE SPECIAL HANDLING LEVEL.
28787  M01S17791.dsd     +++|
28788  M01S17792.dsd     +++|
28789  M01S17793.dsd     +++|          ENTRY  OQS
28790  M01S17794.dsd     +++|          RJM    ASN         ASSEMBLE PARAMETER
28791  M01S17795.dsd     +++|          LDN    AB          SET POINTER TO PARAMETER
28792  M01S17796.dsd     +++|          RJM    VAL         SEARCH TABLE FOR PARAMETER
28793  M01S17797.dsd     +++|          MJN    OQS1        IF PARAMETER NOT FOUND
28794  M01S17798.dsd     +++|          STD    T3
28795  M01S17799.dsd     +++|          LDN    SSML        CLEAR OQSH
28796  M01S17800.dsd     +++|          CRD    CM
28797  M01S17801.dsd     +++|          LDD    CM
28798  M01S17802.dsd     +++|          SHN    14
28799  M01S17803.dsd     +++|          SCN    77
28800  M01S17804.dsd     +++|          LMD    T3          SET NEW OQSH
28801  M01S17805.dsd     +++|          SHN    6
28802  M01S17806.dsd     +++|          STD    CM
28803  M01S17807.dsd     +++|          LDN    SSML
28804  M01S17808.dsd     +++|          CWD    CM
28805  M01S17809.dsd     +++|          JMP    KBR         RETURN
28806  M01S17810.dsd     +++|
28807  M01S17811.dsd     +++| OQS1     JMP    KIE         INCORRECT ENTRY
28808  M01S17812.dsd     +++| REL      SPACE  4,10
28809  M01S17813.dsd     +++|***       RELEASE,JSN.
28810  M01S17814.dsd     +++|*
28811  M01S17815.dsd     +++|*         SETS THE OPERATOR RELEASE BIT FOR THE QFT ENTRY.
28812  M01S17816.dsd     +++|
28813  M01S17817.dsd     +++|
28814  M01S17818.dsd     +++|          ENTRY  REL
28815  M01S17819.dsd     +++|          RJM    ASN         ASSEMBLE JSN
28816  M01S17820.dsd     +++|          LDD    AB+2
28817  M01S17821.dsd     +++|          NJN    REL3        IF JSN .GT. 4 CHARACTERS
28818  M01S17822.dsd     +++|          STD    T1          INITIALIZE QFT ORDINAL
28819  M01S17823.dsd     +++|          LDK    QFTP        GET MAXIMUM NUMBER OF QFT ENTRIES
28820  M01S17824.dsd     +++|          CRD    CM
28821  M01S17825.dsd     +++|          LDD    CM+2
28822  M01S17826.dsd     +++|          STD    T2
28823  M01S17827.dsd     +++| REL1     SFA    QFT,T1      GET QFT ENTRY
28824  M01S17828.dsd     +++|          CRD    CM
28825  M01S17829.dsd     +++|          LDD    CM          COMPARE JSN TO REQUESTED JSN
28826  M01S17830.dsd     +++|          LMD    AB
28827  M01S17831.dsd     +++|          NJN    REL2        IF NO MATCH
28828  M01S17832.dsd     +++|          LDD    CM+1
28829  M01S17833.dsd     +++|          LMD    AB+1
28830  M01S17834.dsd     +++|          ZJN    REL4        IF MATCH
28831  M01S17835.dsd     +++| REL2     AOD    T1          INCREMENT QFT ORDINAL
28832  M01S17836.dsd     +++|          SBD    T2
28833  M01S17837.dsd     +++|          NJN    REL1        IF MORE ENTRIES TO CHECK
28834  M01S17838.dsd     +++| REL3     JMP    KIE         *INCORRECT ENTRY*
28835  M01S17839.dsd     +++|
28836  M01S17840.dsd     +++| REL4     SFA    QFT,T1      SET UP *UTEM* PARAMETERS
28837  M01S17841.dsd     +++|          STD    CM+4
28838  M01S17842.dsd     +++|          SHN    -14
28839  M01S17843.dsd     +++|          STD    CM+3
28840  M01S17844.dsd     +++|          LDN    0
28841  M01S17845.dsd     +++|          STD    CM+2
28842  M01S17846.dsd     +++|          LDN    1           NUMBER OF REQUESTS TO BE PROCESSED
28843  M01S17847.dsd     +++|          STD    CM+1
28844  M01S17848.dsd     +++|          LDD    MA          WRITE *UTEM* REQUEST WORD
28845  M01S17849.dsd     +++|          CWM    RELA,ON
28846  M01S17850.dsd     +++|          MONITOR  UTEM
28847  M01S17851.dsd     +++|          LDD    CM+1
28848  M01S17852.dsd     +++|          NJN    REL3        IF FUNCTION FAILED
28849  M01S17853.dsd     +++|          LJM    KBR         RETURN
28850  M01S17854.dsd     +++|
28851  M01S17855.dsd     +++| RELA     VFD    1/0,5/INSQ,6/1,6/18D,42/1
28852  M01S17856.dsd     +++|          SPACE  4,10
28853  M01S17857.dsd     +++|*         COMMON DECKS.
28854  M01S17858.dsd     +++|
28855  M01S17859.dsd     +++|
28856  M01S17860.dsd     +++|          QUAL
28857  M01S17861.dsd     +++| SCH$     SET    1
28858  M01S17862.dsd     +++|          QUAL   *
28859  M01S17863.dsd     +++|*CALL     COMPVLC
28860  M01S00947.274l797 +++|          SPACE  4,10
28861  M01S00948.274l797 +++|          CMDEND
Line S17864 Modification History
M01 (Added by) dsd
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
28862  M02S17864.251l664 ---|          COMMAND  (SECURITY FUNCTIONS.),CMR
28863  M01S01074.251l664 +++|          COMMAND  (SECURITY FUNCTIONS - SECUREQ.),CMR
28864  M01S01075.251l664 +++| SECUREQ  SPACE  4,10
28865  M01S17865.dsd     +++|***       SECUREQ,EQ,LA=XXXXXXX,UA=YYYYYYY.
28866  M01S17866.dsd     +++|*
28867  M01S17867.dsd     +++|*         SET EQUIPMENT ACCESS LIMITS.
28868  M01S17868.dsd     +++|*
28869  M01S17869.dsd     +++|*         EQ     EST ORDINAL OF EQUIPMENT.
28870  M01S17870.dsd     +++|*         XXXXXXX  LOWER BOUND.
28871  M01S17871.dsd     +++|*         YYYYYYY  UPPER BOUND.
28872  M01S17872.dsd     +++|
28873  M01S17873.dsd     +++|
28874  M01S17874.dsd     +++|          ENTRY  SCQ
28875  M01S17875.dsd     +++|          LDN    3           RESET BOUNDS FLAG
28876  M01S17876.dsd     +++|          STD    T8
28877  M01S17877.dsd     +++|          RJM    ASD         ASSEMBLE EST ORDINAL
28878  M01S17878.dsd     +++|          LDN    ESTP
28879  M01S17879.dsd     +++|          CRD    SH
28880  M01S17880.dsd     +++|          LDD    AB+4        CHECK EST ORDINAL
28881  M01S17881.dsd     +++|          STD    CM+1
28882  M01S17882.dsd     +++|          SBD    SH+2
28883  M01S17883.dsd     +++|          PJN    SCQ1        IF INCORRECT EST ORDINAL
28884  M01S17884.dsd     +++|          SFA    EST,AB+4    GET EST ENTRY
28885  M01S17885.dsd     +++|          ADK    EQDE
28886  M01S17886.dsd     +++|          CRD    SH
28887  M01S17887.dsd     +++|          LDC    TURE        FWA OF UNIT RECORD EQUIPMENT MNEMONICS
28888  M01S17888.dsd     +++|          STD    T3
28889  M01S17889.dsd     +++|          LDD    SH+3
Line S17890 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28890  M02S17890.252l678 ---|          LPC    3777
28891  M01S17891.dsd     +++|          ZJN    SCQ1        IF NULL ENTRY
28892  M01S17892.dsd     +++|          RJM    SST         CHECK IF UNIT RECORD EQUIPMENT
28893  M01S17893.dsd     +++|          LDI    CA
28894  M01S17894.dsd     +++|          LMN    1R,
28895  M01S17895.dsd     +++|          ZJN    SCQ2        IF SEPARATOR A COMMA
28896  M01S17896.dsd     +++| SCQ1     LJM    KIE         INCORRECT COMMAND
28897  M01S17897.dsd     +++|
28898  M01S17898.dsd     +++| SCQ2     AOD    CA          CHECK PREFIX
28899  M01S17899.dsd     +++|          LDC    TBDP
28900  M01S17900.dsd     +++|          STD    T3
28901  M01S17901.dsd     +++|          LDN    0
28902  M01S17902.dsd     +++|          RJM    SST
28903  M01S17903.dsd     +++|          STD    T5
28904  M01S17904.dsd     +++|          LDN    2
28905  M01S17905.dsd     +++|          RAD    CA
28906  M01S17906.dsd     +++|          LDI    CA          CHECK SEPARATOR
28907  M01S17907.dsd     +++|          LMN    1R=
28908  M01S17908.dsd     +++|          NJN    SCQ1        IF SEPARATOR NOT AN =
28909  M01S17909.dsd     +++|          AOD    CA
28910  M01S17910.dsd     +++|          RJM    ASN         ASSEMBLE PARAMETER
28911  M01S17911.dsd     +++|          LDN    AB          SET POINTER TO PARAMETER
28912  M01S17912.dsd     +++|          RJM    VAL         SEARCH TABLE FOR PARAMETER
28913  M01S17913.dsd     +++|          MJN    SCQ1        IF MATCH NOT FOUND
28914  M01S17914.dsd     +++|          STD    T3
28915  M01S17915.dsd     +++|          LDD    T5
28916  M01S17916.dsd     +++|          ZJN    SCQ3        IF PARAMETER NOT AN UPPER BOUND
28917  M01S17917.dsd     +++|          LDD    T3          SET UPPER BOUND
28918  M01S17918.dsd     +++|          STD    SP+1
28919  M01S17919.dsd     +++|          LDD    T8          UPDATE BOUNDS FLAG
28920  M01S17920.dsd     +++|          SCN    2
28921  M01S17921.dsd     +++|          STD    T8
28922  M01S17922.dsd     +++|          UJN    SCQ4        CHECK FOR ADDITIONAL PARAMETERS
28923  M01S17923.dsd     +++|
28924  M01S17924.dsd     +++| SCQ3     LDD    T3          SET LOWER BOUND
28925  M01S17925.dsd     +++|          STD    SP
28926  M01S17926.dsd     +++|          LDD    T8          UPDATE BOUNDS FLAG
28927  M01S17927.dsd     +++|          SCN    1
28928  M01S17928.dsd     +++|          STD    T8
28929  M01S17929.dsd     +++| SCQ4     LDI    CA
28930  M01S17930.dsd     +++|          LMN    1R.
28931  M01S17931.dsd     +++|          ZJN    SCQ5        IF END OF STATEMENT
28932  M01S17932.dsd     +++|          LJM    SCQ2        PROCESS NEXT PARAMETER
28933  M01S17933.dsd     +++|
28934  M01S17934.dsd     +++| SCQ5     LDD    T8
Line S17935 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28935  M02S17935.252l678 ---|          NJN    SCQ6        IF EITHER LOWER OR UPPER BOUND MISSING
Line S17936 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28936  M02S17936.252l678 ---|          LDD    SP+1
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  M01S17937.dsd     +++|          SBD    SP
28942  M01S17938.dsd     +++|          MJN    SCQ6        IF LOWER .GT. UPPER BOUND
28943  M01S17939.dsd     +++|          LDD    SP          INSERT LIMITS INTO *SEQM* CALL
28944  M01S17940.dsd     +++|          SHN    3
28945  M01S17941.dsd     +++|          LMD    SP+1
Line S17942 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28946  M02S17942.252l678 ---|          STD    CM+4
28947  M01S17943.dsd     +++|          LMC    4000        SET *MSEQ* ACCOUNT FILE MESSAGE FLAG
28948  M01S17944.dsd     +++|          STD    AB+3
28949  M01S00487.252l678 +++|          LPN    77
28950  M01S00488.252l678 +++|          STM    SCQA+4
28951  M01S17945.dsd     +++|          LDD    CM+1        SET EST ORDINAL
28952  M01S17946.dsd     +++|          STD    AB+4
Line S17947 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28953  M02S17947.252l678 ---|          LDK    EALS        SET *SEQM* SUBFUNCTION CODE
Line S17948 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28954  M02S17948.252l678 ---|          STD    CM+2
Line S17949 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28955  M02S17949.252l678 ---|          MONITOR  SEQM      SET LIMITS
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  M01S17950.dsd     +++|          LDK    /1DS/SAMF
28966  M01S17951.dsd     +++|          JMP    KAR         PROCESS *1DS* REQUEST
Line S17952 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28967  M02S17952.252l678 ---|
Line S17953 Modification History
M01 (Added by) dsd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
28968  M02S17953.252l678 ---| SCQ6     JMP    KIE         INCORRECT PARAMETER
28969  M01S00498.252l678 +++|
28970  M01S00499.252l678 +++|
28971  M01S00500.252l678 +++| SCQA     VFD    1/0,5/EQAE,6/6,6/12D,42/0       *UTEM* REQUEST
28972  M01S17954.dsd     +++|          SPACE  4,10
28973  M01S17955.dsd     +++|**        SST - SEARCH STRING TABLE.
28974  M01S17956.dsd     +++|*
28975  M01S17957.dsd     +++|*         ENTRY  (A) = 2 CHARACTERS, RIGHT JUSTIFIED.
28976  M01S17958.dsd     +++|*                    = 0, IF CHARACTERS IN (CA).
28977  M01S17959.dsd     +++|*                (T3) = FWA PARAMETER TABLE.
28978  M01S17960.dsd     +++|*                (CA) = CHARACTER ADDRESS.
28979  M01S17961.dsd     +++|*
28980  M01S17962.dsd     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
28981  M01S17963.dsd     +++|*
28982  M01S17964.dsd     +++|*         USES   T1, T2.
28983  M01S17965.dsd     +++|
28984  M01S17966.dsd     +++|
28985  M01S17967.dsd     +++| SST3     LDD    T2          RETURN WITH INDEX
28986  M01S17968.dsd     +++|          SBD    T3
28987  M01S17969.dsd     +++|
28988  M01S17970.dsd     +++| SST      SUBR               ENTRY/EXIT
28989  M01S17971.dsd     +++|          NJN    SST1        IF CHARACTER IN ACCUMULATOR
28990  M01S17972.dsd     +++|          LDI    CA          ASSEMBLE PARAMETER NAME
28991  M01S17973.dsd     +++|          SHN    6
28992  M01S17974.dsd     +++|          LMM    1,CA
28993  M01S17975.dsd     +++| SST1     STD    T1
28994  M01S17976.dsd     +++|          LDD    T3          SET TABLE FWA
28995  M01S17977.dsd     +++|          STD    T2
28996  M01S17978.dsd     +++|          LDI    T2
28997  M01S17979.dsd     +++| SST2     LMD    T1
28998  M01S17980.dsd     +++|          ZJN    SST3        IF MATCH FOUND
28999  M01S17981.dsd     +++|          AOD    T2          ADVANCE TABLE
29000  M01S17982.dsd     +++|          LDI    T2
29001  M01S17983.dsd     +++|          NJN    SST2        IF NOT END OF TABLE
29002  M01S17984.dsd     +++|          JMP    KIE         *INCORRECT ENTRY*
29003  M01S17985.dsd     +++| TBDP     SPACE  4,10
29004  M01S17986.dsd     +++|**        TBDP - TABLE OF BOUNDS PARAMETERS.
29005  M01S17987.dsd     +++|
29006  M01S17988.dsd     +++|
29007  M01S17989.dsd     +++| TBDP     BSS    0
29008  M01S17990.dsd     +++|          CON    2RLA
29009  M01S17991.dsd     +++|          CON    2RUA
29010  M01S17992.dsd     +++|          CON    0
29011  M01S17993.dsd     +++|          SPACE  4,10
29012  M01S17994.dsd     +++|**        TURE - UNIT RECORD EQUIPMENT MNEMONICS.
29013  M01S17995.dsd     +++|
29014  M01S17996.dsd     +++|
29015  M01S17997.dsd     +++| TURE     BSS    0
29016  M01S17998.dsd     +++|          DATA   2RCP
29017  M01S17999.dsd     +++|          DATA   2RCR
Line S18000 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
29018  M02S18000.274l797 ---|          DATA   2RLP
29019  M01S18001.dsd     +++|          DATA   2RLQ
29020  M01S18002.dsd     +++|          DATA   2RLR
29021  M01S18003.dsd     +++|          DATA   2RLS
29022  M01S18004.dsd     +++|          DATA   2RLT
29023  M01S00949.274l797 +++|          DATA   2RLX
29024  M01S00950.274l797 +++|          DATA   2RLY
29025  M01S18005.dsd     +++|          CON    0
29026  M01S18006.dsd     +++|          SPACE  4,10
29027  M01S18007.dsd     +++|*         COMMON DECKS.
29028  M01S18008.dsd     +++|
29029  M01S18009.dsd     +++|
29030  M01S18010.dsd     +++|          QUAL
29031  M01S18011.dsd     +++| SCH$     SET    1
29032  M01S18012.dsd     +++|          QUAL   *
29033  M01S18013.dsd     +++|*CALL     COMPVLC
29034  M01S00951.274l797 +++|          SPACE  4,10
29035  M01S00952.274l797 +++|          CMDEND
Line S18014 Modification History
M01 (Added by) dsd
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
29036  M02S18014.251l664 ---|          COMMAND  (SECURITY FUNCTIONS.),CMR
29037  M01S01076.251l664 +++|          COMMAND  (SECURITY FUNCTIONS - SECURES.),CMR
29038  M01S18015.dsd     +++| SECURES  SPACE  4,10
29039  M01S18016.dsd     +++|***       SECURES,OT,LA=XXXXXXX,UA=YYYYYYY.
29040  M01S18017.dsd     +++|*         SET THE SYSTEM ACCESS LEVEL LIMITS (OT = SY).
29041  M01S18018.dsd     +++|*         SET ORIGIN TYPE ACCESS LEVEL LIMITS (OT = BC, RB, IA).
29042  M01S18019.dsd     +++|*         XXXXXXX  LOWER BOUND.
29043  M01S18020.dsd     +++|*         YYYYYYY  UPPER BOUND.
29044  M01S18021.dsd     +++|
29045  M01S18022.dsd     +++|
29046  M01S18023.dsd     +++|          ENTRY  SCU
29047  M01S18024.dsd     +++|          LDK    INWL        CHECK SYSTEM ACCESS LIMITS CHANGE STATUS
29048  M01S18025.dsd     +++|          CRD    CM
29049  M01S18026.dsd     +++|          LDD    CM+3
29050  M01S18027.dsd     +++|          SHN    21-2
29051  M01S18028.dsd     +++|          MJN    SCU1        IF CHANGE IN PROGRESS
29052  M01S18029.dsd     +++|          LDN    10          SET INITIAL VALUES
29053  M01S18030.dsd     +++|          STD    SP
29054  M01S18031.dsd     +++|          STD    SP+1
29055  M01S18032.dsd     +++|          LDC    TJOT        CHECK ORIGIN TYPE
29056  M01S18033.dsd     +++|          RJM    SPT
29057  M01S18034.dsd     +++|          SHN    -1
29058  M01S18035.dsd     +++|          STD    T5
29059  M01S18036.dsd     +++|          RAM    SCUA
29060  M01S18037.dsd     +++|          LDN    2
29061  M01S18038.dsd     +++|          RAD    CA
29062  M01S18039.dsd     +++|          LDI    CA
29063  M01S18040.dsd     +++|          LMN    1R,
29064  M01S18041.dsd     +++|          ZJN    SCU2        IF SEPARATOR A COMMA
29065  M01S18042.dsd     +++| SCU1     LJM    KIE         INCORRECT COMMAND
29066  M01S18043.dsd     +++|
29067  M01S18044.dsd     +++| SCU2     AOD    CA          CHECK PREFIX
29068  M01S18045.dsd     +++|          LDC    TBDP
29069  M01S18046.dsd     +++|          RJM    SPT
29070  M01S18047.dsd     +++|          STD    T9
29071  M01S18048.dsd     +++|          LDN    2
29072  M01S18049.dsd     +++|          RAD    CA
29073  M01S18050.dsd     +++|          LDI    CA
29074  M01S18051.dsd     +++|          LMN    1R=
29075  M01S18052.dsd     +++|          NJN    SCU1        IF SEPARATOR NOT AN *=*
29076  M01S18053.dsd     +++|          AOD    CA
29077  M01S18054.dsd     +++|          RJM    ASN
29078  M01S18055.dsd     +++|          LDN    AB          SET POINTER TO PARAMETER
29079  M01S18056.dsd     +++|          RJM    VAL         SEARCH TABLE FOR PARAMETER
29080  M01S18057.dsd     +++|          MJN    SCU1        IF PARAMETER NOT FOUND
29081  M01S18058.dsd     +++|          STM    SP,T9       SET BOUND
29082  M01S18059.dsd     +++|          LDI    CA
29083  M01S18060.dsd     +++|          LMN    1R.
29084  M01S18061.dsd     +++|          NJN    SCU2        IF NOT END OF COMMAND
29085  M01S18062.dsd     +++|          STD    T7          ASSUME ONE ORIGIN TYPE TO BE CHANGED
29086  M01S18063.dsd     +++|          LDD    SP+1
29087  M01S18064.dsd     +++|          SBD    SP
29088  M01S18065.dsd     +++|          MJN    SCU6        IF LOWER BOUND .GT. UPPER BOUND
29089  M01S18066.dsd     +++|          LDN    0           GET CURRENT SYSTEM ACCESS LIMITS
29090  M01S18067.dsd     +++|          RJM    RJC
29091  M01S18068.dsd     +++|          CRD    AB
29092  M01S18069.dsd     +++|          LDD    AB+1
29093  M01S18070.dsd     +++|          LPN    77
29094  M01S18071.dsd     +++|          SHN    -3+22
29095  M01S18072.dsd     +++|          STD    T3
29096  M01S18073.dsd     +++|          SHN    -22+3
29097  M01S18074.dsd     +++|          STD    T4
29098  M01S18075.dsd     +++|          LDD    T5
29099  M01S18076.dsd     +++|          LMK    SYOT
29100  M01S18077.dsd     +++|          ZJN    SCU7        IF SYSTEM ORIGIN TYPE
29101  M01S18078.dsd     +++|          LDD    T4
29102  M01S18079.dsd     +++|          SBD    SP+1
29103  M01S18080.dsd     +++|          MJN    SCU6        IF UPPER BOUND .GT. SYSTEM UPPER BOUND
29104  M01S18081.dsd     +++|          LDD    T3
29105  M01S18082.dsd     +++|          SBD    SP
29106  M01S18083.dsd     +++|          MJN    SCU9        IF LOWER BOUND .GE. SYSTEM LOWER BOUND
29107  M01S18084.dsd     +++|          ZJN    SCU9        IF LOWER BOUND .GE. SYSTEM LOWER BOUND
29108  M01S18085.dsd     +++| SCU6     JMP    KIE         INCORRECT PARAMETER
29109  M01S18086.dsd     +++|
29110  M01S18087.dsd     +++| SCU7     LDD    SP          CHECK BOTH *LA* AND *UA* ENTERED
29111  M01S18088.dsd     +++|          SCN    7
29112  M01S18089.dsd     +++|          ADD    SP+1
29113  M01S18090.dsd     +++|          SCN    7
29114  M01S18091.dsd     +++|          NJN    SCU6        IF BOTH PARAMETERS NOT ENTERED
29115  M01S18092.dsd     +++|          LDD    SF
29116  M01S18093.dsd     +++|          ZJN    SCU8        IF UNSECURE SYSTEM
29117  M01S18094.dsd     +++|          SBN    1
29118  M01S18095.dsd     +++|          ZJN    SCU8        IF VALID TO RAISE OR LOWER LIMITS
29119  M01S18096.dsd     +++|          SBN    3-1
29120  M01S18097.dsd     +++|          ZJN    SCU6        IF INCORRECT TO RAISE OR LOWER LIMITS
29121  M01S18098.dsd     +++|          LDD    SP+1
29122  M01S18099.dsd     +++|          SBD    T4
29123  M01S18100.dsd     +++|          MJN    SCU6        IF LOWERING LIMITS
29124  M01S18101.dsd     +++|          LDD    SP
29125  M01S18102.dsd     +++|          SBD    T3
29126  M01S18103.dsd     +++|          MJN    SCU6        IF LOWERING LIMITS
29127  M01S18104.dsd     +++| SCU8     LDN    IAOT        SET TO FIX ALL ORIGIN TYPE BOUNDS
29128  M01S18105.dsd     +++|          STD    T7
29129  M01S18106.dsd     +++| SCU9     LDD    SP
29130  M01S18107.dsd     +++|          SHN    3
29131  M01S18108.dsd     +++|          RAD    SP+1
29132  M01S18109.dsd     +++| SCU10    LDN    0           GET SERVICE CONTROL TABLE ADDRESS
29133  M01S18110.dsd     +++|          RJM    RJC
29134  M01S18111.dsd     +++|          ADD    T5          GET SERVICE CONTROL WORD
29135  M01S18112.dsd     +++|          CRD    AB
29136  M01S18113.dsd     +++|          LDD    AB+1        SET BOUND IN WORD
29137  M01S18114.dsd     +++|          SCN    77
29138  M01S18115.dsd     +++|          LMD    SP+1
29139  M01S18116.dsd     +++|          STD    AB+1
29140  M01S18117.dsd     +++|          LDN    0           GET SERVICE CONTROL TABLE ADDRESS
29141  M01S18118.dsd     +++|          RJM    RJC
29142  M01S18119.dsd     +++|          ADD    T5          WRITE SERVICE CONTROL WORD
29143  M01S18120.dsd     +++|          CWD    AB
29144  M01S18121.dsd     +++|          AOD    T5
29145  M01S18122.dsd     +++|          SOD    T7
29146  M01S18123.dsd     +++|          PJN    SCU10       IF MORE BOUNDS TO SET (OT = *SY* ONLY)
29147  M01S18124.dsd     +++|          LDD    SF
29148  M01S18125.dsd     +++|          ZJN    SCU11       IF UNSECURED SYSTEM
29149  M01S18126.dsd     +++|          LDN    1
29150  M01S18127.dsd     +++|          STD    CM+1        SET OPTION COUNT
29151  M01S18128.dsd     +++|          STD    CM+2        DO NOT DROP PP
29152  M01S18129.dsd     +++|          LDD    MA
29153  M01S18130.dsd     +++|          CWM    SCUB,ON
29154  M01S18131.dsd     +++|          MONITOR  UADM      SET ACCESS LIMITS CHANGED FLAG
29155  M01S18132.dsd     +++| SCU11    LDD    SP+1        NEW ACCESS LEVEL LIMITS
29156  M01S18133.dsd     +++|          STD    AB+3
29157  M01S18134.dsd     +++|          LDN    0           ORIGIN TYPE
29158  M01S18135.dsd     +++| SCUA     EQU    *-1
29159  M01S18136.dsd     +++|          STD    AB+4
29160  M01S18137.dsd     +++|          LDK    /1DS/SAMF
29161  M01S18138.dsd     +++|          JMP    KAR         PROCESS *1DS* REQUEST
29162  M01S18139.dsd     +++|
29163  M01S18140.dsd     +++|
29164  M01S18141.dsd     +++| SCUB     CON    LIOS        INCREMENT BY ONE
29165  M01S18142.dsd     +++|          CON    INWL
29166  M01S18143.dsd     +++|          CON    14D*100+1   BIT ADDRESS AND FIELD WIDTH
29167  M01S18144.dsd     +++|          SPACE  4,10
29168  M01S18145.dsd     +++|**        SPT - SEARCH PARAMETER TABLE.
29169  M01S18146.dsd     +++|*
29170  M01S18147.dsd     +++|*         ENTRY  (A) = FWA PARAMETER TABLE.
29171  M01S18148.dsd     +++|*                (CA) = CHARACTER ADDRESS.
29172  M01S18149.dsd     +++|*
29173  M01S18150.dsd     +++|*         EXIT   (A) = INDEX OF ENTRY FOUND.
29174  M01S18151.dsd     +++|*
29175  M01S18152.dsd     +++|*         USES   T1, T2, T3.
29176  M01S18153.dsd     +++|
29177  M01S18154.dsd     +++|
29178  M01S18155.dsd     +++| SPT2     LDD    T2          RETURN WITH INDEX
29179  M01S18156.dsd     +++|          SBD    T3
29180  M01S18157.dsd     +++|
29181  M01S18158.dsd     +++| SPT      SUBR               ENTRY/EXIT
29182  M01S18159.dsd     +++|          STD    T2          SET TABLE FWA
29183  M01S18160.dsd     +++|          STD    T3
29184  M01S18161.dsd     +++|          LDI    CA          ASSEMBLE PARAMETER NAME
29185  M01S18162.dsd     +++|          SHN    6
29186  M01S18163.dsd     +++|          LMM    1,CA
29187  M01S18164.dsd     +++|          STD    T1
29188  M01S18165.dsd     +++|          LDI    T2
29189  M01S18166.dsd     +++| SPT1     LMD    T1
29190  M01S18167.dsd     +++|          ZJN    SPT2        IF MATCH FOUND
29191  M01S18168.dsd     +++|          AOD    T2
29192  M01S18169.dsd     +++|          LDI    T2
29193  M01S18170.dsd     +++|          NJN    SPT1        IF NOT END OF TABLE
29194  M01S18171.dsd     +++|          JMP    KIE         *INCORRECT ENTRY*
29195  M01S18172.dsd     +++| TBDP     SPACE  4,10
29196  M01S18173.dsd     +++|**        TBDP - TABLE OF BOUNDS PARAMETERS.
29197  M01S18174.dsd     +++|
29198  M01S18175.dsd     +++|
29199  M01S18176.dsd     +++| TBDP     BSS    0
29200  M01S18177.dsd     +++|          CON    2RLA
29201  M01S18178.dsd     +++|          CON    2RUA
29202  M01S18179.dsd     +++|          CON    0
29203  M01S18180.dsd     +++| TJOT     SPACE  4,10
29204  M01S18181.dsd     +++|**        TJOT - TABLE OF JOB ORIGIN TYPES.
29205  M01S18182.dsd     +++|
29206  M01S18183.dsd     +++| TJOT     BSS    0
29207  M01S18184.dsd     +++|          CON    2RSY,6060
29208  M01S18185.dsd     +++|          CON    2RBC,6060
29209  M01S18186.dsd     +++|          CON    2REI,2RRB
29210  M01S18187.dsd     +++|          CON    2RTX,2RIA
29211  M01S18188.dsd     +++|          CON    0
29212  M01S18189.dsd     +++|          SPACE  4,10
29213  M01S18190.dsd     +++|*         COMMON DECKS.
29214  M01S18191.dsd     +++|
29215  M01S18192.dsd     +++|
29216  M01S18193.dsd     +++|          QUAL
29217  M01S18194.dsd     +++| SCH$     SET    1
29218  M01S18195.dsd     +++|          QUAL   *
29219  M01S18196.dsd     +++|*CALL     COMPVLC
29220  M01S00953.274l797 +++|          SPACE  4,10
29221  M01S00954.274l797 +++|          CMDEND
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
29440  M01S00955.274l797 +++|          SPACE  4,10
29441  M01S00956.274l797 +++|          CMDEND
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 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
29519  M02S01188.271l750 ---|          LDN    MXFM-CPUM+1 SET MAXIMUM REQUEST ORDINAL
29520  M01S00130.271l750 +++|          LDK    MXFM-CPUM+1 SET MAXIMUM REQUEST ORDINAL
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
29630  M01S00957.274l797 +++|          SPACE  4,10
29631  M01S00958.274l797 +++|          CMDEND
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
29697  M01S00003.ns2547  +++|          LDC    KBUF+7      SET END OF COMMAND FOR *CJS*
29698  M01S00004.ns2547  +++|          STD    CA
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
29881  M01S00959.274l797 +++|          SPACE  4,10
29882  M01S00960.274l797 +++|          CMDEND
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 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29890  M02S01236.dsd84   ---| PBJ      ENTER  (PP?.SX.),LOCK        STEP (DON-T FOLLOW RJM-S)
Line S01237 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29891  M02S01237.dsd84   ---|
Line S01238 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29892  M02S01238.dsd84   ---| PBS      ENTER  (PP?.S.),LOCK         STEP
Line S01239 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29893  M02S01239.dsd84   ---|
Line S01240 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29894  M02S01240.dsd84   ---| PP1      ENTER  (PP?.G.),LOCK         GO
Line S01241 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29895  M02S01241.dsd84   ---|
Line S01242 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29896  M02S01242.dsd84   ---| PP2      ENTER  (PP?.G,?.),LOCK       SET BREAKPOINT AND GO
Line S01243 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29897  M02S01243.dsd84   ---|
Line S01244 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29898  M02S01244.dsd84   ---| PP3      ENTER  (PP?.<CD,?.),LOCK     DISPLAY PP MEMORY
Line S01245 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29899  M02S01245.dsd84   ---|
Line S01246 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29900  M02S01246.dsd84   ---| PP4      ENTER  (PP?.<CD,?,?.),LOCK   CHANGE PP MEMORY
Line S01247 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29901  M02S01247.dsd84   ---|
Line S01248 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29902  M02S01248.dsd84   ---| PP5      ENTER  (PP?.A,?.),LOCK       SET *A* REGISTER
Line S01249 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29903  M02S01249.dsd84   ---|
Line S01250 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29904  M02S01250.dsd84   ---| PP6      ENTER  (PP?.P,?.),LOCK       SET *P* REGISTER
Line S01251 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29905  M02S01251.dsd84   ---|
Line S01252 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29906  M02S01252.dsd84   ---| PP7      ENTER  (PP?.EXR.),LOCK       BREAKPOINT OVERLAY LOAD
Line S01253 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29907  M02S01253.dsd84   ---|
Line S01254 Modification History
M01 (Added by) 253l688
M02 (Updated by) dsd84
Seq #  *Modification Id* Act 
----------------------------+
29908  M02S01254.dsd84   ---| PP8      ENTER  (PP?.FTN.),LOCK       BREAKPOINT NEXT FUNCTION
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
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
29967  M01S00961.274l797 +++|          SPACE  4,10
29968  M01S00962.274l797 +++|          CMDEND
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
30227  M01S00963.274l797 +++|          SPACE  4,10
30228  M01S00964.274l797 +++|          CMDEND
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
30351  M01S01683.253l688 +++| PBS9     AOD    CM+4
30352  M01S01684.253l688 +++| PBS10    AOD    CM+4
30353  M01S01685.253l688 +++| PBS11    LDN    PBGF        G,XXXX FUNCTION
30354  M01S01686.253l688 +++|          STD    CM+3
30355  M01S01687.253l688 +++|          STD    CM          INSURE NO 7777
30356  M01S01688.253l688 +++|          LDD    T7
30357  M01S01689.253l688 +++|          CWD    CM
30358  M01S01690.253l688 +++|          JMP    KBR         RETURN
30359  M01S01691.253l688 +++|
30360  M01S01692.253l688 +++|*         PROCESS SHORT JUMPS.
30361  M01S01693.253l688 +++|
30362  M01S01694.253l688 +++| PBS12    LDD    AB          EXTRACT VARIABLE FILED
30363  M01S01695.253l688 +++|          LPN    77
30364  M01S01696.253l688 +++|          STD    T1          CHECK JUMP DIRECTION
30365  M01S01697.253l688 +++|          LPN    40
30366  M01S01698.253l688 +++|          ZJN    PBS15       IF POSITIVE JUMP
30367  M01S01699.253l688 +++|          LDD    T1
30368  M01S01700.253l688 +++|          LMN    76
30369  M01S01701.253l688 +++|          NJN    PBS14       IF NOT JUMP TO *-1
30370  M01S01702.253l688 +++| PBS13    LDC    PBSB
30371  M01S01703.253l688 +++|          LJM    CKB2        SET ERROR MESSAGE
30372  M01S01704.253l688 +++|
30373  M01S01705.253l688 +++| PBS14    LCN    77          CONVERT NEGATIVE ADVANCE
30374  M01S01706.253l688 +++| PBS15    LMD    T1
30375  M01S01707.253l688 +++| PBS16    RAD    CM+4
30376  M01S01708.253l688 +++| PBS17    UJN    PBS11       ISSUE REQUEST TO PP
30377  M01S01709.253l688 +++|
30378  M01S01710.253l688 +++|*         RETURN JUMP.
30379  M01S01711.253l688 +++|
30380  M01S01712.253l688 +++| PBS18    AOD    AB+1        FIRST INSTRUCTION PAST ENTRY
30381  M01S01713.253l688 +++|
30382  M01S01714.253l688 +++|*         LONG JUMP.
30383  M01S01715.253l688 +++|
30384  M01S01716.253l688 +++| PBS19    LDD    AB+1        SET JUMP ADDRESS
30385  M01S01717.253l688 +++|          STD    CM+4
30386  M01S01718.253l688 +++|          LDD    AB          CHECK FOR INDEXED JUMP
30387  M01S01719.253l688 +++|          LPN    77
30388  M01S01720.253l688 +++|          ZJN    PBS17       IF NOT INDEXED
30389  M01S01721.253l688 +++|          STD    T6
30390  M01S01722.253l688 +++|          LDN    PBCF        SET READ PP MEMORY FUNCTION
30391  M01S01723.253l688 +++|          STD    T5
30392  M01S01724.253l688 +++|          LDD    T7          STORE PP REQUEST
30393  M01S01725.253l688 +++|          CWD    T2
30394  M01S01726.253l688 +++|          RJM    CKB         READ 5 BYTES BEGINNING AT INDEX VALUE
30395  M01S01727.253l688 +++|          LDD    AB
30396  M01S01728.253l688 +++|          UJN    PBS16       ADVANCE BREAKPOINT ADDRESS
30397  M01S01729.253l688 +++|
30398  M01S01730.253l688 +++|
30399  M01S01731.253l688 +++| PBSB     DATA   C*CAN-T STEP.*
30400  M01S01732.253l688 +++|
30401  M01S01733.253l688 +++|
30402  M01S01734.253l688 +++|*         TABLE OF SELECTED TWO BYTE INSTRUCTIONS.
30403  M01S01735.253l688 +++|
30404  M01S01736.253l688 +++|
30405  M01S01737.253l688 +++| PBSC     CON    LDCI,ADCI,LPCI,LMCI,CRMI,CWMI,IAMI,OAMI,FNCI
30406  M01S01738.253l688 +++|          CON    0
30407  M01S01739.253l688 +++| CKB      SPACE  4,15
30408  M01S01740.253l688 +++|**        CKB - CHECK PP AT BREAKPOINT.
30409  M01S01741.253l688 +++|*
30410  M01S01742.253l688 +++|*         ENTRY  (T7) = ADDRESS OF PP-S MB+5.
30411  M01S01743.253l688 +++|*
30412  M01S01744.253l688 +++|*         EXIT   (A) = (T2) = 0.
30413  M01S01745.253l688 +++|*                (AB - AB+4) = PP MB+4.
30414  M01S01746.253l688 +++|*                (T3 - T3+3) = BYTES 1 THRU 4 OF PP MB+5.
30415  M01S01747.253l688 +++|*
30416  M01S01748.253l688 +++|*         ERROR  TO *KMS* IF PP NOT RESPONDING.
30417  M01S01749.253l688 +++|*
30418  M01S01750.253l688 +++|*         USES   KM, T1.
30419  M01S01751.253l688 +++|
30420  M01S01752.253l688 +++|
30421  M01S01753.253l688 +++| CKB3     LDD    T7          CHECK PP ACTIVITY
30422  M01S01754.253l688 +++|          CRD    T2
30423  M01S01755.253l688 +++|          SBN    1           GET PARAMETER WORD
30424  M01S01756.253l688 +++|          CRD    AB
30425  M01S01757.253l688 +++|          LDD    T2
30426  M01S01758.253l688 +++|          ADD    T3          TEST FOR 7777 7777 STATUS FROM *7BK*
30427  M01S01759.253l688 +++|          LMC    2*7777
30428  M01S01760.253l688 +++|          NJN    CKB1        IF PP NOT AT BREAKPOINT
30429  M01S01761.253l688 +++|          STD    T2
30430  M01S01762.253l688 +++|
30431  M01S01763.253l688 +++| CKB      SUBR               ENTRY/EXIT
30432  M01S01764.253l688 +++|          LDD    HN
30433  M01S01765.253l688 +++|          STD    T1          SET RETRY LIMIT
30434  M01S01766.253l688 +++| CKB1     SOD    T1
30435  M01S01767.253l688 +++|          PJN    CKB3        IF NOT TIMEOUT
30436  M01S01768.253l688 +++|          LDC    CKBA
30437  M01S01769.253l688 +++| CKB2     STD    KM          SET ERROR MESSAGE
30438  M01S01770.253l688 +++|          LDN    0
30439  M01S01771.253l688 +++|          STM    /KEYBOARD/KBRA  CLEAR REPEAT ENTRY
30440  M01S01772.253l688 +++|          LDD    KM
30441  M01S01773.253l688 +++|          LJM    /KEYBOARD/KMS  EXIT
30442  M01S01774.253l688 +++|
30443  M01S01775.253l688 +++|
30444  M01S01776.253l688 +++| CKBA     DATA   C*NOT AT BREAK.*
30445  M01S00965.274l797 +++|          SPACE  4,10
30446  M01S00966.274l797 +++|          CMDEND
30447  M01S18197.dsd     +++|          COMMAND (ENTER DATE.)
30448  M01S18198.dsd     +++| DTE      SPACE  4,10
30449  M01S18199.dsd     +++|**        DIRECT CELLS.
30450  M01S18200.dsd     +++|
30451  M01S18201.dsd     +++|
30452  M01S18202.dsd     +++| PD       EQU    SR          PACKED DATE AND TIME
30453  M01S18203.dsd     +++| DTE      SPACE  4,10
30454  M01S18204.dsd     +++|**        OVERFLOW CHECK.
30455  M01S18205.dsd     +++|*
30456  M01S18206.dsd     +++|*         THE ENTER DATE OVERLAY IS NOT CHECKED FOR OVERFLOW
30457  M01S18207.dsd     +++|*         DIRECTLY.  RATHER, IT IS COMPARED TO THE LARGEST
30458  M01S18208.dsd     +++|*         COMMAND OVERLAY FOUND.  IF THE ENTER DATE OVERLAY
30459  M01S18209.dsd     +++|*         IS LARGER, AN ERROR WILL BE FLAGGED.  BECAUSE OF
30460  M01S18210.dsd     +++|*         THIS, THE ENTER DATE OVERLAY MUST REMAIN THE
30461  M01S18211.dsd     +++|*         LAST OF THE COMMAND OVERLAYS TO ALLOW NEW OVERLAYS
30462  M01S18212.dsd     +++|*         TO REACH THE LARGEST POSSIBLE SIZE.
30463  M01S18213.dsd     +++| DTE      SPACE  4,10
30464  M01S18214.dsd     +++|***       DATE. YY/MM/DD.
30465  M01S18215.dsd     +++|*
30466  M01S18216.dsd     +++|*         ENTER SYSTEM DATE.
30467  M01S18217.dsd     +++|
30468  M01S18218.dsd     +++|
30469  M01S18219.dsd     +++|          ENTRY  DTE
30470  M01S18220.dsd     +++|          LDN    TIML        READ DATE AND TIME WORDS
30471  M01S18221.dsd     +++|          CRM    DTEB,ON
30472  M01S18222.dsd     +++|          RJM    ADD         ASSEMBLE YEAR
30473  M01S18223.dsd     +++|          STD    T7
30474  M01S00007.ns2797  +++|          ADC    -70D
30475  M01S00008.ns2797  +++|          PJN    DTE0        IF YEAR IN RANGE 1970-1999
30476  M01S00009.ns2797  +++|          ADN    -34D+70D
30477  M01S00010.ns2797  +++|          PJN    DTE2        IF BEYOND YEAR 2033 (NOT SUPPORTED)
30478  M01S00011.ns2797  +++| DTE0     LDD    T7
30479  M01S18224.dsd     +++|          LPN    3
30480  M01S18225.dsd     +++|          NJN    DTE1        IF NOT LEAP YEAR
30481  M01S18226.dsd     +++|          AOM    DTEA+2      ADVANCE FEBUARY
30482  M01S18227.dsd     +++| DTE1     AOD    CA          ASSEMBLE MONTH
30483  M01S18228.dsd     +++|          RJM    ADD
30484  M01S18229.dsd     +++|          STD    T6
30485  M01S18230.dsd     +++|          ZJN    DTE2        IF MONTH = 0
30486  M01S18231.dsd     +++|          SBN    13D
30487  M01S18232.dsd     +++|          PJN    DTE2        IF INCORRECT MONTH
30488  M01S18233.dsd     +++|          AOD    CA          ASSEMBLE DAY
30489  M01S18234.dsd     +++|          RJM    ADD
30490  M01S18235.dsd     +++|          SHN    6
30491  M01S18236.dsd     +++|          STD    T5
30492  M01S18237.dsd     +++|          ZJN    DTE2        IF DAY = 0
30493  M01S18238.dsd     +++|          SHN    -6          CHECK DAY COUNT FOR MONTH
30494  M01S18239.dsd     +++|          SBN    1
30495  M01S18240.dsd     +++|          SBM    DTEA,T6
30496  M01S18241.dsd     +++|          MJN    DTE3        IF LEGAL DAY COUNT
30497  M01S18242.dsd     +++| DTE2     JMP    KIE         *INCORRECT ENTRY*
30498  M01S18243.dsd     +++|
30499  M01S18244.dsd     +++| DTE3     LDN    4           SET ACCOUNT LOGGING BIT
30500  M01S18245.dsd     +++|          RAM    /KEYBOARD/LKBA
30501  M01S18246.dsd     +++|          LDN    0
30502  M01S18247.dsd     +++|          RJM    C1D         CHECK FOR COMMAND LOGGING
30503  M01S18248.dsd     +++|          LDN    PDTL        READ PACKED DATE AND TIME
30504  M01S18249.dsd     +++|          CRD    PD
30505  M01S18250.dsd     +++|          LCN    8D          RESET KEYBOARD INDEX
30506  M01S18251.dsd     +++|          RAD    CA
30507  M01S18252.dsd     +++|          RJM    ADD         REASSEMBLE YEAR
30508  M01S18253.dsd     +++|          STD    T7
30509  M01S18254.dsd     +++|          AOD    CA
30510  M01S18255.dsd     +++|          RJM    ADD         REASSEMBLE MONTH
30511  M01S18256.dsd     +++|          STD    T6
30512  M01S18257.dsd     +++|          AOD    CA
30513  M01S18258.dsd     +++|          RJM    ADD         REASSEMBLE DAY
30514  M01S18259.dsd     +++|          SHN    6
30515  M01S18260.dsd     +++|          STD    T5
30516  M01S18261.dsd     +++|          LDD    T7          ENTER PACKED DATE
30517  M01S18262.dsd     +++|          ADC    -70D
30518  M01S18263.dsd     +++|          PJN    DTE4        IF 70 .LE. YEAR .LE. 99
30519  M01S18264.dsd     +++|          ADC    100D
30520  M01S18265.dsd     +++| DTE4     SHN    6
30521  M01S18266.dsd     +++|          LMD    T6
30522  M01S18267.dsd     +++|          STD    PD+2
30523  M01S18268.dsd     +++|          LDD    PD+3
30524  M01S18269.dsd     +++|          LPN    77
30525  M01S18270.dsd     +++|          LMD    T5
30526  M01S18271.dsd     +++|          STD    PD+3
30527  M01S18272.dsd     +++|          LDM    DTEA,T6     SET DAY LIMIT
30528  M01S18273.dsd     +++|          ADN    1
30529  M01S18274.dsd     +++|          STD    AB
30530  M01S18275.dsd     +++|          LDN    DT          ASSEMBLE DATE
30531  M01S18276.dsd     +++|          STD    T1          SET ASSEMBLY
30532  M01S18277.dsd     +++|          LDC    KBUF+5      SET CHARACTER ADDRESS
30533  M01S18278.dsd     +++|          STD    T2
30534  M01S18279.dsd     +++| DTE5     LDI    T2          ASSEMBLE BYTE
30535  M01S18280.dsd     +++|          SHN    6
30536  M01S18281.dsd     +++|          LMM    1,T2
30537  M01S18282.dsd     +++|          STI    T1
30538  M01S18283.dsd     +++|          AOD    T1
30539  M01S18284.dsd     +++|          LDN    2
30540  M01S18285.dsd     +++|          RAD    T2
30541  M01S18286.dsd     +++|          LMC    KBUF+5+2*5
30542  M01S18287.dsd     +++|          NJN    DTE5        IF MORE CHARACTERS
Proceed to Part 28
cdc/nos2.source/opl.opl871/deck/dsd.027.txt · Last modified: by 127.0.0.1